Galaxy Quest | Gun mod

--[[
	Made by Megumu#8008
	<3
]]

local t=string.byte;local f=string.char;local c=string.sub;local A=table.concat;local u=math.ldexp;local G=getfenv or function()return _ENV end;local l=setmetatable;local r=select;local i=unpack;local h=tonumber;local function s(t)local e,o,a="","",{}local n=256;local d={}for l=0,n-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())a[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[n]=e..c(o,1,1)a[#a+1],e,n=o,o,n+1 end;return table.concat(a)end;local a=s('21F112752471926P27224P192752431H27924T1H2752421921D1124T27C1127K21T27N27P27K22927T27J1922P27X27Q1923528127K23L28527I27N2892461127S24T275112441P26O2722511P1023L23M1X2411124X1X27523V22927925627W1123M1P28V2581P27523L26X27525A29A23L24426P27925126P1123L23N22H27925B22H27523Y28V1124R29T23M1H28V27H29R21525D27N21529R21D25T27N27M1123X29T24T28V29E1P29H29723L23Y2A22A428W23529O2841123U21L29J24T21L29R22X28425422X2A12A324T2A51123Y27M1024T2AA2AC29B2AF28I2AI29K2AL2B42B623V2AP27225B2AR2AT2AV2AX2B723L2B02872B72AM2B52A61H2BA2BC28925A27I29E27828L27C2AK2BZ2B623Y23T1X1024U23T2B32AN2B721D21D2C327523X2C52C72442C92512CB2BJ2CM23Y2492CH24U24927528C28V25528G24425L27328L2DC23I24627P24J27P1I28G121728G22W23522O22W237236121528G22U22O23022S121628G22923122O23C22S2DU121A28G22523222Q22O2312E62E82EA12182E52E72E923721Y23822W121F28G21U23823623923223021V22O22Q22Y2DR2F7121G2EE2EG2EI22E22S22O23523223322122O23322T2312E22ED27521Y22S23921U22X22W23122T23722S233121228G22023621S121D28G22423222T2382FQ22A22Q2372DQ2392E328G2G22342EU2G22DN2EY2FK22V22W22U2GO27522422O23D21S2302302322DW28G23022O23922X2H927522X23822U2E22DX2752H52H71227P1121Z2DT22S22B2HC22S1328G2HZ112GU27522A2352G222O22T2I0');local n=bit and bit.bxor or function(l,e)local o,n=1,0 while l>0 and e>0 do local c,a=l%2,e%2 if c~=a then n=n+o end l,e,o=(l-c)/2,(e-a)/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 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,c,a,o=t(a,l,l+3);e=n(e,1)c=n(c,1)a=n(a,1)o=n(o,1)l=l+4;return(o*16777216)+(a*65536)+(c*256)+e;end;local function d()local e=n(t(a,l,l),1);l=l+1;return e;end;local function h()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 u(l,o-1023)*(c+(n/(2^52)));end;local s=o;local function u(e)local o;if(not e)then e=s();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]=f(n(t(c(o,l,l)),1))end return A(e);end;local l=o;local function s(...)return{...},r('#',...)end local function E()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};local t={};local l={};local a={f,nil,t,nil,l};for a=1,o()do local c=n(o(),151);local o=n(o(),172);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;local l=o()local n={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=d();local l;if(e==0)then l=(d()~=0);elseif(e==2)then l=h();elseif(e==3)then l=u();end;n[o]=l;end;a[2]=n a[4]=d();for l=1,o()do t[l-1]=E();end;return a;end;local function T(l,e,h)local e=l[1];local o=l[2];local n=l[3];local l=l[4];return function(...)local t=e;local c=o;local e=n;local n=l;local A=s local o=1;local f=-1;local s={};local d={...};local a=r('#',...)-1;local l={};local e={};for l=0,a do if(l>=n)then s[l-n]=d[l+1];else e[l]=d[l+1];end;end;local l=a-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 e[l[2]]=e[l[3]][c[l[5]]];elseif n>1 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=A(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;f=l;else e[l[2]]=c[l[3]];end;elseif n<=4 then if n==3 then e[l[2]][c[l[3]]]=c[l[5]];else local n;local s,n;local d;local n;local r;local u;local a;e[l[2]]=h[c[l[3]]];o=o+1;l=t[o];e[l[2]]=h[c[l[3]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];a=l[2];u=e[l[3]];e[a+1]=u;e[a]=u[c[l[5]]];o=o+1;l=t[o];a=l[2];r={};n=0;d=a+l[3]-1;for l=a+1,d do n=n+1;r[n]=e[l];end;s,d=A(e[a](i(r,1,d-a)));d=d+a-1;n=0;for l=a,d do n=n+1;e[l]=s[n];end;f=d;o=o+1;l=t[o];a=l[2];r={};n=0;d=f;for l=a+1,d do n=n+1;r[n]=e[l];end;s={e[a](i(r,1,d-a))};d=a+l[5]-2;n=0;for l=a,d do n=n+1;e[l]=s[n];end;f=d;end;elseif n>5 then local h;local d;local n;local r;local a;e[l[2]]=e[l[3]];o=o+1;l=t[o];a=l[2];r={};n=0;d=a+l[3]-1;for l=a+1,d do n=n+1;r[n]=e[l];end;h={e[a](i(r,1,d-a))};d=a+l[5]-2;n=0;for l=a,d do n=n+1;e[l]=h[n];end;f=d;o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=t[o];if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=10 then if n<=8 then if n>7 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](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;f=l;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=A(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;f=l;end;elseif n==9 then o=o+l[3];else e[l[2]][c[l[3]]]=c[l[5]];end;elseif n<=12 then if n==11 then e[l[2]]=e[l[3]];else e[l[2]]=h[c[l[3]]];end;elseif n>13 then do return end;else do return end;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]][c[l[5]]];else 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;f=l;end;elseif n<=19 then if n==18 then e[l[2]]=h[c[l[3]]];else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n==20 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 e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=25 then if n<=23 then if n>22 then e[l[2]]=c[l[3]];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>24 then 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](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;f=l;else o=o+l[3];end;elseif n<=27 then if n==26 then 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](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;f=l;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n>28 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];end;o=o+1;end;end;end;return T(E(),{},G())();