Advertisement
MegumuSenpai

Critical Adventure | GodMode

Apr 7th, 2020
3,092
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.87 KB | None | 0 0
  1. --[[
  2. Made by Megumu
  3. <3
  4. ]]
  5.  
  6. return(function(c,h,l)local s=select;local e=table.insert;local f=string.byte;local A=l;local Y=getfenv or function()return _ENV end;local u=string.char;local l=setmetatable;local d=string.sub;local i=tonumber;local B=unpack or table.unpack;local r={}for l=0,255 do r[l]=u(l)end;local function b(c)local e,n,o="","",{}local a=h;local l=1;local function t()local e=i(d(c,l,l),36)l=l+1;local n=i(d(c,l,l+e-1),36)l=l+e;return n end;e=u(t())o[1]=e;while l<#c do local l=t()if r[l]then n=r[l]else n=e..d(e,1,1)end;r[a]=e..d(n,1,1)o[#o+1],e,a=n,n,a+1 end;return A(o)end;local u=b('1Y1Y1Z2761Y2122761Z22B21S21U2272271Z21327A21D27I1V1827727A1X1W1Z27M27527A27O27M2761X1Z27U21627S27N28027A27U28028227727I27621W21U22621Y1Y21027A23722721U22I21Y2292281Y21427A23322427D22728K28M28O1Y2891Z22O22321U22921U21S22F29027927623422F21U22F28Q28I27622V21Y21X21Y22522828G29C29322722422528G21128J29629O22F28H27A29L22822F22922422I1Z21G27J27627X285276132AE28427Y1Z2AI28327V27R2AN2AF27627I2AR2AK1Z2792AV27V29Y2AZ27A29J2AJ2AL27Z21D2AJ2752872AV2BA1Z27Z2BC2852AQ2B92852AU2BJ27527921F2B51Z2172852B82AO2AG2AM2BQ2AL2B22762BI2BV2AT2BX2C32AX2C52AS1Z2B12BY1Z2922BV27Z2872BV2CH27A');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 o(n,l,e)if e then local l=(n/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(n%(l+l)>=l)and 1 or 0;end;end;local l=1;local function n()local c,n,o,e=f(u,l,l+c);c=a(c,35)n=a(n,35)o=a(o,35)e=a(e,35)l=l+4;return(e*16777216)+(o*65536)+(n*h)+c;end;local function i()local e=a(f(u,l,l),35);l=l+1;return e;end;local function V(...)return{...},s('#',...)end local function t()local e,n=f(u,l,l+2);e=a(e,35)n=a(n,35)l=l+2;return(n*h)+e;end;local function Z()local s={};local b={};local e={};local A={[7]=s,[8]=b,[2]=nil,[c]=e,[4]=nil,};local h={}local e={}for t=1,i()==0 and t()*2 or n()do local e=i();while true do if(e==2)then e=(i()~=0);break;end if(e==0)then local n,l=n(),n();local a,n,l,o=1,(o(l,1,20)*(2^32))+n,o(l,21,31),((-1)^o(l,32));if l==0 then if n==0 then e=o*0 break;else l=1;a=0;end;elseif(l==2047)then e=(o*((n==0 and 1 or 0)/0))break;end;e=(o*(2^(l-1023)))*(a+(n/(2^52)));break;end if(e==1)then local n,c,o='',n();if(c==0)then e=n;break;end;o=d(u,l,l+c-1);l=l+c;for l=1,#o do n=n..r[a(f(d(o,l,l)),35)]end e=n break;end e=nil break;end h[t]=e;end;A[2]=i();for f=1,n()do local l=i();if(o(l,1,1)==0)then local a=o(l,4,6);local r,d,i=t(),t(),t();local e=o(l,2,c);local l={[4]=d,[2]=nil,[c]=r,[6]=i,};if(e==1)then l[4]=n()end if(e==2)then l[4]=n()-65536 end if(e==0)then l[4],l[2]=t(),t()end if(e==c)then l[4],l[2]=n()-65536,t()end if(o(a,1,1)==1)then l[6]=h[l[6]]end if(o(a,2,2)==1)then l[4]=h[l[4]]end if(o(a,c,c)==1)then l[2]=h[l[2]]end s[f]=l;end end;for l=1,n()do b[l-1]=Z();end;return A;end;local function d(l,e,t)local e={}local o=l[8];local A=l[7];local e=l[2];local l=l[4];local u=0;return function(...)local a=e;local f={...};local n=1;local r=o;local e={};local l=-1;local i=s('#',...)-1;local l=V local h={};local l={};local o=A;for l=0,i do if(l>=a)then h[l-a]=f[l+1];else e[l]=f[l+1];end;end;local l;local a=i-a+1 local a;while true do l=o[n];a=l[c];if u>0 then e[l[6]]=l[4];end if a<=7 then if a<=c then if a<=1 then if a>0 then local l=l[6]e[l](e[l+1])else local c;local a;e[l[6]]=t[l[4]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];a=l[6];c=e[l[4]];e[a+1]=c;e[a]=c[l[2]];n=n+1;l=o[n];a=l[6]e[a]=e[a](e[a+1])n=n+1;l=o[n];e[l[6]]=t[l[4]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]][l[4]]=e[l[2]];n=n+1;l=o[n];e[l[6]]=t[l[4]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];e[l[6]]=e[l[4]][l[2]];n=n+1;l=o[n];a=l[6];c=e[l[4]];e[a+1]=c;e[a]=c[l[2]];n=n+1;l=o[n];a=l[6]e[a](e[a+1])n=n+1;l=o[n];do return end;end;elseif a>2 then e[l[6]]=d(r[l[4]],nil,t);else local l=l[6]e[l]=e[l](e[l+1])end;elseif a<=5 then if a>4 then e[l[6]]=t[l[4]];else e[l[6]]=t[l[4]];end;elseif a>6 then local n=l[6];local o=e[l[4]];e[n+1]=o;e[n]=o[l[2]];else do return end;end;elseif a<=11 then if a<=9 then if a>8 then do return end;else local l=l[6]e[l](e[l+1])end;elseif a>10 then e[l[6]][l[4]]=e[l[2]];else e[l[6]]=e[l[4]][l[2]];end;elseif a<=13 then if a==12 then e[l[6]][l[4]]=e[l[2]];else e[l[6]]=d(r[l[4]],nil,t);end;elseif a<=14 then e[l[6]]=e[l[4]][l[2]];elseif a==15 then local l=l[6]e[l]=e[l](e[l+1])else local o=l[6];local n=e[l[4]];e[o+1]=n;e[o]=n[l[2]];end;n=n+1;end;end;end;return B({d(Z(),{},Y())()})or nil;end)(3,256,table.concat)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement