--// Topic Bot by Phatty

SetCommand = "!topic" --// anything u want
KillCommand = "!remtopic" --// anything u want

Bot = "TopicBot"
HubName = "YouHubName"
Topic = ""

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 user.iProfile == 0 then 
			if cmd == SetCommand then
				s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)%s+(.+)")
				Topic = arg
				frmHub:SetHubName(HubName.." - "..Topic)
				SendToAll("$HubName "..HubName.." - "..Topic)
				SendToAll(Bot, user.sName.." Changed the topic to: "..arg)
			elseif cmd == KillCommand then
				frmHub:SetHubName(HubName)
				SendToAll("$HubName "..HubName)
			end
		end
	end
end