Viking Simulator | All Swords

--[[
    Made by Megumu
    <3
]]

return(function(s,a,u,l,o,e,n)local R=select;local t=unpack or table.unpack;local C=getfenv or function()return _ENV end;local l=l;local d=string.char;local r=n;local i=string.sub;local B=string.byte;local l=setmetatable;local h=e;local f={}for l=0,255 do f[l]=d(l)end;local function A(c)local e,n,o="","",{}local a=u;local l=1;local function t()local e=r(i(c,l,l),36)l=l+1;local n=r(i(c,l,l+e-1),36)l=l+e;return n end;e=d(t())o[1]=e;while l<#c do local l=t()if f[l]then n=f[l]else n=e..i(e,1,1)end;f[a]=e..i(n,1,1)o[#o+1],e,a=n,n,a+1 end;return h(o)end;local h=A('1P1U1P1R1T1P27923I23C23823G1R27527922123923C22O23G22Z22Y1R1I2791P22D23A23E23C23927I27K27M1R1S27R22X23C23427N1R1G27R27Y27L22Z22M23023427727R22223523A22X1R1R28A22I28128I23223A22Z23H27P27R22M23G23122I23523423923H22Z23G23B1R1Q27R22822Y22G28X27922823823C23I23G22J23023123123A2991827R22323G22X23923427V23123G23H22229Q22Z29K27E1J27R22N28623G22227M23328027827922F27C23G1227R1B1D1P1C2352791O27R21L2792AS27R2761P2AX2AR2AT27R29B1B2AY2352AV2AI2B22B928O2792822B32AS28O28O1V2BD2B42BK2742BN2BJ2B12BM2BI2352BP1H2BR2BW2B12891P2BM2BS29B27R1F2B42AV27929B2AI2AZ1P111P2AV21L1C2B42BM2822A91B2822AS2BY27Q27R102CL1P2BY2BL2A92AS2BM2CG2CA1P2CD2B52D31P1B2BY2D12CH2AW1A2CW2BM1L2BZ2BM2DK2DJ2C31P1K2BZ2BY2821N2B02DC2BY2AV1V2782AS2AV2DP2AV28O2D62792E22791E2B42AU2B02B0');local c=(bit or bit32)and(bit or bit32).bxor or function(l,n)local e,o=1,0 while l>0 and n>0 do local c,a=l%2,n%2 if c~=a then o=o+e end l,n,e=(l-c)/2,(n-a)/2,e*2 end if l<n then l=n end while l>0 do local n=l%2 if n>0 then o=o+e end l,e=(l-n)/2,e*2 end return o end local function a(e,l,n)if n then local l=(e/2^(l-1))%2^((n-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 n()local o,a,e,n=B(h,l,l+o);o=c(o,25)a=c(a,25)e=c(e,25)n=c(n,25)l=l+4;return(n*16777216)+(e*s)+(a*u)+o;end;local function r()local e=c(B(h,l,l),25);l=l+1;return e;end;local function P(...)return{...},R('#',...)end local function d()local e,n=B(h,l,l+2);e=c(e,25)n=c(n,25)l=l+2;return(n*u)+e;end;local function b()local R={};local e={};local A={};local u={[8]=nil,[6]=A,[5]=e,[2]=nil,[4]=R,};local t={}for d=1,r()==0 and d()*2 or n()do local e=r();while true do if(e==1)then e=(r()~=0);break;end if(e==2)then local n,a,o='',n();if(a==0)then e=n;break;end;o=i(h,l,l+a-1);l=l+a;for l=1,#o do n=n..f[c(B(i(o,l,l)),25)]end e=n break;end if(e==0)then local n,l=n(),n();local a,n,l,o=1,(a(l,1,20)*(2^32))+n,a(l,21,31),((-1)^a(l,32));if l==0 then if n==0 then e=o*0 break;else l=1;a=0;end;elseif(l==2047)then e=(o*((n==0 and 1 or 0)/0))break;end;e=(o*(2^(l-1023)))*(a+(n/(2^52)));break;end e=nil break;end t[d]=e;end;for i=1,n()do local l=r();if(a(l,1,1)==0)then local c=a(l,4,6);local f,r,h=d(),d(),d();local e=a(l,2,o);local l={}local l={[5]=r,[6]=nil,[1]=f,[o]=h,};if(e==0)then l[5],l[6]=d(),d()end if(e==1)then l[5]=n()end if(e==2)then l[5]=n()-s end if(e==o)then l[5],l[6]=n()-s,d()end if(a(c,2,2)==1)then l[5]=t[l[5]]end if(a(c,o,o)==1)then l[6]=t[l[6]]end if(a(c,1,1)==1)then l[o]=t[l[o]]end A[i]=l;end end;for l=1,n()do R[l-1]=b();end;u[2]=r();return u;end;local function s(l,e,i)local e=l[2];local a=l[4];local n=l[6];local l=l[8];return function(...)local B={};local c=n;local l={};local l=a;local a=e;local h=P local d=-1;local n=1;local f=R('#',...)-1;local e={};local r={...};for l=0,f do if(l>=a)then B[l-a]=r[l+1];else e[l]=r[l+1];end;end;local l=f-a+1 local a;local l;while true do l=c[n];a=l[1];if a<=12 then if a<=5 then if a<=2 then if a<=0 then n=l[5];elseif a>1 then local n=l[o]e[n]=e[n](t(e,n+1,l[5]))else local n=l[o]e[n](t(e,n+1,l[5]))end;elseif a<=o then do return end;elseif a==4 then local o=l[o];local c=l[6];local a=o+2 local o={e[o](e[o+1],e[a])};for l=1,c do e[a+l]=o[l];end;local o=o[1]if o then e[a]=o n=l[5];else n=n+1;end;else e[l[o]]=l[5];end;elseif a<=8 then if a<=6 then local l=l[o]local o,n=h(e[l](e[l+1]))d=n+l-1 local n=0;for l=l,d do n=n+1;e[l]=o[n];end;elseif a>7 then e[l[o]]=i[l[5]];else local n=l[o]e[n](t(e,n+1,l[5]))end;elseif a<=10 then if a>9 then if e[l[o]]then n=n+1;else n=l[5];end;else local l=l[o]local o,n=h(e[l](e[l+1]))d=n+l-1 local n=0;for l=l,d do n=n+1;e[l]=o[n];end;end;elseif a==11 then local o=l[o]local a={e[o](t(e,o+1,d))};local n=0;for l=o,l[6]do n=n+1;e[l]=a[n];end else local a=l[o];local c=l[6];local o=a+2 local a={e[a](e[a+1],e[o])};for l=1,c do e[o+l]=a[l];end;local a=a[1]if a then e[o]=a n=l[5];else n=n+1;end;end;elseif a<=18 then if a<=15 then if a<=13 then e[l[o]]=l[5];elseif a==14 then if e[l[o]]then n=n+1;else n=l[5];end;else e[l[o]]=e[l[5]][l[6]];end;elseif a<=16 then e[l[o]]=i[l[5]];elseif a>17 then e[l[o]]=e[l[5]][l[6]];else n=l[5];end;elseif a<=21 then if a<=19 then local d;local a;e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];a=l[o];d=e[l[5]];e[a+1]=d;e[a]=d[l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];a=l[o]e[a](t(e,a+1,l[5]))elseif a>20 then local n=l[o];local o=e[l[5]];e[n+1]=o;e[n]=o[l[6]];else local t;local a;e[l[o]]=i[l[5]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=i[l[5]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];e[l[o]]=e[l[5]][l[6]];n=n+1;l=c[n];a=l[o];t=e[l[5]];e[a+1]=t;e[a]=t[l[6]];end;elseif a<=23 then if a>22 then do return end;else local n=l[o]local a={e[n](t(e,n+1,d))};local o=0;for l=n,l[6]do o=o+1;e[l]=a[o];end end;elseif a>24 then local n=l[o]e[n]=e[n](t(e,n+1,l[5]))else local o=l[o];local n=e[l[5]];e[o+1]=n;e[o]=n[l[6]];end;n=n+1;end;end;end;return t({s(b(),{},C())()})or nil;end)(65536,{},256,table.insert,3,table.concat,tonumber)