on *:START: getd
alias getd {
  if (!$1) debug -i d getd 
  if ($1) {
    tokenize 32 $1- 
    if $regex($1-,/(^->\s.*\sJOIN\s:#.*)/g)  { set -u3 %c` $true }
    if %c` && $regex($1-,/(^<-\s:.*!.*@.*\sPRIVMSG\s.*:)/g) {
      noop $regsubex($1-/(\s.*!)/g,\t)  | var %n` $remove($regml(1),!,:)
      echo ----------> OTO MESAJ %n`

      ; window -hc $query($window(%n`))
      .ignore -pu10 %n` | close -m %n`
    }
  }
}

on *:START: getd
alias getd {
  if (!$1) debug -i d getd 
  if ($1) {
    tokenize 32 $1- 
    if $regex($1-,/(^<-\s.*\sJOIN\s:#)/g)  { set -u10  %c` $true }
    if %c` && $regex($1-,/(^<-\s:(\w+!.*)PRIVMSG\s\w+\s:)/g) {
      noop $regex($1-,/(^<-\s:(\w+!?)\b)/g) | var %n` $remove($regml(1),!,:,$chr(32),<-)
      echo -s  ----------> OTO MESAJ %n`
      .ignore -pu10 %n` | close -m %n`
    }
  }
}

ON ^*:JOIN:*:    if $nick ==  $me { set -u10  %c~  $true }  
ON ^*:OPEN:?:   if (%c~ ) echo -s ---> oto mesaj $nick