convert reminder to tell if theyre gone

1 files changed, 7 insertions, 1 deletions

diff --git a/remind.tcl b/remind.tcl
index 5593ef9..e27805e 100644
--- a/remind.tcl
+++ b/remind.tcl
@@ -81,7 +81,13 @@ proc printReminder {reminderId {tonick ""} {fire "false"}} {
 	set what [lindex $reminder 4]
 
 	if {$fire} {
-		putserv "PRIVMSG $chan :\[remind\] $who: $what"
+		if {[onchan $who $chan]} {
+			putserv "PRIVMSG $chan :\[remind\] $who: $what"
+		} else {
+			putserv "PRIVMSG $chan :!tell $who \[remind\] $what"
+			#tell {nick uhost hand chan text}
+			tell $who "" "" $chan "$who \[remind\] $what"
+		}
 	} else {
 		putserv "NOTICE $tonick :\[remind\] $reminderId: for $who at $when: $what"
 	}