path = "sys/lua/reports.txt"

pl = {}
addhook("join", "_join")
function _join(id)
     pl[id] = {}
     pl[id].usgn = player(id,"usgn")
end

addhook("say","_say")
function _say(id, txt)
     if txt:sub(1,7)=="!report" then
          t = tonumber(txt:sub(8,9))
          r = txt:sub(10)
          if t~=nil and r~= nil then
               if t~=id then 
                    if pl[id].usgn > 0 then
                         if player(id,"exists") then
                              if not player(t,"bot") then
                                   if r:len() > 5 then
                                        report(id, t, r)
                                        return 1
                                   else
                                        msg2(id,"\169255150150Error: \169255255255Please enter a valid reason")
                                        return 1
                                   end
                              else
                                   msg2(id,"\169255150150Error: \169255255255You cannot report a bot")
                                   return 1
                              end
                         else
                              msg2(id,"\169255150150Error: \169255255255Player does not exist")
                              return 1
                         end
                    else
                         msg2(id,"\169255150150Error: \169255255255You have to be logged into USGN to report a player")
                         return 1
                    end
               else
                    msg2(id,"\169255150150Error: \169255255255You cannot report yourself")
                    return 1
               end
          else
               msg2(id,"\169255150150Usage: \169255255255!report <id> <reason>")
               return 1
          end
     end
end

function report(id, t, r)
     f = io.open(path, "a+")
     f:write(os.date().. ": "..player(id,"name").." ("..pl[id].usgn..") reported "..player(t,"name").." ("..pl[t].usgn.."|"..player(t,"ip")..") Reason: "..r.."\n")
     f:close()
     msg2(id,"\169255255255Info: You successfully reported \169175255100"..player(t,"name"))
end

-- Put this after line 8/9
function toTable(t,match)
	local cmd = {}
	if not match then
		match = "[^%s]+"
	else
		match = "[^"..match.."]+"
	end
	for word in string.gmatch(t, match) do
		table.insert(cmd, word)
	end
	return cmd
end

-- Replace line 13-14 with the following
local s = toTable(txt)
local t = tonumber(s[2])
local r
for i, x in ipairs(s) do
	if i >= 3 then
		if r == "" then
			r = x
		else
			r = r.." "..x
		end
	end
end