[manikdepresif]

-ACIKLAMA-
-
NOT: Tek bir kanal icin kullanima uygundur.
Yapistirma Algilanmasi icin en az 3 den fazla hizli mesaj olmasi gerekmektedir.
Sag tiklayip menuden yapistirma algilama ozelligini tamamen acip kapatabilirsiniz.
-

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;Calisacak kanal kismini duzeltin burada #mirchelp olarak yazilmis, sadece bir kanal ekleyebilirsiniz.
alias -l calisacakkanal return #mirchelp
;Calismayacak muaf nick varsa belirtin.
alias -l muafnickler return nick1 nick2

menu channel,query {
  Kanala Yapistirma Olunca Otomatik Algilama/Kopyalama $iif($group(#yapis).status == on,KAPAT,AC)):$iif($group(#yapis).status == on,.disable #yapis,.enable #yapis)) | echo $color(info) -a -> Yapistirma Algilama $iif($group(#yapis).status == on,3ACILDI,4KAPANDI))
}
#yapis on
on *:text:*:$($calisacakkanal):{  
  if ($istok($muafnickler,$nick,32)) return
  if ($var($+(%,paste,-,$nick),1).value) {
    if ($v1 == 1) write -c $clipfile
    if ($1 != $chr(32)) {
      if ($lines($clipfile) == 0) write $clipfile %txt_n
      write $clipfile $1- 
    }
    .timerj_ 1 2 bittimi $nick
  }
  set -u1 %txt_n $1-
  inc -u2 % $+ paste $+ - $+ $nick
}
#yapis end
alias -l bittimi { 
  if (!$var($+(%,paste,-,$1)) && $lines($clipfile) > 3) {
    clipboard
    var %m = 1 | while ($read($clipfile,n,%m)) { clipboard -a $v1 $crlf | inc %m }
    echo $color(info) -a * $1 nickinden yapistirma algilandi ve $lines($clipfile) satirlik icerik otomatik olarak kopyalandi.  
    write -c $clipfile
  } 
}
alias -l clipfile return clipboard.txt