Advertisement
MegumuSenpai

Dragon Adventures | Auto Feed

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