miller536
2012-05-12 10:35:02
so i got smart to to come up and everything im trying to use this yes i declareplayers but when i try to start it log in my acc it stays at the log in and does type anything
program BurnBurnBurn;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i srl/srl/misc/paintsmart.simba}
{$i sps/sps.simba}
const
{Which slot in bank is your log is?}
LOGS_BANKSLOT = 1;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'name';
Players[0].Pass := 'pass';
Players[0].Active := True;
Players[0].Pin := 'pin';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
wait(500);
until LoggedIn;
if LoggedIn then
begin
ClickNorth(SRL_ANGLE_HIGH);
ExitSquealOfFortune();
end;
end;
Procedure WalktoBank;
var
myPath:TPointArray;
begin
writeln('Walking to Bank');
SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '9_8']);
myPath := [Point(3883, 3188), Point(3893, 3193), Point(3889, 3198), Point(3889, 3204), Point(3887, 3211), Point(3886, 3216), Point(3886, 3224), Point(3886, 3229)];
SPS_WalkPath(myPath);
while IsMoving do
begin
wait(300);
end;
end;
Procedure OpeningBank;
begin
writeln('opening bank');
OpenBankfast('feb');
if WaitFunc(@BankScreen, 100, 5000) then
begin
writeln('Withdrawing logs');
MouseBankSlot(LOGS_BANKSLOT, mouse_Right);
WaitOption('All', 3000);
end;
end;
Procedure WalkOutside;
var
myPath:TPointArray;
begin
writeln('Walking outside');
SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '9_8']);
myPath := [Point(3886, 3232), Point(3887, 3227), Point(3887, 3221), Point(3887, 3214), Point(3890, 3211), Point(3898, 3212)];
SPS_WalkPath(myPath);
while IsMoving do
begin
wait(300);
end;
end;
Procedure LightLogs;
begin
InvMouse(1, mouse_Right);
WaitOption('ight', 3000);
repeat
wait(1000);
if FindChatBoxText('can', 8, clBlack) then
begin
Mouse(226, 170, 2, 2, mouse_Left);
LightLogs;
end;
until IsChatBoxTextAnyLine('catches', clBlack);
writeln('Fire ONNNNNN!');
wait(RandomRange(1000, 1500));
end;
procedure AntiBan;
var r: Integer;
begin
if not LoggedIn then Exit;
r := (RandomRange(1, 14));
if (r = 4) then
begin
writeln('Doing antiban');
case Random(20) of
0:
begin
PickUpMouse;
end;
1:
begin
RandomRClick;
end;
2:
PickUpMouse;
3:
RandomRClick;
4:
MMouse(MIX1, MIY1, MIX2, MIY2);
5:
MMouse(MMX1, MMY1, MMX2, MMY2);
end;
end;
end;
Procedure BonBon;
begin
InvMouse(1 + RandomRange(1, 11), mouse_Right);
WaitOption('Use', 3000);
Mouse(300, 166, 2, 2, mouse_Left);
while not InvEmpty do
begin
AntiBan;
WaitFunc(@InvEmpty, 100, 5000);
end;
If InvEmpty then
begin
writeln('Finished bonbon');
Exit;
end;
end;
begin
SetupLogin;
repeat
WalktoBank;
OpeningBank;
WalkOutside;
LightLogs;
BonBon;
until not LoggedIn;
end.
program BurnBurnBurn;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i srl/srl/misc/paintsmart.simba}
{$i sps/sps.simba}
const
{Which slot in bank is your log is?}
LOGS_BANKSLOT = 1;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'name';
Players[0].Pass := 'pass';
Players[0].Active := True;
Players[0].Pin := 'pin';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
wait(500);
until LoggedIn;
if LoggedIn then
begin
ClickNorth(SRL_ANGLE_HIGH);
ExitSquealOfFortune();
end;
end;
Procedure WalktoBank;
var
myPath:TPointArray;
begin
writeln('Walking to Bank');
SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '9_8']);
myPath := [Point(3883, 3188), Point(3893, 3193), Point(3889, 3198), Point(3889, 3204), Point(3887, 3211), Point(3886, 3216), Point(3886, 3224), Point(3886, 3229)];
SPS_WalkPath(myPath);
while IsMoving do
begin
wait(300);
end;
end;
Procedure OpeningBank;
begin
writeln('opening bank');
OpenBankfast('feb');
if WaitFunc(@BankScreen, 100, 5000) then
begin
writeln('Withdrawing logs');
MouseBankSlot(LOGS_BANKSLOT, mouse_Right);
WaitOption('All', 3000);
end;
end;
Procedure WalkOutside;
var
myPath:TPointArray;
begin
writeln('Walking outside');
SPS_Setup(RUNESCAPE_SURFACE, ['9_7', '9_8']);
myPath := [Point(3886, 3232), Point(3887, 3227), Point(3887, 3221), Point(3887, 3214), Point(3890, 3211), Point(3898, 3212)];
SPS_WalkPath(myPath);
while IsMoving do
begin
wait(300);
end;
end;
Procedure LightLogs;
begin
InvMouse(1, mouse_Right);
WaitOption('ight', 3000);
repeat
wait(1000);
if FindChatBoxText('can', 8, clBlack) then
begin
Mouse(226, 170, 2, 2, mouse_Left);
LightLogs;
end;
until IsChatBoxTextAnyLine('catches', clBlack);
writeln('Fire ONNNNNN!');
wait(RandomRange(1000, 1500));
end;
procedure AntiBan;
var r: Integer;
begin
if not LoggedIn then Exit;
r := (RandomRange(1, 14));
if (r = 4) then
begin
writeln('Doing antiban');
case Random(20) of
0:
begin
PickUpMouse;
end;
1:
begin
RandomRClick;
end;
2:
PickUpMouse;
3:
RandomRClick;
4:
MMouse(MIX1, MIY1, MIX2, MIY2);
5:
MMouse(MMX1, MMY1, MMX2, MMY2);
end;
end;
end;
Procedure BonBon;
begin
InvMouse(1 + RandomRange(1, 11), mouse_Right);
WaitOption('Use', 3000);
Mouse(300, 166, 2, 2, mouse_Left);
while not InvEmpty do
begin
AntiBan;
WaitFunc(@InvEmpty, 100, 5000);
end;
If InvEmpty then
begin
writeln('Finished bonbon');
Exit;
end;
end;
begin
SetupLogin;
repeat
WalktoBank;
OpeningBank;
WalkOutside;
LightLogs;
BonBon;
until not LoggedIn;
end.