Moved to public due to the release of a different one.
is there a avearge opened per hour?
Thanks for this, it's been working great.
Hey Shay.
[=============Sokkr7's Hunter Kit Opener================]
[8000 hunter kits opened!]
[Player has Made 2360000 GP]
[Running for 3 Hours, 34 Minutes and 3 Seconds]
[================================================== =====]
Only reason it didn't go 6 hours, is because of my script settings.![]()
Sin you should put a link to all your bots in your signature, makes it a little easier for people to find your scripts this script is amazing but i only had 200 kits so didn't run for long.
Nice script S1N!
Took me a while to figure out the anti-leech but nice anyway.
=========S1NKits v1.1===========
Time Running: 6 Hours, 9 Minutes and 36 Seconds
Boxes Opened: 10288
Opened/Hour: 1677
Money Made: 3119540
Money/Hour: 0
===============================
Last edited by anuparockz; 07-11-2012 at 10:00 AM. Reason: Found a progress report.
This still gives profit?
Yes of course they do provide profit. Hunter kits are only 13gp at the moment in the GrandExchange, while, Box Traps are valued at 310gp. The only downside to buying kits is that, from my experiences, the limit is capped at 100 per every 4 hours.
So I've updated your script to work with the new Simba/SMART the best I can and this is what I have so far:
But when I push play, line 55 is highlighted, "procedure FreeDTMs;", and it comes up with this message:Code:program S1NKits; {$DEFINE SMART} {$I SRL/SRL.simba} {$I srl/srl/misc/debug.simba} var kitDTM,LagTimer,StartTime,Price,Opened:Integer; NonDTM:BOolean; kitRow,KitColumn:Integer; whichBank:String; BankNumber:Integer; procedure DeclarePlayers; begin LagTimer := 0; //in milliseconds, 1 second = 1000 Price := 310; //price of box trap WhichBank := 'sw'; //'sw' for Soul Wars, 'cw' for Castle Wars, 'B' for burthorpe //'gg' for Gamers Grotto HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; // Username Players[0].Pass := ''; // Password Players[0].Active := True; Players[0].Pin := ''; Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence']; end;// declare players procedure SetupLogin; begin ClearDebug; SRL_SixHourFix := True; Smart_FixSpeed := True; SetupSRL; if WhichBank = 'sw' then BankNumber := SRL_BANK_SW; if WhichBank = 'cw' then BankNumber := SRL_BANK_CW; if WhichBank = 'gg' then BankNumber := SRL_BANK_GG; if WhichBank = 'b' then BankNumber := SRL_BANK_B; end; procedure SetDTM; begin kitDTM := DTMFromString('mggAAAHicY2NgYHjKyMBwG4hvAfEnIH4OpT8C5X4B8Tsg/gHEf4H4NRAbaKoCSSYMLMKAHTDiwBAAALL5C80='); end; procedure FreeDTMs; begin FreeDTM(kitDTM); end; procedure WithdrawKits; var x,y:Integer; //timers t,t2:integer; begin if OpenBankChestEdge(BankNumber) then MarkTime(t); repeat wait(100); if TimeFromMark(t) > 20000 then begin WithdrawKits; exit; end; until(PinScreen or BankScreen); if PinScreen then begin InPin(Players[CurrentPlayer].Pin); wait(LagTimer); end; if BankScreen then begin DepositAll; wait(LagTimer); if FindDTM(kitDTM,x,y,MBX1,MBY1,MBX2,MBY2) then begin Mouse(x,y,1,1,False); ChooseOption('4'); end; MarkTime(t2); repeat wait(10); if TimeFromMark(t2) > 20000 then begin WithdrawKits; exit; end; until(FindDTM(kitDTM,x,y,MIx1,miy1,mix2,miy2)); CloseBank; end; end; procedure AntiBan; begin case random(200) of 10: ExamineInv; 20: BoredHuman; 30: HoverSkill(RandomRange(1,20), False); end; end; procedure OpenKits; begin MouseItem(1,mouse_Left); Inc(Opened); MouseItem(2,1); Inc(Opened); MouseItem(3,1); Inc(Opened); MouseItem(4,1); Inc(Opened); Antiban; end; procedure Proggy; var Sec,OpenedH,MoneyH,Money:Integer; begin Sec:= (1+((Getsystemtime-StartTime)/1000)); OpenedH:= (3600 * Opened) / (SeC); Money := Price * Opened; MoneyH:= (3600 / SeC * (Money)); writeLn('=========S1NKits v1.1==========='); writeLn('Time Running: ' + TimeRunning); writeLn('Boxes Opened: ' + IntToStr(Opened)); writeLn('Opened/Hour: ' + IntToStr(OpenedH)); writeLn('Money Made: ' + IntToStr(Money)); writeLn('Money/Hour: ' + IntToStr(MoneyH)); writeLn('==============================='); end; begin ClearDebug; SetupLogin; DeclarePlayers; LoginPlayer; SetDTM; MouseSpeed := RandomRange(22,25); StartTime:=GetSystemTime; repeat WithdrawKits; OpenKits; Proggy; until(false); FreeDTMs; end.
I know I saw this problem and an answer somewhere before, but I can't recall where, and I thought I'd might as well post here for anyone wanting to use this script. So can you tell me what I should do?Code:[Error] C:\Users\username\Downloads\S1NKits1.175.simba(56:11): Duplicate identifier 'FREEDTMS' at line 55 Compiling failed.. I've stocked up a hoard of kits and wanted to use them up lol
Just do the Backwards Compatibility. And that FREEDTMS is anti-leech. Script works for me.
What "Backwards Compadability"?
There are currently 1 users browsing this thread. (0 members and 1 guests)