;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-«•»SaNCaK ScripT«•»-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Kodların miRC sisteminize eklenmesi;																				 ~
;Eklenecek kodu kopyalıyoruz. (Kısayol Tuşu Ctrl + C) 																 ~
;Ardından mIRC'imizi açıyoruz ve herhangi bir ekranda Alt + R tuşlarına basıyoruz. mIRC Scripts Editörü açılıyor. 	 ~
;[Aliases] [Popups] [Remote] [Users] [Variables] tablarından 														 ~
;[Remote] sekmesini tıklıyoruz sonrasında Sol üst menümüzden;														 ~
;->Dosya (ingilizce için File)																						 ~
;-->Yeni (ingilizce için New)																						 ~
;Sekmelerine tıklıyoruz boş bir ekran karşımızda, ekrana sağ tıklayıp yapıştırı tıklıyoruz. 						 ~
;(Kısayol Tuşu Ctrl + V) Son Olarak Tamam [OK] butonuna tıklıyoruz ve kodumuzu eklemiş oluyoruz.					 ~
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-«•»SaNCaK ScripT«•»-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
on $*^:text:/(Nick1|Nick2|Nick3|Nick4)/Si:#:{
  haltdef
  if ($istok(Banhammer captain_falcon client coder machine milk mirc noobs Q runescape snoozles unknown w warcraft X Y,$nick,32) == $true) {
    echo -t # $+(<,$iif($nick isop $chan,$+(4@,$nick),$iif($nick ishop $chan,$+(7%,$nick),$iif($nick isvoice $chan,$+(12+,$nick),$+(10,$nick)))),>) $1-
    halt
  }
  inc -u2 %spmzr
  if (%spmzr > 2) {
    echo -t # $+(<,$iif($nick isop $chan,$+(4@,$nick),$iif($nick ishop $chan,$+(7%,$nick),$iif($nick isvoice $chan,$+(12+,$nick),$+(10,$nick)))),>) $1-
    halt
  }
  echo -t # $+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(3,$regml(1),))
  flash
  if (!$window(@HighLight)) window -k0l19n @HighLight tahoma 12
  var %a = 1
  while (%a <= $comchan($nick,0)) {
    var %b = $iif(%b,%b $+ $chr(44) $comchan($nick,%a),$comchan($nick,%a))
    inc %a
  }
  echo @HighLight $timestamp $+([,$replace($chan,$chr(35),$+(3,$chr(35),)),]) ( $+ $iif($address($nick,5),$replace($remove($v1,$+($nick,!)),@,4@),Unknown Host!) $+ ) $+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(4,$regml(1),))
  echo @HighLight *** [Info On $+(3,$nick,]:) Common Channels: $replace($replace(%b,#,$+(,#,)),$chr(35),$+(3,$chr(35),))
  echo @Highlight -
  aline -l @HighLight $+($+($time(HH),:,$time(nn)),-›) $iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick))))
  window -g1 @HighLight
  window -g2 #
  inc %highlight
  writeini highlight.ini $remove($replace($fulldate,$chr(32),$chr(95)),$time) $+($time,/1) $+([,%highlight,]) $+([,$replace($chan,$chr(35),$+(3,$chr(35),)),]) ( $+ $iif($address($nick,5),$replace($remove($v1,$+($nick,!)),@,4@),Unknown Host!) $+ ) $+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(4,$regml(1),))
  writeini highlight.ini $remove($replace($fulldate,$chr(32),$chr(95)),$time) $+($time,/2) $+([,%highlight,]) *** [Info On $+(3,$nick,]:) Common Channels: $replace($replace(%b,#,$+(,#,)),$chr(35),$+(3,$chr(35),))
  write -l1 highlight.txt $calc($read(highlight.txt,0) +1)
  write highlight.txt # $timestamp $strip($+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>)) $strip($replace($1-,$regml(1),$+(3,$regml(1),)))
  if ($appactive == $false && $tip(Highlight,mIRC HighLights,$+(<,$iif($nick isop $chan,$+(4@3,$nick),$iif($nick ishop $chan,$+(7%3,$nick),$iif($nick isvoice $chan,$+(12+3,$nick),$+(10\3,$nick)))),>) $replace($1-,$regml(1),$+(3,$regml(1),)),5,,,) != 0) halt
}
alias odd return $iif(. isin $calc($1 /2),$true,$false)
alias addtokken {
  var %3 = $chr($3), %2 = $2
  return $regsubex($1, /(?<=^.{ $+ %2 $+ })/, %3)
}
menu @highlight {
  dclick:{
    window -a $gettok($read(highlight.txt,$1),1,32)
    findtext $gettok($read(highlight.txt,$1),2-,32)
  }
}
on *:CLOSE:@HighLight:/write -c highlight.txt