tcl - 期間限定の Eggdrop TCL 人工知能

Question

過去 30 分間にチャンネルに参加したユーザーに Eggdrop に応答してもらいたい。チャンネルに 30 分以上滞在している他のすべてのユーザーは無視する必要があります。

set canalativo "#testes"

bind pubm - "*regist*canal*" pub:regchan

proc pub:regchan { nick uhost handle chan arg } {
global canalativo

if {[string match -nocase "$canalativo" $chan]} {

putserv "PRIVMSG $chan :$nick para registar um canal escreve o comando: /ChanServ register #CANAL DESCRICAO-DO-CANAL" } 
 }