--UserInfo Bot By Phatty
--V1.05, not complete
--Few things by Guibs


function Main()
	mcmd = "!"
	frmHub:RegBot("G€KKÕ™")
end

function DataArrival(ustring,dstring)
	if strsub(dstring, 1, 1) == "<" then
		dstring=strsub(dstring,1,strlen(dstring)-1)
		local s,e,cmd = strfind(dstring,"%b<>%s+(%S+)")

		if cmd == mcmd.."userinfo" then 
			if user.bOperator then
				s,e,arg = strfind(dstring,"%b<>%s+%S+%s+(%S+)")
				if arg ~= nil then
					local nick = GetItemByName(arg)
					if nick ~= nil then
						UserInfo(ustring,nick)
					else
						ustring:SendData(Kos,"Either User is a bot or does not exist")
					end
				else
					ustring:SendData(Kos,"Missing parameter....")
				end
			return 1
			end
		end
	end
end


function UserInfo(ustring, nick)
	local tmp = "\r\n\r\n"
	tmp = tmp.."\tUser Name: "..nick.sName.."\r\n"
	tmp = tmp.."\tUsers IP: "..nick.sIP.."\r\n"

	if strfind(nick.sMyInfoString,"<DCGUI") then 
		_,b, dcgui = strfind(nick.sMyInfoString,"V:0.(%x+.%x+)") 
		tmp = tmp.."DCgui version: 0."..dcgui
	elseif strfind(nick.sMyInfoString,"<+") then 
		if strfind(nick.sMyInfoString,"<o") then 
			client = "Opera Direct Connect"
		elseif strfind(nick.sMyInfoString,"V:0.%x+%a") then 
			client = "Czeck Direct Connect" 
		elseif strfind(nick.sMyInfoString,"iDC") then 
			client = "Italian Direct Connect" 
		elseif strfind(nick.sMyInfoString,"zDC") then 
			client = "Zero Direct Connect" 
		elseif strfind(nick.sMyInfoString,"L:") or strfind(nick.sMyInfoString,"B:") then 
			client = "BearClaws Direct Connect" 
		else
			client = "Direct Connect Plus Plus" 
		end 
		_,b, dcstart,dversion = strfind(nick.sMyInfoString,"V:(%x+).(%x+)") 
		tmp = tmp.."\tUser client: "..clienttype.."\r\n"
		tmp = tmp.."\tClient Version: "..dcstart.."."..dversion.."\r\n"
	else
		client = "Possible DC Stealth"
		dcver = "Unknown"
		tmp = tmp.."\tUser client: "..client.."\r\n"
		tmp = tmp.."\tClient Version: 0."..dversion.."\r\n"
	end
	if strfind(nick.sMyInfoString,"M:A") then 
		mode = "Active" 
	elseif strfind(nick.sMyInfoString,"M:P") then 
		mode = "Passive" 
	elseif strfind(nick.sMyInfoString,"M:S") then 
		mode = "Sockets"
	else
		mode = "unknown"
	end
	tmp = tmp.."\r\n\tClient Mode: "..mode.."\r\n\r\n"

	_,b, guest = strfind(nick.sMyInfoString,"H:(%x+)/") 
	if guest == nil then 
		_,b, hubs = strfind(nick.sMyInfoString,"H:(%x+)") 
		tmp = tmp.."\tConnected to: "..hubs.." hub(s)\r\n"
	else 	
		_,b, regged = strfind(nick.sMyInfoString,"H:%x+/(%x+)/") 
		_,b, opped = strfind(nick.sMyInfoString,"H:%x+/%x+/(%x+)") 
		tmp = tmp.."\tConnected to: "..guest.." - hub(s) as regular user\r\n"
		tmp = tmp.."\tConnected to: "..regged.." - hub(s) as registered user\r\n"
		tmp = tmp.."\tConnected to: "..opped.." - hub(s) as operator\r\n\r\n" 
	end 
	_,b, slots = strfind(nick.sMyInfoString,"S:(%x+)") 
	tmp = tmp.."\tUser has: "..slots.." - slot(s)\r\n\r\n"

	if strfind(nick.sMyInfoString,"L:") or strfind(nick.sMyInfoString,"B:") then 
		_,b, limiter = strfind(nick.sMyInfoString,"B:(%x+)") 
		if limiter == nil then 
			_,b, limiter = strfind(usr.sMyInfoString,"L:(%x+)") 
			if limiter == nil then 
				_,b, limiter = strfind(usr.sMyInfoString,"U:(%x+)") 
				if limiter == nil or limiter == "*" then 
					limiter = "Not limited" 
				end
			end
		end
		if tonumber(limiter) ~= nil then 
			if strlen(limiter) > 4 then 
				limiter = limiter / 1024 
			end 
		end
		tmp = tmp.."\tUpload limited: "..limiter.." Kb/s\r\n"
	end

	_,b, limited = strfind(nick.sMyInfoString,"D:(%x+)") 
	if limited ~= nil then 
		tmp = tmp.."\tDownload limited: "..dlimiter.." Kb/s\r\n\r\n"
	end

	local hostname = tohostname(nick.sIP)
	_,b, hoster = strfind(hostname,"bt")
	if hoster ~= nil then 
		tmp = tmp.."\tUser ISP: "..hoster.." Kb/s\r\n"
	end

	if strfind(hostname,".fr") then 
		crm = "France" 
	elseif strfind(hostname,".lv") then 
		crm = "Latvia" 
	elseif strfind(hostname,".uk") then 
		crm = "UK"
	elseif strfind(hostname,".de") then 
		crm = "Germany"
	elseif strfind(hostname,".nl") then 
		crm = "Holland"
	elseif strfind(hostname,".es") then 
		crm = "Spain"
	elseif strfind(hostname,".hu") then 
		crm = "Hungarian"
	elseif strfind(hostname,".ct") then 
		crm = "Catalan"
	elseif strfind(hostname,".no") then 
		crm = "Norway"
	elseif strfind(hostname,".dk") then 
		crm = "Denmark"
	elseif strfind(hostname,".se") then 
		crm = "Sweden"
	elseif strfind(hostname,".it") then 
		crm = "Italy"
	elseif strfind(hostname,".jp") then 
		crm = "Japan"
	elseif strfind(hostname,".sg") then 
		crm = "Singapore"
	elseif strfind(hostname,".ca") then 
		crm = "Canada"
	else
		crm = "Worldwide"
	end
	tmp = tmp.."\tCountry: "..crm.."\r\n"

	ustring:SendPM(Bot,tmp)
end