CAn some one test it for me?
are there any errors?
any suggustions
SCAR Code:
program CaveFighter;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
const
CaveColor = 11579578;// No Need for touch.
TakeSleeps= True; // For an over night thing// The rests are 120 mins.
FightStyle = 'Def';//Type in Either atk/def/str.
waittime = 400;//Leave it.
Speed = 17 ; // Mouse speed.
Var
Start : Integer;
procedure DeclarePlayers;
begin
HowManyPlayers:=2; // How many players, both active or not active
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].String1 :='attack';//Set fight mode here
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].String1 :='attack';//Set fight mode here
Players[1].Active :=False;
end;
Procedure style;
Begin
Case lowercase(Players[CurrentPlayer].String1) Of
'attack' : SetFightMode(1);
'strength' : SetFightMode(2);
'shared' : SetFightMode(3);
'defense' : SetFightMode(4);
End;
WriteLn('Set fight mode');
End;
procedure entercave;
begin
If(FindColorSpiralTolerance(x,y,CaveColor,msx1,msy1,msx2,msy2,20))Then
begin
MMouse(x,y,3,3);
If(IsUpText('Enter'))Then
Mouse(x,y,2,2,True);
Wait(Waittime + Random(200))
end;
end;
function DeadYet : boolean;
begin
wait(1500+random(1500));
MakeCompass('S')
LowestAngle;
if(FindObjMultiText(x,y, 'entrance', 'Cave', 've', CaveColor, 15)) or (findsymbol(x,y,'minigame')) then
Result:= True;
end;
procedure Fight;
var
CavesDone:integer;
begin
if (infight) then
begin
MMouse(x,y,3,3);
If(IsUpText('Enter'))Then
Mouse(x,y,2,2,True);
repeat
wait (50000)
until(Deadyet);
end;
CavesDone := (CavesDone + 1);
end;
Procedure ScriptReport;
var
cavesdone,sleepsdone:integer;
Begin
Writeln('|----Cnr Sports Auto Fight Caves Runner---------');
Writeln('|----Caves done: ' + IntToStr(CavesDone));
Writeln('|----Times slept: ' + IntToStr(SleepsDone));
Writeln('|-----------------------------------------------');
End;
Procedure LogOutSleep(GoToBed : Integer);
var
TimesSlept,SleepsDone:integer;
Begin
LogOut;
Wait(GoToBed+Random(50000));
TimesSlept := (SleepsDone + 1);
LoginPlayer;
End;
begin
SetUpSrl;
DeclarePlayers;
NewLine := '';
Repeat
if (not (LoggedIn)) then Loginplayer;
Style;
MarkTime(Start);
repeat
Fight;
Until(TimeFromMark(Start) >= 720000)
If(TimeFromMark(Start) >= 720000)Then
WriteLn('Going to sleep');
LogOutSleep(360000);
until (false)
end.