Results 1 to 4 of 4

Thread: Help Asap

  1. #1
    Join Date
    Nov 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help Asap

    Can someone please make this script faster? It does 14 Bows per minute which isn't helpful but it is still a good script. Can someone just please make the stringing part faster. I do not claim this script as my own.

    Code:
     {.Script Info:
    # ScriptName  = PROPERSTRINGER
    # Author      = PROPERHACKER
    # Description = simple script to String your bows
    # Version     = 1.11
    # Date        = 10/9/2006
    # Comments    = IT WORKS!!
    /Script Info}
    {simple script to string bows
     ----
     logs and strings in first 2 bank slots
    Face towards that bank, at  middle angle
    
    http://properhacker.googlepages.com
    
    post in forum with ANY problems
    
    --changelog--
    v0.1-0.9 making
    v1.00-release
    v1.11 use 27,28(thanks for idea R4NDOM 9UY)
     ----
    
     anyone change and call there own, DONT
     if you change CREDIT ME
     written by PROPERHACKER,
    }
    program Properstringer;
    {.include Si.scar}
    
    const     Totalbows = 530;
              LogOutWhenDone = true;
    
    const     siUsername = '';
              siPassword = '';
              siLoggedIn = 30;            // mins to run before sleeping
              siLoggedOut = 10;            // mins to sleep before restarting
              siRunDirection = 'S';        // I use seer's
              siLampSkill = 'Fletching';   // skill to use lamp on
              siTakeScreens = true;        // do you want screens of randoms?
    
    var       TotalDone, MakeX, count : integer;
    
    procedure HandleRandoms;
    begin
      CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
    end;
    
    procedure closebank;
    begin
      if(BankScreen)then
      wait(200+random(200));
      mouse(486,42,2,2,true)
    end;
    
    procedure Withdrawsb;    //withdraw strings and bows
    begin
      if(not(BankScreen))then
      OpenBank;
      wait(200+random(200));
      Mouse(476,77,2,2,true);
      wait(200+random(200));
      Withdraw(1, 1, 13);
      Withdraw(1, 2, 14);
      Withdraw(1, 1, 1);
      wait(random(200));
      closebank;
    end;
    
    procedure DepositBows;  //deposits bows
    begin
      OpenBank;
      wait(600+random(400));
      Deposit(1, 2, 0);
      wait(400+random(600));
    end;
    
    procedure MakeBows;  //strings bows
    var x, y: integer;
    begin
      Wait(750);
      UseItem(27);
      UseItem(28);//1
      UseItem(27);
      UseItem(28);//2
      UseItem(27);
      UseItem(28);//3
      UseItem(27);
      UseItem(28);//4
      UseItem(27);
      UseItem(28);//5
      UseItem(27);
      UseItem(28);//5
      UseItem(27);
      UseItem(28);//6
      UseItem(27);
      UseItem(28);//7
      UseItem(27);
      UseItem(28);//8
      UseItem(27);
      UseItem(28);//9
      UseItem(27);
      UseItem(28);//10
      UseItem(27);
      UseItem(28);//11
      UseItem(27);
      UseItem(28);//12
      UseItem(27);
      UseItem(28);//13
      UseItem(27);
      UseItem(28);//14
      wait(random(200));
      TotalDone := TotalDone + 27;
    end;
    
    procedure ScriptInit;
    begin
      LoadInclude('', false);
      SetAccount(1, siUsername, siPassword);
      TotalDone := 0;
    end;
    
    begin
      ScriptInit;
    
      repeat
      begin
        AntiBan(siLoggedIn, siLoggedOut, 1);
        Withdrawsb;
        HandleRandoms;
        MakeBows;
        HandleRandoms;
        DepositBows;
      end;
      until(TotalDone >= Totalbows);
      CloseWindow;
    
      if(LogOutWhenDone)then
        LogOut;
    end.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    its not your own we know whos it is
    it is also very old
    i suggest fidning another written with SRL
    only way to make faster is take out waits =p
    or edit some procedures

  3. #3
    Join Date
    Nov 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    And also would I have to edit .si scar the include?

    Also I did edit the wait and it is still slow? Can you try and change the procedures? I thought changing the time was changing the procedures?

  4. #4
    Join Date
    Feb 2006
    Location
    gmail messnger--evilkukka@gmail.com
    Posts
    272
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Si include is old, I suggest you get srl, learn some functions and do it yourself, its very easy
    <SmarterC> mixster: The only reason so many people are homosexuals

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. HELP NEEDED - ASAP please
    By Draobfrus in forum OSR Help
    Replies: 6
    Last Post: 12-11-2008, 01:59 PM
  2. need mem account asap
    By Scaper in forum OSR Help
    Replies: 5
    Last Post: 08-23-2008, 07:34 AM
  3. Need Help With RadialWalk (ASAP)
    By mage of begu in forum OSR Help
    Replies: 6
    Last Post: 01-21-2007, 10:46 AM

Posting Permissions

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