Advertisement
MegumuSenpai

Arcane Reborn | Auto Chest

Jul 18th, 2019
4,133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.94 KB | None | 0 0
  1. --[[
  2. Made by Megumu#8008
  3. <3
  4. ]]
  5.  
  6. local t=string.byte;local r=string.char;local c=string.sub;local S=table.concat;local K=math.ldexp;local C=getfenv or function()return _ENV end;local l=setmetatable;local s=select;local i=unpack;local h=tonumber;local function u(t)local e,o,d="","",{}local n=256;local a={}for l=0,n-1 do a[l]=r(l)end;local l=1;local function f()local e=h(c(t,l,l),36)l=l+1;local o=h(c(t,l,l+e-1),36)l=l+e;return o end;e=r(f())d[1]=e;while l<#t do local l=f()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[n]=e..c(o,1,1)d[#d+1],e,n=o,o,n+1 end;return table.concat(d)end;local f=u('24K23R24K27627024S22C22J1H24S27627124S23O24K1N27D24K27222C2761M27N21027322427A1P22424K21027025027A1H25027626W25827A1225827626X24S26C24K1S27K28B26S28E28G28328E28L27124K28D1S27624K27321O27A1S21O27X26H23O25G24K1127H24K26H23W25W29323W27626I21021024K1629F27R26427U26427X26G26K28126K2762971424K1829B29623W1K28E29X29722S2A129S23W2382A524K26D23O21W28E29526H25W2921S29924K26G27922J28F29S24S2832AP2AL29P2AO29R29Y27N1S2A229B24L112B12502B32B123O24L1L29X269295192AF2582831E28924K28O27H1J28S27326K22J22J1P2BR26327S22I2BT22422I26327F2762AT25228S24N24G28S25V25H25P25S24N24I28S25P25W2CC25Y25Z24N24T2CA25N25Y25R25Z2CJ25J25D2CF28S26F25O25D25Z25S2CM24V28S26B25D25S2CZ25P25K25C25Y25D25M2CX27626J25W2DF25D25C24N24H28S26Q25H25K25T25D2762C828S25F25H25L2CW24J28S26S25K25H26525D2CL24N2D527626G25N25J2DS2E52E72E92CN2CY25O25H25Y25H25J25S2EK28L24K26K25T25L25H25M25N25P25C26U25N25N25S26S2EO2CE2CG27626F26A2EP2E124N25128S26U25D25W25K25P2EG2ES25C26V25S2CQ25H25F2E22FJ25D25L2F62D12EB2EM2D125S2DJ2DL2DN24U28S26A25P2DE26V2E925U2E928S24K');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/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 o,a,c,e=t(f,l,l+3);o=n(o,164)a=n(a,164)c=n(c,164)e=n(e,164)l=l+4;return(e*16777216)+(c*65536)+(a*256)+o;end;local function d()local e=n(t(f,l,l),164);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 K(l,o-1023)*(c+(n/(2^52)));end;local a=o;local function h(e)local o;if(not e)then e=a();if(e==0)then return'';end;end;o=c(f,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=r(n(t(c(o,l,l)),164))end return S(e);end;local l=o;local function r(...)return{...},s('#',...)end local function K()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,0,0};local t={};local l={};local a={f,nil,t,nil,l};a[4]=d();for a=1,o()do local c=n(o(),89);local o=n(o(),184);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;f[a]=l;end;local l=o()local n={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=d();local l;if(e==0)then l=(d()~=0);elseif(e==2)then l=u();elseif(e==3)then l=h();end;n[o]=l;end;a[2]=n for l=1,o()do t[l-1]=K();end;return a;end;local function E(l,e,h)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local t=n;local c=o;local e=e;local n=l;local u=r local o=1;local d=-1;local r={};local f={...};local a=s('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then r[l-n]=f[l+1];else e[l]=f[l+1];end;end;local l=a-n+1 local l;local n;while true do l=t[o];n=l[1];if n<=15 then if n<=7 then if n<=3 then if n<=1 then if n==0 then do return end;else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n==2 then e[l[2]]();d=A;else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;end;elseif n<=5 then if n==4 then e[l[2]]=e[l[3]][c[l[5]]];else o=o+l[3];end;elseif n==6 then e[l[2]]=h[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;d=n;end;elseif n<=11 then if n<=9 then if n>8 then local o=l[2];local n=e[l[3]];e[o+1]=n;e[o]=n[c[l[5]]];else e[l[2]]=e[l[3]];end;elseif n>10 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;d=n;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=13 then if n>12 then e[l[2]]=h[c[l[3]]];else local n=l[2];local c={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;c[o]=e[l];end;local c,l=u(e[n](i(c,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=c[o];end;d=l;end;elseif n>14 then local n=l[2];local c=l[5];local l=n+2;local a={e[n](e[n+1],e[l])};for o=1,c do e[l+o]=a[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=23 then if n<=19 then if n<=17 then if n>16 then e[l[2]][c[l[3]]]=e[l[5]];else e[l[2]]();d=A;end;elseif n>18 then do return end;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](i(c,1,l-o));d=o;end;elseif n<=21 then if n==20 then 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];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]][c[l[3]]]=e[l[5]];o=o+1;l=t[o];e[l[2]]=h[c[l[3]]];o=o+1;l=t[o];e[l[2]]();d=A;o=o+1;l=t[o];e[l[2]]=h[c[l[3]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];else e[l[2]]=e[l[3]];end;elseif n==22 then local n=l[2];local a={};local o=0;local c=d;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 o=o+l[3];end;elseif n<=27 then if n<=25 then if n>24 then local n=l[2];local c={};local o=0;local a=d;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;elseif n>26 then local n=l[2];local a=l[5];local l=n+2;local c={e[n](e[n+1],e[l])};for o=1,a do e[l+o]=c[o];end;local n=e[n+3];if n then e[l]=n else o=o+1;end;else if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=29 then if n>28 then e[l[2]]=e[l[3]][c[l[5]]];else if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n>30 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 n;local s,n;local f;local n;local r;local S;local a;e[l[2]]=h[c[l[3]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];a=l[2];S=e[l[3]];e[a+1]=S;e[a]=S[c[l[5]]];o=o+1;l=t[o];a=l[2];r={};n=0;f=a+l[3]-1;for l=a+1,f do n=n+1;r[n]=e[l];end;s,f=u(e[a](i(r,1,f-a)));f=f+a-1;n=0;for l=a,f do n=n+1;e[l]=s[n];end;d=f;o=o+1;l=t[o];a=l[2];r={};n=0;f=d;for l=a+1,f do n=n+1;r[n]=e[l];end;s={e[a](i(r,1,f-a))};f=a+l[5]-2;n=0;for l=a,f do n=n+1;e[l]=s[n];end;d=f;o=o+1;l=t[o];o=o+l[3];end;o=o+1;end;end;end;return E(K(),{},C())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement