Go Back   Scar Scripts Forums > SRL - Scar Resource Library > SRL Scripting Help

Reply
 
LinkBack Thread Tools Search this Thread Display Modes

I need help understanding srl?
  #1 (permalink)  
Old 11-08-2008, 10:34 PM
Frankwashere Frankwashere is offline
Junior Member
 
Join Date: Nov 2008
Posts: 1
Total 'Thanks' Received by This User = 0 For This Post / 0 Total
Default I need help understanding srl?

program New;
{.include srl/srl/misc/smart.scar}
{.include SRL/SRL.scar}

Const Loads = 50; //loads to do?

WhatToFish = 'Sharks'; //Choose Between Lobbies, Sharks, Tuna, Swordies

Var
X, y, Banked : Integer;
Option, UpTextX : String;

procedure DeclarePlayers;
begin
Disguise('SRL - Forms- Index...');

HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;


Players[0].Name := '';

Players[0].Pass := '';

Players[0].Active := True;

{
Players[1].Name := '';

Players[1].Pass := '';

Players[1].Active := True; }

// ADD MORE IF YOU WISH!


WriteLn('Using ' +IntToStr(HowManyPlayers) + ' Players');
(* CheckUserNicks; *)
end;

Procedure WalkToFishingSpot;
Begin
MakeCompass('N');
SetRun(True);
SetAngle(True);

MouseFlag(MMCX + 65, MMCY, 6, 6);
Begin
FFlag(0);

If FindSymbol(x, y, 'fishing spot') Then
WriteLn('We are there')
{ else
WriteLn('Blind Click');
Mouse(679, 96, 10, 10, True); }
end;
end;

Function FindFishingSpots: TPointArray;

Var
Fish: TPointArray;
Fishes: T2DPointArray;
I, cts: Integer;

Begin
If Not LoggedIn Then Exit;

SetLength(Result, 0);
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Fish, 12828346, MSX1, MSY1, MSX2, MSY2, 40);
Fishes := TPAToATPA(Fish, 25);
SetLength(Fish, 0);
SetLength(Result, Length(Fishes));
For I := 0 To High(Fishes) Do
Begin
If Length(Fishes[i]) < 5 Then
Continue;
Result[i] := MiddleTPA(Fishes[i]);
End;
SetLength(Fishes, 0);
ColorToleranceSpeed(cts);
End;

Function FindFishingSpot(Var x, y: Integer): Boolean;

Var
Fish: TPointArray;
I: Integer;

Begin
If Not LoggedIn Then Exit;
Result := False;
Fish := FindFishingSpots;
For I := 0 To Length(Fish) - 1 Do
Begin
MMouse(Fish[i].X, Fish[i].Y, 0, 0);
Wait(150 + Random(50));
Case WhatToFish Of
'Lobbies' : UptextX := 'age';
'Tuna' : UptextX := 'age';
'Swordies' : UptextX := 'age';
'Sharks' : UptextX := 'et';
end;
If IsUpTextMultiCustom([UpTextX]) Then

Begin
Result := True;
x := Fish[i].X;
y := Fish[i].Y;
Exit;
End;
End;
End;

Procedure WaitWhileFish;
Var
IMark : Integer;

Begin
MarkTime(IMark);
Repeat
If InVfull Then Break;
FTWait(30 + Random(10));
If InVfull Then Break;
If FindFishingSpot(x, y) Then
Begin
Mouse(x, y, 3, 3, False);
ChooseOption(Option);
FFlag(0);
end;
If InVfull Then Break;
FindNormalRandoms;

If FindFight Then
RunAway('W', False, 1, 4000+Random(2000));
Until(TimeFromMark(IMark) > 20000) or (InvFull);
end;

Procedure Fish;
Begin
Repeat
If FindFishingSpot(x, y) Then
Begin
Mouse(x, y, 3, 3, False);
ChooseOption(Option);
FFlag(0);
end;
WaitWhileFish;
Until(InvFull);
end;

Procedure Bank;
Label lol;
Begin
If InvFull Then
SetRun(True);
MouseFlag(MMCX - 65, MMCY, 6, 6);
FFlag(0);

If FindObjTPA(x, y, 4737609, 10, 1, 10, 10, 10, ['ank']) Then
GoTo lol
else
If FindSymbol(x, y, 'Bank') Then
MouseFlag(x, y, 0, 0);

lol : If FindObjTPA(x, y, 4737609, 10, 1, 10, 10, 10, ['ank']) Then
Begin
Mouse(x, y, 1, 1, False);
If ChooseOption('uickly') or ChooseOption('ank') Then
FFlag(0);
If BankScreen Then
Begin
Deposit(2, 28, True);
CloseBank;
Banked := Banked +1;
end;
end;
end;

Procedure SetUpSMART;
Begin
WriteLn('Making S.M.A.R.T Ready');
SmartSetupEx(78, true, true, false);

wait(2000+Random(2000));
WriteLn('Loaded S.M.A.R.T');
SetTargetDC(SmartGetDC);
Exit;
end;

begin
SetupSRL;
SetUpSMART;
Case WhatToFish Of
'Lobbies' : Option := 'age';
'Tuna' : Option := 'arpo';
'Swordies' : Option := 'arpo';
'Sharks' : Option := 'arpo';
end;
DeclarePlayers;
If not loggedin then
Loginplayer;
SymbolAccuracy := 0.45
ActivateClient;
Repeat
WalkToFishingSpot;
Fish;
Bank;
Until(not loggedin) or (Banked > Loads);
end.

it still says
Include file C:\Program Files\SCAR 3.15\includes\srl\srl\misc\smart.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL.scar does not exist.
Failed when compiling

were do i get thease files. please help

Last edited by Frankwashere; 11-08-2008 at 10:50 PM.. Reason: better info
Reply With Quote

  #2 (permalink)  
Old 11-09-2008, 05:03 AM
IceFire908's Avatar
IceFire908 IceFire908 is offline
Moderator
 
Join Date: Apr 2008
Location: Houston, TX.
Posts: 159
Total 'Thanks' Received by This User = 0 For This Post / 10 Total
Send a message via AIM to IceFire908 Send a message via MSN to IceFire908
Default

Care to read anything posted like 7 times around the forum?
Reply With Quote

  #3 (permalink)  
Old 11-09-2008, 09:01 PM
We run U.S. We run U.S. is offline
Member
 
Join Date: Aug 2008
Location: cardboard box on new york streets.
Posts: 85
Total 'Thanks' Received by This User = 0 For This Post / 0 Total
Default

^ what he means is that you should look or search the Forum before making a thread.

Why do you think there is a search tab at the top of the screen?
Reply With Quote
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump



All times are GMT. The time now is 02:33 PM.


vBulletin skin developed by: eXtremepixels
Powered by vBulletin® Version 3.7.4
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0