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
|