SCAR Code:
program Spinner;
{.include srl/srl.scar}
{.include srl/srl/skill/Fighting.scar}
const
AmountOfFlax = 200;//How many flax you want to spin.//
var
Road: integer;
rx: integer;
ry: integer;
cx: integer;
cy: integer;
i: Integer;
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Name'; //username
Players[0].Pass := 'Password'; //password
Players[0].Nick := 'ame'; //3-4 letters from your username(helps anti-randoms)
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure setup;
begin
SetupSRL;
declarePlayers;
PerfectNorth;
ClearDebug;
i:= 0;
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
if not LoggedIn then Exit;
For I := 1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
End;
End;
8 : If RC Then
Result:=True;
9 : If FindFight Then
Result := True;
10: If FindTalk Then
Result := True;
11: If FindCerter Then
Result := True;
End;
Wait(1);
End;
End;
procedure DoAntiRandoms;
begin
if not LoggedIn then Exit;
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Crafting');
SolvePinball;
end;
procedure walktospin;
begin
PerfectNorth;
Road := FindFallyRoadColor;
Wait(50+(random(50)))
RadialWalk( Road , 200, 250, 50, 2, 2);
Wait(4000+(random(150)));
Flag;
Wait(100+(random(50)));
Mouse(632, 149 ,2 ,2 ,True);
Wait(1000+(random(50)));
Flag;
Wait(100+(random(50)));
RadialWalk( Road , 200, 270, 78, 2, 2);
Wait(400+(random(50)));
Flag;
Wait(400+(random(50)));
GetSymbolColor( rx , ry , 'water');
MMouse(rx-3,ry,2,2);
Wait(50+(random(50)));
Mouse(rx-3, ry, 2, 2 , True);
Flag;
Wait(800+(random(50)));
GetSymbolColor( rx , ry , 'spin');
MMouse(rx-2,ry,2,2);
Wait(50+(random(50)));
Mouse(rx-2, ry, 2, 2 , True);
Flag;
Wait(800+(random(50)));
end;
procedure Spin;
begin
FindObjCustom(cx, cy, ['inn', 'hee'], [940418, 1206166], 5)
MMouse(cx,cy,2,2);
Wait(60+(random(70)));
Mouse(cx, cy, 2, 2 , False);
Wait(250+(random(70)));
ChooseOption('Spin');
Flag;
Wait(600+(random(120)));
DoAntiRandoms;
MMouse(260, 137 ,2 ,2)
Wait(60+(random(70)));
Mouse(260, 137, 2, 2 , False);
Wait(200+(random(100)));
ChooseOption('X')
Wait(1500+(random(100)));
TypeSend('28');
Wait(100+(random(100)));
DoAntiRandoms;<-------------- The problem
Wait(50+(random(10)));
HoverSkill('crafting' , False);
Wait(4000+(random(100)));
end;
Procedure ToBank;
begin
Road := FindFallyRoadColor;
Wait(50+(random(50)))
RadialWalk( Road , 0, 90, 75, 2, 2);
Wait(5000+(random(50)));
Flag;
Wait(400+(random(50)));
RadialWalk( Road , 0, 90, 65, 2, 2);
Wait(1500+(random(50)));
Flag;
Wait(200+(random(50)));
MMouse(640, 20 ,2 ,2)
Wait(60+(random(70)));
Mouse(640, 20, 2, 2 , True);
Wait(1000+(random(100)));
Flag;
Wait(1000+(random(100)));
end;
function FindBankk(TheBank: string): Boolean;
var
bx, by, TheDTM: Integer;
WhichAngle: Extended;
begin
case TheBank of
'feb': TheDTM := DTMFromString('78DA63AC67626088634001FFFFFD63F80FA41' +
'9416C2060AC01AA4987C83141D5FCF9C3C4C0055503028CAD44A8' +
'E924AC0600131E11B5');
end;
if FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05,
WhichAngle) then
begin
Mouse(bx, by, 0, 0, True);
Flag;
Wait(1200)
// FTWait(8);
FFlag(0);
if OpenBankQuiet(TheBank) then
begin
FixBank;
Result := True;
FreeDTM(TheDTM);
Exit;
end
else Result := False;
end
else Result := False;
FreeDTM(TheDTM);
end;
Procedure Bank;
begin
FindBankk('feb')
DoAntiRandoms;
Flag;
Wait(1000+(random(100)));
FixBank;
Wait(300+(random(100)));
DepositAll;
Wait(1000+(random(100)));
MMouse(94, 79 ,2 ,2)
Wait(60+(random(70)));
Mouse(94, 79, 2, 2 , False);
Wait(350+(random(70)));
ChooseOption('All');
Wait(1200+(random(70)));
CloseWindow;
end;
begin
setup;
repeat
walktospin;
Spin;
ToBank;
Bank;
i:= i + 28;
until(i >= AmountOfFlax)
LogOut;
end.