SRL Archive - Help

I'm working a a script, and i need help with a banking procedure. I dont know if i should use SPS of Radial… I'll post the script:

program Trolls_Cowhide_Collecter;
//{$DEFINE SMART}
//{$IFDEF SMART}
//  {$i SRL/SRL/Misc/Smart.simba}
//{$ENDIF}
//{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '1.0'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

 var
X, Y, CowsKilled: integer;
  StartingXP: integer;

procedure DeclarePlayers;
var i: Integer;
begin
 NumberOfPlayers(NumbOfPlayers);
 CurrentPlayer := StartPlayer;
 for i := 0 to NumbOfPlayers-1 do
 begin
  Players[0].Name := '';   // Your Username.
  Players[0].Pass := '';   // Your Password.
  Players[0].Pin  := '';   // Your Bank Pin.    (Leave Blank If You Don't Have One.)
  Member          := True; // Are You A Member? (Yes = True, No = False)
  Active          := True; // Is This Player Active? (same as above rule)
 end;
end;



procedure StatsGuise(Stats:String);
begin
 Status(stats);
 Disguise(stats);
end;



procedure AntiBan;
begin
 case Random(250) of
  0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
  1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
  2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
  3: begin StatsGuise('AntiBan') RandomAngle(1); end;
  4: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
  5: begin StatsGuise('AntiBan') SleepAndMoveMouse (4000+random(250)); end;
  6: begin StatsGuise('AntiBan') RandomAngle(2); end;
 end;
end;



Procedure ProgressReport;
var Exp: integer;
begin
  Exp := (GetXPBarTotal - StartingXP);
writeLn('=====================================');
writeLn('=======Trolls Cowhide Collecter======');
writeLn('=======Time Running: ' + TimeRunning);
writeLn('=======Logs: ' + IntToStr(CowsKilled));
writeLn('=======Exp: ' + IntToStr(EXP));
writeLn('=====================================');
end;



procedure FailSafe(Reason:String);
begin
 Players[CurrentPlayer].Loc:=Reason;
 Logout;
 Stats_Commit;
 ProgressReport;
 TerminateScript;
end;



procedure KillCow;
begin
 if FindObjCustom(x, y, ['ttack', 'ow'], [3029313, 15452812, 5663109, 3557221, 14938352], 5) Then
  begin
  StatsGuise('Cow! Attacking...')
  GetMousePos(X, Y);

  case Random(2) of
   0: Mouse(X, Y, 5, 5, True);
   1: begin
       Mouse(X, Y, 5, 5, False);
       WaitOption('ttack', 250);
      end;
     end;

     Flag;

     repeat
     Marktime(CowsCounter);
     AntiBan;
       wait(100);
       if InvCount=PlusOne then
        WriteLn ('Killed the Cow.');
      until (InvCount=PlusOne)
     end;
   end;


end;



procedure Banking;
begin
 



begin
 DeclarePlayers;
 StatsGuise;
 AntiBan;
 ProgressReport;
 Failsafe;
 repeat
  KillCow;
  Banking;
 until(false);

end. 

What, and how should I do this?

Do you have the procedure to collect hides from ground?

You could use any type of walking you want. It would depend on where you are walking. Are there lots of trees and things? If so, you could look into ObjectDTM walking. If not, maybe SPS will work for you. I like to make my own DTMs and use them, but you can't do that at all places.

Check out the tutorials on these subjects and try them until you find which one works best for your script.

I got my script to work, but i still need it to walk to the bank, but when i drag the crosshair to the client, and run it, it works. But moves INCREDIBLY SLOW! try it out on your own, and see if it works for you..

Bump. I still need help…. :D lol

Upload the newer version of your script.

From the OP there is nothing that should be slowing down your script.

u see i didnt take anything

Spam. And, I fixed this.. Anyway.. thanks for the help guys…


Vile, learn to script, and ill respect you more.

Bump… Need help again…..


How do I get my script to talk, in Runescape?


For an antiban procedure.

From: xXTrollXx
Bump… Need help again…..


How do I get my script to talk, in Runescape?


For an antiban procedure.

Maybe a type procedure. I am not sure but this can happen.

From: xXTrollXx
Bump… Need help again…..
How do I get my script to talk, in Runescape?
For an antiban procedure.

I have this very simple chat procedure:

procedure ChatResponder;
begin
  if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['Bot?','U bot?','ot','otting','otter'], SmallChars, Nothing) then
  begin
    TypeSend('no');
    Wait(RandomRange(1000,3000));
  end;
  if FindTextTPAMulti(ClBlue,50, 0,435,MCX2,459,['thing?','mithing?','mithing lvl?','mithing level?'], SmallChars, Nothing) then
  begin
    KeyDown(13); KeyUp(13);
    Wait(RandomRange(500,1000));
    Sendkeys('s');
    Wait(RandomRange(500,1000));
    Sendkeys('b');
    Wait(RandomRange(500,1000));
    Sendkeys('2');
    Wait(RandomRange(1000,3000));
  end;
end; 

It answers no for bot questions, and qc level when people ask.