tcl - このeggdrop TCLスクリプトを変更して、少し異なる動作をさせるにはどうすればよいですか

Question

特定のイベントまでのカウントダウンを行うために、単純なエッグドロップ ボットを設定しようとしています。アイデアは、あらかじめ決められた日時を指定し、ユーザーが !countdown と入力すると、ボットが「それが起こるまで x 日、x 時間、x 分あります」と返信するというものです。これは私が見つけたスクリプトです (イベントの unixtime 日付を代わりに追加するためだけに変更されています)。私の Eggdrop ボットで実行すると、応答が返されますが、もちろん、必要な応答ではありません (重要な問題は、それがまったく機能したということです）。

それが行うことと私がやりたいことの間に大きな違いはないと思いますが、正しく変更する方法がわかりません。だから、ここにいる誰かが、私がやろうとしていることのやり方を教えてくれるだろうかと思った.

bind pub - !test countdown
proc countdown { nickname hostname handle channel arg } {  
    set date1 "1385798400"
    # finds the time and date now
    set now [unixtime]
    # counts the time passed scince now 
    incr now -$date1 
    # shows how long has passed since $date1 
    set then [duration $now] 
    puthelp "PRIVMSG $channel :date1 was: $then ago, $nickname | \([\
            clock format $date1 -format %d.%m.%Y] @ [\
            clock format $date1 -format %H:%M:%S]\)"    
}