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.


Reply With Quote