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

Shiniori · 08 Ekim 2013, 19:42

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
}

saywhat · 09 Ekim 2013, 02:05

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

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

Shiniori · 12 Ekim 2013, 15:43

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?"

saywhat · 12 Ekim 2013, 18:45

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Shiniori · 12 Ekim 2013, 22:36

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ü

saywhat · 13 Ekim 2013, 00:59

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Shiniori · 27 Aralık 2013, 23:29

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
LMSG !temizle	Shiniori	Eggdrop, NeoStats, BNC	9	27 Aralık 2013 23:38
Kurallar	Schizophrenia	Servisler	1	08 Mart 2007 02:10
kurallar.php	YoN`a`TeaM	vBulletin Sorunları ve Çözümleri	1	05 Şubat 2006 23:54

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.