Hey all, first of all this sin't my script but this one doesn't have an antiban and needs it desperately, so if anyone could please add one? I would appreciate it VERY much, thanks!
Code:program GlassBlower; {$include srl/srl/misc/smart.simba} {$I SRL/SRL.simba} {$I srl/srl/misc/debug.simba} const SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is) SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is) var StartTime,XPS:Integer; //progress variables XP,XPH,Sec,Slot:Integer; StatGain,XP1,XP2:Integer; procedure DeclarePlayers; begin Slot := 22; //choose your bank slot where the glass is at. 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; Smart_Server := 87; Smart_Members := True; Smart_Signed := True; Smart_SuperDetail := False; SetupSRL; end; procedure Proggy; begin XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0]; Sec:= (1+((Getsystemtime-StartTime)/1000)); XPH := (3600*XP) / (SeC); statGain := XP; writeLn('==================================='); writeLn('============S1NGlassblower=========='); writeLn('Time Running: ' + TimeRunning); writeLn('XP Earned: ' + IntToStr(XP)); writeLn('XP/h: ' + IntToStr(XPH)); writelN('==================================='); writeLn('==================================='); Stats_Commit; end; procedure CraftOrbs; var x,y,DTM,t:Integer; begin DTM := DTMFromString('mlwAAAHicY2dgYLjAyMBwEYivA/E1ID4NxKeg7IVAvAKI5wPxTCBeBsQLgHgREHu4uwJ1M2HFRgy4ASMeDAUAQzsLUQ=='); MouseItem(Random(25),1); if WaitColor(305,362,4543066,5,10000) then begin if FindDTM(DTm,x,y,MCX1,MCY1,MCX2,MCY2) then begin Mouse(x,y,1,1,True); MarkTime(t); repeat XP1 := GetXPBarTotal; wait(random(5000)); Proggy; if Timefrommark(t) > 200000 then exit; until(FindDTM(DTM,x,y, 681,422,730,457)); end; end; end; procedure Bank; var t:integer; begin OpenBankChestEdge(SRL_BANK_SW); MarkTime(t); repeat wait(100); if PinScreen then begin InPin(Players[CurrentPlayer].Pin); end; if TimeFromMark(t) > 5999 then begin Bank; exit; end; until(BankScreen); if BankScreen then begin DepositAll; MouseBankSlot(22,0); WaitOption('All',4000); repeat wait(10); until(InvFull); if InvFull then CloseBank; end; end; begin ClearDebug; SetupLogin; DeclarePlayers; LoginPlayer; if (Players[CurrentPlayer].Integers[1] = 0) then begin if not IsXPBarOpen then ToggleXPBar(true); Players[CurrentPlayer].Integers[0] := GetXPBarTotal; XPS := GetXPBarTotal; Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1); end; StartTime:=GetSystemTime; SetupSRLStats(1068, SRLStats_User, SRLStats_Password); repeat Bank; CraftOrbs; until(not LoggedIn); stats_IncVariable('Crafting EXP (Gained)', statGain); stats_Commit; end.


Reply With Quote










