Kod

alias veri {
  tokenize 32 $1-
  if $regex($2,/privmsg/i) {
    var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $3
    tokenize 32 $right($4-,-1)
    echo -s Nick: %nick Kanal: %chan Mesaj: %mesaj
  }
}


on *:sockread:sockname: {
  var %x | %sockread %x 
  tokenize 32 %x
  veri $1-
}