Results 1 to 8 of 8

Thread: Run this, please

  1. #1
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Run this, please

    Stand at Al-Kharid bank and please tell me if this walks you to the tanning shop and back properly.

    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i SRL/SRL.scar}
    {$i SPS/SPS.simba}

    const
      WORLD   = 35;
      MEMBERS = False;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer  := 0;

      with Players[0] do
      begin
        Name := '';
        Pass := '';

        Active := True;
      end;
    end;

    (* Start of core functions *)
    procedure Write(T: string);
    begin
      WriteLn(TheTime + ': ' + PadR(T, 12));
    end;

    procedure SetCTS(Hue, Saturation: Extended);
    begin
      SetColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(Hue, Saturation);
    end;

    procedure RevertCTS;
    begin
      SetColorSpeed2Modifiers(0.2, 0.2);
      SetColorToleranceSpeed(1);
    end;
    (* End of core functions *)

    (* Start of walking and position detection *)
    function AtPosition(Position: string): Boolean;
    var
      P: TPoint;
    begin
      if (not(LoggedIn)) then
        Exit;
      FindNormalRandoms;

      case Lowercase(Position) of
        'bank' : P := Point(4888, 4032);
        'shop' : P := Point(4919, 3859);
      end;

      Result := (SPS_PosOnMM(P));
    end;

    function WalkTo(Destination: string): Boolean;
    var
      Path: TPointArray;
    begin
      Result := False;

      if (not(LoggedIn)) then
        Exit;
      FindNormalRandoms;

      case Lowercase(Destination) of
        'bank' : Path := [Point(4944, 3944), Point(4917, 3997)];
        'shop' : Path := [Point(4943, 3962), Point(4940, 3900)];
      end;

      if (SPS_WalkPath(Path)) then
      begin
        while (IsMoving) do
        begin
          //AntiBan;
          Wait(RandomRange(770, 1250));
        end;

        if (not(IsMoving)) then
          Result := (AtPosition(Destination));
      end;

      if (Result) then
        Write('We have walked to the ' + Destination + '.');
    end;
    (* End of walking and position detection *)

    procedure MainLoop;
    begin
    end;

    procedure Setup;
    begin
      SMART_Server := WORLD;
      SMART_Members:= MEMBERS;

      SetupSRL;
      SPS_Setup(RUNESCAPE_SURFACE, ['12_9']);
      DeclarePlayers;
      LoginPlayer;
      SetAngle(True);

      if (WalkTo('shop')) then
        if (WalkTo('bank')) then
          Write('Success.');
    end;

    begin
      Setup;
    end.

    Thank you in advance.

  2. #2
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    I'm glad to say that it works
    It runs from bank to the tanning shop, and after a few seconds returns to the bank!

    ~onilika
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

  3. #3
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Thank you for testing. For some reason it does not work for me.

    +rep.

  4. #4
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    How it doesn't? Worked fine for me o.o
    That's weird...
    You have it all updated? Safe mode? Newest Simba?
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

  5. #5
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Did someone say GDK?

  6. #6
    Join Date
    Dec 2011
    Location
    P2P :)
    Posts
    561
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    @RISK when you try to run it on your end do you lag horribly or anything like that? Or does it just not run at all? I have an issue with SPS walking in a certain area myself and I was curious if to each his own lol
    I wear my scars like the rings on a pimp
    I live life like the captain of a sinking ship
    Always sell your product for ATLEAST mid to ensure that the market doesn't drop.

  7. #7
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    @ onilika : Yeah, everything was updated properly. It finally worked after a while. I'm using a new walking method using SPS to look more human-like anyway now.

    @ jakeyboy29 : Yeah, I'm going to release a members version and a lite version for the non-members. Just to try to preserve the prices of everything.

    @ MrDerp :
    It runs, but it will run off in to a different direction aimlessly until it finally stops about 4+ minimap lengths away from the shop for some reason.

    SPS does not so much "Lag" but, here's my specs anyway:
    Code:
    i7-3930K CPU @ 3.20GHz
    32gb of RAM,
    Radeon 5870 (2gb)

  8. #8
    Join Date
    Feb 2006
    Location
    Canada
    Posts
    2,254
    Mentioned
    21 Post(s)
    Quoted
    238 Post(s)

    Default

    About to compile, but one thing to consider is objectDTM walking by euphemism, very accurate walking with that.
    EDIT: worked!
    Last edited by cause; 12-26-2011 at 02:40 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •