alias history {
  if $window(@History) { clear @History | aline @History $+(1,$str(-,10),14-15-0-[ 15History:,$2, 0 ]-15-14-1,$str(-,5)) }
  var %i = 1, %nick = $+(<?,$2,>)
  while (%i <= $line($1,0)) { 
    if $regex($strip($line($1,%i)),%nick) { phistory $2 $line($1,%i) } | inc %i 1 
  }
  if $line(@History,0) == 1 { phistory $2 $2 : ye ağit $1 kanalında bir bilgi bulunamadı! }
}
alias phistory {
  if !$window(@History) { window -alCk0 @History | aline @History $+(1,$str(-,10),14-15-0-[ 15History:,$1, 0 ]-15-14-1,$str(-,5)) } 
  aline @History $2-
}
menu nicklist {
  History: history $active $1
}