Results 1 to 11 of 11

Thread: Cowhide Collecter help

  1. #1
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default Cowhide Collecter 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:
    Simba Code:
    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?

  2. #2
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Do you have the procedure to collect hides from ground?
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  3. #3
    Join Date
    Oct 2008
    Posts
    500
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  4. #4
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

    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..

  5. #5
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

  6. #6
    Join Date
    Oct 2008
    Posts
    500
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Upload the newer version of your script.

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

  7. #7
    Join Date
    Nov 2011
    Posts
    99
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    u see i didnt take anything

  8. #8
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

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


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

  9. #9
    Join Date
    Jan 2012
    Posts
    915
    Mentioned
    13 Post(s)
    Quoted
    87 Post(s)

    Default

    Bump... Need help again.....


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


    For an antiban procedure.

  10. #10
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by xXTrollXx View Post
    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.
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  11. #11
    Join Date
    Jan 2012
    Posts
    1,104
    Mentioned
    18 Post(s)
    Quoted
    211 Post(s)

    Default

    Quote Originally Posted by xXTrollXx View Post
    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:
    Simba Code:
    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.
    Last edited by Shatterhand; 02-15-2012 at 06:07 PM.

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
  •