Project Ghoul: Online | Auto Punch

--[[
    Made by Megumu
    <3
]]

return(function(e,h,I,l)local A=table.concat;local n=table.insert;local n=setmetatable;local t=e;local i=l.char;local D=l.byte;local u=getfenv or function()return _ENV end;local d=l.sub;local s=select;local c=unpack or table.unpack;local f={}for l=0,255 do f[l]=i(l)end;local function r(a)local e,n,o="","",{}local c=256;local l=1;local function D()local e=t(d(a,l,l),36)l=l+1;local n=t(d(a,l,l+e-1),36)l=l+e;return n end;e=i(D())o[1]=e;while l<#a do local l=D()if f[l]then n=f[l]else n=e..d(e,1,1)end;f[c]=e..d(n,1,1)o[#o+1],e,c=n,n,c+1 end;return A(o)end;local r=r('23R23Z23R23Q23M23R27926V26C26E26J26J23Q23N27923R26826E26I26A23Q23K27I25Z26J26E27226A26T26S23Q23W27I25N26G27C26J27R27T27V23Q23Y27I25G26N26E26T26E26C26R28727Z27925H26T26A26E26K25P26G26M26H26R27X23T28A28C28E28G27V25I26B26B26A26B27O28A26G26H26H26A28G27G27I26O26E26M26R23Q24627I25X26A26V26J26M27C28H26B25W26R26G28E26827N23L27I26A26P26A28T27X23P27I28M23Q23X27I25D26M28M25W27V2A426T2AB27I25Q26H26V26Q26R25H26A27K26H23Q23Q27I25Y2AL2792AN2AP26R25E26H29426B2A827I2A82B023R26J26G26E26B26S26R26T28S26829E27927K27M29727925R26R26R26V25C26A29J24M27I26N2BU26V26S25924O24O26V26E2BI26A26D28S24P26C26G26I24O28E26O24O26P25P26824X25W26E25B26O27I27928927924524J23R22F26B2792AX2CY2792D22AX2B923R24N2D729627623R23O23R2452DD2DH27H2CV2D126B27H2D52CV2D823R2DM2DS2D32BA2DW2D42DF27I2D22E02D42782D42DV29G29I23Q28W2792AE2B62AE27W26R28B26M26J2962DA26C2962AC2792EJ2EL2922B72BR23R25G29929B29D2CV2DH2BN27J27L27N2EQ23R2BX26R2AH26T26P29R2F729M26Q26H2FC2FE26C27N23U29M2A529426T29V29O26V2952F42E929J27P27925F26A2BI26T26G2722CV2BC2452402DO2AX2DR2DC2GC2DF2A82DJ2DO2DH2DH2DN2DT2DH2A82GF2DT2AX27H2GR2DE2AX2E62DD2D92DF2GV2DR2A12E22DE2BB2DZ2E12762FO2CY24F2GG2DR23R27Z2GS2H12GZ2DY2GJ2D22GL2DN2GG2GP23R2H42DT2E42DU2422DO2G82DB2AX2HU2DG2I02HE2DU2DB2HK2GX23R23P24C2GK2HP29L2GO2E12482HY2H923R24H27I2452HD2E32H92IB2GG2DN24I2IJ2H72HM2DX2DA2GV2F22I72IJ2792GU2DD2CV2782J127I2H42J72IA2DF2IY2792J02JD2792DH2JA2J52I42IQ27927P2JM2742IA2IC2D22H727I2IF2IZ2JF2IP2DX2CX2792FO2IQ2H023L2492IJ2IV2DR23N2HX2IQ2KC2DI2K22JH27I24N2752JP23R2AC2JS27Z2JS23V2J32KO2FO2IY2A82EC2DI2DK23R23S2HP2IQ2F32L12IW2KL2JJ2KP2KV2DX2792KS2I12LE23R2KU24N2AC2KW2L82JW23R2472IN2L22L42GN2DX2L72DM2IQ2LR2D52II2K727I');local a=(bit or bit32)and(bit or bit32).bxor or function(l,n)local e,o=1,0 while l>0 and n>0 do local c,a=l%2,n%2 if c~=a then o=o+e end l,n,e=(l-c)/2,(n-a)/2,e*2 end if l<n then l=n end while l>0 do local n=l%2 if n>0 then o=o+e end l,e=(l-n)/2,e*2 end return o end local function n(e,l,n)if n then local l=(e/2^(l-1))%2^((n-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(e%(l+l)>=l)and 1 or 0;end;end;local l=1;local function o()local o,c,n,e=D(r,l,l+3);o=a(o,135)c=a(c,135)n=a(n,135)e=a(e,135)l=l+4;return(e*16777216)+(n*I)+(c*256)+o;end;local function t()local e,n=D(r,l,l+2);e=a(e,135)n=a(n,135)l=l+2;return(n*256)+e;end;local function i()local e=a(D(r,l,l),135);l=l+1;return e;end;local function H(...)return{...},s('#',...)end local function R()local e={};local s={};local A={};local h={[1]=e,[h]=s,[7]=nil,[2]=A,[8]=nil,};local c={}for t=1,i()==0 and t()*2 or o()do local e=i();while true do if(e==3)then local o,l=o(),o();local a,o,l,n=1,(n(l,1,20)*(2^32))+o,n(l,21,31),((-1)^n(l,32));if l==0 then if o==0 then e=n*0 break;else l=1;a=0;end;elseif(l==2047)then e=(n*((o==0 and 1 or 0)/0))break;end;e=(n*(2^(l-1023)))*(a+(o/(2^52)));break;end if(e==2)then e=(i()~=0);break;end if(e==1)then local n,o,c='',o();if(o==0)then e=n;break;end;c=d(r,l,l+o-1);l=l+o;for l=1,#c do n=n..f[a(D(d(c,l,l)),135)]end e=n break;end e=nil break;end c[t]=e;end;for l=1,o()do s[l-1]=R();end;h[7]=i();for d=1,o()do local l=i();if(n(l,1,1)==0)then local a=n(l,4,6);local e=n(l,2,3);local l,i,f=t(),t(),t();local D={}local l={[2]=nil,[3]=f,[1]=i,[6]=l,};if(e==1)then l[1]=o()end if(e==3)then l[1],l[2]=o()-I,t()end if(e==2)then l[1]=o()-I end if(e==0)then l[1],l[2]=t(),t()end if(n(a,2,2)==1)then l[1]=c[l[1]]end if(n(a,3,3)==1)then l[2]=c[l[2]]end if(n(a,1,1)==1)then l[3]=c[l[3]]end A[d]=l;end end;return h;end;local function D(l,e,t)local e=l[8];local e=l[h];local o=l[2];local l=l[7];local A=0;return function(...)local I=e;local i=-1;local f=s('#',...)-1;local e=1;local d=l;local l={};local r=H local s={};local n={};local o=o;local a={...};for l=0,f do if(l>=d)then s[l-d]=a[l+1];else n[l]=a[l+1];end;end;local l;local a;local d=f-d+1 while true do l=o[e];a=l[6];if A>0 then n[l[3]]=l[1];end if a<=18 then if a<=8 then if a<=3 then if a<=1 then if a==0 then local e=l[3];local o=n[l[1]];n[e+1]=o;n[e]=o[l[2]];else n[l[3]]=n[l[1]][l[2]];end;elseif a>2 then local e=l[3]n[e](c(n,e+1,l[1]))else n[l[3]]=n[l[1]][l[2]];end;elseif a<=h then if a==4 then n[l[3]]();else local l=l[3]n[l]=n[l](c(n,l+1,i))end;elseif a<=6 then n[l[3]]=l[1];elseif a==7 then local l=l[3]n[l]=n[l](c(n,l+1,i))else local d;local a;n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];a=l[3];d=n[l[1]];n[a+1]=d;n[a]=d[l[2]];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];a=l[3]n[a](c(n,a+1,l[1]))e=e+1;l=o[e];n[l[3]]=t[l[1]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];end;elseif a<=13 then if a<=10 then if a==9 then do return end;else local t;local a;a=l[3];t=n[l[1]];n[a+1]=t;n[a]=t[l[2]];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];a=l[3]n[a](c(n,a+1,l[1]))e=e+1;l=o[e];e=l[1];end;elseif a<=11 then local t;local a;n[l[3]]();e=e+1;l=o[e];a=l[3];t=n[l[1]];n[a+1]=t;n[a]=t[l[2]];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];a=l[3]n[a]=n[a](c(n,a+1,l[1]))e=e+1;l=o[e];if n[l[3]]then e=e+1;else e=l[1];end;elseif a>12 then local l=l[3]n[l]=n[l]()else n[l[3]]=D(I[l[1]],nil,t);end;elseif a<=15 then if a>14 then n[l[3]]=t[l[1]];else local l=l[3]n[l]=n[l]()end;elseif a<=16 then local o=l[3];local e=n[l[1]];n[o+1]=e;n[o]=e[l[2]];elseif a>17 then if n[l[3]]then e=e+1;else e=l[1];end;else local e=l[3]n[e](c(n,e+1,l[1]))end;elseif a<=27 then if a<=22 then if a<=20 then if a==19 then local e=l[3]n[e]=n[e](c(n,e+1,l[1]))else local l=l[3]n[l](n[l+1])end;elseif a==21 then e=l[1];else local e=l[3]n[e]=n[e](c(n,e+1,l[1]))end;elseif a<=24 then if a>23 then n[l[3]]=t[l[1]];else local d;local a;n[l[3]]=t[l[1]];e=e+1;l=o[e];a=l[3];d=n[l[1]];n[a+1]=d;n[a]=d[l[2]];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];a=l[3]n[a]=n[a](c(n,a+1,l[1]))e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];a=l[3];d=n[l[1]];n[a+1]=d;n[a]=d[l[2]];e=e+1;l=o[e];a=l[3]n[a](n[a+1])e=e+1;l=o[e];a=l[3];d=n[l[1]];n[a+1]=d;n[a]=d[l[2]];e=e+1;l=o[e];a=l[3]n[a](n[a+1])e=e+1;l=o[e];do return end;end;elseif a<=25 then n[l[3]]();elseif a>26 then n[l[3]]=D(I[l[1]],nil,t);else local e=l[3]local o,l=r(n[e](c(n,e+1,l[1])))i=l+e-1 local l=0;for e=e,i do l=l+1;n[e]=o[l];end;end;elseif a<=32 then if a<=29 then if a>28 then n[l[3]]=(l[1]~=0);else n[l[3]]=(l[1]~=0);end;elseif a<=30 then if n[l[3]]then e=e+1;else e=l[1];end;elseif a==31 then do return end;else local e=l[3]local o,l=r(n[e](c(n,e+1,l[1])))i=l+e-1 local l=0;for e=e,i do l=l+1;n[e]=o[l];end;end;elseif a<=34 then if a>33 then e=l[1];else local l=l[3]n[l](n[l+1])end;elseif a<=35 then n[l[3]]=l[1];elseif a==36 then local d;local h,D;local f;local a;n[l[3]]=t[l[1]];e=e+1;l=o[e];n[l[3]]=t[l[1]];e=e+1;l=o[e];a=l[3];f=n[l[1]];n[a+1]=f;n[a]=f[l[2]];e=e+1;l=o[e];n[l[3]]=l[1];e=e+1;l=o[e];n[l[3]]=(l[1]~=0);e=e+1;l=o[e];a=l[3]h,D=r(n[a](c(n,a+1,l[1])))i=D+a-1 d=0;for l=a,i do d=d+1;n[l]=h[d];end;e=e+1;l=o[e];a=l[3]n[a]=n[a](c(n,a+1,i))e=e+1;l=o[e];n[l[3]]();e=e+1;l=o[e];do return end;else local c;local a;a=l[3]n[a](n[a+1])e=e+1;l=o[e];n[l[3]]=t[l[1]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];a=l[3];c=n[l[1]];n[a+1]=c;n[a]=c[l[2]];e=e+1;l=o[e];a=l[3]n[a](n[a+1])e=e+1;l=o[e];n[l[3]]=t[l[1]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];e=e+1;l=o[e];n[l[3]]=n[l[1]][l[2]];end;e=e+1;end;end;end;return c({D(R(),{},u())()})or nil;end)(tonumber,5,65536,string)