Panama
11-03-2012, 03:47 PM
Hey!
I just today started to think of making a clay miner that will bank and mine and repeat ^^
I have this so far:
program New;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].BoxRewards := ['oins', 'oins', 'oins'];
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
procedure MineRock;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'lay',7845078,35 ) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('ine');
end;
repeat
Wait(3000+random(250));
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
MineRock;
end.
But I am very new to walking and need some help with walking and banking, If ANYONE could help me it would be awesome!
Thanks
I just today started to think of making a clay miner that will bank and mine and repeat ^^
I have this so far:
program New;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].BoxRewards := ['oins', 'oins', 'oins'];
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
end;
end;
end;
procedure MineRock;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'lay',7845078,35 ) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('ine');
end;
repeat
Wait(3000+random(250));
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
MineRock;
end.
But I am very new to walking and need some help with walking and banking, If ANYONE could help me it would be awesome!
Thanks