Error: Exception: The bitmap[0] does not exist at line 664
program Herblore_V2;
{$I SRL/SRL.simba}
var
x,y :integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := Random(HowManyPlayers);
NumberOfPlayers(HowManyPlayers);
with Players[0] do
begin
Name := '';
Pass := '';
Member := True;
Nick := '';
Active := True;
end;
end;
function Unf: boolean;
begin;
(FindObjCustom(x, y, ['annar otion'], [10269595,9941143,9744019,10072473], 7)); result:= true;
begin
GetMousePos(x, y)
end
end;
function Ing: boolean;
begin;
(FindObjCustom(x, y, ['nape rass'], [6007566,5540363], 7)) result:= true
begin
GetMousePos(x, y)
WriteLn('Found S')
MoveMouse(x, y);
wait(randomrange(700,1000));
ClickMouse(x, y,(Mouse_Left));
end;
end;
procedure Setup;
var x, y: Integer;
begin
KeyDown(VK_UP);
wait(randomrange(1500, 2500));
KeyUp(VK_UP);
wait(randomrange(300, 500));
MakeCompass('N');
end;
procedure Antiban;
begin
end;
Function banking: boolean;
begin
(FindObjCustom(x, y, ['ank ooth'], [2577766], 7)); result:= true;
Begin
MoveMouse (x, y);
Wait(randomrange(400, 700));
ChooseOption('se');
Wait(randomrange(700,100));
End
end;
begin
DeclarePlayers;
Setup;
Unf;
Ing;
Banking;
Antiban;
ClearDebug;
end.


Reply With Quote










