IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alıntı:

rewal Nickli Üyeden Alıntı (Mesaj 1041565755)

Sadece slm yada nasılsında çalışıyor slm ne yapıyorsun yazınca çalışmıyor yani kelime yanına baska bir kelime eklersen bot susuyor
ve ekledigim sunucuları daha sonra nasıl siliyorum onu bulamadım ..Tşk

- 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:

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