--Lance Evol v1.00
--Just a little mini package script
--Written by Phatty 8th December 2k3

Bot = "ΝεΡΗλR" 
Hidden = {}

function NewUserConnected(user)
	if Hidden == nil then
		return 1
	else
		for i,v in Hidden do
			user:SendData( "$Quit "..i ) 
		end
	end
end

function DataArrival(user, data) 
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		
		if cmd == "hide" then
			SendToAll( "$Quit "..user.sName )
			Hidden[user.sName] = 1
		elseif cmd == "unhide" then
			SendToAll( "$LoggedIn "..user.sName )
			Hidden[user.sName] = nil
		end
	end
end