Facebook
From Funky Marmoset, 4 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 204
  1. --[[
  2.         Made by Megumu#8008
  3.         <3
  4. ]]
  5.  
  6. local d=string.byte;local f=string.char;local c=string.sub;local u=table.concat;local h=math.ldexp;local C=getfenv or function()return _ENV end;local l=setmetatable;local s=select;local i=unpack;local r=tonumber;local function D(d)local e,o,n="","",{}local a=256;local t={}for l=0,a-1 do t[l]=f(l)end;local l=1;local function i()local e=r(c(d,l,l),36)l=l+1;local o=r(c(d,l,l+e-1),36)l=l+e;return o end;e=f(i())n[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[a]=e..c(o,1,1)n[#n+1],e,a=o,o,a+1 end;return table.concat(n)end;local a=D('22022X27526W22P24924626T22P27526X22X22122X26Q27522X27E22H27H27J27E21527N27D22X21L27R27K22X1927V27022927926Q22927526P27J27I27527123D27G26Q23D28922P26H27H27C22X28A27G26M28E22X26P22P27E26A28J26S27824626Q28J26T23525L27H23527526K21D28221D27529028C29422X29024P293295112821127526922X27M28822X2691P24927H1P29M26H23D22W26Q28H29R26X22H22W26O27E29E22128E26W27G22X26S25L27926Y29229E22P27G26R28J26U21T27526E2AQ26H26Z22127926B27G26H26T23D21L22W26N28O26K26127927126129M28J27328Z2AA22X2AC27526Z26124624626B2BL1M26X28J27228J23J27J22W23127J1E18141C22W23227J21L15181G1C1R1Q22W22Q27J211161A18152C72C92CB22W22S2C62C82CA1R21M1A1R101P1T2CD23327J21615101C171T22W23027J1A141810172C427J1R1C1O1S102DK2DA27J1D181T1S1422W2D227521M101E172CK22W22R27J21A1C1T21M2CB1V101A2C32E62DZ1T181R1T2CB21A2DN2DI2DZ2E9216162DP28O22X2EB171D213161T101F2EE2DT10162DH2DB27521P101T152C32EW219101Q1A2EU1D22B2212291Z21N2141G2102282BX27J21P1C1H2D923E27J210181D1C2211B1G2212101C1E2DV1S22222922H22H22922W28J22X2191S1R2F72F922Y27J27J2132152FY2751U2DF2D92EH22X21B2DO1C2EB1R1V2CO23G27J21M1P2CX2D821M2EJ142DG181W172CW1C181Q1C2GX22X');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local c,a=l%2,o%2 if c~=a then n=n+e end l,o,e=(l-c)/2,(o-a)/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 l(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 e=1;local function o()local l,a,c,o=d(a,e,e+3);l=n(l,105)a=n(a,105)c=n(c,105)o=n(o,105)e=e+4;return(o*16777216)+(c*65536)+(a*256)+l;end;local function t()local l=n(d(a,e,e),105);e=e+1;return l;end;local function J()local e=o();local n=o();local c=1;local o=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local l=((-1)^l(n,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return h(l,e-1023)*(c+(o/(2^52)));end;local r=o;local function h(l)local o;if(not l)then l=r();if(l==0)then return'';end;end;o=c(a,e,e+l-1);e=e+l;local e={}for l=1,#o do e[l]=f(n(d(c(o,l,l)),105))end return u(e);end;local e=o;local function r(...)return{...},s('#',...)end local function D()local f={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 d={};local e={};local a={f,nil,d,nil,e};for a=1,o()do local c=n(o(),144);local o=n(o(),155);local n=l(c,1,2);local e=l(o,1,11);local e={e,l(c,3,11),nil,nil,o};if(n==0)then e[3]=l(c,12,20);e[5]=l(c,21,29);elseif(n==1)then e[3]=l(o,12,33);elseif(n==2)then e[3]=l(o,12,32)-1048575;elseif(n==3)then e[3]=l(o,12,32)-1048575;e[5]=l(c,21,29);end;f[a]=e;end;local l=o()local n={0,0,0,0,0,0,0,0,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==0)then l=(t()~=0);elseif(e==3)then l=J();elseif(e==1)then l=h();end;n[o]=l;end;a[2]=n a[4]=t();for l=1,o()do d[l-1]=D();end;return a;end;local function J(l,e,h)local o=l[1];local n=l[2];local e=l[3];local l=l[4];return function(...)local a=o;local c=n;local e=e;local n=l;local l=r local o=1;local d=-1;local r={};local t={...};local f=s('#',...)-1;local l={};local e={};for l=0,f do if(l>=n)then r[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=f-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=14 then if n<=6 then if n<=2 then if n<=0 then e[l[2]][c[l[3]]]=c[l[5]];elseif n>1 then e[l[2]][c[l[3]]]=c[l[5]];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;d=n;end;elseif n<=4 then if n>3 then e[l[2]]={};else e[l[2]]=e[l[3]];end;elseif n>5 then o=o+l[3];else e[l[2]]=c[l[3]];end;elseif n<=10 then if n<=8 then if n>7 then e[l[2]]=h[c[l[3]]];else local r;local u;local f;local t;local s;local n;e[l[2]]=h[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]]];o=o+1;l=a[o];e[l[2]]=h[c[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]];o=o+1;l=a[o];n=l[2];s={};t=0;f=n+l[3]-1;for l=n+1,f do t=t+1;s[t]=e[l];end;u={e[n](i(s,1,f-n))};f=n+l[5]-2;t=0;for l=n,f do t=t+1;e[l]=u[t];end;d=f;o=o+1;l=a[o];n=l[2];r=e[l[3]];e[n+1]=r;e[n]=r[c[l[5]]];end;elseif n>9 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](i(c,1,l-o));d=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;d=n;end;elseif n<=12 then if n==11 then e[l[2]]=(l[3]~=0);else do return end;end;elseif n>13 then do return end;else e[l[2]]=(l[3]~=0);end;elseif n<=21 then if n<=17 then if n<=15 then e[l[2]]=c[l[3]];elseif n==16 then local u;local r;local t;local s;local f;local n;e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=h[c[l[3]]];o=o+1;l=a[o];n=l[2];f=e[l[3]];e[n+1]=f;e[n]=f[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];n=l[2];s={};t=0;r=n+l[3]-1;for l=n+1,r do t=t+1;s[t]=e[l];end;u={e[n](i(s,1,r-n))};r=n+l[5]-2;t=0;for l=n,r do t=t+1;e[l]=u[t];end;d=r;o=o+1;l=a[o];n=l[2];f=e[l[3]];e[n+1]=f;e[n]=f[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];e[l[2]]={};o=o+1;l=a[o];e[l[2]][c[l[3]]]=c[l[5]];o=o+1;l=a[o];e[l[2]][c[l[3]]]=c[l[5]];else o=o+l[3];end;elseif n<=19 then if n==18 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](i(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;d=l;else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];end;elseif n>20 then e[l[2]]={};else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=25 then if n<=23 then if n==22 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](i(c,1,l-o));d=o;else e[l[2]]=e[l[3]][c[l[5]]];end;elseif n==24 then e[l[2]]=e[l[3]][c[l[5]]];else e[l[2]]=h[c[l[3]]];end;elseif n<=27 then if n==26 then if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]]=e[l[3]];end;elseif n==28 then 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](i(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;d=l;else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];end;o=o+1;end;end;end;return J(D(),{},C())();