ScreenCleaner PT

[SilvaO]

Este Script limpa o Main Chat do Hub

Comando: !limpa

--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

[??????Hawk??????]

ho hum...


Yet another post containing  OLD CRAP code of the screen cleaner lol ..

[?Tr??T_????]

se eu nao por o comando por 0 enao o script nao funciona

[James]

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