Restaurant Tycoon 2 | Candy TP

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

local t=string.byte;local f=string.char;local c=string.sub;local s=table.concat;local W=math.ldexp;local u=getfenv or function()return _ENV end;local l=setmetatable;local h=select;local i=unpack;local r=tonumber;local function G(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=r(c(t,l,l),36)l=l+1;local o=r(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 a=G('23N23W27523W23T27627026L26D27227323W23P27626Z26B27226F27327A26N26H23W23Q27625L26Y26H26A26W25K27226B27027E23R27625N26H26W25R26C26D26826G27227V23W23M27625M26D26A26G28I27D28728928B23W23S27626426L27226W23W23L27626026B26X26N26C25H27W26H28D27328X23U27625R25M27226L26927P28S27526J29H27P23V28T26826L26T29828227625C26B26N26L26826429R29T27227F29D26C28V26L26N26W29823W24C27625G26X26926L26A26B26D26G26626B26B26W28U28W27Q2A728A26G25P26G26G26H26G23W29P27525R26B26A26A26H2AB23X27628G27629K23W26Z27B28X2BH25E29N27729D2AK26G26T28F28H28J28L27C29A2882AX28R28T28V28X28Z27529129329529729929B29D29F2BO2BH29M29I2B429Q29S29U23W28327529X29Z2A12A32AD27G2B62A829G2AB2AD2AF2752AH2AJ2AL2AN2AP2AR2AT26W23Y23W29C2752AT27V28X27623X24G27622I23O23G23722223O27522J23O2AF2DN2DT23W24S23W21S27622G25825923W22525823X1C22L24K23H23722824K2EA2DN2DP2DR2DT2DV23W2242DS23W22J23W25O23W22K27622A24K2DP22K24K2DT2442E022K24427522G21W27422K21W23726R22L2242372EF2FH26R2ES2642E12762DU2EU2272EQ22A2582DP2212582F32E02232F723W22G1K27422J1K2FE22L1S2FI2282GB2FL2ET23W2272EX2EZ2372212F22ER2F423W2G12F82EU2ER2EU2EB2502DP22825023W1C2FM2FO27522E25O2DP23H2GT22F24C1S2EV2D22HB2182HE2752HB21O2HI23W2HB2242HM2HB2702HM22J2502F52H023W2EJ2DQ2EQ2DU2DW2EQ22K25O2EW22G2GV22L2GX2EF2H02H223W2302H42G324K2I72F22EB24S2GY2E02IE2FR2GJ2FW2GN22J2GP2GR2G325024323W22N2502G92582GC2J526R22N2EQ22E2EQ23W24V27622M2DO23722A2EQ22I24C2F02D22DU2FY22K2I123O2EU2JR2DT2D222K2D222N2GG2EW2752GA2F02HD1C22324S2FN2272E023W21U2FV2GL2FY2GQ2IW2G22202HS2ER2HS2EB26C2GY26C2H12K826K2E12KC22324K2KA2GN21U2IB2212HX2G12G02KK2GT22J2I92IB2GZ2KT24S2KV21S2KC21Y25G2H825G27521Z2582HH22K2KH2LO2HL2LR2LN2582HP2LV23W2LO2EW2LZ2LO1C2EV2KH22325O2KV2I52752K02E021Z27622L2642GC2MI26R22M2JM2DQ2JZ23W2FY2E22MC2IF2IH2K023G2GH27622E23W2DP23C27622N2442AF23I2G22J92H52EQ');local n=bit and bit.bxor or function(l,o)local e,n=1,0 while l>0 and o>0 do local c,a=l%2,o%2 if c~=a then n=n+e end l,o,e=(l-c)/2,(o-a)/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(o,l,e)if e then local l=(o/2^(l-1))%2^((e-1)-(l-1)+1);return l-l%1;else local l=2^(l-1);return(o%(l+l)>=l)and 1 or 0;end;end;local e=1;local function o()local c,o,l,a=t(a,e,e+3);c=n(c,140)o=n(o,140)l=n(l,140)a=n(a,140)e=e+4;return(a*16777216)+(l*65536)+(o*256)+c;end;local function d()local l=n(t(a,e,e),140);e=e+1;return l;end;local function E()local e=o();local o=o();local c=1;local n=(l(o,1,20)*(2^32))+e;local e=l(o,21,31);local l=((-1)^l(o,32));if(e==0)then if(n==0)then return l*0;else e=1;c=0;end;elseif(e==2047)then return(n==0)and(l*(1/0))or(l*(0/0));end;return W(l,e-1023)*(c+(n/(2^52)));end;local G=o;local function r(l)local o;if(not l)then l=G();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(t(c(o,l,l)),140))end return s(e);end;local e=o;local function s(...)return{...},h('#',...)end local function D()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,0,0,0};local c={0};local e={};local a={t,nil,c,nil,e};local e=o()local f={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};for o=1,e do local e=d();local l;if(e==3)then l=(d()~=0);elseif(e==1)then l=E();elseif(e==0)then l=r();end;f[o]=l;end;a[2]=f for l=1,o()do c[l-1]=D();end;a[4]=d();for a=1,o()do local c=n(o(),211);local o=n(o(),208);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;t[a]=e;end;return a;end;local function E(l,e,r)local o=l[1];local n=l[2];local e=l[3];local l=l[4];return function(...)local a=o;local c=n;local H=e;local n=l;local W=s local o=1;local d=-1;local s={};local t={...};local f=h('#',...)-1;local l={};local e={};for l=0,f do if(l>=n)then s[l-n]=t[l+1];else e[l]=t[l+1];end;end;local l=f-n+1 local l;local n;while true do l=a[o];n=l[1];if n<=18 then if n<=8 then if n<=3 then if n<=1 then if n>0 then if not e[l[2]]then o=o+1;else o=o+l[3];end;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=W(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;d=l;end;elseif n==2 then e[l[2]][c[l[3]]]=e[l[5]];else if not e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=5 then if n>4 then local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));d=o;else if(e[l[2]]~=c[l[5]])then o=o+1;else o=o+l[3];end;end;elseif n<=6 then e[l[2]]();d=A;elseif n>7 then o=o+l[3];else if e[l[2]]then o=o+1;else o=o+l[3];end;end;elseif n<=13 then if n<=10 then if n>9 then do return end;else e[l[2]]();d=A;end;elseif n<=11 then local n=l[2];local c={};local o=0;local a=d;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;d=l;elseif n==12 then o=o+l[3];else e[l[2]]=c[l[3]];end;elseif n<=15 then if n==14 then local n;local s,n;local f;local t;local h;local G;local n;e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];n=l[2];G=e[l[3]];e[n+1]=G;e[n]=G[c[l[5]]];o=o+1;l=a[o];n=l[2];h={};t=0;f=n+l[3]-1;for l=n+1,f do t=t+1;h[t]=e[l];end;s,f=W(e[n](i(h,1,f-n)));f=f+n-1;t=0;for l=n,f do t=t+1;e[l]=s[t];end;d=f;o=o+1;l=a[o];n=l[2];h={};t=0;f=d;for l=n+1,f do t=t+1;h[t]=e[l];end;s={e[n](i(h,1,f-n))};f=n+l[5]-2;t=0;for l=n,f do t=t+1;e[l]=s[t];end;d=f;o=o+1;l=a[o];o=o+l[3];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=W(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;d=l;end;elseif n<=16 then local s;local f;local t;local r;local h;local n;e[l[2]]();d=n;o=o+1;l=a[o];n=l[2];h=e[l[3]];e[n+1]=h;e[n]=h[c[l[5]]];o=o+1;l=a[o];e[l[2]]=c[l[3]];o=o+1;l=a[o];n=l[2];r={};t=0;f=n+l[3]-1;for l=n+1,f do t=t+1;r[t]=e[l];end;s={e[n](i(r,1,f-n))};f=n+l[5]-2;t=0;for l=n,f do t=t+1;e[l]=s[t];end;d=f;o=o+1;l=a[o];if e[l[2]]then o=o+1;else o=o+l[3];end;elseif n==17 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;else e[l[2]][c[l[3]]]=e[l[5]];end;elseif n<=28 then if n<=23 then if n<=20 then if n==19 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];else e[l[2]]=E(H[l[3]],nil,r);end;elseif n<=21 then e[l[2]]=c[l[3]];elseif n>22 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;d=l;else e[l[2]]=r[c[l[3]]];end;elseif n<=25 then if n>24 then e[l[2]]=e[l[3]][c[l[5]]];else do return end;end;elseif n<=26 then local n=l[2];local o=e[l[3]];e[n+1]=o;e[n]=o[c[l[5]]];elseif n==27 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]]=e[l[3]][c[l[5]]];end;elseif n<=33 then if n<=30 then if n==29 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;d=l;else 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;end;elseif n<=31 then if(e[l[2]]==c[l[5]])then o=o+1;else o=o+l[3];end;elseif n>32 then e[l[2]]=r[c[l[3]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]]=e[l[3]][c[l[5]]];o=o+1;l=a[o];e[l[2]][c[l[3]]]=e[l[5]];else local n=l[2];local a={};local o=0;local c=d;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;d=l;end;elseif n<=35 then if n>34 then e[l[2]]=r[c[l[3]]];else local o=l[2];local c={};local n=0;local l=o+l[3]-1;for l=o+1,l do n=n+1;c[n]=e[l];end;e[o](i(c,1,l-o));d=o;end;elseif n<=36 then e[l[2]]=E(H[l[3]],nil,r);elseif n>37 then if(e[l[2]]~=c[l[5]])then o=o+1;else o=o+l[3];end;else if e[l[2]]then o=o+1;else o=o+l[3];end;end;o=o+1;end;end;end;return E(D(),{},u())();