Untitled

 program EastVArROkminEr; {$deFINE sMArT} {$DefiNE sRL5} {$I srL\srL.simba} {$i SPS\Sps.SIMBa} {$IFDeF SMaRT} {$i sRL/SRl/mISc/smartGrAPhicS.simBa} {$ENDIF} type TObjecTs = rEcord NaME: sTRInG; uPTEXt: tStRiNgArRay; cOLOr: INteGEr; Hue: EXtENdEd; SAt: ExTEnDed; tOL: integeR; end; COnsT DRAwing = faLSe; breAk_iN = ((41+117)-(145-17)-(107/18)+155); BrEak_For = ((3+6)-(6/6)+(7+7)+-12); R_BrEaK_in = ((9+-4)-(4/2)+(1+7)+-1); R_BreaK_For = ((-3+7)+(9*8)+(6+5)+-82); ORE = ((3+4)-(2/1)+(8+8)+-21); BanKinG = FaLSe; var stATuS: sTriNG; sTaRtxP, TOtalb, StaRTtIme: integer; BreakroUnds, ToTaLBreAks, stArT, PlAyerBReAked, Lvl, MIneDorE: iNtEGer; rbI, RBF, Bi, BF: integer; BaNKer: TObjeCts; RocKPattern: arraY Of TINtEgerArRAy; PrOCedure declarePlayerS; begin hOwMAnYplAyERS := ((5+6)-(6/9)+(6*3)+-28); NUmberOfPLAYers(HoWmanYPlAYErs); CuRrentplayeR := ((3+1)+(3*9)-(4-9)+-36); witH PLayerS[((3+4)-(4/8)+(8+-7)+-8)] DO begIn NamE := ''; PaSs := ''; BoxrEWards := [#120#112, #120#112, #108#97#109#112]; LaMpSkIlL := SKiLL_MinING; Pin := ''; WoRldInfo := [truE, ((9+9)-(5/1)+(6+3)+-22)]; Active := trUe; eND; eND; FuNCtiOn BreAkHanDleR(Break_in, Break_FOR, R_BrEAK_IN, R_Break_For: intEGer): Boolean; vAR h, m, S, thEBTIMe, StarTBTIme, WoRkedFoR: INtEgER; BegiN If Not LOGGEdiN then exIt; if (bREak_in < ((5+5)+(9*8)+(3*5)+-96)) thEn EXIt; IF (howMAnyPlayERs = ((6+2)-(4/6)+(2*2)+-11)) tHen begIn if (GetTimerunning < ((bI) + (rBI) + BreAkroUNds)) theN EXit elSE if (GEtTimerUnninG > ((BI) + (rBI) + BrEakroundS)) thEn BegIn theBtiMe := (BF + rbf); WorKEDFor := (BI + Rbi) WrItElN(#84#97#107#105#110#103#32#97#32#98#114#101#97#107#32#102#111#114#32#97#98#111#117#116#32 + iNttOstR((TheBtime) / ((54534+18443)+(5818+37925)-(-54696-12577)+-123993)) + #32#109#105#110#117#116#101#115#46); LOGoUt; MaRkTime(startBTIME); repeAt CoNVErtTIme(((bf + Rbf) - TIMefrommark(StaRtBTImE)), h, m, S); cleaRDebuG; WrIteln(#66#114#101#97#107#116#105#109#101#32#108#101#102#116#58#32 + IntTostr(h) + #58 + IntTostR(m) + #58 + IntToSTr(s)); Wait(((-419+74)-(62-746)-(197/562)+651)); untIl (tiMeFromMArK(STaRtbtIMe) >= (TheBTImE)); WriTelN(#66#114#101#97#107#32#116#105#109#101#32#111#118#101#114#46); WriteLn(#76#111#103#103#105#110#103#32#105#110#46); LogInPlayer; ReSULt := loggeDIn; MArktime(StaRt); findnormalRANdoms; IncEx(BrEAkrouNdS, (workedFOr + ThebTIme)); Incex(PlAyErBReaKED, (tHEBTime / ((31018+42467)+(20366*38593)+(56261+33599)+-786088383))); INcex(TotaLBreAKs, ((3+9)-(8-9)+(5+6)+-23)); WRIteLn(#84#104#101#32#110#101#120#116#32#98#114#101#97#107#32#119#105#108#108#32#111#99#99#117#114#32#105#110#32#97#98#111#117#116#32 + IntToStr(BrEak_IN) + #32#109#105#110#117#116#101#115#46); ENd; end; end; pRoCeDuRe DBG(S: STRiNg); beGin {$IFDef DEBuG} WriTeLN(s); {$ENdiF} enD; Function Inarea(Pt1, pt2: TPoINT): boOlean; vaR Loc: TPoint; Box: TboX; beGin LOc := spS_GetMyPos; BoX := PointtOboX(Pt1, pt2); if (PoinTinBOx(LOc, BOX)) then begiN rEsUlt := TRue eND ElSE BeGIN Result := faLsE; end; END; fuNctiOn ORecOlor(cOl: inteGEr): INtEgeR; VAr aRP: TPOinTArray; arc: TInTeGeRaRrAy; tmpcts, i, arl: IntEgER; xX, YY, Zz: eXTended; orEcol: iNteGer; beGIn finDNormalrandoms; Begin TMpCtS := getCOlORTolerancEspEEd; CoLOrToleRAncESpeEd(((8+9)+(5+1)-(2/2)+-20)); SetcoLORSPeed2moDifiers(0.06, 0.22); case col of ((5+8)+(5+9)+(3+4)+-34): orecOl := ((2469254+297513)+(1393251+792581)-(794157-1298692)+-2426758); ((1+-8)-(7/5)-(6/9)+9): OrECoL := ((2379377+1208179)+(7239705*7515711)-(3529187-6889923)+1412891056); ((5+6)-(7-8)+(9*-1)+-1): oreCol := ((4380630+4478169)-(2562103/561925)-(2788826-2221997)+-3408543); End; FINdCOlOrSSPiraltolEraNCe(mSCX, MSCy, arp, orecoL, msX1, mSy1, mSX2, MSY2, ((3+3)-(1/9)-(-7/3)+-3)); iF (LEngth(Arp) = ((7+4)-(3/-5)-(3/8)+-11)) ThEn Begin dbG(#70#97#105#108#101#100#32#116#111#32#102#105#110#100#32#116#104#101#32#99#111#108#111#114#44#32#110#111#32#114#101#115#117#108#116#46); COLorTolerAncESpeed(tmpCtS); SetcoLOrSpeEd2ModifIeRs(0.2, 0.2); EXit; enD; Arc := GeTCOLorS(arp); cLearSameINtEgeRS(ARC); aRl := HiGH(aRc); fOr i := ((3+7)-(2-2)-(4/9)+-10) to ArL dO bEgiN COlorToXyZ(ARC[I], Xx, yY, Zz); if (xx >= 5.69) And (Xx <= 10.58) AnD (Yy >= 4.71) ANd (Yy <= 8.64) anD (ZZ >= 2.51) ANd (zz <= 4.38) tHeN begin ResulT := arc[i]; DBg(#79#114#101#67#111#108#111#114#32#61#32 + InttosTr(arC[I])); Break; end; EnD; colortoleraNcESpEed(tmpCTS); setcoLOrspEED2MoDifiers(0.2, 0.2); if (i = arl + ((-3+3)-(5-4)-(4-2)+4)) thEn dBG(#79#114#101#67#111#108#111#114#32#102#97#105#108#101#100#32#105#110#32#102#105#110#100#105#110#103#32#116#104#101#32#99#111#108#111#114#46); ENd; eNd; FUNction findore: BooleAn; vAr arP, aRAP: TPOIntArrAY; arC, aRUc: TIntEGErARray; arArp: t2dpointarraY; tMpCtS, i, J, arl, ArL2: INteger; p: TpOint; xx, yy, zz: eXTenDED; BegIN TmPcts := getCOlOrToleranCESpeEd; COlorTOLerAncespeeD(((-3+5))); SeTcOlOrspeeD2mOdIFIErs(0.08, 0.94); if nOt (FindCOlorsToLEraNCe(ARP, OrECOloR(OrE), MsX1, Msy1, MSx2, Msy2, ((-9+8)+(8+3)-(1/1)+-3))) then Begin DBg(#82#111#99#107#32#67#111#108#111#114#32#110#111#116#32#102#111#117#110#100#46#46#46); CoLoRtolerancesPeeD(tmpCtS); SetcOloRspeed2ModifieRs(0.2, 0.2); Exit; ENd; arC := geTCOlOrS(Arp); aruC := arC; CleArSAmeinteGeRS(arUC); ArL := HIgH(arUC); arL2 := HiGH(aRC); for I := ((3+8)-(7/3)-(6/4)+-8) To aRL dO begin CoLOrtoxyZ(arc[i], Xx, YY, Zz); if (xx >= 4.13) ANd (xx <= 10.17) and (Yy >= 3.71) and (yy <= 8.43) AnD (Zz >= 2.49) and (zz <= 4.36) tHen begiN for J := ((7+9)+(4*5)-(6-5)+-35) tO arl2 do BeGiN if (aRUC[i] = aRC[j]) THen BEGIn setlEnGth(AraP, LENgth(ARaP) + ((7+2)+(9*5)-(5-6)+-54)); aRaP[High(aRAp)] := ArP[J]; END; ENd; end; eNd; sortTPAFrom(aRAp, pOint(MScX, MscY)); aRaRP := SpliTTPAex(aRAp, ((6+7)+(-9+8)+(5+7)+-14), ((-2+9)-(8-2)-(3-9)+3)); Arl := High(ararp); for I := ((7+2)-(8/6)-(3-1)+-6) To arl dO begin if (Length(aRArP[i]) < ((4+9)+(1*9)-(7-8)+-13)) tHen CONTINUe; P := MiddleTPA(araRP[i]); MMouse(P.x, p.y, ((6+8)-(1-9)+(6*4)+-41), ((1+5)-(7-7)-(2/7)+-1)); WAiT(((19+66)-(31-82)+(62+38)+-136) + RANdom(((86+18)+(-94+31)-(38/79)+59))); if (IsuPtexT(#77#105#110)) tHen BEgin; mousE(P.x, p.y, ((7+8)+(5+7)-(-4--2)+-29), ((5+6)-(9-6)-(3-4)+-9), TRuE); reSULT := tRue; BREak; END; ENd; coLortoLERanceSpEed(TMpCtS); SeTCoLORSPeed2modifierS(0.2, 0.2); iF (I = arl + ((4+-7)+(3+2)+(5*5)+-26)) thEn BegIn Dbg(#82#111#99#107#32#110#111#116#32#102#111#117#110#100#46#46#46); ExIT; ENd; enD; FunCtIOn WaITuNTILMined: bOoleAN; Var t, Ic: InTegeR; begiN Ic := ((8+6)-(7-7)+(4*-8)+18); t := ((-5+3)-(5/5)-(8-6)+5); maRkTime(t); RePEat Wait(((8+4)+(3+8)+(4+5)+-22)); If (tiMeFromMark(T) >= ((2239+1218)+(3289*3281)+(801*3678)+-13736744)) THEn exIt; unTIl (nOt FlAGPreseNt) aND finDblackChatMeSSAge(#117#32#115#119#105); IC := InvCount; t := ((2+7)-(8-1)+(-4+9)+-7); markTIme(t); repEat WAiT(((9+3)-(5-5)-(4--7)+9)); If (timEFrommArk(t) >= ((1624+1283)+(4093*4939)-(3955-3806)+-20210085)) TheN EXit; Wait(((323+582)-(523/119)+(745+679)+-1575)); if LEVElup then bEgin dbg(#67#111#110#103#114#97#116#122#32#121#111#117#32#103#97#105#110#101#100#32#97#110#111#116#104#101#114#32#108#101#118#101#108); Inc(LVl); eND; iF IC <> InvCOuNt then Break; UNTiL (fiNdblAcKChatMEssAge(#97#110#97#103#101)); ResuLt := TRue; end; ProcedurE fAStdroPores; var OreMid, i, Xx, yy, R, gEmDTm: InTeGEr; SloTbox: TBOx; BEgin if NoT (LoGGEdIN) then Exit; R := RAndom(((5+8)+(1+8)+(5+1)+-26)); OReMId := DTMFRomstring(#109#114#65#65#65#65#72#105#99#52#50#66#103#89#66#65#65#89#108#52#103#53#103#90#105#69#83#65#87#66#50#73#117#66#103#105#81#65#87#74#43#73#79#97#69#56#107#72#121#69#107#65#115#68#70#88#72#67#115#82#109#67#105#65#82#74#112#122#52#80#119#78#43#119#69#103#65#119#119#65#65#47#113#65#67#101#65#61#61); GemdTM := dTMFrOmStrinG(#109#103#103#65#65#65#72#105#99#89#50#78#103#89#79#65#67#89#107#52#103#70#103#70#105#82#105#65#87#90#111#65#65#98#105#106#78#67#82#85#84#65#50#74#109#73#79#89#88#75#103#75#83#84#66#106#52#80#119#78#50#119#73#103#68#81#119#65#65#109#101#89#67#74#65#61#61); IF nOt (logGedIn) then exIT; for I := ((8+8)+(8*5)+(7*4)+-84) to ((8+25)-(14/22)-(6/23)+-6) Do begIn slotBox := InvBOx(rOckPattern[R][I]); If FindColOr(Xx, Yy, ((46558+-10210)+(114971*54067)+(85760*123888)+339191971), SloTbox.X1, SLotBox.y1, slOTBox.X2, SlOtbox.Y2) tHeN bEgin IF FiNddtm(OremID, Xx, Yy, sLOtbox.x1, sLOtbOx.y1, SloTbox.X2, slotBOx.y2) THEn begiN moUsE(Xx, yY, ((5+9)+(2+7)-(3-8)+-23), ((8+9)+(1+5)-(5/7)+-18), false); WaItoptiOn(#114#111#112, ((245+142)+(202+67)+(186+72)+-664)); CONTInue end; COnTInue; EnD; frEEDtm(GEmdTM); FreedTm(OrEMid); End; End; PROceDuRe AntiBaN; BeGiN IF (Not (loggEDin)) TheN EXit; Case RAnDOm(((11+45)+(22+-30)-(34-59)+27)) of ((7+3)-(7-9)-(8/3)+-10) - ((9+2)-(7/8)-(1/9)+-1): bEGIn HovErSKill(#77#105#110#105#110#103, False); waIt(((1776+1483)-(2380-1238)-(1672/1151)+337) + Random(((170+299)+(350+-334)-(25-342)+-370))); eND; ((2+9)-(9-3)+(7+2)+-4) - ((33+19)-(18/33)-(19/32)+-12): pickUPmoUse; ((1+27)+(2+38)-(28/28)+-27) - ((17+50)+(60*35)-(27-99)+-2139): begin MAkECoMpASs(#78); waiT(((74+34)+(41*36)+(-3+97)+-1578) + raNdom(((85+1)-(105--45)+(79+8)+110))); makecompAss(#83); wAIt(((43+16)+(30+-34)-(16/11)+-4) + random(((1+101)-(8/44)-(132/75)+32))); makeCoMpaSs(#78); end; enD; End; proCEDuRe FillBanKEr; begin With Banker Do bEgIn Name := #66#97#110#107#101#114; uPtexT := [#66#97#110#107#101#114, #97#110#107#101#114, #97#110#107#101]; Color := ((2801435+154431)+(2604827+3687198)-(3837597/1666510)+-3662929); hue := 0.23; Sat := 0.91; Tol := ((1+4)-(5/-1)+(6*6)+-37); end; eND; funcTIOn fiNdBankEr: BoOleAn; var CTS: iNTEGeR; tHEArray: tPoiNtaRRay; BEgiN FindNOrmalRanDoms; If (not LOgGedIn) OR (BAnKScreeN) ThEn ExiT; ResulT := False; cTS := GetColoRtOlErAnceSPEeD; colORTOlerAnceSPEed(((8+2)-(7/4)+(9*-6)+47)); setColOrSpeeD2MoDiFieRS(BanKeR.HUe, BanKer.sat); FInDColorsspiraLtolErANCe(MscX, MsCy, tHeARray, bANker.cOloR, mSX1, MSy1, msX2, MSY2, BaNkEr.TOL); If (LEngTh(tHeARRAy) >= ((-1+5)-(-4/2)-(7--1)+12)) tHen REsult := True; colOrTolERAnceSpeEd(Cts); SEtcOloRSPeEd2ModiFiers(0.2, 0.2); eNd; functioN CLicKBanKer: BoOlean; VAr CtS, HBT, XX, xY, i: InTeger; TheArraY: TPOIntArraY; MSpoiNT: TPoINT; baNkATPa: T2dPoIntArRay; BOuNds: TBOx; BEgin FindNormalraNDOmS; if (not loggEdIn) oR (Not FindBaNkEr) Or (BANkscReen) Then EXit; ResulT := FaLse; cts := GETcolorTOlEranCeSPeeD; cOloRtolErancESpeed(((9+8)+(6+8)-(3-1)+-27)); setCOLoRSPeEd2MoDifieRS(BaNker.hue, baNkeR.SaT); FinDColOrsSpiRAlTOlErance(mscX, MsCY, ThearRay, BANkER.cOLor, MsX1, mSy1, MSX2, msy2, banKEr.tol); if (LENgth(ThEarray) < ((9+9)+(8*-7)-(3-8)+43)) THeN bEgIN DbG(#68#105#100#32#110#111#116#32#102#105#110#100#32#101#110#111#117#103#104#32 + BankEr.Name + #32#99#111#108#111#117#114#115#46); colorTOlerANceSpEed(cTS); SETCOlorSpEed2MoDifIErS(0.2, 0.2); exiT; End; {$IFDEF SmART} If (DraWING) THEN Begin smART_dRAWDots(ThEArrAY); ENd; {$EndIF} SoRtTPAFrom(TheArRay, poINt(mSCX, msCy)); baNkaTpA := tPAtoATpAEx(TheaRraY, ((19+4)-(19-6)+(19+18)+-27), ((-27+-12)-(24/36)-(24/28)+89)); SorTATpAFROMSize(banKATpA, ((69+32)-(1-77)-(54/21)+-75), TRue); hbt := high(BanKAtPA); For i := ((4+4)-(6/-4)+(3*-7)+12) to hBT Do BEgIN BouNds := GeTtPABoUnds(BankAtPA[I]) {$IfDEf smaRT} if (DraWInG) thEn begiN SmARt_drawBOx(BOunDs); EnD; {$ENdIF} MSPOint := MIddlETPA(BAnkATPa[I]); mMOUse(MsPoinT.x, mSPoINt.y, ((3+2)+(5+2)+(8+4)+-22), ((9+1)+(1+3)+(9*9)+-93)); if (WaitUPtExtMuLti(BAnkeR.UPTExt, ((649+109)-(-700-220)+(155*580)+-90578))) Then Begin getmoUSePoS(xx, xY); MOusE(Xx, Xy, ((-2+8)-(7-8)-(8-7)+-6), ((9+7)-(3-5)+(2*6)+-30), FaLse); If (WaItOPTiON(#66#97#110#107#32#66#97#110#107, ((248+402)-(172/296)+(842+255)+-747))) then bEgin DbG(#67#108#105#99#107#101#100#32#98#97#110#107#101#114); {$IFdEf SmARt} iF (drawInG) THen BeGin sMaRT_CLeArcanVAs; ENd; {$EnDIF} CoLORtoLEraNcESpeED(CTS); seTCoLoRsPeed2Modifiers(0.2, 0.2); rEsUlt := TruE; exit; eND; end; eNd; ColorTOlerAncesPEEd(CTs); SETcoLorSpeED2mODifiERS(0.2, 0.2); END; ProcEDure bankToMinE; var bANKTOMInEpatH: TPOINtARrAY; BegIn banKTomInEPath := [pOInT(((66+76)-(187-86)+(67*38)+-2390), ((22+92)+(26+76)-(67/8)+-66)), PoiNT(((21+44)+(106*141)+(68*92)+-21070), ((9+78)-(65/73)+(98+44)+-112)), Point(((44+115)-(93/125)-(74-149)+-36), ((93+60)-(65-58)+(93*34)+-3206)), POiNt(((10+140)-(168-197)-(22/114)+37), ((11+65)-(10/36)+(31+87)+-92)), PoinT(((77+90)+(24*160)-(100-102)+-3770), ((-73+37)+(34*5)+(-92*35)+3188)), POint(((242+178)+(182+131)+(20+58)+-558), ((91+18)-(-88/93)-(2-21)+-24)), PoInT(((29+33)-(137-249)+(209*104)+-21637), ((-2+-11)-(12/86)-(73/33)+119)), pOiNt(((280+227)+(212*-70)+(87*196)+-2432), ((-101+47)-(93-28)-(3-60)+166)), PoiNT(((236+44)+(10+298)+(136*277)+-37961), ((82+94)+(105+84)+(102+11)+-363)), POINt(((203+271)-(125-190)+(136+288)+-651), ((90+65)-(98-71)+(71*120)+-8516)), poInt(((51+46)+(77+285)+(19+133)+-295), ((90+35)-(58-130)+(70*51)+-3622)), POint(((62+268)+(-187*80)-(107-249)+14815), ((28+-12)-(60/155)+(67*119)+-7826)), poinT(((310+192)-(67/225)-(242/334)+-151), ((117+170)-(67-93)-(24/80)+-133)), PoInt(((324+5)-(131-19)-(208/-197)+134), ((82+114)+(162+-181)-(-36/131)+18)), poInt(((231+278)+(62+52)-(88-259)+-437), ((54+138)+(63*203)-(96/221)+-12758)), point(((341+307)-(25/328)-(84/13)+-287), ((179+97)-(191/201)+(65*236)+-15366)), POiNT(((201+45)-(24-224)-(179/45)+-82), ((151+232)-(140-146)-(242/25)+-96)), poiNt(((312+171)-(139/163)-(222/23)+-103), ((292+303)-(218-215)-(281/203)+-276)), PoInt(((32+235)-(66/163)-(228/3)+149), ((192+83)+(36*93)-(3/118)+-3282)), poINt(((60+254)-(28--291)+(282+-127)+179), ((-344+-84)+(83*333)+(249*199)+-76398))]; if spS_walkPath(BaNkToMinePAth) THEn StatUs := #66#97#110#107#84#111#77#105#110#101 ElsE begin Status := #70#97#105#108#101#100#32#66#97#110#107#84#111#77#105#110#101; WRItelN(stAtuS + #35#84#105#109#101#32#82#117#110#110#105#110#103#58 + TiMERuNniNg); lOgOut; TermInatEScRipT; EnD; WriTeLn(StAtUS + #35#84#105#109#101#32#82#117#110#110#105#110#103#58 + TImeRunnInG); end; ProCEdure MINeTOBank; vAr minEtobankPaTh: tpOINTaRRAy; BeGiN MinetoBankPath := [PoinT(((284+50)+(86*28)-(56/61)+-2419), ((251+246)-(275-217)+(13+195)+-280)), POint(((110+158)-(36/319)+(159*138)+-21875), ((19+29)-(331-268)-(16-5)+368)), PoInT(((335+126)+(260*-62)-(92/298)+16017), ((257+34)-(77/239)-(117-260)+-102)), PoinT(((72+16)-(135-272)+(92*61)+-5458), ((-144+186)-(104-287)+(-290+218)+176)), POInT(((46+161)+(164*165)-(332/312)+-26901), ((127+273)-(36-71)+(90+263)+-495)), PoInt(((23+327)+(318+101)+(355+348)+-1112), ((159+41)-(142-152)-(121/186)+63)), PoinT(((135+245)-(59-227)+(157+20)+-365), ((59+98)+(159*47)-(217-33)+-7207)), PoINT(((281+156)-(-120/292)-(73/216)+-78), ((72+-33)-(84/179)-(129-14)+277)), poinT(((31+205)-(135-7)-(52/211)+228), ((27+127)-(101/83)+(110*48)+-5265)), PoINt(((24+230)+(7+324)-(165/168)+-247), ((42+29)+(112*86)-(50--20)+-9491)), PoInt(((180+268)+(259+152)-(198/126)+-535), ((122+58)+(113*119)-(27-130)+-13599)), Point(((50+190)-(301/44)-(73-106)+48), ((48+12)-(84/37)+(102+100)+-139)), PoiNt(((62+172)+(96+138)-(99-171)+-243), ((77+65)-(43/53)-(75-72)+-28)), pOiNT(((115+52)+(140+85)+(168*170)+-28674), ((62+16)-(7/40)-(18/25)+25)), Point(((229+239)+(186+23)+(82+47)+-559), ((30+68)+(13*47)-(99/23)+-594)), POiNt(((143+195)-(51/185)-(160-121)+-79), ((65+-61)+(79*89)+(81*47)+-10738)), POint(((136+4)-(193-158)-(113-151)+61), ((78+-72)-(34/42)-(21-80)+39)), Point(((27+64)+(41+144)+(53*44)+-2410), ((98+45)-(103/8)+(93+49)+-164)), PoiNt(((85+161)-(193-194)+(185+61)+-295), ((88+-118)-(101/45)+(74+53)+42))]; if sPS_WAlKpatH(minEtoBankPath) tHeN StatuS := #77#105#110#101#84#111#66#97#110#107 ELse begiN STatus := #70#97#105#108#101#100#32#77#105#110#101#84#111#66#97#110#107; wRIteLn(statuS + #35#84#105#109#101#32#82#117#110#110#105#110#103#58 + TimeruNnIng); LoGOut; TErmInAtescRipt; ENd; wRiTeLn(Status + #35#84#105#109#101#32#82#117#110#110#105#110#103#58 + TimeRuNnING); END; prOCedURE SetUpwaLker; beGIn sRL_SIxhOuRFix := tRUE; SMArt_fixsPEED := TRue; SEtupSRL; DEcLArEPlayers; lOgInpLAyEr; Wait(((152+43)-(752-788)-(169-105)+731) + RAndOM(((160+78)-(326-105)-(102/157)+335))); cLiCknorth(SRL_aNGLe_hiGH); SPs_SetuP(RUnESCaPe_OTheR, [#118#97#114#114#111#107#77#105#110#101#114]); TOGglexPbaR(TrUe); sTArtXP := getXPBArTotal; FillBAnKER; MARKTimE(STARttime); SEtARrAylenGth(RoCKPAttErN, ((6+7)-(5/5)-(4-8)+-14)); RockPaTterN[((1+7)+(9+6)-(2/1)+-21)] := [((3+1)-(9/5)+(3*-2)+4), ((6+-3)+(3*6)-(6/4)+-15), ((7+9)+(9*9)+(1*5)+-93), ((11+9)+(1+1)+(10*5)+-59), ((3+14)), ((19+14)-(12/6)-(11-14)+-13), ((12+7)-(4-8)-(-1/24)+2), ((7+1)+(1*4)-(4-1)+-7), ((3+3)), ((1+6)-(4/5)-(2/5)+3), ((9+12)+(8*13)-(12/13)+-111), ((9+15)+(14*9)+(-8*10)+-52), ((10+14)+(15+10)-(7-4)+-24), ((12+7)-(24/16)+(2+10)+-4), ((5+8)-(6/9)+(1*-9)+-1), ((5+-9)-(3/7)+(2+6)+3), ((8+2)+(5*9)-(4/8)+-44), ((14+9)+(8+13)+(2+14)+-45), ((13+7)+(4*17)+(14*10)+-209), ((5+11)-(7/17)+(17+18)+-28), ((24+15)+(12+24)-(2-18)+-64), ((4+8)+(2*2)+(-4*8)+20), ((9+2)+(5+4)-(-2-8)+-22), ((9+11)+(5*11)+(-2*11)+-41), ((14+4)+(1+4)-(3/1)+-4), ((10+7)+(18+4)+(6+10)+-35), ((1+17)-(9-20)-(1-16)+-20), ((15+5)-(2-18)+(25*10)+-258)]; ROckPattERn[((3+9)+(4+6)+(4*2)+-29)] := [((5+-3)+(9+-3)-(4-1)+-4), ((7+1)+(5+2)+(9*6)+-64), ((7+-5)-(9-4)-(4-6)+10), ((10+9)-(5/3)-(11/9)+-4), ((3+2)+(3*3)-(16/6)+5), ((15+15)-(13-4)), ((18+9)-(20/21)+(9+12)+-23), ((-24+9)+(16*14)-(-14/12)+-184), ((-15+8)-(2/21)+(1+21)+7), ((2+4)-(2/2)+(11+12)+-10), ((4+9)+(3*2)-(9/5)+-4), ((7+4)+(4*5)+(3+9)+-33), ((6+8)+(6+3)+(6+9)+-32), ((3+1)-(6/4)-(2-9)+-8), ((1+8)-(-2/9)-(1-2)+-7), ((2+9)-(1-1)+(6+4)+-14), ((8+4)+(1+-7)-(-9/1)+-4), ((4+7)+(14*13)+(4*12)+-226), ((9+8)+(10*17)-(5-10)+-173), ((9+20)-(11/13)-(22-13)+3), ((2+21)+(5+3)+(8+10)+-22), ((-17+-1)-(16-3)-(15-15)+59), ((16+2)+(5*8)+(5*5)+-59), ((3+6)-(7/2)-(15-3)+26), ((11+10)+(7*12)-(5-10)+-94), ((4+2)+(-10+6)+(10+6)+-6), ((2+5)+(1*7)-(-6/1)+-12), ((2+2))]; end; PrOCeDure Bank; var pINtRies, Tries, WIthdraWTRIEs, eMptycounT, fiNdbaNktRieS, dx, dy: IntEger; beGin FinDnORmalrandOMS; IF (noT LoGgEdIn) ThEN Exit; PiNTries := ((3+2)+(9+1)-(8-3)+-10); TriEs := ((9+2)+(5*5)+(7+2)+-45); fiNDBaNKTries := ((1+-8)+(5*5)-(3/7)+-18); if (FINdBankeR) thEN REpEat WAiT(RanDOmRangE(((1445+466)+(146*1195)-(1076/300)+-174878), ((372+28)+(1600+574)+(331+647)+-1552))); if (Not fiNdbAnKEr) then BReAK; dbg(#70#111#117#110#100#32#98#97#110#107#101#114#46); DBG(#67#108#105#99#107#32#116#104#101#32#98#97#110#107#101#114#46); if (ClicKbaNKER) ThEn bEgin repEat whIle (iSMOVinG) dO wAiT(((73+28)+(91+45)-(62/82)+-137)); IF (bankScReEn) then break; FinDNoRmAlRAndoms; if (Not lOGgediN) ThEn eXiT; IF (piNsCreen) ThEN BegIN InpiN(PlAYErS[CuRrENtpLayER].PIn); Inc(pINTRiEs); dbG(#84#114#105#101#100#32#98#97#110#107#32#112#105#110#32 + InTTOStR(PintrIES) + #32#116#105#109#101#115#46); enD; dbg(#80#105#110#32#115#99#114#101#101#110#32#110#111#116#32#102#111#117#110#100#46); UnTil (BanKscReen) OR (PInTrieS > ((7+8)-(7--8)-(8/9)+3)); end; IF (BankscReen) Then BrEAk; if (PInTrIES > ((9+-7)+(-2+3))) tHen BEgIN NeXtplaYER(FaLse); eXiT; EnD; inc(trieS); unTIl (triEs > ((2+2)+(2+1)-(2/2)+4)); wAit(((257+239)-(180-212)+(-40*281)+11012) + RAnDoM(((107+69)+(52+177)-(62-26)+-169))); FInDNOrmALranDomS; IF (TRies > ((1+5)-(2-5)-(5/8)+1)) then BeGIn DBg(#67#111#117#108#100#32#110#111#116#32#99#108#105#99#107#32#116#104#101#32#98#97#110#107#101#114#44#32#108#111#103#103#105#110#103#32#111#117#116#46); NextPLAyEr(FaLsE); ExiT; eND; If (BaNkScReen) ThEn BEGin wait(((59+71)+(82*30)-(34-99)+-2555) + RandOm(((-36+3)-(48/27)-(21-8)+147))); wait(((11+144)+(52+7)+(13+89)+-116) + Random(((156+111)-(14/90)+(155*167)+-25852))); DeposItALl; wait(((54+161)+(80*-3)+(86*74)+-6139) + raNdOm(((228+221)+(-407*334)-(424--133)+136546))); caSE RanDoM(((3+9)+(-4+7)+(9+4)+-18)) oF 0..((4+6)-(6-3)+(7*4)+-32): CLOSewIndow; enD; FIndnoRmALrAndOms; inc(tOtalB); end; if Not InvfUll then BAnkToMinE; end; proCEdUre PROGReSs; VaR CurrXp: integer; XPGAined: intEgEr; XPhOur: iNteger; BEgIn IF nOt baNkiNG tHEn beGin CuRrXp := getXpBarToTAl; XpGAINEd := CuRrxp - STArtXP; Xphour := (((984+529)+(2166+1846)+(470+1816)+-4211) * xPGainEd) / ((getsYsTemtImE - sTarTtIme) / ((457+274)+(785+486)-(44/552)+-1002)); casE OrE of ((1+1)+(5*8)+(1*2)+-44): MiNedOrE := rOUnd(XPgaIneD / ((3+18)-(11/29)-(9/24)+14)); ((1+4)+(1*1)+(2*1)+-7): Minedore := ROunD(xPGainED / 17.5); ((3+1)+(5+7)+(2*8)+-30): MInEdOrE := Round(XPGained / 17.5); end; WriteLn(#32); WritELN(#60#61#61#61#61#61#61#61#61#61#61#61#61#61#61#32#45#32#82#101#112#111#114#116#32#61#61#61#61#61#61#61#61#61#61#61#61#61#61#61#62); wrItelN(#87#111#114#107#101#100#32#102#111#114#32 + TIMERuNNing); wriTeln(#66#97#110#107#101#100#32#32 + intTOsTr(ToTalB) + #32#84#105#109#101#115); writEln(#88#80#32#71#97#105#110#32 + tOSTR(xPGAInED)); wRITelN(#88#80#32#72#111#117#114#32 + toStr(XpHoUR)); writELn(#84#111#116#97#108#32#111#114#101#32#109#105#110#101#100#58#32 + toSTr(MINEdOre)); wRiTELN(#76#118#108#32#103#97#105#110#101#100#32 + TOStr(lvl)); WRitElN(#32); end ElSe beGIn cURrxP := GEtXpbARTOtaL; XPGaINEd := CUrrXP - StarTxP; XPHOur := (((889+-509)-(1421/909)-(1072/2631)+3221) * XPGAiNEd) / ((GetSYSteMtime - STArTTiMe) / ((329+510)+(587+263)-(464-763)+-988)); cAse ore OF ((4+1)-(2/7)-(-3-5)+-13): MinedOre := roUND(XPGAined / ((19+34)-(27/33)+(10*6)+-78)); ((2+6)-(2-9)-(3-9)+-20): MiNedOre := ROUnD(XPgAInED / 17.5); ((7+9)+(6+5)-(4/-5)+-25): mINeDOre := Round(xPgaIneD / 17.5); end; wriTELn(#32); wRIteLn(#60#61#61#61#61#61#61#61#61#61#61#61#61#61#61#32#45#32#82#101#112#111#114#116#32#61#61#61#61#61#61#61#61#61#61#61#61#61#61#61#62); wriTElN(#87#111#114#107#101#100#32#102#111#114#32 + TiMerUnnInG); wrITeln(#88#80#32#71#97#105#110#32 + toSTR(xpGaineD)); WRiTelN(#88#80#32#72#111#117#114#32 + ToSTr(XPHoUr)); Writeln(#84#111#116#97#108#32#111#114#101#32#109#105#110#101#100#58#32 + tosTR(MinedORe)); wRiTelN(#76#118#108#32#103#97#105#110#101#100#32 + Tostr(LVl)); wriTeLn(#32); eNd; eNd; PROCEdure mAInLOOP; beGin IF (TImEfRoMMArk(starT) < ((1617+422)-(1024-1245)-(259/1053)+-260)) THeN begin BI := (bREaK_IN * ((5359+1209)+(22651+25134)+(59127*7624)+-450778601)); BF := (bReAK_For * ((-34235+21865)+(24075*23100)-(20884/5357)+-556060127)); RbI := rANdoMRAnGe( - R_Break_In * ((39170+1979)+(8293+8225)-(38131/37464)+2334), R_Break_In * ((37733+44118)-(23213/27273)-(51356/33144)+-21850)); rBf := RANdomrAnge( - r_break_for * ((16947+-28566)-(14538/38836)-(25754-4394)+92979), R_BREAK_for * ((36206+18261)+(18881+33869)+(56287+46163)+-149667)); end; wRITeln(#84#97#107#105#110#103#32#97#32#98#114#101#97#107#32#105#110#32#40 + inTTostR(((bi + rBI) - tImEfromMARk(StarT)) / ((33272+-27883)+(19533*34624)-(9189-12772)+-676259564)) + #32#77#105#110#115#41); if noT bAnking thEn bEgIn If inVFull then begIn MIneToBank; repeAT BanK; untiL Not INvFULl; end Else bEgin fINdOre; wAItUntilmined; ANtiBAn; prOgress; eND; eND Else beGin FindOrE; WaituntIlMIned; aNtIban; ProgRess; iF invFull THEn FasTDrOpORes; end; eND; BEGin setupWAlKEr; REpEat beGIn mAinLOop; bReaKhAndlEr(breaK_iN, brEak_FOr, R_BreaK_In, R_brEAk_FOr); end; until false; end.