Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --[[ Require By: Nettoork#0000 ]]--
- do local a={}local b={}local c={}local d={['perfomance']={AUTHOR='Nettoork#0000',_VERSION='1.0',['create']=function(e,f,g)local h=0;for v=1,e do local i=os.time()for j=1,f do g(f)end;h=h+os.time()-i end;return'Estimated Time: '..h/e..' ms.'end},['button']={AUTHOR='Nettoork#0000',_VERSION='1.0',['create']=function(...)local k={...}local l=-543212345+k[1]*3;local m=k[9]and'0x2A424B'or'0x314e57'ui.addTextArea(l,'',k[4],k[5]-1,k[6]-1,k[7],k[8],0x7a8d93,0x7a8d93,1,true)ui.addTextArea(l-1,'',k[4],k[5]+1,k[6]+1,k[7],k[8],0x0e1619,0x0e1619,1,true)ui.addTextArea(l-2,'<p align="center"><a href="event:'..k[3]..'">'..k[2]..'</a></p>',k[4],k[5],k[6],k[7],k[8],m,m,1,true)end,['remove']=function(l,n)for j=0,2 do ui.removeTextArea(-543212345+l*3-j,n)end end},['ui-design']={AUTHOR='Nettoork#0000',_VERSION='1.0',['create']=function(...)local k={...}if k[6]<0 or k[7]and k[7]<0 then return elseif not k[7]then k[7]=k[6]/2 end;local l=543212345+k[1]*8;ui.addTextArea(l,'',k[3],k[4],k[5],k[6]+100,k[7]+70,0x78462b,0x78462b,1,true)ui.addTextArea(l+1,'',k[3],k[4],k[5]+(k[7]+140)/4,k[6]+100,k[7]/2,0x9d7043,0x9d7043,1,true)ui.addTextArea(l+2,'',k[3],k[4]+(k[6]+180)/4,k[5],(k[6]+10)/2,k[7]+70,0x9d7043,0x9d7043,1,true)ui.addTextArea(l+3,'',k[3],k[4],k[5],20,20,0xbeb17d,0xbeb17d,1,true)ui.addTextArea(l+4,'',k[3],k[4]+k[6]+80,k[5],20,20,0xbeb17d,0xbeb17d,1,true)ui.addTextArea(l+5,'',k[3],k[4],k[5]+k[7]+50,20,20,0xbeb17d,0xbeb17d,1,true)ui.addTextArea(l+6,'',k[3],k[4]+k[6]+80,k[5]+k[7]+50,20,20,0xbeb17d,0xbeb17d,1,true)ui.addTextArea(l+7,k[2],k[3],k[4]+3,k[5]+3,k[6]+94,k[7]+64,0x1c3a3e,0x232a35,1,true)end,['remove']=function(l,n)for j=0,7 do ui.removeTextArea(543212345+l*8+j,n)end end},['text-area-custom']={AUTHOR='Nettoork#0000',_VERSION='1.0',['add']=function(...)local o={...}if type(o[1])=='table'then for j,v in next,o do if type(v)=='table'then if not v[3]then v[3]='nil'end;addTextArea(table.unpack(v))end end else if not o[3]then vinfo[3]='nil'end;b[o[3]..'_'..o[1]]={...}ui.addTextArea(...)end end,['update']=function(l,p,n)if not n then n='nil'end;if not b[n..'_'..l]then return elseif type(p)=='string'then ui.updateTextArea(l,p,n)b[n..'_'..l][2]=p;return end;local q={id=1,text=2,x=4,y=5,w=6,h=7,background=8,border=9,alpha=10,fixed=11}for j,v in next,p do if q[j]then b[n..'_'..l][q[j]]=v;local r=b[n..'_'..l]ui.addTextArea(r[1],r[2],r[3],r[4],r[5],r[6],r[7],r[8],r[9],r[10],r[11])end end end,['remove']=function(l,n)if not n then n='nil'end;if b[n..'_'..l]then b[n..'_'..l]=nil end;ui.removeTextArea(l,n)end},['string-to-boolean']={AUTHOR='Nettoork#0000',_VERSION='1.0',['parse']=function(s)local t={}for j,v in next,s do t[v]=true end;return t end},['database']={AUTHOR='Nettoork#0000',_VERSION='1.1',['create']=function(u,w)if not c[u]then c[u]=w end end,['delete']=function(u)c[u]=nil end,['get']=function(u,...)local x,y={},{...}if not y[1]then return c[u]else for j,v in next,y do if c[u][v]then x[#x+1]=c[u][v]end end;return table.unpack(x)end end,['set']=function(u,...)local z=v;for j,v in next,{...}do if not z then z=v else c[u][z]=v;z=false end end end},['encryption']={AUTHOR='Nettoork#0000',_VERSION='1.0',['encrypt']=function(s,A,B)if not s or not A or not B or type(s)~='table'or A==''or B==''then return end;local C,D,E,F='','','',''for j in A:gmatch('.')do C=C..j:byte()end;for j in B:gmatch('.')do F=F..j:byte()end;math.randomseed(C)otherSeed=math.random(1000000)local G=pcall(function()for j,v in next,s do if type(v)=='string'or type(v)=='number'then if type(v)=='string'then v="'"..v.."'"end;E=E..' '..v..' '..j:upper()else return end end;E=E..' '..F;for j in E:gmatch('.')do local H=j:byte()+68+math.random(5)otherSeed=otherSeed+j:byte()math.randomseed(otherSeed)if H>=65 and H<=122 and not(H>=91 and H<=96)then H=string.char(H)end;D=D..H end end)math.randomseed(os.time())if not G then return else return D end end,['decrypt']=function(I,A,B)if not I or not A or not B or type(I)~='string'or A==''or B==''then return end;local C,D,J,F='','','',''for j in A:gmatch('.')do C=C..j:byte()end;for j in B:gmatch('.')do F=F..j:byte()end;math.randomseed(C)otherSeed=math.random(1000000)local G=pcall(function()for j in I:gmatch('.')do if j:byte()>=65 and j:byte()<=122 then local H=j:byte()-68-math.random(5)otherSeed=otherSeed+H;math.randomseed(otherSeed)D=D..string.char(H)else J=J..j;if J:len()>=3 then local H=tonumber(J)-68-math.random(5)otherSeed=otherSeed+H;math.randomseed(otherSeed)D=D..string.char(H)J=''end end end end)math.randomseed(os.time())if not G then return else local t,K,L,M,N={},0,0;for j,v in string.gmatch(D,'[^%s]+')do L=L+1 end;for j,v in string.gmatch(D,'[^%s]+')do K=K+1;if K==L and j~=F then return elseif M then if M:sub(-1)=="'"then t[j:lower()]=M:gsub("'",'')M=nil else M=M..' '..j end elseif N then t[j:lower()]=N;N=nil elseif j:sub(1,1)=="'"then M=j else N=j end end;return t end end},['sleep']={AUTHOR='Nettoork#0000',_VERSION='1.1',['loop']=function()local O={}for j,v in next,a do if not v[2]or v[2]<os.time()then if coroutine.status(v[1])=='dead'then O[#O+1]=j else local P,Q=coroutine.resume(v[1])v[2]=Q end end end;if O[1]then for j,v in next,O do a[v]=nil end end end,['run']=function(R,S)if not S then S=500 end;a[#a+1]={coroutine.create(function()local T=function(U)coroutine.yield(os.time()+math.floor(U/S)*S)end;R(T)end),timeValue=nil}end}}local V=1544295233434+2628*10^6;require=function(W)if W=='hide-warning'then V=false else if V and os.time()>V then V=false;print("<R>Atenção, você pode estar utilizando uma versão desatualizada do require, confira em *LINK* se este possui uma versão mais atualizada que a atual, caso contrário, você pode desabilitar esse aviso utilizando require('hide-warning').</R>")end;if d[W]then return d[W]elseif W=='libs'then return d else return'Require Version: 1.0.1 | Author: Nettoork#0000'end end end end
- --[[ Current Version: 1.1 ]]--
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
