Laz
2012-02-12 17:03:56
Hello i just make my first script, its a heater you need to start at west varrock bank and have the iron / gold ore on the first tab.
program script;
{$DEFINE SMART}
{$i SRL/srl.simba}
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
End;
End;
procedure SetupChar;
begin
SetupSRL();
SetAngle(0);
//ClickNorth(0);
end;
procedure Startup;
begin
Smart_Server := 69;
Smart_Members:= true;
Smart_Signed := true;
SetupSRL;
DeclarePlayers;
LogInPlayer;
MouseSpeed := 500;
wait(100+random(100));
end;
Function Bank: boolean;
Var
x, y: integer;
begin
if OpenBank('vwb', false, false) then //Varrock West Bank, vwb
begin
WriteLn('opened bank');
wait(500 + random(550));
end
end;
Procedure WithdrawOre;
begin
If BankScreen then
begin
Mouse(624, 230, 0, 0, False);
WaitOption('All', 400);
Wait(1000);
Withdraw(1, 0, 18);
Wait(500);
Withdraw(0, 0, 18);
Wait(500);
end;
CloseBank;
end;
Procedure Heat;
Var
J:Integer;
Begin
J := 0
Repeat
MMouse(743, 187, 2, 2);
ClickMouse2(True);
Wait(1500 + Random(25));
MMouse(621, 327, 1, 1);
ClickMouse2(True);
Wait(1500 + Random(25));
MMouse(702, 446, 2, 2);
ClickMouse2(True);
Inc(J);
Wait(1500 + Random(25));
Until (J = 9);
End;
begin
Startup;
SetupChar;
repeat
Heat;
Wait(1000); //this is the number it takes to heat all items!
Bank;
Wait(1243 + Random (250));
WithdrawOre;
Wait(1243 + Random (250));
until (not LoggedIn);
end.