Tankery! | Lag Everyone

--[[
	Made by Megumu/Mommy Mango
	<3
]]

local d=string.byte;local f=string.char;local c=string.sub;local A=table.concat;local u=math.ldexp;local E=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local r=unpack;local i=tonumber;local function s(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 r()local e=i(c(d,l,l),36)l=l+1;local o=i(c(d,l,l+e-1),36)l=l+e;return o end;e=f(r())a[1]=e;while l<#d do local l=r()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=s('21T22927522E22H24H24U23422H27522F22H23522922X27C22922C1927523F27M25T22D112792321122925T22E21T27923427422922F22922P22923G27522922M23527923E27G28322127G23E22127D22927V23E28928421D22928O28L1X28S28P27W28W27522M1P28D1P27D22127428J27522D25T24U24U23E29B21A27E27523727J22G28922B22D28921221C21K21129N28921I21C21O21G22B22J2891M21G2111221G1Z21321K21E29Z22E2891121P21C2142A71Y22B22I2891T21Q21E21C21P2AF2AH2A722B2842751K21321G21R2112AK29L275121X21C21221R1521C21R21M2A02891N21K1Z21G2A62A82AV22A2891222Q22S289275');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local a,c=l%2,o%2 if a~=c then n=n+e end l,o,e=(l-a)/2,(o-c)/2,e*2 end if l<o then l=o end while l>0 do local o=l%2 if o>0 then n=n+e end l,e=(l-o)/2,e*2 end return n end local function e(e,l,o)if o then local l=(e/2^(l-1))%2^((o-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 e,a,c,o=d(a,l,l+3);e=n(e,81)a=n(a,81)c=n(c,81)o=n(o,81)l=l+4;return(o*16777216)+(c*65536)+(a*256)+e;end;local function t()local e=n(d(a,l,l),81);l=l+1;return e;end;local function s()local l=o();local o=o();local c=1;local n=(e(o,1,20)*(2^32))+l;local l=e(o,21,31);local e=((-1)^e(o,32));if(l==0)then if(n==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(n==0)and(e*(1/0))or(e*(0/0));end;return u(e,l-1023)*(c+(n/(2^52)));end;local i=o;local function G(e)local o;if(not e)then e=i();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)),81))end return A(e);end;local l=o;local function i(...)return{...},h('#',...)end local function u()local d={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local f={};local l={};local a={d,nil,f,nil,l};for a=1,o()do local c=n(o(),6);local o=n(o(),43);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;local l=o()local n={0,0,0,0,0,0,0,0,0};for o=1,l do local e=t();local l;if(e==0)then l=(t()~=0);elseif(e==3)then l=s();elseif(e==2)then l=G();end;n[o]=l;end;a[2]=n a[4]=t();for l=1,o()do f[l-1]=u();end;return a;end;local function A(l,e,u)local o=l[1];local e=l[2];local n=l[3];local l=l[4];return function(...)local t=o;local c=e;local e=n;local n=l;local l=i local o=1;local f=-1;local i={};local d={...};local a=h('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then i[l-n]=d[l+1];else e[l]=d[l+1];end;end;local l=a-n+1 local l;local n;while true do l=t[o];n=l[1];if n<=9 then if n<=4 then if n<=1 then if n>0 then if e[l[2]]then o=o+1;else o=o+l[3];end;else local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];end;elseif n<=2 then o=o+l[3];elseif n>3 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 do return end;end;elseif n<=6 then if n>5 then local s;local d;local a;local h;local i;local n;n=l[2];i=e[l[3]];e[n+1]=i;e[n]=i[c[l[5]]];o=o+1;l=t[o];e[l[2]]=c[l[3]];o=o+1;l=t[o];n=l[2];h={};a=0;d=n+l[3]-1;for l=n+1,d do a=a+1;h[a]=e[l];end;s={e[n](r(h,1,d-n))};d=n+l[5]-2;a=0;for l=n,d do a=a+1;e[l]=s[a];end;f=d;o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];n=l[2];i=e[l[3]];e[n+1]=i;e[n]=i[c[l[5]]];o=o+1;l=t[o];e[l[2]]=c[l[3]];o=o+1;l=t[o];n=l[2];h={};a=0;d=n+l[3]-1;for l=n+1,d do a=a+1;h[a]=e[l];end;e[n](r(h,1,d-n));f=n;o=o+1;l=t[o];o=o+l[3];else e[l[2]]=c[l[3]];end;elseif n<=7 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==8 then e[l[2]]=e[l[3]][c[l[5]]];else do return end;end;elseif n<=14 then if n<=11 then if n==10 then e[l[2]]=u[c[l[3]]];else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];end;elseif n<=12 then e[l[2]]=e[l[3]][c[l[5]]];elseif n>13 then e[l[2]]=c[l[3]];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<=17 then if n<=15 then e[l[2]]=u[c[l[3]]];elseif n==16 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 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;end;elseif n<=18 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n>19 then o=o+l[3];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;o=o+1;end;end;end;return A(u(),{},E())();