From: Ian Jackson Date: Sun, 10 Jun 2001 16:47:38 +0000 (+0000) Subject: Add some full stops. X-Git-Tag: branchpoint-2001-10-09-tell~9 X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/e5e18a7f59c21986c73978bb3404f5d1bc41d04d Add some full stops. --- diff --git a/bridge.tcl b/bridge.tcl index f0f84f5..1282aed 100755 --- a/bridge.tcl +++ b/bridge.tcl @@ -53,11 +53,11 @@ def_bnbot event {l} { global channel errorCode if {[regexp {^1002 JOIN ([^ ]+) \w+} $l dummy n]} { set bnnicks($n) 1 - sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn" + sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn." } elseif {[regexp {^1003 LEAVE ([^ ]+) \w+$} $l dummy n]} { if {"$n" == "$bnnick"} return catch { unset bnnicks($n) } - sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn" + sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn." } elseif {[regexp {^1004 WHISPER ([^ ]+) \w+ "(.*)"$} $l dummy n text]} { if {[catch { go_usercommand "$botid $n" $bnchanfn $n $n $text @@ -99,7 +99,7 @@ proc tellall {msg} { proc msg_JOIN {p c chan} { global onchan_nicks prefix_nick - tellall "$n has joined $chan" + tellall "$n has joined $chan." set onchan_nicks($n) 1 } @@ -108,7 +108,7 @@ proc msg_NICK {p c newnick} { prefix_nick kill_nick $n set onchan_nicks($newnick) 1 - tellall "$n has changed nicks to $newnick" + tellall "$n has changed nicks to $newnick." } proc kill_nick {n} { global onchan_nicks; catch { unset onchan_nicks($n) } } @@ -125,7 +125,7 @@ proc msg_KILL {p c user why} { } proc msg_PART {p c chan} { prefix_nick - tellall "$n has left $chan" + tellall "$n has left $chan." kill_nick $n } proc msg_QUIT {p c why} {