Resurrection | Gun Mod

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

local d=string.byte;local f=string.char;local c=string.sub;local u=table.concat;local C=math.ldexp;local W=getfenv or function()return _ENV end;local l=setmetatable;local s=select;local h=unpack;local r=tonumber;local function A(d)local e,o,n="","",{}local t=256;local a={}for l=0,t-1 do a[l]=f(l)end;local l=1;local function i()local e=r(c(d,l,l),36)l=l+1;local o=r(c(d,l,l+e-1),36)l=l+e;return o end;e=f(i())n[1]=e;while l<#d do local l=i()if a[l]then o=a[l]else o=e..c(e,1,1)end;a[t]=e..c(o,1,1)n[#n+1],e,t=o,o,t+1 end;return table.concat(n)end;local a=A('25S26W27525926O181723G26O27525526G27923H26G27525426O25K26W23H27C26W27K25427N27P25826G26027N27I26W25525S27G27426W25026W24827N27527Q26G27S27H27525A1W27G1W26W23C24K25S23S26W23328424N26827523H28T23C25A27F1723I27I23C24L25427923E27S26W24K25K22W28P27M26W24O25C28823525C27528M22G28P28R28T27N28W28Y27929128K29429629829A29C23329E24O24O29I24O29L25S22029O27528S28U29S28Z29V2932951729729L29B29D2752A529I28829925S2142AB26W24N27P27O28K25A26W29U27523C24O2401O26W23B2402A8182AW2AD29R2B12AG29229X2AK29Z2AN2A22AP23K29I23K27J26W27X23J28A25A26O172902C023R25827P23627P26V28A26W27328A23U24D23T23X2412CE26W27028A24F24924524D26W26H28A24Q24D23S24424124B24923W24D24C24R23W24723U24924F2CQ27228A25124724C23X2442CQ27128A23S2492CI23V2CK2CM23X2462DO2CL2752CO2452472DP2752452D02BC2DU26W24023X2D92CB28A2E123K2DW2DY26P28A23V2DL2CE2ED26W26Q2EG2EI24D2492EK2DB2752CE24B24724124426Y23N26K22E25B1P23M23G25J26W2ES26W24C2CO2D82CQ2CA');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 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 a,c,o,l=d(a,e,e+3);a=n(a,248)c=n(c,248)o=n(o,248)l=n(l,248)e=e+4;return(l*16777216)+(o*65536)+(c*256)+a;end;local function t()local l=n(d(a,e,e),248);e=e+1;return l;end;local function A()local e=o();local n=o();local c=1;local o=(l(n,1,20)*(2^32))+e;local e=l(n,21,31);local l=((-1)^l(n,32));if(e==0)then if(o==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(o==0)and(l*(1/0))or(l*(0/0));end;return C(l,e-1023)*(c+(o/(2^52)));end;local i=o;local function C(l)local o;if(not l)then l=i();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(d(c(o,l,l)),248))end return u(e);end;local e=o;local function r(...)return{...},s('#',...)end local function u()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};local d={};local e={};local a={f,nil,d,nil,e};for a=1,o()do local c=n(o(),68);local o=n(o(),133);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;f[a]=e;end;local l=o()local n={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,l do local e=t();local l;if(e==1)then l=(t()~=0);elseif(e==2)then l=A();elseif(e==0)then l=C();end;n[o]=l;end;a[2]=n a[4]=t();for l=1,o()do d[l-1]=u();end;return a;end;local function C(l,e,i)local o=l[1];local e=l[2];local n=l[3];local l=l[4];return function(...)local d=o;local c=e;local e=n;local n=l;local l=r local o=1;local r=-1;local f={};local a={...};local t=s('#',...)-1;local l={};local e={};for l=0,t do if(l>=n)then f[l-n]=a[l+1];else e[l]=a[l+1];end;end;local l=t-n+1 local l;local n;while true do l=d[o];n=l[1];if n<=8 then if n<=3 then if n<=1 then if n==0 then if e[l[2]]then o=o+1;else o=o+l[3];end;else local s;local t;local n;local f;local a;e[l[2]]=i[c[l[3]]];o=o+1;l=d[o];e[l[2]]=i[c[l[3]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];a=l[2];f={};n=0;t=a+l[3]-1;for l=a+1,t do n=n+1;f[n]=e[l];end;s={e[a](h(f,1,t-a))};t=a+l[5]-2;n=0;for l=a,t do n=n+1;e[l]=s[n];end;r=t;o=o+1;l=d[o];e[l[2]]=i[c[l[3]]];o=o+1;l=d[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=d[o];a=l[2];f={};n=0;t=a+l[3]-1;for l=a+1,t do n=n+1;f[n]=e[l];end;s={e[a](h(f,1,t-a))};t=a+l[5]-2;n=0;for l=a,t do n=n+1;e[l]=s[n];end;r=t;o=o+1;l=d[o];o=o+l[3];end;elseif n>2 then o=o+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<=5 then if n>4 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](h(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;r=l;else do return end;end;elseif n<=6 then e[l[2]][c[l[3]]]=e[l[5]];elseif n>7 then if e[l[2]]then o=o+1;else o=o+l[3];end;else e[l[2]]=i[c[l[3]]];end;elseif n<=13 then if n<=10 then if n>9 then e[l[2]][c[l[3]]]=c[l[5]];else o=o+l[3];end;elseif n<=11 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](h(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;r=l;elseif n>12 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;else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=15 then if n==14 then e[l[2]]=e[l[3]][c[l[5]]];else do return end;end;elseif n<=16 then e[l[2]]=i[c[l[3]]];elseif n==17 then e[l[2]][c[l[3]]]=c[l[5]];else e[l[2]]=e[l[3]][c[l[5]]];end;o=o+1;end;end;end;return C(u(),{},W())();