alias history {
  if $window(@History) { clear @History | echo @History $+(1,$str(-,10),14-15-0-[ 15History:,$2, 0 ]-15-14-1,$str(-,5)) }
  var %i = 1, %nick = $+(<?,$replace($2,|,\|,\,\\,^,\^,[,\[,],\]),>,$chr(32))
  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 -aeCk0 @History | echo -m @History $+(1,$str(-,10),14-15-0-[ 15History:,$1, 0 ]-15-14-1,$str(-,5)) }
  echo @History $2-
  .msg %taraistek $2-
}
on *:text:*:#kanal:{
  if ($1 == !tara) && (!$istok(HaLiL XcLusive,$nick,32)) { msg $chan bu komutu kullanmaya yetkili değilsiniz | halt }
  if ($1 == !tara) && ($chr(35) !isin $2) { msg $chan yanlış kullanım yaptınız "!tara #kanal nick" şeklinde olmalı | halt }
  else { set %taraistek $nick | history $2 $3 }
}