--Unregister bot by Phatty
--v1.51

Bot = "TheBotName"
Command = "!rembot" -- + <botname>
Success = "Unregistered bot succesful"
Unsuccess = "Unregister bot unsuccesful"


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 == Command then
			s,e,cmd,botsname = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
			if GetItemByName(botsname) then
				user:SendData(Bot,Unsuccess)
				return 1
			else
				frmHub:UnregBot(botsname)
				user:SendData(Bot,Success)
			end
		return 1
		end
	end
end