Advertisement
MegumuSenpai

Dragon Adventures | Egg Collector

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