- Sağ tık yaptığında
ÖZELBOT menüsü altında bulunan
Sunucu sil sekmesinden tüm ekli sunucuları silebilirsin, bu şekilde tüm sunucularda çalışır.
-
Sunucu Belirle sekmesinden sunucu veya sunucular ekleyip, eklediğin sunucularda çalışmasını sağlayabilirsin.
- Kelime eklemelerini regular expressions (regex) kullanarak yapmalısın. Ekleme kalıbı aşağıda ekli örnekler gibi olmalıdır.
elseif $regex($1-,/kelime|kelime1|kelime2|kelime3/Si) { .timer 1 5 msg $nick cevabın.. } gibi..
Ayrıca kod'un ilk kullandığın halinde
Wildcard karakterler kullanılarak ekleme yapabiliyordun yani
* ? gibi karakterler.
*slm* kelime/cümle içinde geçtiğinde algılıyordu, regex'te belirttiğin kelime zaten cümle/kelime içinde geçiyorsa algılar(Eğer aksini temsil eden bir regex operatörü kullanılmamışsa) bunun için extra bir operatör kullanmana gerek yok. Wildcard ta
? soru işareti karakteri herhangi bir karakter"i temsil ediyordu yani
nasıls? da olduğu gibi, nasıls dan sonra "herhangi bir karakter" geliyorsa o karakterle eşleşiyordu, regexte soru işareti yerine herhangi bir karakterle eşleşmesi için
. nokta karakteri kullanmalısın,
nasıls. gibi. Yani sonuç
Wildcard: nasıls? =
Regex: nasıls. oluyor. Forumda ve başka kaynaklarda bu konulara dair pek çok açıklama/anlatım mevcut, fırsat buldukça okumanı incelemeni tavsiye derim.
- Kod gelişime açık, iyi forumlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
menu * {
. ® ÖZELBOT
..Açık:.enable #otobot | .echo -a 0,4 ÖzeL Bot Açıldı
..Kapalı:.disable #otobot | .echo -a 0,4 ÖzeL Bot Kapatıldı
..Sunucu Belirle:/set %snc $$input(Sunucu Belirle,oe,Sunucular) | echo 4 -aet * Eklenen Sunucu(lar): $qt(%snc)
..Sunucu Sil:if %snc != - { set %snc - | echo 4 -aet * Tüm Sunucular silindi. } | else { echo 4 -aet * Ekli Sunucu(lar) Yok! }
..Aktif Sunucular:$iif(%snc = -, echo 4 -aet * Tüm Sunucularda Çalışır!, echo 4 -aet * Ekli Sunucular: $qt(%snc))
}
#otobot on
on *:text:*:?:{
$iif(!%snc, set %snc -)
if $istok(%snc, $iif(%snc = -, -, $server), 32) {
if $regex($1-,/slm|s\.a|selam[üÜu]n.*|\Aselam/Si) { .timer 1 5 msg $nick a.S }
elseif $regex($1-,/nasıls./Si) { .timer 1 5 msg $nick ii sen nslsn }
}
}
#otobot end