SRL Archive - Outdated / Broken

From lumby to varrock in 56 Lines!?

Cazax

2008-05-20 18:30:48

The Script walks from lumby(start at the place when you die or caste lumy tele) to varrock east bank.

In 56 Lines :D

program New;
{.include srl/srl.scar}
Var
  I : Integer;
Function Walk(PathID : Integer): Boolean;
Var
  Info : TIntegerArray;
  X,Y : Integer;
Begin
  Case PathID Of
    -2: Info := [FindRoadColor, 70, 110, 32];
    -1: Info := [FindRoadColor, 50, 85, 65];
    0: Info := [FindRoadColor, 70, 110, 61];
    1: Info := [FindRoadColor, 360, 410, 65];
    2: Info := [FindRoadColor, 310, 360, 65];
    3: Info := [FindRoadColor, 280, 380, 65];
    4: Info := [FindRoadColor, 290, 360, 65];
    5: Info := [FindRoadColor, 357, 363, 65];
    6: Info := [FindRoadColor, 370, 450, 65];
    7: Info := [FindRoadColor, 370, 450, 45];
    8: Info := [FindVarrockRoadColor, 0, 25, 65];
    9: Info := [FindVarrockRoadColor, 270, 301, 65];
    10: Info := [FindVarrockRoadColor, 250, 270, 65];
    11: Info := [FindVarrockRoadColor, 300, 350, 65];
    12: Info := [FindVarrockRoadColor, 290, 340, 65];
    13: Info := [FindVarrockRoadColor, 330, 370, 65];
    14: Info := [FindVarrockRoadColor, 360, 375, 65];
    15: Info := [FindVarrockRoadColor, 345, 365, 65];
    16: Info := [FindVarrockRoadColor, 345, 375, 57];
    17: Info := [FindVarrockRoadColor, 50, 90, 65];
    18: Info := [FindVarrockRoadColor, 85, 95, 65];
    19: Info := [FindVarrockRoadColor, 80, 90, 65];
    20: Info := [FindVarrockRoadColor, 170, 190, 35];
    21: Info := [FindVarrockRoadColor, 40, 90, 65]; // Bank
  End;
  Result := RadialWalk(Info[0], Info[1], Info[2], Info[3], 1, 1);
  If (Result) Then
    FFlag(0);
  If (PathID) = 20 Then
    Result := (RadialWalk(GetSymbolColor(X, Y, 'bank'), 90, 180, 10, 1, 1)) Or (RadialWalk(FindLadderColor, 0, 200, 20, 1 ,1));
End;

Begin
  ActivateClient;
  SetupSRL;
  Wait(2000);
  For I := -2 To 21 Do
  Begin
    Writeln('At path: '+inttostr(I));
    If  Not Walk(I) Then
    Begin
      Writeln('Failed at Walk: ' +Inttostr(I)+', tell this bug to Cazax');
      Break;
    End;
  End;
End.
Test it!

NiCbaZ

2008-05-20 18:45:34

cool, make it home telly first tho… so you can start from anywhere

Camaro'

2008-05-20 21:47:40

From: nicbaz
cool, make it home telly first tho… so you can start from anywhere


Wow, This is a job well done for 56 lines! :P

At path: -2
RoadColor = 6381928
At path: -1
RoadColor = 6381928
At path: 0
RoadColor = 6381928
At path: 1
RoadColor = 6381928
At path: 2
RoadColor = 6381928
At path: 3
RoadColor = 6381928
At path: 4
RoadColor = 6381928
At path: 5
RoadColor = 6381928
At path: 6
RoadColor = 6381928
At path: 7
RoadColor = 6381928
At path: 8
Varrock RoadColor = 7699326
At path: 9
Varrock RoadColor = 7699326
Failed at Walk: 9, tell this bug to Cazax
Successfully executed

This gave me a SICK Idea… All over walker in under 200 lines :P

R0b0t1

2008-05-20 22:17:03

Let's see…

From one place, two lines. Switch to mage tab and click.

From any place, three lines. Switch to mage tab and tele home/etc, and then to varrock.

itSchRis917

2008-05-20 22:18:06

Very nice except… It walked me into the bank and everything.. And then it walked me out, in the direction of the VEM… Dunno what happened but yeah, debug box:

