Results 1 to 2 of 2

Thread: SPS not working?

  1. #1
    Join Date
    Jan 2011
    Location
    Everywhere
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default SPS not working?

    Can someone explain to me why the sps does nothing:
    Code:
    program CowSlayer;
    {$DEFINE SMART} // This is how we include SMART; it HAS to be called BEFORE SRL!
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    
    
    
    Var
      LevelsGained: Integer;
    
    
    
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // This is set to the total amount of players 
      NumberOfPlayers(HowManyPlayers); // 
      CurrentPlayer := 0; // 
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
      Players[0].BoxRewards := ['XP'];
    end;
    
    
    procedure Deployment;
    var
      myPathVar: TPointArray;
    begin
      SPS_Setup(RUNESCAPE_SURFACE, ['10_6']);
      myPathVar:= [Point(165,227),Point(151,250),Point(162,271),Point(171,290),Point(169,311),Point(172,323)];
      wait(RandomRange(500,800));
      SPS_WalkPath(myPathVar);
    end;
    
    
    
    Function Findguy: Boolean;     //////Thanks to NEMESIS3X\\\\\\
    
    Var
       x, y: Integer;
       TPAA: T2DPointArray; // The Variables of the Functions
       TPA: TPointArray;
       CTS, I, Retry: Integer;
    Begin
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, randomcolorignor4now, MSX1, MSY1, MSX2, MSY2, 7); // Enter the Color and Tolerance Here at the Right place.
      ColorToleranceSpeed(CTS);
      TPAA := TPAToATPAEx(TPA, 3, 1); //Put the Width and Heigh here
      SortATPASize(TPAA, True);
      For I := 0 To High(TPAA) Do
        If GetArraylength(TPAA[i]) > 5 Then // Set How Many Points you need for your function to take Action
        Begin
        repeat
          inc(Retry);
          MiddleTPAEx(TPAA[i], x, y);
          MMouse(x, y, 3, 3);
           if (IsUpTextMultiCustom(['', ''])) then // Enter The name of Your NPC or Monster
          Begin
            Result := True;
            GetMousePos(x, y);
            mouse(x,y,3,3,true);
            wait(100 + random(200));
          wait(5000 + random(1000));
            Break;
          End;
          until (Retry = 2);
          Break;
          end;
          end;
    
    
    begin
      {$IFDEF SIMBAMAJOR980}
        SMART_SERVER := 24;
        SMART_MEMBERS := TRUE;
        SMART_SIGNED := TRUE;
        SMART_SUPERDETAIL := FALSE;
      {$ELSE}
        SMART_FIXSPEED := TRUE;
      {$ENDIF}
      ClearDebug;
      ActivateClient;
      SetupSRL;
      SRL_SIXHOURFIX := True;
      DeclarePlayers;
        if not (LoggedIn) then
      LoginPlayer;
      wait(1578 + Random(467));
      ClickNorth(0);     // Set the Compass to North and set the Angle to The Highest Point
      wait(898 + Random(434));
      Writeln('Shud b doing deployment');
      Deployment;
      Writeln('deployment shud hav been done');
    end.

  2. #2
    Join Date
    Jan 2011
    Location
    Everywhere
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    never mind i fixed it

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
  •