Awakened Beater | Semi-God

--[[
	Made by Megumu#8008
	<3
]]

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