Ant Life | Inf Thirst & Food

--[[
	Made by Megumu/Mommy Mango
	<3
]]

local f=string.byte;local i=string.char;local c=string.sub;local s=table.concat;local u=math.ldexp;local E=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local d=unpack;local r=tonumber;local function A(d)local e,o,n="","",{}local a=256;local t={}for l=0,a-1 do t[l]=i(l)end;local l=1;local function f()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=i(f())n[1]=e;while l<#d do local l=f()if t[l]then o=t[l]else o=e..c(e,1,1)end;t[a]=e..c(o,1,1)n[#n+1],e,a=o,o,a+1 end;return table.concat(n)end;local a=A('25E26Q27524X26Y121D25V26Y27524W26Q25U26Q25W27526Q27E27427I27525125U27925V27G26Q25026Y27G25X27C26Q25324Y26R26Q25H28223624Y25M131D26125M26R23625026Q24I27H27J25321M27128421M1D23X24Y21E1D28B28T23X28G28I27N27U26Y24226Q25J27Z25925M27926025M27525026I27G26626I27525322Y28N25H22Y28Q24Y22Q28U26129Q28X28H28J29C26Y23M27H27Z27V2362A029X22Q2A428025622A27F25626Q28724Y27926124Y2AD25127827A2A126Y21U26Q2652AN21E26Q25S2AN1Y2AU2AN1I2AY27525923U27925S23U27524H2362B52A326Q24G25U26A26R25S27T2502BF2AU2BJ29V29027V29Z25W2AN25U26R2BS2A52A72531222K27F121C28R1Q1C28B2C623X2AK27R2AN2AP2AR29X2AT2AV29X2AX2CI2912B02CL25922Y2B522Y2B82BA1D25S2BC2BE2822BI29C2BL2D026Q24Y22Y2C72612D623X24W27Z25D27Z26Q26E27J26R26U27J24524324F24726R26T27J24I24E24323V24723K23L26R26X27J25A24D24124324E2DS2DU2DW2DI27J23P24324B23Q26R26Z27J24X24A24323K24324123Q2E927027J25024B24C2462ET2DX23Q2EJ24B24E24626R26V27J24H23Q24323Q2DY26S27J25623R24C2452E92F527524K2E523R24727J27J21E24Q28226B27J24G24723M24E24B2E42EP2462F724D2EM2FH2DP2FV24724F24D2EP2DY2DQ2752562432EV24E2E926W2ES24B23K24724H2DW23O2E926P28K2F92EG2EB2G524923L23M2EN2DO2DE25A24724324424M2H823K26R2FC27524M24A2GO23L2EF2FJ26Q25223K2EU2492F427J24L2F92DW2FP');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,o,a,c=f(a,l,l+3);e=n(e,242)o=n(o,242)a=n(a,242)c=n(c,242)l=l+4;return(c*16777216)+(a*65536)+(o*256)+e;end;local function t()local e=n(f(a,l,l),242);l=l+1;return e;end;local function r()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 u=o;local function A(e)local o;if(not e)then e=u();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]=i(n(f(c(o,l,l)),242))end return s(e);end;local l=o;local function s(...)return{...},h('#',...)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,0,0,0,0,0,0,0,0};local d={};local l={};local a={f,nil,d,nil,l};for a=1,o()do local c=n(o(),66);local o=n(o(),34);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;a[4]=t();local l=o()local n={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=t();local l;if(e==2)then l=(t()~=0);elseif(e==0)then l=r();elseif(e==1)then l=A();end;n[o]=l;end;a[2]=n for l=1,o()do d[l-1]=u();end;return a;end;local function A(l,e,i)local n=l[1];local o=l[2];local e=l[3];local l=l[4];return function(...)local a=n;local n=o;local e=e;local c=l;local l=s local e=1;local t=-1;local s={};local f={...};local r=h('#',...)-1;local l={};local o={};for l=0,r do if(l>=c)then s[l-c]=f[l+1];else o[l]=f[l+1];end;end;local l=r-c+1 local l;local c;while true do l=a[e];c=l[1];if c<=11 then if c<=5 then if c<=2 then if c<=0 then local c=l[2];local e=o[l[3]];o[c+1]=e;o[c]=e[n[l[5]]];elseif c==1 then local h;local f;local s;local r;local c;o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];c=l[2];r=o[l[3]];o[c+1]=r;o[c]=r[n[l[5]]];e=e+1;l=a[e];o[l[2]]=n[l[3]];e=e+1;l=a[e];o[l[2]]=i[n[l[3]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];c=l[2];s={};f=0;h=c+l[3]-1;for l=c+1,h do f=f+1;s[f]=o[l];end;o[c](d(s,1,h-c));t=c;e=e+1;l=a[e];e=e+l[3];else if(o[l[2]]<=n[l[5]])then e=e+1;else e=e+l[3];end;end;elseif c<=3 then o[l[2]]=i[n[l[3]]];elseif c==4 then o[l[2]]=o[l[3]][n[l[5]]];else 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;t=n;end;elseif c<=8 then if c<=6 then do return end;elseif c==7 then o[l[2]]=i[n[l[3]]];else o[l[2]]=n[l[3]];end;elseif c<=9 then e=e+l[3];elseif c>10 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](d(c,1,l-e));t=e;else o[l[2]]=o[l[3]][n[l[5]]];end;elseif c<=17 then if c<=14 then if c<=12 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](d(c,1,l-e));t=e;elseif c>13 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](d(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;t=l;else local s;local f;local r;local h;local c;o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];c=l[2];h=o[l[3]];o[c+1]=h;o[c]=h[n[l[5]]];e=e+1;l=a[e];o[l[2]]=n[l[3]];e=e+1;l=a[e];o[l[2]]=i[n[l[3]]];e=e+1;l=a[e];o[l[2]]=o[l[3]][n[l[5]]];e=e+1;l=a[e];c=l[2];r={};f=0;s=c+l[3]-1;for l=c+1,s do f=f+1;r[f]=o[l];end;o[c](d(r,1,s-c));t=c;end;elseif c<=15 then o[l[2]]=n[l[3]];elseif c==16 then if(o[l[2]]<=n[l[5]])then e=e+1;else e=e+l[3];end;else do return end;end;elseif c<=20 then if c<=18 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;t=n;elseif c>19 then if o[l[2]]then e=e+1;else e=e+l[3];end;else local n=l[2];local c={};local e=0;local a=n+l[3]-1;for l=n+1,a do e=e+1;c[e]=o[l];end;local c={o[n](d(c,1,a-n))};local l=n+l[5]-2;e=0;for l=n,l do e=e+1;o[l]=c[e];end;t=l;end;elseif c<=21 then if o[l[2]]then e=e+1;else e=e+l[3];end;elseif c==22 then e=e+l[3];else local c=l[2];local e=o[l[3]];o[c+1]=e;o[c]=e[n[l[5]]];end;e=e+1;end;end;end;return A(u(),{},E())();