Ok like i said i got multiple functions who stopped working,
The radialwalk is this one:
SCAR Code:
program ReFlax;
{.include SRL/SRL.scar}
Var
X, Y : integer;
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := 'sirpali';
Players[0] .Pass := '';
Players[0] .Nick := 'ali'; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
end;
procedure FindBankStairs;
begin
RadialWalk(473181,220,140,120,MMCX,MMCY);
wait(3500 + random(500));
If FindColorSpiral(x, y, 8160390, MSCX-100, MSCY-50, MSCX+100, MSCY+50) then
Mouse(X,Y, 2, 2, false);
ChooseOption('-down');
end;
procedure FindSpin;
begin
RadialWalk(213,0,80,90,MMCX,MMCY);
end;
{
procedure FindSpinStairs;
begin
if FindColorSpiralTolerance(x, y, 5439, 602, 96, 614, 110, 2) then
begin
Mouse(x, y, 2, 2, true);
wait(3500 + random(563)); /// Change to radialwalk
Mouse(170, 157, 25, 25, false);
wait(500 + random(273));
ChooseOption('limb-up');
end;
end;
}
procedure Setup;
begin
SetupSRL;
DeclarePlayers;
ClearDebug;
ActivateClient;
end;
begin
Setup;
FindBankStairs;
FindSpin;
end.
It worked perfectly, until suddenly it decided not too.
Another one is InFight
This one also worked perfectly, untill i tried a different script. After that i tried this one again to train my noob a bit, and it just went straight through the InFight check:
SCAR Code:
program PicknCook;
{.include SRL/SRL.scar}
Var
x, y: Integer;
InFight : Boolean;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(50)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
5: HoverSkill('Smithing', False);
11: RandomMovement;
15: BoredHuman;
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(200));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
//->Declare Players<-//
Procedure DeclarePlayers;
begin
Status('Loading Players')
HowManyPlayers := 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // 2-4 letters of username
Players[0].Active := True;
{ Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ern'; // 2-4 letters of username
Players[1].Active := True;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ern'; // 2-4 letters of username
Players[2].Active := True;
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'ame'; // 2-4 letters of username
Players[3].Active := True; }
end;
procedure PickItUp;
begin
if not InFight then
begin
if FindColorSpiralTolerance(x, y, 8882603, 5, 5, 518, 339, 5) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('chicken') then
begin
Flag;
AntiRandoms;
end;
end;
end;
end;
procedure KillIt;
begin
if InFight then repeat
wait (5000+random(200));
until not InFight;
if not InFight then
begin
if FindColorSpiralTolerance(x, y, 1055610, 5, 5, 518, 339, 5) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('ttack') then
AntiRandoms;
begin
Flag;
AntiRandoms;
end;
end;
wait (500+random(200));
end;
end;
procedure CheckFight;
begin
if InFight then repeat
wait (5000+random(200));
until not InFight;
end;
procedure Setup;
begin
ActivateClient;
DeclarePlayers;
end;
begin
SetupSRL;
Setup;
Begin
repeat
KillIt;
PickItUp;
Antiban;
until (IsFKeyDown(12));
end;
end.
The last one is MakeCompass, it worked about 3 times -for the same script as RadialWalk - when the makecompass failed, i tried radialwalk which resulted in the same wierdness after about 5 tries
SCAR Code:
procedure Setup;
begin
SetupSRL;
DeclarePlayers;
ClearDebug;
ActivateClient;
MakeCompass('172');
MakeCompass('360');
end;
All these stopped working independently, in different scripts, while they all worked like 5 minutes before.