/* GVFix Noticed Event Script */

parse arg gvrexxport nick user master ownnick channelownnick awaystatus savenotice text

address value gvrexxport

carriagereturn="0A"X
quote="22"X
bold=""

lastnoticesfile="T:"||address()||"LastNotices"

redirectfile="ENV:"||address()||"REDIRECT"

redirectuserhost=""

text=substr(text,2)

lastnotices=""
if exists(lastnoticesfile) then do
	fileopen=0
	do until fileopen=1
		if open(6lastnoticesfile,lastnoticesfile,r) then do
			fileopen=1
			do forever
				lastnoticenickuserhost=readln(6lastnoticesfile)
				lastnotice=readln(6lastnoticesfile)
				if eof(6lastnoticesfile) then break
				if nick||" ("||user||")"~=lastnoticenickuserhost then lastnotices=lastnotices||lastnoticenickuserhost||carriagereturn||lastnotice||carriagereturn
			end
			call close(6lastnoticesfile)
		end
		else address command "Wait 1"
	end
end
lastnotices=lastnotices||nick||" ("||user||")"||carriagereturn||text||carriagereturn
fileopen=0
do until fileopen=1
	if open(6lastnoticesfile,lastnoticesfile,w) then do
		fileopen=1
		call writech(6lastnoticesfile,lastnotices)
		call close(6lastnoticesfile)
	end
	else address command "Wait 1"
end
if user=redirectuserhost then "Notice" redirectchannelnick bold||"-"||nick||"-"||bold||" "||text
exit

CheckRedirect:
	if exists(redirectfile) then do
		fileopen=0
		do until fileopen=1
			if open(6redirectfile,redirectfile,r) then do
				fileopen=1
				redirectchannelnick=readln(6redirectfile)
				redirectuserhost=upper(readln(6redirectfile))
				call close(6redirectfile)
			end
			else address command "Wait 1"
		end
	end
return