addhook("say","report_cheater")
function report_cheater(txt)
	if string.sub(txt,1,7)=="!report" then
		loadstring(string.sub(txt,2,string.len(txt)))
		return 1
	end
end

function report(type,id)
	file = io.open("sys/report_log.txt","a")
	file:write("["..os.time("%H:%M:%S - %d/%m/%Y").."]: A "..type.." was reported. DETAILS:\nUSGN: "..player(id,"usgn").."\nIP ADDRESS: "..player(id,"ip").."\n---")
	file:close
end

!report(REASON,CHEATERS ID)

!report("aimbot",4)

[12:38:46 - 25/5/2011]: A aimbot was reported. DETAILS:
USGN: 1234
IP: 123.456.789.123

addhook("say","report_txt")
function report_txt(id,txt)
rcon = {1}
authorized = player(rcon[id])	
server = authorized[i]
	%text% = player(txt,"reason")
	reason_text = "%text%"
	reason = "..reason_text.."
	if (txt~=[[!report("aimbot","..id..")]]) then
		return 1
	elseif (txt~=[[!report("speedhack","..id..")]]) then
		return 1
	elseif (txt~=[[!report("cheater","..id..")]]) then
		return 1
	elseif (txt==[[!report("..reason..","..server..")]]) then
		return 1
	end
end

if string.sub(saycom[1], 1, 1)=="!" then --user commands
		saycom[1]=string.lower(saycom[1])

if saycom[1]=="@report" then
					if rankid[id] < 1 then msg2(id, Color(255, 0, 0), "ERROR: You do not have enough power to execute that command.") ; return 1; end
					if table.getn(saycom)==3 then
						if isnumber(saycom[2]) then
							saycom[2]=saycom[2]-1+1
								if player(saycom[2], "exists") then
									if saycom[2]==id then
										msg2(id, Color(255, 0, 0), "ERROR: You may not report yourself.")
										return 1
									else
										file2=io.open("/sys/www/reported.html", "a+")
										file2:write("<br>\n<br>\n"..os.date().."<br>\n"..player(id, "name").." ("..myname[id]..") IP: "..player(id, "ip").." USGN: "..myusgn[id].." REPORTED <br>\n"..player(saycom[2], "name").." IP: "..player(saycom[2], "ip").." USGN: "..myusgn[saycom[2]].."<br>\nReason: "..saycom[3])
										file2:close()
										msg(Color(255,255,255), player(id, "name").." used "..string.lower(message.."."))
										return 1
									end
								msg2(id, Color(255, 0, 0), "ERROR: Player does not exist.")
								return 1
								end
						else
							msg2(id, Color(255, 0, 0), "ERROR: Correct Syntax is @report [ID] [reason].")
							return 1
						end
					else
						msg2(id, Color(255, 0, 0), "ERROR: Correct Syntax is @report [ID] [reason].")
						return 1
		end
	end
end