Advertisement
LucidScripts

Avex Loader

May 19th, 2020
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.63 KB | None | 0 0
  1. -- After it loads, say "load" to load scripts/ Press F9!
  2. return(function(a,b,b)local c=string.char;local d=string.sub;local e=table.concat;local f=math.ldexp;local g=getfenv or
  3. function()return _ENV end;local h=select;local b=unpack or table.unpack;local i=tonumber;local function j(k)local l,m,n="","",{}local o=256;local a={}for b=0,o-1 do a[b]=c(b)end;local b=1;local function p()local l=i(d(k,b,b),36)b=b+1;local m=i(d(k,b,b+l-1),36)b=b+l;return m end;l=c(p())n[1]=l;while b<#k do local b=p()if a[b]then m=a[b]else m=l..d(l,1,1)end;a[o]=l..d(m,1,1)n[#n+1],l,o=m,m,o+1 end;return table.concat(n)end;local i=j('25025227525225827626226125Z25U25H25E25G26726025T25223825327527A25X25Z26224625Z23V25T25Z26325V24826E26225Z25R25V25G25H24826Y26127P26228028228424826W27W25V23X26725S24626026125E24627V27X27Z28128328528728927Q28C28V23W27325H27326026P25G26125F25I24E23N23N23Y23O23N23Z23P24F25E26625V26028Q28H28T28D28W28828A29028423W27126725X26524E24426W26725T27V24626P25V28P25Z24626Y28K27Y24424F25V26225H25V24628K29P28S29W29T28Y28B28U29X29329529729929B29D29F29H29J29L29N24625D25Z25G2602A32692AK25X26127X24624424824825Z24F27A27C27E27G27I24E28R25V23W27225E25E25I2AA25E2A32662C025I25H23W24924925I25Z27E25V25W27H2482BH26324925G25Z25D24923K23L25F23Y25R25I23M26C24424A27F25F25V24F24F24E2AJ26025U24629N25U23X2BW29R28V28629U28Z2AW25G24826T26625Z2C025V25U23W26T26126026025V25X2C425S25F2602DZ2672DV24E25W24F25W23V25W23W27A25D2842D62AP2EA23V2442BQ25U2442B729O2EM2BS27H25T2BV28H2BY2C72C32C52C72C92CB2CD2CF2CH2602CJ2BI2CM2CO2492C626F26923Z26S26O25D2CZ2D12D32D52D72D92DB24F24Z27624K25A27627M27524K27527M2742762G32742G22G327M2FX2G72G32G3')local b=bit or bit32;local o=b and b.bxor or function(b,l)local m,o,d=1,0,10;while b>0 and l>0 do local d,n=b%2,l%2;if d~=n then o=o+m end;b,l,m=(b-d)/2,(l-n)/2,m*2 end;if b<l then b=l end;while b>0 do local l=b%2;if l>0 then o=o+m end;b,m=(b-l)/2,m*2 end;return o end;local function m(l,b,m)if m then local b=l/2^(b-1)%2^(m-1-(b-1)+1)return b-b%1 else local b=2^(b-1)return l%(b+b)>=b and 1 or 0 end end;local b=1;local function l()local d,n,m,l=a(i,b,b+3)d=o(d,182)n=o(n,182)m=o(m,182)l=o(l,182)b=b+4;return l*16777216+m*65536+n*256+d end;local function k()local l=o(a(i,b,b),182)b=b+1;return l end;local function n()local l,m=a(i,b,b+2)l=o(l,182)m=o(m,182)b=b+2;return m*256+l end;local function q()local o=l()local b=l()local d=1;local o=m(b,1,20)*2^32+o;local l=m(b,21,31)local b=(-1)^m(b,32)if l==0 then if o==0 then return b*0 else l=1;d=0 end elseif l==2047 then return o==0 and b*1/0 or b*0/0 end;return f(b,l-1023)*(d+o/2^52)end;local p=l;local function f(l)local m;if not l then l=p()if l==0 then return''end end;m=d(i,b,b+l-1)b=b+l;local l={}for b=1,#m do l[b]=c(o(a(d(m,b,b)),182))end;return e(l)end;local b=l;local function j(...)return{...},h('#',...)end;local function c()local i={}local p={}local b={}local h={[#{"1 + 1 = 111","1 + 1 = 111"}]=p,[#{{770,945,826,359},{652,980,479,185},"1 + 1 = 111"}]=nil,[#{"1 + 1 = 111",{240,325,140,936},"1 + 1 = 111",{260,726,239,499}}]=b,[#{{778,236,773,431}}]=i}local b=l()local o={}for m=1,b do local l=k()local b;if l==2 then b=k()~=0 elseif l==3 then b=q()elseif l==0 then b=f()end;o[m]=b end;for c=1,l()do local b=k()if m(b,1,1)==0 then local d=m(b,2,3)local a=m(b,4,6)local b={n(),n(),nil,nil}if d==0 then b[#"vpI"]=n()b[#"NG84"]=n()elseif d==1 then b[#"dZH"]=l()elseif d==2 then b[#"YRA"]=l()-2^16 elseif d==3 then b[#"X5R"]=l()-2^16;b[#"clqu"]=n()end;if m(a,1,1)==1 then b[#"vH"]=o[b[#"Zh"]]end;if m(a,2,2)==1 then b[#"yuu"]=o[b[#"Ce5"]]end;if m(a,3,3)==1 then b[#"dbK9"]=o[b[#"MSQu"]]end;i[c]=b end end;h[3]=k()for b=1,l()do p[b-1]=c()end;return h end;local function p(b,l,n)b=b==true and c()or b;return function(...)local d=b[1]local o=b[3]local b=b[2]local b=j;local m=1;local b=-1;local i={}local k={...}local a=h('#',...)-1;local b={}local l={}for b=0,a do if b>=o then i[b-o]=k[b+1]else l[b]=k[b+#{"1 + 1 = 111"}]end end;local b=a-o+1;local b;local o;while true do b=d[m]o=b[#"C"]if o<=#"4ymX"then if o<=#"Y"then if o==#""then local b=b[#{"1 + 1 = 111",{202,659,242,884}}]l[b]=l[b](l[b+1])else l[b[#{"1 + 1 = 111","1 + 1 = 111"}]]()end elseif o<=#"O7"then l[b[#{{352,245,752,395},{927,672,837,323}}]]=n[b[#"zco"]]elseif o>#"xko"then l[b[#"7I"]]=n[b[#"jl9"]]else do return end end elseif o<=#"qTRTMoD"then if o<=#"1pC8P"then l[b[#"6V"]]=b[#"vse"]elseif o>#"u2vl6i"then do return end else l[b[#"BZ"]]=b[#"h8T"]end elseif o<=#"l1UkxsSS"then local o;l[b[#"BW"]]=n[b[#"Auk"]]m=m+1;b=d[m]l[b[#"6N"]]=b[#"jaa"]m=m+1;b=d[m]o=b[#"oK"]l[o]=l[o](l[o+1])m=m+1;b=d[m]l[b[#"X0"]]()m=m+1;b=d[m]do return end elseif o>#"BWI35zpx6"then local b=b[#"Xv"]l[b]=l[b](l[b+1])else l[b[#"mz"]]()end;m=m+1 end end end;return p(true,{},g())()end)(string.byte,table.insert,setmetatable)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement