This was made on request, it is very basicm but it works, keep an eye on it, i will update it later today... im trying to get pen or matthew to make a SCAR Mod :S ...
START IN VARROCK EAST BANK WITH TINDERBOX in 1ST INVENTORY SLOT, AND LOGS IN INVENTORY, HAVE THE REST OF LOGS IN THE 1ST TAB, 1ST BANK SLOT.
Code:
program New;
{.include SRL/SRL/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.scar}
var
MyPos, MyPos2, tileMS : tPoint;
Tiles : tPointArray;
const
Username = ''; { Username of the account autoing. }
Password = ''; { Password of your account. }
Nick = ''; { Nick: Nickname, 3 lowercase letters of name }
World = 96; { World to auto in }
procedure PrntMyPos;
begin
MyPos := GetMyPos;
writeln('( ' +IntToStr(MyPos.x)+ ', ' +IntToStr(MyPos.y)+ ')');
end;
function didTheFireLight : boolean;
var
i : integer;
begin
i := 2;
repeat
MouseItem(1, true);
wait(400);
PrntMyPos;
MouseItem(i, true);
i := i + 1;
repeat
wait(500);
MyPos2 := GetMyPos;
until(MyPos2.x < MyPos.x)
until(i > 28)
result := True;
end;
function Find(spot : string; clickleft : boolean): boolean;
begin
case spot of
'bank' : Tiles:= [Point(3250+random(6), 3420-random(1))];
'startspot1' : Tiles:= [Point(3262+random(3), 3429)];
'startspot2' : Tiles:= [Point(3262+random(3), 3428)];
'crossroads' : Tiles:= [Point(3246, 3430)];
'bankBooth' : Tiles:= [Point(3251+random(5), 3419)];
end;
if (DistanceFrom(Tiles[0]) > 1) then
begin
WalkToTile(Tiles[0], 0, 0);
FindNormalRandoms;
FFlag(10);
Writeln(' # At the: ' +spot+ '.');
Result := True;
Exit;
end;
TileMS := TileToMS(Tiles[0], 0);
Mouse(TileMS.x, TileMS.y, 0, 0, ClickLeft);
Result := True;
end;
procedure BankShit;
begin
ChooseOption('-quic');
repeat
wait(100);
until(BankScreen);
wait(100+random(1000));
FixBank;
wait(100+random(1000));
Withdraw(1, 1, 0);
end;
procedure Walk;
begin
case random(2) of
0: Find('startspot1', true);
1: Find('startspot2', true);
end;
flag;
DidTheFireLight;
Find('crossroads', true);
Flag;
Find('bank', true);
Flag;
wait(1000+random(1000));
Find('bankbooth', false);
BankShit;
end;
procedure declarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := Nick;
Players[0].Active := True;
end;
procedure Setup;
begin
SmartSetupEx(WorldNumber, true, true, false);
wait(5000);
SetTargetDC(SmartGetDC);
SetupSRL;
DeclarePlayers;
if not(LoggedIn) then
LoginPlayer;
end;
procedure Determine;
begin
PrntMyPos;
end;
begin
Setup;
repeat
Walk;
wait(500);
//PrntMyPos;
until(False)
end.START IN VARROCK EAST BANK WITH TINDERBOX in 1ST INVENTORY SLOT, AND LOGS IN INVENTORY, HAVE THE REST OF LOGS IN THE 1ST TAB, 1ST BANK SLOT.
