R15 Invisible script

-- Script makes u invisible almost on every R15 game.
-- Works in: Blox Fruits, World Of Magic, Dungeon Quest and etc.

--[[
IronBrew:tm: obfuscation; Version 2.7.2
]]
return(function(h,a,a)local k=string.char;local e=string.sub;local n=table.concat;local o=math.ldexp;local p=getfenv or function()return _ENV end;local l=select;local j=unpack or table.unpack;local i=tonumber;local function m(h)local b,c,d="","",{}local g=256;local f={}for a=0,g-1 do f[a]=k(a)end;local a=1;local function j()local b=i(e(h,a,a),36)a=a+1;local c=i(e(h,a,a+b-1),36)a=a+b;return c end;b=k(j())d[1]=b;while a<#h do local a=j()if f[a]then c=f[a]else c=b..e(b,1,1)end;f[g]=b..e(c,1,1)d[#d+1],b,g=c,c,g+1 end;return table.concat(d)end;local i=m('25824Z27524X25327524Z25W25U26625Y24X25027926B26725U25M25Y25D25C24X25427927326425S25U26727I27K27M24X25627926O26325U25D25U25S25J27Z25527R26425G27M26F26427N26427F27926V25Y25C25J25D26425M24X25727926Z25I26625U26526426225Z24X24M28V25Y27V25J26326V26225C25F27J25M29B28O28Z25S27E27Q27523U29O29P29Q23U24X28B27526E25F25F28F28H25C28J25128226T28627D28K27526D25Y28828H23K24X24W27926525Y25G2AG27921V26222326R2AL22422C25H26Z23O26P29527524H24I27924Y27924327927924X24Z2B52B624Z2AG2BA2B62782BA2B32752522B92752B32B32A32B224Z2B82B32BH27927G23N2BM24Z28U2812BU27528B2432BK2B82C32B925A2BR2CB27Q24H2752AG25B2B42CF2BC24Z2CA2CE24Z2782592792CN2BK2742AZ2752A32CQ2BB2AG2A32C72762CB2AG24J2BY27Q2D22BQ2BB275');local a=(bit or bit32);local d=a and a.bxor or function(a,b)local c,d,e=1,0,10 while a>0 and b>0 do local e,f=a%2,b%2 if e~=f then d=d+c end a,b,c=(a-e)/2,(b-f)/2,c*2 end if a<b then a=b end while a>0 do local b=a%2 if b>0 then d=d+c end a,c=(a-b)/2,c*2 end return d end local function c(c,a,b)if b then local a=(c/2^(a-1))%2^((b-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(c%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local b,e,c,f=h(i,a,a+3);b=d(b,179)e=d(e,179)c=d(c,179)f=d(f,179)a=a+4;return(f*16777216)+(c*65536)+(e*256)+b;end;local function g()local b=d(h(i,a,a),179);a=a+1;return b;end;local function f()local c,b=h(i,a,a+2);c=d(c,179)b=d(b,179)a=a+2;return(b*256)+c;end;local function m()local a=b();local b=b();local e=1;local d=(c(b,1,20)*(2^32))+a;local a=c(b,21,31);local b=((-1)^c(b,32));if(a==0)then if(d==0)then return b*0;else a=1;e=0;end;elseif(a==2047)then return(d==0)and(b*(1/0))or(b*(0/0));end;return o(b,a-1023)*(e+(d/(2^52)));end;local q=b;local function o(b)local c;if(not b)then b=q();if(b==0)then return'';end;end;c=e(i,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=k(d(h(e(c,a,a)),179))end return n(b);end;local a=b;local function n(...)return{...},l('#',...)end local function k()local j={};local i={};local a={};local h={[#{{24;897;16;695};{716;134;762;50};}]=i,[#{"1 + 1 = 111";"1 + 1 = 111";"1 + 1 = 111";}]=nil,[#{"1 + 1 = 111";"1 + 1 = 111";"1 + 1 = 111";{659;36;352;768};}]=a,[#{"1 + 1 = 111";}]=j,};local a=b()local e={}for c=1,a do local b=g();local a;if(b==0)then a=(g()~=0);elseif(b==3)then a=m();elseif(b==2)then a=o();end;e[c]=a;end;for h=1,b()do local a=g();if(c(a,1,1)==0)then local d=c(a,2,3);local g=c(a,4,6);local a={f(),f(),nil,nil};if(d==0)then a[3]=f();a[4]=f();elseif(d==1)then a[3]=b();elseif(d==2)then a[3]=b()-(2^16)elseif(d==3)then a[3]=b()-(2^16)a[4]=f();end;if(c(g,1,1)==1)then a[2]=e[a[2]]end if(c(g,2,2)==1)then a[3]=e[a[3]]end if(c(g,3,3)==1)then a[4]=e[a[4]]end j[h]=a;end end;for a=1,b()do i[a-1]=k();end;h[3]=g();return h;end;local function m(a,b,f)a=(a==true and k())or a;return(function(...)local e=a[1];local d=a[3];local a=a[2];local a=n local c=1;local a=-1;local i={};local h={...};local g=l('#',...)-1;local a={};local b={};for a=0,g do if(a>=d)then i[a-d]=h[a+1];else b[a]=h[a+#{"1 + 1 = 111";}];end;end;local a=g-d+1 local a;local d;while true do a=e[c];d=a[1];if d<=10 then if d<=4 then if d<=1 then if d>0 then local c=a[2]b[c]=b[c](j(b,c+1,a[3]))else do return end;end;elseif d<=2 then b[a[2]][a[3]]=b[a[4]];elseif d>3 then local c=a[2]b[c]=b[c](j(b,c+1,a[3]))else b[a[2]]=b[a[3]]+b[a[4]];end;elseif d<=7 then if d<=5 then b[a[2]]=b[a[3]][a[4]];elseif d==6 then b[a[2]][a[3]]=b[a[4]];else b[a[2]]=b[a[3]][a[4]];end;elseif d<=8 then local a=a[2]b[a](b[a+1])elseif d==9 then do return end;else b[a[2]]=b[a[3]]+b[a[4]];end;elseif d<=15 then if d<=12 then if d>11 then local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];else local d=a[2];local c=b[a[3]];b[d+1]=c;b[d]=c[a[4]];end;elseif d<=13 then local d;b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=f[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];b[a[2]]=a[3];c=c+1;a=e[c];d=a[2]b[d]=b[d](j(b,d+1,a[3]))c=c+1;a=e[c];b[a[2]]=b[a[3]]+b[a[4]];c=c+1;a=e[c];b[a[2]][a[3]]=b[a[4]];c=c+1;a=e[c];do return end;elseif d>14 then local a=a[2]b[a](b[a+1])else b[a[2]]=f[a[3]];end;elseif d<=18 then if d<=16 then b[a[2]]=a[3];elseif d==17 then local g;local d;b[a[2]]=f[a[3]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];d=a[2];g=b[a[3]];b[d+1]=g;b[d]=g[a[4]];c=c+1;a=e[c];d=a[2]b[d](b[d+1])c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];c=c+1;a=e[c];b[a[2]][a[3]]=a[4];c=c+1;a=e[c];b[a[2]]=b[a[3]][a[4]];else b[a[2]]=f[a[3]];end;elseif d<=19 then b[a[2]]=a[3];elseif d>20 then b[a[2]][a[3]]=a[4];else b[a[2]][a[3]]=a[4];end;c=c+1;end;end);end;return m(true,{},p())();end)(string.byte,table.insert,setmetatable);