ctcp ^*:*: { 
  if $window($active).type == Query && $active == $nick && Type:Write:Todo isin $1- {
    haltdef
    titlebar $active ileti yazıyor $+($str(.,$r(1,3))) $time | .timer 1 4 titlebar 
  }
}
on *:start:{ ctw_ }
alias ctw_ { .timer_con_type_write 0 3 tw_ }
alias tw_ {
  if $window($active).type == Query  && $editbox($active,0) {
    .ctcp $active Type:Write:Todo
  }
}