Simba Code:
program BananaCollector;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
Pin := '';
End;
End;
var
myPath:TPointArray;
procedure TakeHoney;
var
x, y: Integer;
begin
repeat
Wait(500+random(250));
If FindObj(x,y,'Beehive',12237506,10) then
Mouse(x,y,0,0, False);
wait(250+random(50));
ChooseOption('Take-honey');
wait(250+random(50));
until(InvFull)
end;
function IsAtBank: Boolean;
begin
Result := ObjDTM_InArea('82:81:4:1:7:37:49:0:7:95:39:0:7:75:23:10:7:73:66:4:63:88:64:49:102:52:102:92' , True);
end;
//real points^
function IsAtHoney: Boolean;
begin
Result := ObjDTM_InArea('80:80:7:1:7:61:31:1:7:83:31:1:7:87:53:1:7:95:95:1:7:82:117:1:7:61:116:1:7:108:78:4:49:38:50:117:116:115:113:36' , True);
end;
// ^real points
procedure WalkToHoney2;
begin
SPS_Setup(RUNESCAPE_SURFACE,['7_7']);
myPath := [Point(3076, 2905), Point(3060, 2912), Point(3028, 2918), Point(3019, 2920), Point(2995, 2912), Point(2984, 2907),
Point(2963, 2902), Point(2934, 2892), Point(2917, 2881), Point(2911, 2875)];
SPS_WalkPath(myPath);
end;
function WalkToHoney: Boolean;
begin
if IsAtBank then
ObjDTM_Walk('40:115:4:1:7:31:48:1:7:15:88:0:7:92:37:0:7:70:20', 0, 100, 80, True);
Wait(500);
ObjDTM_Walk('26:46:4:1:7:53:54:1:7:19:87:1:7:19:65:10:7:107:32', 0, 100, 80, True);
Wait(500);
ObjDTM_Walk('35:43:7:1:7:45:88:1:7:53:75:1:7:70:82:1:7:74:99:1:7:74:57:1:7:53:36:1:7:20:66', 0, 100, 80, True);
Wait(500);
ObjDTM_Walk('43:103:8:1:7:66:103:1:7:70:82:1:7:54:119:1:7:58:141:1:7:91:124:1:7:99:112:1:7:45:78:1:7:53:100', 0, 100, 80, True);
Wait(500);
Result := IsAtHoney;
end;
procedure SetupChar;
begin
ObjDTM_Setup();
SetupSRL();
SetAngle(0);
ClickNorth(0);
MouseSpeed :=12
end;
procedure Startup;
begin
Smart_Server := 69;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
wait(100+random(100));
end;
begin
//Startup;
//SetupChar;
// if loggedin then
//if not LoggedIn then LogInPlayer;
//TakeHoney;
WalkToHoney2;
end.