Overheat | God Mode

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

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