on *:text:*:#:{  if ($me isin $1-) {  if (!$window(@me)) { window -l[3]ze[3] @me | set %id 1  } 
    if ($chr(46) isin $calc(%id / 2)) { var � 12 }
    aline � @me $chr(35) $+ %id  $timestamp $chr(60) $nick $chr(62) on $target $+ : $1-
    noop $tip(me?,$nick kanale $target sakė:, $timestamp $1- ,10,$null,1, pnj $target)
    beep 3
  inc %id }
}

alias pnj { .timer -m 1 500 join $$1
.timer -m 1 505 showmirc -x }

menu @me  {  
  $iif($sline(@me,1).ln != $null,Control)
  .Delete marked: delwline
  $iif($sline(@me,1).ln != $null,$iif($left($1,1) == $chr(35),To))
  .Copy line:clipboard  $gettok($sline(@me,1),2-,32)
  .Whois: whois $gettok($sline(@me,1),4,32)  $gettok($sline(@me,1),4,32)
  .Query: query  $gettok($sline(@me,1),3,32)
  Delete all: clear
  Close window...: window -c @me 
}


alias delwline { while ($sline(@me,1).ln != $null) { dline @me $sline(@me,1).ln } }

raw 311:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 307:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 319:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 312:*:{ if ($active == @me) { aline 3 @me $2-
    var  %chansk $comchan($2,0)
    While (%chansk != 0)  {
      %kanalai = %kanalai $comchan($2,%chansk)
      Dec %chansk 1
    }
    aline 3 @me $2 common: %kanalai
  }
  halt
} 
raw 313:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 310:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 671:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 320:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 301:*:{ if ($active == @me) { aline 3 @me $2- | halt } }
raw 317:*:{ if ($active == @me) { aline 3 @me $2 has been idle $duration($3) $+ , signed on $asctime($4,yyyy.mm.dd hh:nn:ss) | halt } }
raw 318:*:{ if ($active == @me) { aline 3 @me $2- | halt } }