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.


Reply With Quote








