Advertisement
MegumuSenpai

Dragon Ball Online Revelations | Unlock All Forms

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