Simba Code:
program ArrowShafter;
//{$DEFINE SMART}
{$i srl/srl.simba}
{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$ENDIF}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Username
Pass := ''; // Password
Active := True; // Set to true if you want to use Player 0
end;
end;
procedure Antiban;
begin
if(not(LoggedIn))then Exit;
begin
case Random(100) of
10: RandomRClick;
30: PickUpMouse;
50: RandomMovement;
70: BoredHuman;
89: ExamineInv;
end;
end;
end;
procedure Withraw ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63E46566608863644006B5311E601A260' +
'A001F210193');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end;
procedure takeall ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA633464666078CAC8800C562D5A04A661A' +
'200403C030B');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end;
procedure Walk ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63CC646160C861644006FD09F6601A260' +
'A002E67020B');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end;
procedure Findtannery ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63CC656160B064644006CB2B43C0344C1' +
'4002CE30222');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
if (findobjcustom(x,y,['Ellis'],[5593203] then
procedure Trade ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63646666602866644006A55161601A260' +
'A00207401A2');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
procedure Tan-Hides ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63DCC8C4C030879101191C3BB1054CC34' +
'4014DB90395');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
procedure Takeall ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63D46462604860644006EFEFDC02D3305' +
'10039AD0334');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
procedure backtobank ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA63FCC2CCC0E0CDC8800CD6CE2A04D3305' +
'100454902FE');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
procedure backtobank ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA639464616050676440065B16BB8269982' +
'80021AD01E4');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end.
rocedure takeall ;
var
DTM, x, y : Integer;
TP : TPoint;
begin
DTM := DTMFromString('78DA633464666078CAC8800C562D5A04A661A' +
'200403C030B');
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 5, 5, mouse_Left);
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'nife', StatChars, ClickLeft))then
Wait(RandomRange(750, 900));
if(FindTextTPAEx(2070783, 0, MCX1, MCY1, MCX2, MCY2, TP.X, TP.Y, 'et of', StatChars, ClickLeft))then
begin
while(InvCount > 1)do
begin
AntiBan;
Wait(RandomRange(250, 500));
end;
end;
end;
FreeDTM(DTM);
end;
repeat
until(not logged in) Then(exit)
procedure MainLoop;
begin
end;
begin
{$IFDEF SMART}
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ENDIF}
SetupSRL();
ClearDebug();
DeclarePlayers();
LoginPlayer();
MainLoop();
end.