Projectrs06 SRL Include

[CynicRus]

Support of the ProjectRS 06 include has been added to the my SPS Path maker.

Example of the generated script:

program Walker;
//The code was generated with the path generator for SPS version 2.5.8 by Cynic
//With Project RS 06 compabilty mode.
{$i SRL/srl.simba}
{$I P06Include/P06Include.Simba}
{$i sps/p06sps.simba}

var
//place your variables here
 Status: string;

procedure P06DeclarePlayers;
begin
  P06_PlayerName:='';
  P06_PlayerPass:='';
end;

procedure toBank;
var
  toBankVar: TPointArray;
begin
  toBankVar:=[Point(332,366),Point(340,347),Point(346,335),Point(363,331),Point(361,305),Point(360,283),Point(358,259),Point(357,232),Point(357,208),Point(352,185),Point(344,159),Point(344,145),Point(341,121),Point(336,106),Point(314,103),Point(295,103),Point(269,103),Point(253,106),Point(228,106),Point(213,104),Point(201,105),Point(200,118),Point(198,131),Point(196,141)];
  if SPS_WalkPath(toBankVar) then
    Status := 'toBank'
  else begin
    Status :='Failed toBank';
    WriteLn(status + '#Time Running:' +TimeRunning);
    Logout;
    TerminateScript;
  end;
  WriteLn(status + '#Time Running:' +TimeRunning);
end;

procedure toMine;
var
  toMineVar: TPointArray;
begin
  toMineVar:=[Point(196,136),Point(196,120),Point(196,111),Point(201,103),Point(228,105),Point(245,105),Point(264,107),Point(278,102),Point(294,103),Point(324,109),Point(330,125),Point(337,140),Point(337,164),Point(347,183),Point(368,204),Point(357,222),Point(356,252),Point(356,272),Point(356,285),Point(356,311),Point(356,324),Point(339,337),Point(336,358),Point(331,369)];
  if SPS_WalkPath(toMineVar) then
    Status := 'toMine'
  else begin
    Status :='Failed toMine';
    WriteLn(status + '#Time Running:' +TimeRunning);
    Logout;
    TerminateScript;
  end;
  WriteLn(status + '#Time Running:' +TimeRunning);
end;

procedure SetupWalker;
begin
  P06_DeclarePlayer;
  SetupP06Include;
  ActivateClient;
  Wait(2054+ Random(2318));
  If (Not P06_LoggedIn) Then
   P06LoginPlayer;
  Wait(857+ Random(353));
  P06_MakeCameraAngleHigh;
  P06_MakeCompassNorth;
  SPS_Setup(RUNESCAPE_OTHER,['varrokMiner']);
end;

begin
  SetupWalker;
  toBank;
  toMine;
end.

Cheers, Cynic.

[DannyRS]

Support of the ProjectRS 06 include has been added to the my SPS Path maker.

Cheers, Cynic.

Ahh amazing, thanks Cynic

I'm sure alot of the SPS newcommers will find this really helpful and save them some time,

EDIT - found your thread, added link to OP and added you to contributors list , thanks again, glad to see we are all becoming more accepting towards private servers

[rj]

How do I run the auto updater?

[John]

How do I run the auto updater?

From what I have seen, It runs itself.

[rj]

Project2006 Stat chars, not sure if the red is the correct color, also is this anywhere close to correct?

Function P06_GetUpHpText: String;
Var
  YellowT,FoundText: String;
Begin
  YellowT:=GetTextAtExWrap(X1, Y1, X2, Y2, 0, 3, 1, 65535, 55, 'P06StatChars');
  FoundText:=YellowT + '';
  Result:=FoundText;
End;

Would I have to create a function like

Function P06_Hp: Boolean;
Var
  MyHP:Integer;
Begin
Procedure SetKill;
Begin
  Case LowerCase(FoundText) Of
    '0': MyHP := 0;
    '1': MyHP := 1;
    '2': MyHP := 2;
    '3': MyHP := 3;
    '4': MyHP := 4;
    '5': MyHP := 5;
    '6': MyHP := 6;
    '7': MyHP := 7;
    '8': MyHP := 8;
    '9': MyHP := 9;
    '10': MyHP := 10;
  End;
End;

To get the HP?

Btw i forgot 6,7,9

[Coh3n]

rjj95, instead of returning a string in your getUpHpText, you can just do:

result := strToInt(foundText);

So there's no need for a conversion function. It can be done in one line.

[rj]

rjj95, instead of returning a string in your getUpHpText, you can just do:

result := strToInt(foundText);

So there's no need for a conversion function. It can be done in one line.

ok thanks I'll have to test this but the server is offline ATM

[Neodymium]