At path: -2
RoadColor = 6447465
At path: -1
RoadColor = 6447465
At path: 0
RoadColor = 6447465
At path: 1
RoadColor = 6315879
At path: 2
RoadColor = 6315879
At path: 3
RoadColor = 6315879
At path: 4
RoadColor = 6447465
At path: 5
RoadColor = 6447465
At path: 6
RoadColor = 6447465
At path: 7
RoadColor = 6447465
At path: 8
Varrock RoadColor = 7699327
At path: 9
Varrock RoadColor = 7699327
At path: 10
Varrock RoadColor = 7699327
At path: 11
Varrock RoadColor = 7699327
At path: 12
Varrock RoadColor = 7699327
At path: 13
Varrock RoadColor = 7699327
At path: 14
Varrock RoadColor = 7699327
At path: 15
Varrock RoadColor = 7633276
At path: 16
Varrock RoadColor = 7633276
At path: 17
Varrock RoadColor = 7699327
At path: 18
Varrock RoadColor = 7699327
At path: 19
Varrock RoadColor = 7699327
At path: 20
Varrock RoadColor = 7831169
Ladder color = 80212 at 634,96
At path: 21
Varrock RoadColor = 7831169

Cazax

2008-05-20 22:20:39

I wanted to make a shorter walking, and i got this idea. This is only an example(yes, sometimes it fails…), so imagine the walking as short as posible like this.

the scar noob

2008-05-21 02:56:14

*sigh* you just very simply can't make that in 56 lines!
This just means that the script hasn't got any failsafes at all!

You should at least check for symbols while walking, at least.

Very sorry to say this, but I'm not impressed..

-Tsn.

Naum

2008-05-21 06:24:29

From: the scar noob
*sigh* you just very simply can't make that in 56 lines!
This just means that the script hasn't got any failsafes at all!

You should at least check for symbols while walking, at least.

Very sorry to say this, but I'm not impressed..

-Tsn.



You rarely are :p.
Looks Nice Cazax, I would test it but my computer is broken :(, so i have to use the librarys.

Cazax

2008-05-21 09:37:48

From: the scar noob
*sigh* you just very simply can't make that in 56 lines!
This just means that the script hasn't got any failsafes at all!

You should at least check for symbols while walking, at least.

Very sorry to say this, but I'm not impressed..

-Tsn.

Should i quote myself?
This is only an example(yes, sometimes it fails…)
Ill make a huge one with failsafes for a lot of places…

the scar noob

2008-05-21 10:42:10

@Nauman: Nop, show me a good decent script and I'm happy:)

From: Cazax
Should i quote myself? Ill make a huge one with failsafes for a lot of places…


Ooooh, I see, I already was kinda surprised, cause I know you can do better:p

But whats the point of releasing a non-functionating walker?

-Tsn.

Gu3st...

2008-05-21 11:33:57

From: the scar noob

But whats the point of releasing a non-functionating walker?

-Tsn.


Its 56 lines. An example on how small some walking scripts CAN be ;)

iroki_

2008-05-21 12:30:47

Varrock RoadColor = 8488843
At path: 16
Varrock RoadColor = 8488843
At path: 17
Varrock RoadColor = 8357513
At path: 18
Varrock RoadColor = 8357513
At path: 19
Varrock RoadColor = 8357513
At path: 20
Varrock RoadColor = 8357513
Ladder color = 144221 at 620,77
Failed at Walk: 20, tell this bug to Cazax
Successfully executed

but it walked to the bank.
And nice script;)

Richard

2008-05-22 16:03:04

From: R0b0t1
Let's see…

From one place, two lines. Switch to mage tab and click.

From any place, three lines. Switch to mage tab and tele home/etc, and then to varrock.


Well, you need at least 5 just for the basic program, being, end and includes (you need 2). Then you'l need CastSpell(0), so really it at least 6 :).

I should stop ruining peoples fun…

Zezi

2008-05-29 01:39:02

think this is grave dig, can't read dates sadly LOOL
At path: -2
RoadColor = 6250342
At path: -1
RoadColor = 6250342
At path: 0
RoadColor = 6250342
At path: 1
RoadColor = 6250342
At path: 2
RoadColor = 6250342
At path: 3
RoadColor = 6250342
At path: 4
RoadColor = 6250342
At path: 5
RoadColor = 6250342
At path: 6
RoadColor = 6250342
At path: 7
RoadColor = 6250342
At path: 8
Varrock RoadColor = 7567740
At path: 9
Varrock RoadColor = 7567740
At path: 10
Varrock RoadColor = 7567740
At path: 11
Varrock RoadColor = 7567740
At path: 12
Varrock RoadColor = 7567484
At path: 13
Varrock RoadColor = 7567484
At path: 14
Varrock RoadColor = 7567484
At path: 15
Varrock RoadColor = 7699326
At path: 16
Varrock RoadColor = 7699326
At path: 17
Varrock RoadColor = 7699326
At path: 18
Varrock RoadColor = 7567740
At path: 19
Varrock RoadColor = 7567740
At path: 20
Varrock RoadColor = 7567740
Ladder color = 75348 at 651,84
Failed at Walk: 20, tell this bug to Cazax


it got to bank, yet it failed ;p

Thanks for movement of a dead miner =x