Ro ghoul script 2.lua

local f=string.byte;local h=string.char;local c=string.sub;local r=table.concat;local E=math.ldexp;local L=getfenv or function()return _ENV end;local C=setmetatable;local d=unpack;local l=pcall;local i=tonumber;local function A(d)local e,n,t="","",{}local a=256;local o={}for l=0,a-1 do o[l]=h(l)end;local l=1;local function f()local e=i(c(d,l,l),36)l=l+1;local n=i(c(d,l,l+e-1),36)l=l+e;return n end;e=h(f())t[1]=e;while l<#d do local l=f()if o[l]then n=o[l]else n=e..c(e,1,1)end;o[a]=e..c(n,1,1)t[#t+1],e,a=n,n,a+1 end;return table.concat(t)end;local i=A('21J21E27521C21L27521E22M22L22B22E21T21Y21S22J22K22D21C27427522D22B22N22F21C21M27923E21Y21Y21U23922F21Y21C1B27926I23E22H23H21H23323M21524K25024K24C25Y1G23P25426H23S25322V25423L24N23E23223A23P1N2111A24J21C21521L23U23V24421922G24924O2511S22T23T22226326525F1S22926G26S24W22723N21D27929Q27627929P27529U29Q25E1D29W29R2A027923629R1P27924I21E25M25P25127924M21I2AA24P21I27524R2AI21E2562AL24P2222AA24Q22221E21M2AK27T2AN27524P21Y2AR21Y2AU25721E1Y21E24N27925B21I2B724N2AL24V1Y1Q21E2552B721E24P22I2AR22I2AU24N21Q2B725A21Q27524Z21E1I21E2B52BX2162B725221627525321I2BI2572AL25321A2C521A27524J21M2B724W27T21E24V2CH21E24L2CQ24R2C72CR2CV24P23E2AR23E2AU24R2AU21E24O27924P23A2AR23A2D22AL24L2AL2AK2752AY2BM1E2AR1E2B42B62B82792AK2C02DI24P162AR162BR2BT21E2BV27525B2BZ2C12BA2122C52122CI2CK21E2CM2AJ2E92CR2EF24P1I2AR2C021M24N2CN25B2CN2DG21E2582AO23U21H21E24Q23U25P21H24P23Q2EW24Q23Q2F024P24I2F424I2F722I2F422I2F72F32EX2F62F126M2F426M2F726U2F426U2F724A2F424A2F027S27921C21F2FY2EW27527F27H27J27L27922822321Y27R2AL21E21T21Z2282G727522922I22B21S21C1927923M1E2191D21Y22D24T1625Z25Z25Y26T24M22S26U24624F26925G1I26126L23U1U171526P23C22F23I25M22N21Z1N26H26C26X1221626U25R2652371G26D22T24O25A24X2391X24C26226421M26A24X25C2A221E29Y2ID23J23621C29Q1S27924J27924T2IM21M27T24P2CN2IN27524V2D72422AR2422AU2CJ2E22CN24M2A925P2IV2AM2AF25P23V2AL2571Y2B724I2BL25A2JB2JD2E22122C72592EF24Y2JB2AH2C32C024P2CV2522122AG2EF23U2162AG2CV23Z2D72GQ2K42J82CV23T22Y2AA25322Y2AU24B1U1221E2HD27524B121A2B82KL21E2KP2KL24P2KT24F2BW2CR2L02432CV24L2CV2472AL2542AL26J2BL24P2BL26N2EH2EF26B2K827526F1U2AZ2LM21E26Z2LO24P2LO26N2BL24G2BL26J2DO24S2792LU27524L2BL26B2EF24L2EF26F2CQ2CS27526Z2KT24L2KT2732MF2KT26B2LV2LE27924K2792472MO2792432LZ27924N1621U21E23X2DX21E23T24U25P25P24Z2N521H23V27924H2792JD2C72AE2752EN2J42AJ2AL2ET2AZ22Y2F422Y2FW2BL2EX2J724U2792IX27523S2A72JB24U2DF2DD2DF27924L2AD2J72NB2DH2JL2JE2JG21E24R2BL24Z2CN24L2CN25221Q2AA24J2L023U1Y2OP2OI2DZ2502L02572L024G2L02B92B72M02NI21I27T23T2O42752NN275');local o=bit and bit.bxor or function(l,e)local n,o=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then o=o+n end l,e,n=(l-c)/2,(e-a)/2,n*2 end if l<e then l=e end while l>0 do local e=l%2 if e>0 then o=o+n end l,n=(l-e)/2,n*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 e()local c,n,e,a=f(i,l,l+3);c=o(c,50)n=o(n,50)e=o(e,50)a=o(a,50)l=l+4;return(a*16777216)+(e*65536)+(n*256)+c;end;local function a()return e()*4294967296+e();end;local function t()local e=o(f(i,l,l),50);l=l+1;return e;end;local function A()local l=e();local e=e();local c=1;local o=(n(e,1,20)*(2^32))+l;local l=n(e,21,31);local e=((-1)^n(e,32));if(l==0)then if(o==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(o==0)and(e*(1/0))or(e*(0/0));end;return E(e,l-1023)*(c+(o/(2^52)));end;local a=e;local function E(e)local n;if(not e)then e=a();if(e==0)then return;end;end;n=c(i,l,l+e-2);l=l+e-1;local e={}for l=1,#n do e[l]=h(o(f(c(n,l,l)),50))end return r(e);end;local l=e;local function s()local i={};local f={};local d={};local l={};local a={};a[1]=i;a[2]=d;a[3]=f;a[7]=l;for n=1,e()do local e=t();local l;if(e==0)then l=(t()~=0);elseif(e==3)then l=A();elseif(e==2)then l=c(E(),1,-1);end;d[n-1]=l;end;a[5]=t();for l=1,e()do f[l-1]=s();end;for t=1,e()do local c=o(e(),153);local e=o(e(),155);local o=n(c,1,2);local a=n(e,1,10);local l={};l[1]=a;l[5]=e;l[2]=n(c,3,10);if(o==0)then l[3]=n(c,11,19);l[4]=n(c,20,28);elseif(o==1)then l[3]=n(e,11,28);elseif(o==2)then l[3]=n(e,11,28)-131071;end;i[t]=l;end;a[6]=t();return a;end;local function f(...)local l={...};return l,#l end;local function E(l,i,h)local t=l[1];local a=l[2];local L=l[3];local A=l[6];return function(...)local o=1;local n=-1;local s={};local c={...};local l=#c-1;local r={};local e={};for l=0,l do if(l>=A)then s[l-A]=c[l+1];else e[l]=c[l+1];end;end;local l;local c;while true do l=t[o];c=l[1];if c<=17 then if c<=8 then if c<=3 then if c<=1 then if c>0 then if(e[l[3]]<e[l[4]])then o=o+1;end;else local o=l[2];if o>n then n=o end;e[o]=e[l[3]]+a[l[4]];end;elseif c>2 then o=o+l[3];else local o=l[2];local c=e[l[3]];e[o+1]=c;e[o]=c[a[l[4]]];if o+1>n then n=o+1 end;end;elseif c<=5 then if c>4 then local i;local a=l[2];local t={};local o=0;local c=n;for l=a+1,c do o=o+1;t[o]=e[l];end;i,c=f(e[a](d(t,1,c-a)));c=a+l[4]-2;o=0;for l=a,c do o=o+1;e[l]=i[o];end;n=c;else local a=l[2];if a>n then n=a end;e[a]=i[l[3]];o=o+1;l=t[o];c=l[1];local o=l[2];if o>n then n=o end;e[o]=e[l[3]][e[l[4]]];end;elseif c<=6 then if e[l[2]]then o=o+1;end;elseif c>7 then local o=l[2];if o>n then n=o end;e[o]=i[l[3]];else local c=L[l[3]];local a;if c[5]~=0 then local l={};a=C({},{__index=function(n,e)local l=l[e];return l[1][l[2]];end,__newindex=function(o,e,n)local l=l[e]l[1][l[2]]=n;end;});for c=1,c[5]do o=o+1;local n=t[o];if n[1]==12 then l[c-1]={e,n[3]};else l[c-1]={i,n[3]};end;r[#r+1]=l;end;end;local l=l[2];if l>n then n=l end;e[l]=E(c,a,h);end;elseif c<=12 then if c<=10 then if c>9 then local o=l[2];if o>n then n=o end;e[o]=a[l[3]];else local t;local c=l[2];local a={};local o=0;local l=c+l[3]-1;for l=c+1,l do o=o+1;a[o]=e[l];end;t,l=f(e[c](d(a,1,l-c)));l=l+c-1;o=0;for l=c,l do o=o+1;e[l]=t[o];end;n=l;end;elseif c>11 then local o=l[2];if o>n then n=o end;e[o]=e[l[3]];else local o=l[2];if o>n then n=o end;e[o]=e[l[3]][a[l[4]]];end;elseif c<=14 then if c>13 then local o=l[2];if o>n then n=o end;e[o]=e[l[3]]%a[l[4]];else local a;local c=l[2];local t={};local o=0;local l=n;for l=c+1,l do o=o+1;t[o]=e[l];end;a,l=f(e[c](d(t,1,l-c)));l=l+c-1;o=0;for l=c,l do o=o+1;e[l]=a[o];end;n=l;end;elseif c<=15 then e[l[2]][e[l[3]]]=e[l[4]];elseif c>16 then local a=l[2];if a>n then n=a end;e[a]=i[l[3]];o=o+1;l=t[o];c=l[1];local a=l[2];if a>n then n=a end;e[a]=e[l[3]];o=o+1;l=t[o];c=l[1];local a=l[2];if a>n then n=a end;e[a]=e[l[3]];o=o+1;l=t[o];c=l[1];local a=l[2];if a>n then n=a end;e[a]=e[l[3]];o=o+1;l=t[o];c=l[1];local a=l[2];if a>n then n=a end;e[a]=e[l[3]];o=o+1;l=t[o];c=l[1];local o=l[2];if o>n then n=o end;e[o]=e[l[3]];else if(e[l[3]]~=e[l[4]])then o=o+1;end;end;elseif c<=26 then if c<=21 then if c<=19 then if c>18 then if(a[l[3]]<e[l[4]])then o=o+1;end;else local o=l[2];if o>n then n=o end;e[o]=e[l[3]]-e[l[4]];end;elseif c>20 then do return end;else local d=l[2];if d>n then n=d end;e[d]=e[l[3]][a[l[4]]];o=o+1;l=t[o];c=l[1];local d=l[2];if d>n then n=d end;e[d]=h[a[l[3]]];o=o+1;l=t[o];c=l[1];local d=l[2];if d>n then n=d end;e[d]=e[l[3]][a[l[4]]];o=o+1;l=t[o];c=l[1];local d=l[2];if d>n then n=d end;e[d]=a[l[3]];o=o+1;l=t[o];c=l[1];local d=l[2];if d>n then n=d end;e[d]=a[l[3]];o=o+1;l=t[o];c=l[1];local o=l[2];if o>n then n=o end;e[o]=#e[l[3]];end;elseif c<=23 then if c>22 then local o=l[2];if o>n then n=o end;e[o]=e[l[3]]+e[l[4]];else local n=l[2];local c=n+l[3]-2;local o={};local l=0;for n=n,c do l=l+1;o[l]=e[n];end;do return d(o,1,l)end;end;elseif c<=24 then local o=l[2];if o>n then n=o end;e[o]=e[l[3]][e[l[4]]];elseif c>25 then local n=l[2];local a=e[n+2];local c=e[n]+a;e[n]=c;if a>0 then if c<=e[n+1]then o=o+l[3];e[n+3]=c;end;elseif c>=e[n+1]then o=o+l[3];e[n+3]=c;end;else local o=l[2];if o>n then n=o end;e[o]=e[l[3]]*a[l[4]];end;elseif c<=31 then if c<=28 then if c>27 then local d=l[2];if d>n then n=d end;e[d]=a[l[3]];o=o+1;l=t[o];c=l[1];local o=l[2];if o>n then n=o end;e[o]=a[l[3]];else local o=l[2];if o>n then n=o end;e[o]=#e[l[3]];end;elseif c<=29 then local t;local a=l[2];local i={};local o=0;local c=a+l[3]-1;for l=a+1,c do o=o+1;i[o]=e[l];end;t,c=f(e[a](d(i,1,c-a)));c=a+l[4]-2;o=0;for l=a,c do o=o+1;e[l]=t[o];end;n=c;elseif c>30 then local o=l[2];if o>n then n=o end;e[o]=e[l[3]]/a[l[4]];else local n=l[2];e[n]=e[n]-e[n+2];o=o+l[3];end;elseif c<=33 then if c>32 then local o=l[2];if o>n then n=o end;e[o]=f(d({},1,l[3]));else local l=l[2];e[l]();n=l-1;end;elseif c<=34 then local o=l[2];if o>n then n=o end;e[o]=h[a[l[3]]];elseif c>35 then local c=l[3];local o=e[c]for l=c+1,l[4]do o=o..e[l];end;local l=l[2];if l>n then n=l end;e[l]=o;else local o=l[2];if o>n then n=o end;e[o]=e[l[3]]-a[l[4]];end;o=o+1;end;end;end;return E(s(),{},L())();