###
### vim:ts=8 ai si sw=4 sta sm:
### $Id: dupes,v 1.4 1997/05/25 15:35:13 sec Exp sec $
### eleminates duplicate Server_notices
###

alias dupe.help {
    echo *** set \$dupe.timer for threshold timer
    echo *** set \$dupe.refnum for timer_refnum used by this script
}
assign script_info $script_info+dupe

assign dupe.refnum 42
assign dupe.timer 5

alias dupe.do {
	if ([$dupe.txt]==[$2-]){
		@ dupe.num = dupe.num + 1
		timer -delete $dupe.refnum
		timer -refnum $dupe.refnum $dupe.timer dupe.print
	}{
		if ([$dupe.num]>[0]){
			dupe.print
		}
		@ dupe.num = 0
		^assign dupe.txt $2-
		echo *** $dupe.txt
		#timer -refnum $dupe.refnum $dupe.timer dupe.print
	}
}

alias dupe.print {
	if ([$dupe.num]>[0]){
		if ([$dupe.num]==[1]){
			echo *** $dupe.txt
		}{
			echo *** Last message repeated $dupe.num times [$dupe.txt]
		}
		@ dupe.num = 0
	}{
		^assign -dupe.txt
	}
}

on ^server_notice * dupe.do $0-