Panama
11-04-2012, 07:43 PM
Hey all!
I have 2 problems ;C
1) Whenevre I press run button at simba, it opens 2 simba clients
2) whenever I run my script, it doesnt log in:
script:
program Clay crusher;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.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 WalkToBank;
Var
OutBank:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['0_0','0_1','1_0']);
OutBank := [Point(166, 99), Point(164, 132), Point(131, 143), Point(116, 170), Point(118, 206), Point(121, 241),
Point(127, 307), Point(151, 332), Point(159, 369), Point(89, 417), Point(2, 235), Point(37, 37),
Point(416, 49), Point(412, 383), Point(351, 415)];
SPS_WalkPath(OutBank);
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('lay') or (InvFull);
until(InvFull);
WalkToBank;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
WalkToBank;
LoginPlayer;
MineRock;
end.
I have 2 problems ;C
1) Whenevre I press run button at simba, it opens 2 simba clients
2) whenever I run my script, it doesnt log in:
script:
program Clay crusher;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.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 WalkToBank;
Var
OutBank:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['0_0','0_1','1_0']);
OutBank := [Point(166, 99), Point(164, 132), Point(131, 143), Point(116, 170), Point(118, 206), Point(121, 241),
Point(127, 307), Point(151, 332), Point(159, 369), Point(89, 417), Point(2, 235), Point(37, 37),
Point(416, 49), Point(412, 383), Point(351, 415)];
SPS_WalkPath(OutBank);
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('lay') or (InvFull);
until(InvFull);
WalkToBank;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
WalkToBank;
LoginPlayer;
MineRock;
end.