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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - LMSG !kurallar (https://www.ircforumlari.net/eggdrop-neostats-bnc/550199-lmsg-kurallar.html)

Selamun Aleykum mircden !kurallar yazdığımda ScanX kuralları listeliyor bunu webden girenler !kurallar yazdığında LMSG olarak cıkmasını istiyorum şimdiden teşekkürler..
esokey entegreli okey sitesi icin istiyorum webden girenler !kurallar yazıcak.

bind pub - !kurallar kurallars
proc kurallars {nick user hand chan arg} {
global admin_chan
if {[isop $nick $chan] || [onchan $nick $admin_chan]} {
putquick "PRIVMSG $chan LMSG \002Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak Yasaktır."
putquick "PRIVMSG $chan LMSG \002Reklam Yapmak, Din ve Politika Konuşarak Odadakileri Rahatsiz Etmek, Küfür Etmek Yasaktır." putquick "PRIVMSG $chan LMSG: \002Başkalarını Rahatsız Edecek Davranışlarda Bulunmak Yasaktır."
putquick "PRIVMSG $chan LMSG \002Kişiler Arasında Ayrimcılık Yaratmaya Çalışmak Yasaktır."
putquick "PRIVMSG $chan LMSG \002Otomatik Mesaj Kullanmak, Kelimeleri Gereksiz Yere Uzatmak Yasaktir."
putquick "PRIVMSG $chan LMSG \002Kanal Sorumlularından Voice ve Op İstemek ve Oplarla Tartışmak Kesinlikle Yasaktır!"
}
return 0
}

Cevap: LMSG !kurallar

-->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: LMSG !kurallar

sayswat dediğini yaptım sadece kanala : Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak Yasaktır. yazısı cıkıyor diğerleri cıkmıyor.,

scanın error hatasında su cıkıyor.

[15:40] <ScanX> [15:40] Tcl error [kurallars]: wrong # args: should be "putquick text ?options?"

Cevap: LMSG !kurallar

Tcl error [kurallars]: wrong # args: should be "putquick text ?options?"

kurallars proc'unda argümanı yanlış kullanılıyormuş..."putquick" içeren satırı kontrol edin...

dikkat ederseniz benim verdiğim koddaki proc adı kurallars değil "kurallarz" ayrıca ben arg/args kullanmaktan gerekmedikçe/zaruriyet doğmadıkça itina ederim genelde text kullanırım..
arg/ heleki args tcl'de ancak çok özel durumlarda kullanılabilir....

diğer konudaki tarifinize göre düzenlendi...

bota bağlanın partyline üzerindeyken (bota bağlıyken)
.chanset #kanal +kural

ile kullanılmak istenen kanal/lar üzerinde aktif edin..
web üzerindekiler !kurallar yazar bot LMSG !kurallar görür kod tetiklenir...

Kod:

setudef flag kural
 

set kurallar { \002Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak Yasaktır.

    \002Reklam Yapmak, Din ve Politika Konuşarak Odadakileri Rahatsiz Etmek, Küfür Etmek Yasaktır. 

    \002Başkalarını Rahatsız Edecek Davranışlarda Bulunmak Yasaktır.

    \002Kişiler Arasında Ayrimcılık Yaratmaya Çalışmak Yasaktır.

    \002Otomatik Mesaj Kullanmak, Kelimeleri Gereksiz Yere Uzatmak Yasaktir.

    \002Kanal Sorumlularından Voice ve Op İstemek ve Oplarla Tartışmak Kesinlikle Yasaktır! }
 

set admin_chan "#kanal"
 

bind pubm -|- "*" kurallarz
 

proc kurallarz {nick uhost hand chan text} {

   if {![channel get $chan kural]} { return 0;}

   if {![string first -nocase "LMSG"]} { return 0;}

   if {![string equal -nocase "!kurallar" [lindex $text 1]]} { return 0;}

   if {![isop $nick $chan] || ![onchan $nick $::admin_chan]} { puthelp "notice $nick :bu komutu kullanmaya yetkiniz yok..."

    return 0

     } else {; set i 0; foreach line [split $::kurallar \n] {; puthelp "privmsg $chan :[lindex $line 0] [lrange $line 1 end]"; incr i

     }

   }

}

Cevap: LMSG !kurallar

son verdiğini denedim söyle bir hatayla karsılastım

[22:35] Tcl error in file 'HazaL.conf':
[22:35] missing close-brace
while executing
"proc kurallarz {nick uhost hand chan text} {
if {![channel get $chan kural]} { return 0;}
if {![string first -nocase "LMSG"]} { return 0;}
if..."
(file "scripts/kural.tcl" line 14)
invoked from within
"source scripts/kural.tcl"
(file "HazaL.conf" line 122)

hazalın conf dosyasına bakıyorum source scripts/kural.tcl doğru eklemişim.

kural.tcl deki satır 14 de bakıyorum bu var: proc kurallarz {nick uhost hand chan text} {

nerde hata var cözemedim bi türlü

Cevap: LMSG !kurallar

itiraf etmeliyim ki,düzeltirken çokda dikkat etmedim ayraçlarına vs...
(çünkü yaptığım değişikliklerin pek etkisi olacağını/hataya neden olabileceğini düşünmedim...)

kod satırlarını ; noktalı virgüllerle yan yana dizip özellikle kısa satırları tek satırda birleştirmeyi tercih etmiştim ki "kısa" görünsün..(kendi, botumda da şu an o şekilde,satırları birleştirilmiş olarak ekli...denemek için yüklemiştim.daha silmedim hala yüklü botların birinde...) şimdi onlarıda açtım ayraç eksiği/fazlası görünmüyor...birde böyle "açık haliyle" deneyin isterseniz...

Kod:

setudef flag kural
 

set kurallar { \002Tekrar ve Flood Yapmak, Büyük Harf Kullanmak, Rahatsız Edici Şekilde Renkli Yazmak Yasaktır.

    \002Reklam Yapmak, Din ve Politika Konuşarak Odadakileri Rahatsiz Etmek, Küfür Etmek Yasaktır. 

    \002Başkalarını Rahatsız Edecek Davranışlarda Bulunmak Yasaktır.

    \002Kişiler Arasında Ayrimcılık Yaratmaya Çalışmak Yasaktır.

    \002Otomatik Mesaj Kullanmak, Kelimeleri Gereksiz Yere Uzatmak Yasaktir.

    \002Kanal Sorumlularından Voice ve Op İstemek ve Oplarla Tartışmak Kesinlikle Yasaktır! }
 

set admin_chan "#kanal"
 

bind pubm -|- "*" kurallarz
 

proc kurallarz {nick uhost hand chan text} {

   if {![channel get $chan kural]} { 

      return 0

      }

   if {![string first -nocase "LMSG"]} {

      return 0

      }

   if {![string equal -nocase "!kurallar" [lindex $text 1]]} {

      return 0

      }

   if {![isop $nick $chan] || ![onchan $nick $::admin_chan]} { 

       puthelp "notice $nick :bu komutu kullanmaya yetkiniz yok..."

      return 0

      } else {

          set i 0

          foreach line [split $::kurallar \n] {

           puthelp "privmsg $chan :[lindex $line 0] [lrange $line 1 end]"

         incr i

        }

    }

}

Cevap: LMSG !kurallar

teşekkürler dostum ellerine sağlık