Kod: Kodu kopyalamak için üzerine çift tıklayın!
;İlk önce bi takip aliasi olusturuyoruz..
alias takip {
;İlk önce takip edilicek nicklerin listesini yapiyoruz.
if $1 = ekle {
;Bir sorgu ekliyoruz. sorgumuz 1. kelime ekle ise calisicak olan komutlarimiz.
if $istok(%takip,$2,32) { echo 3 -a *** $2 Takip listesinde bulunuyor. }
;2. kelime ekliyeceimiz nick %takip değişkenimizde var mi kontrol ediyoruz. varsa komutu durduruyoruz.
else { set %takip $addtok($2,%takip,32) | echo 4 -a *** $2 Takip listesine eklendi. }
;2. kelime listede yok ise $addtok ile %takip değişkenine aliyoruz ve bize bilgi mesaji vermesini sağliyoruz.
}
;ve ilk ekle satirini bitiriyoruz, ekleme isi tamam.
if $1 = sil {
;Bir sorgu daha yapiyoruz bu nicki silmek icin.
if !$istok(%takip,$2,32) { echo 3 -a *** $2 Takip listesinde yok. }
;eğer silicegimiz nick yok ise listede bize bilgi vermesini sağliyoruz üstte $istok kullanmistik onun olumsuz ifadesini yaziyoruz.
;!$istok olumsuzlugu ifade eder. Eğer silicegimiz nick %takip değişkeninde yok ise komuta devam ediyoruz.
else { set %takip $remtok(%takip,$2,32) | echo 5 -a *** $2 Takip listesinden silindi. }
;if then else derslerine bi göz atmalisin. Nick varsa %takip değişkeninde $remtok kullanarak nicki siliyoruz. ve bilgi mesajini tekrar yansitiyoruz.
}
}
;Ve artik aliasimiz hazir bunu event'e oturtmaliyiz.
on *:text:*:#:{
;on text eventini aciyoruz kanala veya özele gönderilen mesajlari text eventi ile gözlemleyebiliriz.
if $istok(%takip,$nick,32) {
;text eventinde belirli identifierlar vardir, bunlar "$nick" "$chan" "$1-" Nick kanal ve mesaji alabiliriz, $1- Tümünü alicaktir mesajin $1 $2 $3 diyede gidebiliriz sadece kelimeleri almak icin.
;kelimelerin kacinci sirada oldugunu $regsubex($1-,/(\S+)/g,\n-\1) bu sekil bi identifierla görebilrisin. neyse bu konumuz dısında. :D
;istok identifier'inda bi sorgulama yapiyoruz, Eğer kanala yazilan nickler %takip değişkenin icindeyse diyerek basliyoruz.
$iif(!$window(@takip),window -z @Takip)
;icinde var ise bi sorgu daha yapiyoruz, @Takip penceresi acik değilse aciyoruz.
echo -t @takip $+([,$chan,]) $+(<,$nick,>) $1-
;Ve devam ediyoruz. Takip penceresine yansitiyoruz saati kanali nicki ve mesaji.
}
;Bu sekilde bitiriyoruz.
}