Instead of using a case statement, you should use StrToInt.
The reason behind this is that all the cases for each HP value would take up too many lines (~100 for all hp values).

function P06_GetStatsHP: Integer;
var
  YellowT: string;
  ValueHP: Integer;
begin
  YellowT := GetTextAtExWrap(X1, Y1, X2, Y2, 0, 3, 1, 65535, 55, 'P06StatChars');
  try
    ValueHP := StrToInt(YellowT);
  except
    ValueHP := -1;
  end;
  Result := ValueHP;
end;

The try, except needs to be there in case the value we read in isn't a valid integer (not that SRL can't read correctly ), it which case it will return -1. Otherwise you'd get an exception.
So, 'asdf' would return -1, '123' would return 123 and so on.

Edit: Wow, super late.

Edit 2: StrToIntDef version (after Danny's post below):

function P06_GetStatsHP: Integer;
var
  YellowT: string;
begin
  YellowT := GetTextAtExWrap(X1, Y1, X2, Y2, 0, 3, 1, 65535, 55, 'P06StatChars');
  Result := StrToIntDef(YellowT, -1);
end;

Much shorter.

[DannyRS]

I believe StrToIntDef or something doesn't throw an exception? Whatever I used in my autozealer in "GetWinningTeam" or something

Goodjob on the statchars Rjj, I'll add to OP later

[unregistered user]

can someone tell me whats wrong with this?

[Error] C:\Simba\Includes\SRL/SRL/core/text.simba(791:13): Unknown identifier 'UpChars' at line 790

[DannyRS]

can someone tell me whats wrong with this?

[Error] C:\Simba\Includes\SRL/SRL/core/text.simba(791:13): Unknown identifier 'UpChars' at line 790

re-install simba

[P1nky]

Goodness... Though this was for 2007scape lol, its like 5-6 am here and had just written a script based off this include and had everything set up, fail. :X

[DannyRS]

Goodness... Though this was for 2007scape lol, its like 5-6 am here and had just written a script based off this include and had everything set up, fail. :X

I have an 07 version with the same P07_ prefix, if you want it,

All function names are exactly the same other than the 7, and everything works, I just havent released it yet incase SRL was going to release an official one

[imangry]

Have you considered trying the SPS beta?

Sorry for the late reply in the end i got it working, i just couldnt find the colour of the banker. Anyway since 2007 is out i'l play that

[DannyRS]

Goodness... Though this was for 2007scape lol, its like 5-6 am here and had just written a script based off this include and had everything set up, fail. :X

Here you go @P1nky: http://villavu.com/forum/showthread.php?t=96863

Sorry for the late reply in the end i got it working, i just couldnt find the colour of the banker. Anyway since 2007 is out i'l play that

Np, same here I think

[bdenizb]

Read your massegers danny!

[Betweenuandme]

I get this when I run it.

[DannyRS]

I get this when I run it.

You are not supposed to run it...

Is this private server officialy dead anyway?

Read your massegers danny!

Did I reply to you? My PM's is a sea of spam at the moment so going back to find any I missed is all but impossible

[rj]

You are not supposed to run it...

Is this private server officialy dead anyway?



Did I reply to you? My PM's is a sea of spam at the moment so going back to find any I missed is all but impossible

Soulsplit 2006 will be coming out

[DannyRS]

Soulsplit 2006 will be coming out

Meh this might still work, they use same client AFAIK

[kontempt]

I keep getting Unknown identifier 'P06_MouseBox'???

[DannyRS]

I keep getting Unknown identifier 'P06_MouseBox'???

You didn't install the include right, PLEASE NOTE THIS IS A PRIVATE SERVER INCLUDE, NOT 07Scape, 07Scape here: http://villavu.com/forum/showthread.php?t=96863

[kontempt]

You didn't install the include right, PLEASE NOTE THIS IS A PRIVATE SERVER INCLUDE, NOT 07Scape, 07Scape here: http://villavu.com/forum/showthread.php?t=96863

Thank you i've updated that now, I'm also getting
[Error] C:\Simba\Includes\P07Include.Simba(57:3): Unknown identifier 'MMouse' at line 56
Compiling failed.
' MMouse(RandomRange(X1,X2),RandomRange(Y1,Y2),0,0); '

I'm very new too this sorry

[DannyRS]

Thank you i've updated that now, I'm also getting
[Error] C:\Simba\Includes\P07Include.Simba(57:3): Unknown identifier 'MMouse' at line 56
Compiling failed.
' MMouse(RandomRange(X1,X2),RandomRange(Y1,Y2),0,0); '

I'm very new too this sorry

you don't compile this include, you set it up like my example in a script,

{$I srl/srl.simba}

you need that in your script before you add this include

[Sawyer]

I have everything compiling but it doesn't seem to be able to find uptext.