MotorMouse
07-01-2012, 02:33 PM
Can anyone help me with my script?
It does around 1-2 invertories but then gets stuck and doesn't click on the body crafting gui from runescape
program GBodies;
{$DEFINE SMART}
{$I SRL/SRL.simba}
var
x, y, Body, xp: Integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //name
Pass := ''; //password
Nick := ''; //nickname
Pin := ''; //pin (if you atleast have one, else leave it)
Active := True;
end;
end;
//////////////////////No need for change below this line///////////////////////
procedure Camera;
begin
setangle(0);
Makecompass('N');
end;
procedure Banking;
begin
begin
repeat
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Deposit(5,26, true);
Withdraw(1, 1, 26);
end;
if invCount=2 then
begin
Withdraw(1, 1, 26);
end;
if invCount<2 then
begin
writeln('We need the needle and thread');
end;
begin
if BankScreen then
CloseBank;
end;
end;
procedure CraftAllTheBodies;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(1, 1);
InvMouse(28, 1);
wait(410+randomrange(0,120));
Mouse(150, 423, 10, 10, true);
repeat
wait(100+randomrange(0,100));
until invcount=12;
wait(200+random(100));
Body := Body+8;
end;
Procedure Exp;
begin
xp := Body*186;
end;
Procedure Progress;
begin
Exp;
writeln('We are running now for '+TimeRunning+'');
Writeln('You have gained '+inttostr(xp)+' Crafting xp');
end;
procedure First;
begin
Smart_Server := 51;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
Mousespeed := 15;
wait(100+random(100));
Body := 0;
end;
begin
writeln('Starting');
First;
writeln('Loading');
Camera;
repeat
writeln('We gotta bank');
Banking;
Writeln('Makin the bodies');
CraftAllTheBodies;
Progress;
until not LoggedIn;
Writeln('What happened? Please post it in the topic');
Progress;
TerminateScript;
end.
Ps. Il add anti-ban later :3
It does around 1-2 invertories but then gets stuck and doesn't click on the body crafting gui from runescape
program GBodies;
{$DEFINE SMART}
{$I SRL/SRL.simba}
var
x, y, Body, xp: Integer;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //name
Pass := ''; //password
Nick := ''; //nickname
Pin := ''; //pin (if you atleast have one, else leave it)
Active := True;
end;
end;
//////////////////////No need for change below this line///////////////////////
procedure Camera;
begin
setangle(0);
Makecompass('N');
end;
procedure Banking;
begin
begin
repeat
OpenBankChest(SRL_BANK_SW);
until BankSCreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen
end;
if BankScreen then
begin
Deposit(5,26, true);
Withdraw(1, 1, 26);
end;
if invCount=2 then
begin
Withdraw(1, 1, 26);
end;
if invCount<2 then
begin
writeln('We need the needle and thread');
end;
begin
if BankScreen then
CloseBank;
end;
end;
procedure CraftAllTheBodies;
begin
If InvFull then
Wait(200 + Random(100));
InvMouse(1, 1);
InvMouse(28, 1);
wait(410+randomrange(0,120));
Mouse(150, 423, 10, 10, true);
repeat
wait(100+randomrange(0,100));
until invcount=12;
wait(200+random(100));
Body := Body+8;
end;
Procedure Exp;
begin
xp := Body*186;
end;
Procedure Progress;
begin
Exp;
writeln('We are running now for '+TimeRunning+'');
Writeln('You have gained '+inttostr(xp)+' Crafting xp');
end;
procedure First;
begin
Smart_Server := 51;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
Mousespeed := 15;
wait(100+random(100));
Body := 0;
end;
begin
writeln('Starting');
First;
writeln('Loading');
Camera;
repeat
writeln('We gotta bank');
Banking;
Writeln('Makin the bodies');
CraftAllTheBodies;
Progress;
until not LoggedIn;
Writeln('What happened? Please post it in the topic');
Progress;
TerminateScript;
end.
Ps. Il add anti-ban later :3