Oasis Sample

--[[
Uh CHL, Owner of Oasis here, this is here for an example, it doesn't do anything special.

also obfuscator is whitelisted only, so the odds of using it freely or buying a token are pretty nil.
--]]

return(function(_I,_111)local _11='Oasis OBFv1 by CHL'local _lII1=unpack or table.unpack local _ll=string local _1Il=tostring local _lll=tonumber local _ll1=error local _lIII=next local _1l=getfenv or function()return _ENV end local _l1=table local _I=math local _1I=select local _1ll=type local _l1l=assert local _l1I=_I.abs local _lI1=_ll.char local _1I1=_ll.split local _I=_ll.gmatch local _11I=_ll.sub local _1II=_ll.gsub local _lI=_ll.upper local _l=_ll.byte local _I=_l1.remove local _lIIl=_l1.insert local _1=_ll.match local _ll=_ll.find local _I=_l1.concat local _11l='abcdefghijklmnopqrstuvwxyz'local _I=_11l.._lI(_11l)..'&#@!|<,/:;'local _lIl={}local _l1=50 local _l11 local _lI=_11I(_11,1,11)local _11=_1l()local _1lI={}local _1l1={}local _I={}local function _I(_I)local _1=function(_I)_I='%'.._I end local _l=_1II('$%^*().[]+-?','.',_1)return _1II(_I,_l,_1)end local function _lII(_l1,_l)local _lI={}if#_l==0 then for _I=1,#_l1 do _lIIl(_lI,_11I(_l1,_I,_I))end return _lI end local _1=1 _l=_I(_l)repeat local _ll,_l=_ll(_l1,_l,_1)local _I=#_l1 if _ll and _l then _I=_ll-1 end local _I=_11I(_l1,_1,_I)if _ll and _l then _1=_l+1 end _lIIl(_lI,_I)until not _ll return _lI end local function _I(...)local _1=''for _I,_l in _lIII,{...}do _1=_1..(_lIl[_1Il(_l)]or(function()local _I=_lI1(_l)_lIl[_1Il(_l)]=_I return _I end)())end return _1 end local function _llI(_l,...)for _I,_I in _lIII,{...}do _l=_l[_I]end return _l end local function _ll(_l)local _I=#_l local _1={}for _I,_l in _lIII,_l do _1[_1Il(_l)]=_I end return function(_l1)local _ll=0 for _lI=1,#_l1 do local _l=_11I(_l1,_lI,_lI)local _I=(_1[_l]-1)*_I^(#_l1-_lI)_ll=_ll+_I end return _ll end end local function _1l(_I)if _1ll(_I)~='string'then return _I end local _l={}_1II(_I,'..',function(_I)_lIIl(_l,_ll(_1I1('7WZ;_HE{<%V5~$!v',''))(_I))end)return _lI1(_lII1(_l))end local function _lI1(_lI,_I,_1)_1=_1 or{}local _l=_1ll(_lI)~='number'_lI=not _l and _1l1[_lI]or _llI(_111,_lII1(_lI))if _l then _lIIl(_1l1,_lI)end if _I then _lI[_I]=_1 else _lIIl(_lI,_1)end end local function _lIl(_l,_I,_ll,...)local _1=_1ll(_l)~='number'local _lI=not _1 and _1l1[_l]or _llI(_111,_lII1(_l))local _l=_lI[_I]if _1 then _lIIl(_1l1,_lI)end _ll=_ll or 1 for _I,_I in _lIII,{...}do for _I=1,_I do _lIIl(_l,_ll)end _ll=_ll+1 end _lI[_I]=_l return _lI end local function _llI(_1,_lI)local _ll={}for _l,_I in _lIII,{'initial','limit','step'}do local _I=_l1l(_lll(_1[_lI+_l-1]),'`for` '.._I..' value must be a number')if not _I then return end _lIIl(_ll,_I)end return _lII1(_ll)end local function _1II(_1,_I)for _l,_lI in _lIII,_1 do if _lI.o>=_I then _lI.n=_lI.p[_lI.o]_lI.p=_lI _lI.o='q'_1[_l]=nil end end end local function _ll(_l,_1,_I)local _lI=_l[_1]if not _lI then _lI={o=_1,p=_I}_l[_1]=_lI end return _lI end local function _1Il(...)return _1I('#',...),{...}end local function _1I(_I,_ll)local _l=_I.e[_I.r-1]local _1,_l1,_1I=_1(_ll,'^(.-):(%d+):%s+(.+)')local _I='%s:%i: [%s:%i] %s'_1=_1 or'?'_l1=_l1 or'0'_1I=_1I or _ll _ll1(_lI..' [Internal]: '.._l..': '.._1I,0)end local function _1(_ll,_lII)return function(_1l,_11,_1I,_l,_l1,_I,_lI)return function(_1)return function()local _lII=_lII()local _l,_I=_1l and _11 or _lII[_1I],_l and _l1 or _lII[_I]_ll(_lI,_1(_l,_I))end end end end local function _lI(_l,_I)return function(_1,_lII,_lI,_ll,_11,_1I,_1l)return function(_l1)return function()local _I=_I()local _I,_1=_1 and _lII or _I[_lI],_ll and _11 or _I[_1I]if _l1(_I,_1)~=(_1l~=0)then _l()end end end end end local function _lll(_11l)local _1I=_11l.b local _I=_11l.j local _ll1=_11l.s local _lll=_11l.t local _11=_11l.u local _1l1=-1 local _1I1={}local _lIl1=_11l.v local _lIlI=_11l.r local _l=_1(function(_l,_I)_lIl1[_l]=_I end,function()return _lIl1 end)local _1=_lI(function()_lIlI=_lIlI+1 end,function()return _lIl1 end)repeat local _111=_1I[_lIlI]local _lI=_111.d local _lIll=_111.l local _lIIl=_111.f local _lIII=_111.c local _1l=_1l(_111.i)local _lIl=_111.w local _1lI=_111.x local _lII=_111.m==1 local _1ll=_111.g==1 local _lI1=_111.y local _11I=_l(_lII,_lIl,_lIIl,_1ll,_1lI,_lIII,_lIll)local _l=_1(_lII,_lIl,_lIIl,_1ll,_1lI,_lIII,_lIll)_lIlI=_lIlI+1 local _I=({function()_lIl1[_lIll]=_lIl1[_lIIl]end,function()_lIl1[_lIll]=_1l end,function()_lIl1[_lIll]=_lIIl~=0 if _lIII==0 then return end _lIlI=_lIlI+1 end,function()for _I=_lIll,_lIIl do _lIl1[_I]=nil end end;function()local _I=_lll[_lIIl]_lIl1[_lIll]=_I.p[_I.o]end;function()_lIl1[_lIll]=_ll1[_1l]end;function()local _I=_1ll and _1lI or _lIl1[_lIII]_lIl1[_lIll]=_lIl1[_lIIl][_I]end;function()_ll1[_1l]=_lIl1[_lIll]end,function()local _I=_lll[_lIIl]_I.p[_I.o]=_lIl1[_lIll]end,function()local _l,_I=_lII and _lIl or _lIl1[_lIIl],_1ll and _1lI or _lIl1[_lIII]_lIl1[_lIll][_l]=_I end,function()_lIl1[_lIll]={}end,function()local _1=_lIll local _l=_lIIl local _I=_1ll and _1lI or _lIl1[_lIII]_lIl1[_1+1]=_lIl1[_l]_lIl1[_1]=_lIl1[_l][_I]end,_11I(function(_I,_l)return _I+_l end);_11I(function(_l,_I)return _l-_I end);_11I(function(_l,_I)return _l*_I end);_11I(function(_l,_I)return _l/_I end);_11I(function(_I,_l)return _I%_l end);_11I(function(_I,_l)return _I^_l end);function()_lIl1[_lIll]=-_lIl1[_lIIl]end,function()_lIl1[_lIll]=not _lIl1[_lIIl]end,function()_lIl1[_lIll]=#_lIl1[_lIIl]end,function()local _l=_lIl1[_lIIl]for _I=_lIIl+1,_lIII do _l=_l.._lIl1[_I]end _lIl1[_lIll]=_l end,function()_lIlI=_lIlI+_lI1 end,_l(function(_l,_I)return _l==_I end);_l(function(_I,_l)return _I<_l end);_l(function(_l,_I)return _l<=_I end);function()if not(not _lIl1[_lIll])==(_lIII~=0)then return end _lIlI=_lIlI+1 end,function()local _I=_lIIl if(not _lIl1[_I])==(_lIII~=0)then _lIlI=_lIlI+1 else _lIl1[_lIll]=_lIl1[_I]end end,function()local _lI,_I,_l=_lIll,_lIIl,_lIII local _I=(_I==0)and(_1l1-_lI)or(_I-1)local _1,_I=_1Il(_lIl1[_lI](_lII1(_lIl1,_lI+1,_lI+_I)))if _l==0 then _1l1=_lI+_1-1 else _1=_l-1 end for _l=1,_1 do _lIl1[_lI+_l-1]=_I[_l]end end,function()local _l,_I=_lIll,_lIIl local _I=_I==0 and _1l1-_l or _I-1 _1II(_1I1,0)return _1Il(_lIl1[_l](_lII1(_lIl1,_l+1,_l+_I)))end,function()local _1,_l,_I=_lIll,_lIIl,{}local _l=(_l==0)and(_1l1-_1+1)or(_l-1)for _l=1,_l do _I[_l]=_lIl1[_1+_l-1]end _1II(_1I1,0)return _l,_I end,function()local _I=_lIll local _1=_lIl1[_I+2]local _l=_lIl1[_I]+_1 local _I=_lIl1[_I+1]local _I=_1==_l1I(_1)and _l<=_I or _1~=_l1I(_1)and _l>=_I if not _I then return end _lIl1[_lIll]=_l _lIl1[_lIll+3]=_l _lIlI=_lIlI+_lI1 end,function()local _lI=_lIll local _I,_l,_1=_llI(_lIl1,_lI)_l1l(_I and _l and _1,'For loop failed, check output')_lIl1[_lI]=_I-_1 _lIl1[_lI+1]=_l _lIl1[_lI+2]=_1 _lIlI=_lIlI+_lI1 end,function()local _ll=_lIll local _I=_lIl1[_ll]local _1=_lIl1[_ll+1]local _lI=_lIl1[_ll+2]local _l1=_ll+3 local _l _lIl1[_l1+2]=_lI _lIl1[_l1+1]=_1 _lIl1[_l1]=_I _l={_I(_1,_lI)}for _I=1,_lIII do _lIl1[_l1+_I-1]=_l[_I]end if _lIl1[_l1]~=nil then _lIl1[_ll+2]=_lIl1[_l1]else _lIlI=_lIlI+1 end end,function()local _lI,_1,_ll=_lIll,_lIII,_lIIl local _I=_lIl1[_lI]local _l if _ll==0 then _ll=_1l1-_lI end if _1==0 then _1=_111[_lIlI].n _lIlI=_lIlI+1 end _l=(_1-1)*_l1 for _1=1,_ll do _I[_1+_l]=_lIl1[_lI+_1]end end,function()_1II(_1I1,_lIll)end,function()local _I=_I[_111.a+1]local _l=_I.h local _lI if _l~=0 then _lI={}for _1=1,_l do local _l=_1I[_lIlI+_1-1]local _I=_l.f local _l=_l.d if _l==0 then _lI[_1-1]=_ll(_1I1,_I,_lIl1)elseif _l==4 then _lI[_1-1]=_lll[_I]end end _lIlI=_lIlI+_l end _lIl1[_lIll]=_l11(_I,_ll1,_lI)end,function()local _l,_I=_lIll,_lIIl if _I==0 then _I=_11.z _1l1=_l+_I-1 end for _I=1,_I do _lIl1[_l+_I-1]=_11.A[_I]end end,})[_lI+1]if _I then local _I={_I()}if#_I>0 then return _lII1(_I)end end _11l.r=_lIlI until false end _1I1=_1I1 or _lII _111=_111 or{}_1lI[1]=_lI1 _1lI[2]=_lIl _l11=function(_I,_l1,_lI)local _l=_I local _ll=_l.b local _1=_l.j local _I=_l.e local _l1l=_l.k local function _l(...)local _l={}local _1l={}local _l1I=0 local _lII,_11=_1Il(...)local _ll1 local _lIl,_llI,_lI1 for _I=1,_l1l do _l[_I-1]=_11[_I]end if _l1l<_lII then _l1I=_lII-_l1l for _I=1,_l1I do _1l[_I]=_11[_l1l+_I]end end _ll1={u={A=_1l,z=_l1I},b=_ll,j=_1,e=_I,s=_l1,t=_lI,v=_l,r=1,}_lIl,_llI,_lI1=pcall(_lll,_ll1,...)if _lIl then return _lII1(_lI1,1,_llI)else _1I(_ll1,_llI)end return end return _l end for _1=1,#_11l do _I(_l(_11l:sub(_1,_1)))end for _I,_I in _lIII,{{1,{},'e'},{2,1,'e',1,4},{1,1,'h',0},{1,1,'k',0},{1,1,'b'},{1,{'b'},1},{1,{'b',1},'a',0},{1,3,'i','{7{ZE%E!{_'},{1,3,'d',5},{1,3,'l',0},{1,3,'n',1},{1,2,2},{1,{'b',2},'a',1},{1,4,'i','_<EHE~E~EvZ7{{Ev{ZE~E_'},{1,4,'d',1},{1,4,'l',1},{1,4,'n',2},{1,2,3},{1,{'b',3},'l',0},{1,5,'f',2},{1,5,'c',1},{1,5,'n',3},{1,5,'m',0},{1,5,'d',28},{1,5,'g',0},{1,2,4},{1,{'b',4},'l',0},{1,6,'f',1},{1,6,'c',0},{1,6,'n',4},{1,6,'m',0},{1,6,'d',30},{1,6,'g',0}}do _1lI[_I[1]](_lII1(_I,2))end return _l11(_111,_11)()end)(nil,{j={}})