Dragon Adventures Script.lua
--[[
	Made by Megumu/Mommy Mango
	<3
]]

local f=string.byte;local i=string.char;local c=string.sub;local G=table.concat;local u=math.ldexp;local D=getfenv or function()return _ENV end;local N=setmetatable;local h=select;local t=unpack;local r=tonumber;local function s(f)local e,o,d="","",{}local n=256;local a={}for l=0,n-1 do a[l]=i(l)end;local l=1;local function t()local e=r(c(f,l,l),36)l=l+1;local o=r(c(f,l,l+e-1),36)l=l+e;return o end;e=i(t())d[1]=e;while l<#f do local l=t()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 a=s('22H22G27527622G21S27627122824O24N26P22827527323C27526F27J26026Y21S27D26J27926027B27D27F27526O27626M27627022022022G26K28422G26Y1W27Q1W22G27T22027V28727022827J26Y27G22G27323427K28P27N23C27Q27M27128F27E28727Y27528027526T27P24N26W27922G27021S28426K29826Y22W27Q22W28D27027626X2812281O28N28M26T23427D26U28P29929B22G26U29827129G24N26U29I29922828426U28M26Y27D24N26J27D21326W28M25Z28M22H22M27622J22127621Q21D21621P21N21G21D21N21F21O21P2182AV21821J21622J22E2762AW2AY21F172B12B321N2B521627427722G24O22V22J22K2761J2BC22J28722G1B161023C23I23C1821621J2B523C1N1M1K112BP27621B21L21D21823529L27C24N26C28M26W22G27J26U27626P2952A02752972CQ2982CO29P2CR27527U2A428M28I2CQ29R29T2A429W29A2CY27526P2A32A52932CK27W22G26S21S21422G26929826L1O29U29P22G26828M2AA27526S27J29Z2E327Y2CQ27626O2A829Z28M26R24G21Z22G26N24G24N2AH27626H27626T1G27V1G2E128J28828M26V25S27K2EX27N26027Q26028D26T1827V1827526G22826G22G27228M26G23C2482E42F928726U28726S22G2D127626Y22O29U22O28D26022O23S29Z2FV22G25T21427D26W2DP28D21S27J26829826329826F27S26Y28X26J28426026028726M28726422O25422G26O2G12GM29C2FN2CP22G25Y2FR26O24N2AE2H321326Y182H426J2H92AH2AJ28M22G2B92752CC27521R21L21H21P22J22A2761V2B21B21P21621A2AY2HO22N2761821G21L1X2HV21722J22B2761K21J21N21L21G2I22I42HV22J2292761F2B621F21721421L21N2HO2HQ27521G21J21L21O21721821621D21I21R22J2I02751G2182182142HS21822J23D27621C2JA21421722Q23B23B2IQ2J021P21M2J323A21N21J21H23B21621L21B23B21A1I21R2321B21L22O21B2HJ22G2CE2CG22J2AN27521D2IQ2AT2I72IK2751A21P21721J2192162IS2I72I92752JD1R21C21D21G21O2AU21I2B82761U2J321O2L82162J02KZ2L121O22J22D2761R2AX2AZ1S2B22B42B6');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local a,c=l%2,o%2 if a~=c then n=n+e end l,o,e=(l-a)/2,(o-c)/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,o,a,c=f(a,e,e+3);l=n(l,88)o=n(o,88)a=n(a,88)c=n(c,88)e=e+4;return(c*16777216)+(a*65536)+(o*256)+l;end;local function d()local l=n(f(a,e,e),88);e=e+1;return l;end;local function s()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 u=o;local function r(l)local o;if(not l)then l=u();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]=i(n(f(c(o,l,l)),88))end return G(e);end;local e=o;local function i(...)return{...},h('#',...)end local function O()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,0,0,0,0,0,0};local e={0};local c={};local a={f,nil,e,nil,c};for l=1,o()do e[l-1]=O();end;for a=1,o()do local c=n(o(),160);local o=n(o(),174);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;a[4]=d();local l=o()local o={0,0,0,0,0,0,0,0,0,0,0,0,0,0};for n=1,l do local e=d();local l;if(e==0)then l=(d()~=0);elseif(e==1)then l=s();elseif(e==3)then l=r();end;o[n]=l;end;a[2]=o return a;end;local function B(l,G,r)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local a=n;local d=o;local C=e;local n=l;local J=i local o=1;local c=-1;local s={};local i={...};local f=h('#',...)-1;local u={};local e={};for l=0,f do if(l>=n)then s[l-n]=i[l+1];else e[l]=i[l+1];end;end;local l=f-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=19 then if n<=9 then if n<=4 then if n<=1 then if n>0 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 local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[d[l[5]]];end;elseif n<=2 then e[l[2]]=r[d[l[3]]];elseif n==3 then do return end;else local n=l[2];local a={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;a[o]=e[l];end;local a,l=J(e[n](t(a,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;end;elseif n<=6 then if n==5 then e[l[2]]();c=A;else e[l[2]]=e[l[3]][d[l[5]]];end;elseif n<=7 then e[l[2]]=r[d[l[3]]];elseif n>8 then local h;local f;local i;local s;local n;n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[d[l[5]]];o=o+1;l=a[o];e[l[2]]=d[l[3]];o=o+1;l=a[o];n=l[2];i={};f=0;h=n+l[3]-1;for l=n+1,h do f=f+1;i[f]=e[l];end;e[n](t(i,1,h-n));c=n;o=o+1;l=a[o];e[l[2]]=r[d[l[3]]];o=o+1;l=a[o];e[l[2]]();c=n;else local n;local h,n;local i;local f;local r;local s;local n;e[l[2]]=e[l[3]][d[l[5]]];o=o+1;l=a[o];n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[d[l[5]]];o=o+1;l=a[o];n=l[2];r={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;r[f]=e[l];end;h,i=J(e[n](t(r,1,i-n)));i=i+n-1;f=0;for l=n,i do f=f+1;e[l]=h[f];end;c=i;o=o+1;l=a[o];n=l[2];r={};f=0;i=c;for l=n+1,i do f=f+1;r[f]=e[l];end;h={e[n](t(r,1,i-n))};i=n+l[5]-2;f=0;for l=n,i do f=f+1;e[l]=h[f];end;c=i;o=o+1;l=a[o];o=o+l[3];end;elseif n<=14 then if n<=11 then if n==10 then local n=l[2];local a={};local o=0;local d=c;for l=n+1,d do o=o+1;a[o]=e[l];end;local a={e[n](t(a,1,d-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else e[l[2]]=e[l[3]][d[l[5]]];end;elseif n<=12 then local o=l[2];local a,n={e[o]()};local n=o+l[5]-2;local l=0;for o=o,n do l=l+1;e[o]=a[l];end;c=n;elseif n>13 then e[l[2]]=d[l[3]];else e[l[2]]=(l[3]~=0);end;elseif n<=16 then if n>15 then if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]]=G[l[3]];end;elseif n<=17 then if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n>18 then e[l[2]]=(l[3]~=0);else local u;local i;local f;local s;local h;local n;e[l[2]]=r[d[l[3]]];o=o+1;l=a[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[d[l[5]]];o=o+1;l=a[o];e[l[2]]=d[l[3]];o=o+1;l=a[o];n=l[2];s={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;s[f]=e[l];end;u={e[n](t(s,1,i-n))};i=n+l[5]-2;f=0;for l=n,i do f=f+1;e[l]=u[f];end;c=i;o=o+1;l=a[o];e[l[2]]=e[l[3]][d[l[5]]];o=o+1;l=a[o];e[l[2]]=r[d[l[3]]];o=o+1;l=a[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[d[l[5]]];o=o+1;l=a[o];e[l[2]]=d[l[3]];o=o+1;l=a[o];n=l[2];s={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;s[f]=e[l];end;u={e[n](t(s,1,i-n))};i=n+l[5]-2;f=0;for l=n,i do f=f+1;e[l]=u[f];end;c=i;o=o+1;l=a[o];e[l[2]]=r[d[l[3]]];end;elseif n<=29 then if n<=24 then if n<=21 then if n==20 then local n=l[2];local a={};local o=0;local d=n+l[3]-1;for l=n+1,d do o=o+1;a[o]=e[l];end;local a={e[n](t(a,1,d-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[d[l[5]]];end;elseif n<=22 then local n=l[2];local d={};local o=0;local a=n+l[3]-1;for l=n+1,a do o=o+1;d[o]=e[l];end;local a={e[n](t(d,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;elseif n==23 then local n;local h,n;local i;local f;local r;local s;local n;n=l[2];s=e[l[3]];e[n+1]=s;e[n]=s[d[l[5]]];o=o+1;l=a[o];e[l[2]]=d[l[3]];o=o+1;l=a[o];e[l[2]]=(l[3]~=0);o=o+1;l=a[o];n=l[2];r={};f=0;i=n+l[3]-1;for l=n+1,i do f=f+1;r[f]=e[l];end;h,i=J(e[n](t(r,1,i-n)));i=i+n-1;f=0;for l=n,i do f=f+1;e[l]=h[f];end;c=i;o=o+1;l=a[o];n=l[2];r={};f=0;i=c;for l=n+1,i do f=f+1;r[f]=e[l];end;h={e[n](t(r,1,i-n))};i=n+l[5]-2;f=0;for l=n,i do f=f+1;e[l]=h[f];end;c=i;o=o+1;l=a[o];e[l[2]]();c=n;else e[l[2]]=e[l[3]];end;elseif n<=26 then if n>25 then local o=l[2];local a={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;a[n]=e[l];end;e[o](t(a,1,l-o));c=o;else local d=C[l[3]];local c;local n={};c=N({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for c=1,l[5]do o=o+1;local l=a[o];if l[1]==31 then n[c-1]={e,l[3]};else n[c-1]={G,l[3]};end;u[#u+1]=n;end;e[l[2]]=B(d,c,r);end;elseif n<=27 then e[l[2]]=G[l[3]];elseif n>28 then o=o+l[3];else local o=l[2];local a,n={e[o]()};local n=o+l[5]-2;local l=0;for o=o,n do l=l+1;e[o]=a[l];end;c=n;end;elseif n<=34 then if n<=31 then if n==30 then o=o+l[3];else e[l[2]]=e[l[3]];end;elseif n<=32 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;elseif n==33 then do return end;else e[l[2]]=d[l[3]];end;elseif n<=36 then if n==35 then local n=l[2];local a={};local o=0;local l=n+l[3]-1;for l=n+1,l do o=o+1;a[o]=e[l];end;local a,l=J(e[n](t(a,1,l-n)));l=l+n-1;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else local d=C[l[3]];local c;local n={};c=N({},{__index=function(e,l)local l=n[l];return l[1][l[2]];end,__newindex=function(o,l,e)local l=n[l]l[1][l[2]]=e;end;});for c=1,l[5]do o=o+1;local l=a[o];if l[1]==31 then n[c-1]={e,l[3]};else n[c-1]={G,l[3]};end;u[#u+1]=n;end;e[l[2]]=B(d,c,r);end;elseif n<=37 then local o=l[2];local a={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;a[n]=e[l];end;e[o](t(a,1,l-o));c=o;elseif n>38 then local n=l[2];local d={};local o=0;local a=c;for l=n+1,a do o=o+1;d[o]=e[l];end;local a={e[n](t(d,1,a-n))};local l=n+l[5]-2;o=0;for l=n,l do o=o+1;e[l]=a[o];end;c=l;else e[l[2]]();c=A;end;o=o+1;end;end;end;return B(O(),{},D())();