| manikdepresif | 25 Ekim 2022 15:35 |
Kanalda Yapıştırma Olduğunda Algilama ve Nickin Yazdigi Mesajları Otomatik Kopyalama
-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:
;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
| 