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(Nick Nick1,$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 }

}