SRL Archive - First Scripts

Some help?


bigbutts5

2012-04-07 11:06:18

This is what I have so far, it just sits after it finishes picking the honeycomb and will not walk to the bank? It works in my other scripts, any ideas?

Edit* This is the correct script, ignore the ODTM stuff, but it just stands there even though I have it set to walk, ideas?

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.

Batman

2012-04-07 11:12:49

It looks like you forgot the procedure for banking :)

begginer

2012-04-07 11:14:15

ToBank; procedure too,

bigbutts5

2012-04-07 11:26:04

Uploaded the wrong script >.< Im using ODTM's anyways XD

Sir Ducksworthy

2012-04-07 11:59:54

You should upload the right script so we can help you.

bigbutts5

2012-04-07 12:08:23

Ill upload the one with SPS in a bit, I will use SPS and then have an ODTM back up?

NKN

2012-04-07 17:02:33

ODTM is bugged right now, isn't it?
I would use RadialWalk as backup.

bigbutts5

2012-04-07 17:05:16

From: NKN
ODTM is bugged right now, isn't it?
I would use RadialWalk as backup.


MY ODTM is working fine, but my SPS wont walk even when its called >.<