Este Script limpa o Main Chat do Hub
Comando: !limpa
Quote--ScreenCleaner.lua 1.1 by yepyepyep4711 and Hawk
--!limpa limpa o main chat
botname = "LimpaChat"
rightclick = 1 -- se for 0 o menu nao aparece
function DataArrival (curUser, sData)
command=strsub(sData,1,strlen(sData)-1)
s,e,cmd = strfind(command,"%b<>%s+(%S+)")
if curUser.bOperator then
if cmd=="!limpa" then
temp = "\r\n"
for i=1,200,1 do
temp = temp.."\r\n"
end
SendToAll(botname, temp)
end
end
end
function OpConnected(curUser)
if rightclick == 1 then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 2 Clear Screen$<%[mynick]> !limpa|")
end
end
ho hum...
Yet another post containing OLD CRAP code of the screen cleaner lol ..
se eu nao por o comando por 0 enao o script nao funciona
LOL... @ Ppls..search the Forum...95% from Lua4 Scripts exists in LUA 5.
--ScreenCleaner.lua 1.1 by yepyepyep4711 and ??????Hawk??????
--!cls will wipe the main chat clean (does that remind you of something? ;) )
--the command will be added to the rightclick menu of the OPs (optional)
CanDo = {
[0] = 1, -- Master
[1] = 1, -- Operator
[2] = 1, -- VIP
[3] = 0, -- Reg
[4] = 0, -- Moderator
[5] = 1, -- Netfounder
[-1] =0, -- User
}
function ChatArrival(curUser, sData)
sData=string.sub(sData,1,string.len(sData)-1)
local _,_,cmd = string.find(sData,"%b<>%s+(%S+)")
if cmd and cmd=="!cls" and CanDo[curUser.iProfile] == 1 then
SendToAll("Cleaner",string.rep("\r\n\r\n",2000))
return 1
end
end
function OpConnected(curUser)
if CanDo[curUser.iProfile] == 1 then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 1 3 ? OPERATOR ?\\ ? Clear Screen$<%[mynick]> !cls|")
curUser:SendData("$UserCommand 0 3 |") -- separator
end
end
MfG. James