--Unregister bot by Phatty
--v1.50

Bot = "TheBotName"

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 == "!rembot" then
			s,e,cmd,botsname = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
			if GetItemByName(botsname) then
				user:SendData(Bot, "Unregister bot unsuccesful")
				return 1
			else
				frmHub:UnregBot(botsname)
				user:SendData(Bot, "Unregistered bot succesful")
			end
		return 1
		end
	end
end