1 line
69 KiB
Lua
1 line
69 KiB
Lua
|
local a=select local a=coroutine.wrap local a=(function(a,a,a,b,c,d,e,f,g,h,i,j,k)local function l(m)local n={}for o,p in pairs(m)do n[p]=o end return n end local m={b(0x42),b(0x43),b(0x44),b(0x45),b(0x46),b(0x47),b(0x48),b(0x49),b(0x4A),b(0x4B),b(0x4C),b(0x4D),b(0x4E),b(0x4F),b(0x50),b(0x51),b(0x52),b(0x53),b(0x54),b(0x55),b(0x56),b(0x57),b(0x58),b(0x59),b(0x5A),b(0x61),b(0x62),b(0x63),b(0x64),b(0x65),b(0x66),b(0x67),b(0x68),b(0x69),b(0x6A),b(0x6B),b(0x6C),b(0x6D),b(0x6E),b(0x6F),b(0x70),b(0x71),b(0x72),b(0x73),b(0x74),b(0x75),b(0x76),b(0x77),b(0x78),b(0x79),b(0x7A),b(0x30),b(0x31),b(0x32),b(0x33),b(0x34),b(0x35),b(0x36),b(0x37),b(0x38),b(0x39),b(0x21),b(0x23),b(0x24),b(0x25),b(0x26),b(0x28),b(0x29),b(0x2A),b(0x2B),b(0x2C),b(0x2E),b(0x2F),b(0x3A),b(0x3B),b(0x3C),b(0x3D),b(0x3E),b(0x3F),b(0x40),b(0x5B),b(0x5D),b(0x5E),b(0x5F),b(0x60),b(0x7B),b(0x7C),b(0x7D),b(0x7E),b(0x22)}m[0]=b(65)local l=l(m)local function m(n)local o,o,p,q,r=#n,-1,'',0,0 for s in n:gmatch('.')do local l=l[s]if not l then else if o<0 then o=l else o=o+l*91 q=q|(o<<r)if o&8191 then r=r+13 else r=r+14 end while true do p=p..b(q&255)q=q>>8 r=r-8 if not(r>7)then break end end o=-1 end end end if o+1>0 then p=p..string.char((q|(o<<r)&255))end local j=j(p)local l,n,o='','',{}local p=256 local q={}for r=0,p-1 do q[r]=b(r)end local r=1 local function s()local t=i(c(j,r,r),36)r=r+1 local i=i(c(j,r,r+t-1),36)r=r+t return i end l=b(s())o[1]=l while r<#j do local i=s()if q[i]then n=q[i]else n=l..c(l,1,1)end q[p]=l..c(n,1,1)o[#o+1],l,p=n,n,p+1 end return d(o)end local d=m(k)local function i(...)return select('#',...),{...};end;local function j(k,l,m)local n=k.Instructions;local k=k.Prototypes;return function(...)local o,p=1,-1;local q,r={},select('#',...)-1;local s,t={},{}local function u(v,w)if v>p then p=v end s[v]=w;end local function v()local w,x;while true do w=n[o];x=w.Enum;o=o+1;if(x==0)then u(w.A,s[w.B])elseif(x==1)then u(w.A,w.B)elseif(x==2)then u(w.A,w.B~=0)if(w.C~=0)then o=o+1;end;elseif(x==3)then for y=w.A,w.B do u(y,nil)end;elseif(x==4)then u(w.A,m[w.B])elseif(x==5)then u(w.A,l[Const[w.B]])elseif(x==6)then u(w.A,s[w.B][w.KC and w.C or s[w.C]])elseif(x==7)then l[w.B]=s[w.A];elseif(x==8)then m[w.B]=s[w.A];elseif(x==9)then s[w.A][w.KB and w.B or s[w.B]]=w.KC and w.C or s[w.C]elseif(x==10)then u(w.A,{})elseif(x==11)then local y=s[w.B];local z=w.KC and w.C or s[w.C];u(w.A+1,y)u(w.A,y[z])elseif(x==12)then u(w.A,(w.KB and w.B or s[w.B])+(w.KC and w.C or s[w.C]))elseif(x==13)then u(w.A,(w.KB and w.B or s[w.B])-(w.KC and w.C or s[w.C]))elseif(x==14)then u(w.A,(w.KB and w.B or s[w.B])*(w.KC and w.C or s[w.C]))elseif(x==15)then u(w.A,(w.KB and w.B or s[w.B])/(w.KC and w.C or s[w.C]))elseif(x==16)then u(w.A,(w.KB and w.B or s[w.B])%(w.KC and w.C or s[w.C]))elseif(x==17)then u(w.A,(w.KB and w.B or s[w.B])^(w.KC and w.C or s[w.C]))elseif(x==18)then u(w.A,-s[w.B])elseif(x==19)then u(w.A,not s[w.B])elseif(x==20)then u(w.A,#s[w.B])elseif(x==21)then local y=w.B;local z=s[y];for ba=y+1,w.C do z=z..s[ba];end;u(w.A,z)elseif(x==22)then o=o+w.B;elseif(x==23)then local y=w.KB and w.B or s[w.B];local z=w.KC and w.C or s[w.C];if(y==z)~=w.A then o=o+1;end;elseif(x==24)then local y=w.KB and w.B or s[w.B];local z=w.KC and w.C or s[w.C];if(y<z)~=w.A then o=o+1;end;elseif(x==25)then local y=w.KB and w.B or s[w.B];local z=w.KC and w.C or s[w.C];if(y<=z)~=w.A then o=o+1;end;elseif(x==26)then if w.C then if s[w.A]then o=o+1;end elseif s[w.A]then else o=o+1;end elseif(x==27)then local y=s[w.B];if w.C then if y then o=o+1;else u(w.A,y)end elseif y then u(w.A,y)else o=o+1;end elseif(x==28)then local y=w.A;local z=w.B;local ba=w.C;local bb,bc;local bd,be;bb={};if(z~=1)then if(z~=0)then bd=y+z-1;else bd=p;end;be=0;for z=y+1,bd do be=be+1;bb[be]=s[z];end;bd,bc=i(s[y](table.unpack(bb,1,bd-y)));else bd,bc=i(s[y]());end;p=y-1;if(ba~=1)then if(ba~=0)then bd=y+ba-2;else bd=bd+y-1;end;be=0;for i=y,bd do be=be+1;u(i,bc[be])end;end;elseif(x==29)then local i=w.A;local y=w.B;local z,ba;local bb;local bc=0;z={};if(y~=1)then if(y~=0)then bb=i+y-1;else bb=p;end for y=i+1,bb do z[#z+1]=s[y];end ba={s[i]
|