Advertisement
MegumuSenpai

Dinosaur Hunter | Weapon Spawner

Oct 10th, 2019
2,622
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.30 KB | None | 0 0
  1. --[[
  2. Scripts: Megumu/Mommy Mango
  3. UI Library: wally
  4. <3
  5. ]]
  6.  
  7. local r=string.byte;local f=string.char;local c=string.sub;local h=table.concat;local D=math.ldexp;local U=getfenv or function()return _ENV end;local l=setmetatable;local K=select;local i=unpack;local N=tonumber;local function s(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 i()local e=N(c(t,l,l),36)l=l+1;local o=N(c(t,l,l+e-1),36)l=l+e;return o end;e=f(i())d[1]=e;while l<#t do local l=i()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=s('25I26N27526N26D27623N23K23Y23V24C24B24D23Q23L23S26N26J27623S23Y23M23U26N26G27624N24B24B24F24O23U24B26N25Q27623R27V24F24C25X25C25C24F23Y27E23U23X27H25D23W23K23M25C24D23Y24825C23U25424K23S23X23V23Q24726N26B27624S24D23U23Y24B28Q27H23V23K24826N26C27624R27H23K25R24N24A23L29524D27R27625823U23W24B23Q23K23L26N26927624I27C23U25R23X24625R24I23U23S24A23M24A26N26H27624T24A27V29U29B27624K23Q23N23N25R24G24B23R23U24D24C29W27625429324F29U25R25828B24823L2AT26N26E29O29324D23W23R24T23K28X27L27524H27O27Q26F27923K23W29429T29V2AD27524C23R23Y29223V27K27623T23N23Y27J26I27627P27P2AV2BI26N23N23Q27E26N2682762592BP23O27Z25R24J23Y29J2BD2B727827524R24T2B223R23K24B2A829V29C27524G23N23V2CY2D02D22B827624L29J23S23N2A124U24K26N2BN2752572CZ23M2862AI26L29Y2642DC27524J23U2482CF25R24O29J26N2C727524P24O25E2632652E52AE25D24U25D2592C127524T29229V2CU26N24I26625R24S2BY28F2B62DW2EP2ER24O2BY23Y23L2C027229Y2EZ2F12F325R25J25828I24F23U27426K29O24K2582AJ2752582FJ2FA2FC23K2FE2742D42EY2612ES2EU27H27Q2F52D52D729H29J29S27I25R25923Q2C327Q26A27T2G527H23S2G82GA2DH2EX27Y24823U23R24D25R25Y25Z26N2GD27524K2F12EV2AT2GR25Z23O2ED27524S25125E2602622H42EY25Y2662662DL2CJ23U24923K23N2492AT2DT27528Z2762E626N28B23Q2AU2EJ26N27N27P29N27525B2C42462AT2AV2EO27Y24B2I323Y2I52HW2FU24J2BP23Y23N2IB2ID2EX24S2BX28M29R2B72G126N25923U24F2CE2BQ29523V25824B23K28M23S27Q2I82BL24Q2HM29K2AV2DM26N24R23K24R27O2C52J627624P2HV23U29P24D2HM29M2CC23M29423R2HX23R24A2J527627526S27626R26F1V1G23O2DM26V2732K724827327526U26F26726N2482DM2KH24V2KK2KM2KF2KK2KR26Q26N2KO29A27526O2332KD23326N23326F2KC1G23W2KR26E25J2KJ23Y25J2752LA25B26N2LD27526923Z2LH23K23Z2L326O2532K72502532L326E25R2LP23Y25R27526D24N2752512M423326O24V2LT2KO2L42L62L82LF25J24F26N23T2LE2B825J2L22482ML2LA23J2KK2MQ25J2272MT27526M2LY2KK2M126N25V2LS1G2482LV26N25U24V21B2KK2KO2B825R2KF2482N22KU2M123Q27626O23Z1G1G2502NP24026Q2DM23U2DM2HS2HX2HZ2G02HH2IW23Q2IY23U2J02J22J42JK2752F027P2J923U2JB27729D24D2FR2AY23Y2B02EN2JL2JN2JP2JR2K126M2JD26V2K61G2552KM26F2M12KL2KG2KI2KP2P52KW2P12LH2P426N2IS2KX26N26U2KB2KK26V2752NV2752PC26N2GT2752K52K724Z2KA2L62KE2P52KJ2PC27325R2KD2N226A2DM2PC26U2N22NI2PL26N2P32762NV2P32KM26N2PB2762732672KD2KJ2PG26V2M123M2PK26N26Y26F2MI2442DM26B2MA2N62NE26Y2PI2482QT2QV2MS2PC26B25B2KD2LH2HG2K724X27626Y25R2M12GQ2752722QW2P72DL2N52N72RN2R52QT2RO2NC2PC26F23R2KD2JW2ED2PZ2K12472KD28X2E524F2MI2482MI2E523327326M2482L226N26M2MW26N2432SN25V23B2K724223B27525Z2272KD2SN26321Z2KD21Z27526722N2KD22N27525F22F2KD22F27525J21B2KD2NC26N25N2132KD21327525R21R2KD21R27524Z21J2KD21J2752531F2KD1F2DN172ST172I21V2KD1V2DX1N2KD1N2752M41U2N62SL2JE26F2UI2KL26M2KV2732UN2SH2SO26V2UN26V2UP24725R2UN25R2UP24B25J2UN25J2UP24F2672UN2672UP23N25Z2UI23Z25Z2UP23R24V2VG24V2UP23V24N2VG24N2UP26M22F2KF23V2TE2E523J2MI2472MS2752OY24X2DM27225J2KF24O2ML2PM26N2NX275');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 a,c,e,o=r(d,l,l+3);a=n(a,239)c=n(c,239)e=n(e,239)o=n(o,239)l=l+4;return(o*16777216)+(e*65536)+(c*256)+a;end;local function a()local e=n(r(d,l,l),239);l=l+1;return e;end;local function s()local l=o();local o=o();local c=1;local n=(e(o,1,20)*(2^32))+l;local l=e(o,21,31);local e=((-1)^e(o,32));if(l==0)then if(n==0)then return e*0;else l=1;c=0;end;elseif(l==2047)then return(n==0)and(e*(1/0))or(e*(0/0));end;return D(e,l-1023)*(c+(n/(2^52)));end;local t=o;local function N(e)local o;if(not e)then e=t();if(e==0)then return'';end;end;o=c(d,l,l+e-1);l=l+e;local e={}for l=1,#o do e[l]=f(n(r(c(o,l,l)),239))end return h(e);end;local l=o;local function h(...)return{...},K('#',...)end local function R()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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};local c={0,0};local l={};local d={f,nil,c,nil,l};local l=o()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};for o=1,l do local e=a();local l;if(e==2)then l=(a()~=0);elseif(e==3)then l=s();elseif(e==0)then l=N();end;t[o]=l;end;d[2]=t for l=1,o()do c[l-1]=R();end;d[4]=a();for a=1,o()do local c=n(o(),29);local o=n(o(),119);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;f[a]=l;end;return d;end;local function D(l,e,r)local e=l[1];local o=l[2];local a=l[3];local l=l[4];return function(...)local c=e;local n=o;local M=a;local a=l;local s=h local e=1;local d=-1;local N={};local f={...};local t=K('#',...)-1;local l={};local o={};for l=0,t do if(l>=a)then N[l-a]=f[l+1];else o[l]=f[l+1];end;end;local l=t-a+1 local l;local a;while true do l=c[e];a=l[1];if a<=25 then if a<=12 then if a<=5 then if a<=2 then if a<=0 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](i(c,1,l-e));d=e;elseif a==1 then o[l[2]]=(l[3]~=0);else o[l[2]]={};end;elseif a<=3 then 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;elseif a>4 then local K;local h;local t;local f;local N;local a;a=l[2];N={};f=0;t=a+l[3]-1;for l=a+1,t do f=f+1;N[f]=o[l];end;h={o[a](i(N,1,t-a))};t=a+l[5]-2;f=0;for l=a,t do f=f+1;o[l]=h[f];end;d=t;e=e+1;l=c[e];a=l[2];K=o[l[3]];o[a+1]=K;o[a]=K[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];a=l[2];N={};f=0;t=a+l[3]-1;for l=a+1,t do f=f+1;N[f]=o[l];end;o[a](i(N,1,t-a));d=a;e=e+1;l=c[e];a=l[2];K=o[l[3]];o[a+1]=K;o[a]=K[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]={};e=e+1;l=c[e];o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]][n[l[3]]]=o[l[5]];e=e+1;l=c[e];o[l[2]][n[l[3]]]=n[l[5]];else do return end;end;elseif a<=8 then if a<=6 then o[l[2]]=n[l[3]];elseif a==7 then o[l[2]]=D(M[l[3]],nil,r);else e=e+l[3];end;elseif a<=10 then if a>9 then o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];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=s(o[n](i(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 a==11 then o[l[2]]={unpack({},1,l[3])};else local r;local t;local K;local f;local a;a=l[2];f=o[l[3]];o[a+1]=f;o[a]=f[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];a=l[2];K={};t=0;r=a+l[3]-1;for l=a+1,r do t=t+1;K[t]=o[l];end;o[a](i(K,1,r-a));d=a;e=e+1;l=c[e];a=l[2];f=o[l[3]];o[a+1]=f;o[a]=f[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];end;elseif a<=18 then if a<=15 then if a<=13 then o[l[2]]=o[l[3]];elseif a==14 then local n=l[2];local a={};local e=0;local c=d;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](i(a,1,c-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 o[l[2]][n[l[3]]]=o[l[5]];end;elseif a<=16 then o[l[2]]={};elseif a>17 then do return end;else local N;local f;local t;local K;local a;o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];a=l[2];K=o[l[3]];o[a+1]=K;o[a]=K[n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];a=l[2];t={};f=0;N=a+l[3]-1;for l=a+1,N do f=f+1;t[f]=o[l];end;o[a](i(t,1,N-a));d=a;end;elseif a<=21 then if a<=19 then local e=l[2];local n=o[e];local l=l[3];for l=1,l do n[l]=o[e+l]end;elseif a>20 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=s(o[n](i(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 o[l[2]]=r[n[l[3]]];end;elseif a<=23 then if a==22 then o[l[2]]=o[l[3]][n[l[5]]];else o[l[2]]=n[l[3]];end;elseif a>24 then if(o[l[2]]~=o[l[5]])then e=e+1;else e=e+l[3];end;else if(o[l[2]]~=o[l[5]])then e=e+1;else e=e+l[3];end;end;elseif a<=38 then if a<=31 then if a<=28 then if a<=26 then local n=l[2];local a={};local e=0;local c=n+l[3]-1;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](i(a,1,c-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 a>27 then local a;local N,a;local t;local a;local K;local h;local f;o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];f=l[2];h=o[l[3]];o[f+1]=h;o[f]=h[n[l[5]]];e=e+1;l=c[e];f=l[2];K={};a=0;t=f+l[3]-1;for l=f+1,t do a=a+1;K[a]=o[l];end;N,t=s(o[f](i(K,1,t-f)));t=t+f-1;a=0;for l=f,t do a=a+1;o[l]=N[a];end;d=t;e=e+1;l=c[e];f=l[2];K={};a=0;t=d;for l=f+1,t do a=a+1;K[a]=o[l];end;N={o[f](i(K,1,t-f))};t=f+l[5]-2;a=0;for l=f,t do a=a+1;o[l]=N[a];end;d=t;e=e+1;l=c[e];e=e+l[3];else o[l[2]][n[l[3]]]=n[l[5]];end;elseif a<=29 then o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=n[l[3]];elseif a==30 then 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;else o[l[2]][n[l[3]]]=n[l[5]];end;elseif a<=34 then if a<=32 then local n=l[2];local a={};local e=0;local c=d;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](i(a,1,c-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 a>33 then local c=l[2];local e=o[l[3]];o[c+1]=e;o[c]=e[n[l[5]]];else local N;local f;local K;local t;local a;o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=c[e];a=l[2];t=o[l[3]];o[a+1]=t;o[a]=t[n[l[5]]];e=e+1;l=c[e];o[l[2]]=o[l[3]];e=e+1;l=c[e];a=l[2];K={};f=0;N=a+l[3]-1;for l=a+1,N do f=f+1;K[f]=o[l];end;o[a](i(K,1,N-a));d=a;e=e+1;l=c[e];do return end;end;elseif a<=36 then if a==35 then local e=l[2];local c,n={o[e]()};local n=e+l[5]-2;local l=0;for e=e,n do l=l+1;o[e]=c[l];end;d=n;else o[l[2]]={unpack({},1,l[3])};end;elseif a>37 then if o[l[2]]then e=e+1;else e=e+l[3];end;else local e=l[2];local n=o[e];local l=l[3];for l=1,l do n[l]=o[e+l]end;end;elseif a<=44 then if a<=41 then if a<=39 then o[l[2]]=r[n[l[3]]];elseif a==40 then local e=l[2];local c,n={o[e]()};local n=e+l[5]-2;local l=0;for e=e,n do l=l+1;o[e]=c[l];end;d=n;else o[l[2]]=D(M[l[3]],nil,r);end;elseif a<=42 then local n=l[2];local a={};local e=0;local c=n+l[3]-1;for l=n+1,c do e=e+1;a[e]=o[l];end;local c={o[n](i(a,1,c-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 a>43 then e=e+l[3];else local a;local h,a;local t;local f;local N;local K;local a;o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];o[l[2]]=r[n[l[3]]];e=e+1;l=c[e];a=l[2];K=o[l[3]];o[a+1]=K;o[a]=K[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];e=e+1;l=c[e];o[l[2]]=(l[3]~=0);e=e+1;l=c[e];a=l[2];N={};f=0;t=a+l[3]-1;for l=a+1,t do f=f+1;N[f]=o[l];end;h,t=s(o[a](i(N,1,t-a)));t=t+a-1;f=0;for l=a,t do f=f+1;o[l]=h[f];end;d=t;e=e+1;l=c[e];a=l[2];N={};f=0;t=d;for l=a+1,t do f=f+1;N[f]=o[l];end;h={o[a](i(N,1,t-a))};t=a+l[5]-2;f=0;for l=a,t do f=f+1;o[l]=h[f];end;d=t;e=e+1;l=c[e];a=l[2];h,t={o[a]()};t=a+l[5]-2;f=0;for l=a,t do f=f+1;o[l]=h[f];end;d=t;e=e+1;l=c[e];a=l[2];K=o[l[3]];o[a+1]=K;o[a]=K[n[l[5]]];e=e+1;l=c[e];o[l[2]]=n[l[3]];end;elseif a<=47 then if a<=45 then if o[l[2]]then e=e+1;else e=e+l[3];end;elseif a>46 then o[l[2]]=o[l[3]][n[l[5]]];else o[l[2]]=o[l[3]];end;elseif a<=49 then if a>48 then local c=l[2];local e=o[l[3]];o[c+1]=e;o[c]=e[n[l[5]]];else 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](i(c,1,l-e));d=e;end;elseif a==50 then o[l[2]]=(l[3]~=0);else o[l[2]][n[l[3]]]=o[l[5]];end;e=e+1;end;end;end;return D(R(),{},U())();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement