Advertisement
MegumuSenpai

Heroes Online | Auto Collect (Quest)

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