Simba Code:
program new;
{$define SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure Camera;
begin
MakeCompass ('N')
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(12) of
0:
begin
wait (random(1000))
end;
2:
begin
MakeCompass('N');
wait(100+random(133));
end;
3:
begin
wait (343+random(1222));
end;
2:PickUpMouse;
7:
begin;
HoverSkill('Woodcutting', false);
wait(1000+Random(1000));
end;
12:
begin;
MakeCompass('S')
end;
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
end.
procedure ChopTree;
var x,y:integer;
Begin
if FindObj(x,y,'Chop',2242616,35);
begin
Mouse(x,y,2,2,false);
ChooseOption('Chop');
repeat
wait(1200+random(250));
Antiban;,
Until not IsUpText('Willow') or (InvFull);
until(InvFull);
end;
end;
function Market_Walk: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 876;
dtmMainPoint.y := 107;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := FindRoadColor;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 876;
dtmSubPoints[0].y := 107;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := FindRoadColor;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 871;
dtmSubPoints[1].y := 97;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := FindRoadColor;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 882;
dtmSubPoints[2].y := 102;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := FindRoadColor;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 872;
dtmSubPoints[3].y := 118;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := FindRoadColor;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 863;
dtmSubPoints[4].y := 88;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := FindRoadColor;
dtmSubPoints[4].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
WalkDTM: integer;
begin
WalkDTM := LoadAllDTMWalks(1);
if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
begin
Mouse(X, Y, 8, 8, True);
WriteLn('Walk Main 1. - Complete.');
FFlag(0);
Result := True;
end else
if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
begin
Writeln(' Walk Backup 1. - Complete.');
Result := True;
end else
begin
Result := False;
Writeln(' Walk Backup 1. - Failed. Logging Out.');
FreeDTM(WalkDTM);
if not (Result) then
begin
Logout;
end;
end;
end;
function WalkWillow: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 856;
dtmMainPoint.y := 115;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 1783103;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 856;
dtmSubPoints[0].y := 115;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := FindRoadColor;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 858;
dtmSubPoints[1].y := 110;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := FindRoadColor;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 862;
dtmSubPoints[2].y := 119;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := FindRoadColor;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 855;
dtmSubPoints[3].y := 122;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := FindRoadColor;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 853;
dtmSubPoints[4].y := 113;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := FindRoadColor;
dtmSubPoints[4].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
WalkDTM: integer;
begin
WalkDTM := LoadAllDTMWalks(1);
if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
begin
Mouse(X, Y, 8, 8, True);
WriteLn('Walk Main 1. - Complete.');
FFlag(0);
Result := True;
end else
if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
begin
Writeln(' Walk Backup 1. - Complete.');
Result := True;
end else
begin
Result := False;
Writeln(' Walk Backup 1. - Failed. Logging Out.');
FreeDTM(WalkDTM);
if not (Result) then
begin
Logout;
end;
end;
end;
function Market_Walk: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 876;
dtmMainPoint.y := 107;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := FindRoadColor;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 876;
dtmSubPoints[0].y := 107;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := FindRoadColor;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 871;
dtmSubPoints[1].y := 97;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := FindRoadColor;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 882;
dtmSubPoints[2].y := 102;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := FindRoadColor;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 872;
dtmSubPoints[3].y := 118;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := FindRoadColor;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 863;
dtmSubPoints[4].y := 88;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := FindRoadColor;
dtmSubPoints[4].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
WalkDTM: integer;
begin
WalkDTM := LoadAllDTMWalks(1);
if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
begin
Mouse(X, Y, 8, 8, True);
WriteLn('Walk Main 1. - Complete.');
FFlag(0);
Result := True;
end else
if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
begin
Writeln(' Walk Backup 1. - Complete.');
Result := True;
end else
begin
Result := False;
Writeln(' Walk Backup 1. - Failed. Logging Out.');
FreeDTM(WalkDTM);
if not (Result) then
begin
Logout;
end;
end;
end;
function Walk_Bank: Integer;
var
dtmMainPoint: TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 978;
dtmMainPoint.y := 141;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 1581601;
dtmMainPoint.Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
WalkDTM: integer;
begin
WalkDTM := LoadAllDTMWalks(1);
if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
begin
Mouse(X, Y, 8, 8, True);
WriteLn('Walk Main 1. - Complete.');
FFlag(0);
Result := True;
end else
if RadialWalk(FindRoadColor, 300, 220, 55, 1, 1) then
begin
Writeln(' Walk Backup 1. - Complete.');
Result := True;
end else
begin
Result := False;
Writeln(' Walk Backup 1. - Failed. Logging Out.');
FreeDTM(WalkDTM);
if not (Result) then
begin
Logout;
end;
end;
end;
procedure FindBanker;
var x,y:integer;
Begin
if FindObj(x,y,'Bank',1784136,35);
begin
Mouse(x,y,2,2,false);
ChooseOption('Bank');
end;
end;
procedure Lets_Depo_This_Shit;
var x,y:integer;
Begin
if FindObj(x,y,'Bank',1784136,35);
begin
Mouse(x,y,2,2,false);
ChooseOption('Bank');
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Camera;
Market_Walk;
WalkWillow;
ChopTree;
Market_Walk;
Walk_Bank;
FindBanker;
end.