austinpowers
2008-12-21 21:44:39
This is my first script. It is a power miner.Test it for me
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
I, x, y:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // 3/4 of name.
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := ''; // 3/4 of name.
Players[1].Active := True;
end;
begin
setupsrl;
DeclarePlayers;
LoadRockRecords;
repeat
repeat
FindObjRock(x, y, varrock_Iron);
Mouse(x, y, 2, 2, True);
FFlag(0);
FindNormalRandoms;
Wait(4000+Random(1000));
until InvFull
DropAll;
until false
end.
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
I, x, y:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // 3/4 of name.
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := ''; // 3/4 of name.
Players[1].Active := True;
end;
begin
setupsrl;
DeclarePlayers;
LoadRockRecords;
repeat
repeat
FindObjRock(x, y, varrock_Iron);
Mouse(x, y, 2, 2, True);
FFlag(0);
FindNormalRandoms;
Wait(4000+Random(1000));
until InvFull
DropAll;
until false
end.