Tekil Mesaj gösterimi
Alt 31 Ağustos 2015, 01:19   #43
Çevrimdışı
alphae
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .gir kanal komutu hakkinda




hic calismio
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olmadi ozelde nede kanalda isimiz kolay olsun bari ozeli cikaralim sadece kanalda calistiraim bu kodu olmazmi



Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set komut ".gir" set cici [list oyun kelime test sohbet yarisma] bind pub - $komut girpub bind msg - $komut girmsg proc girpub {n u h c a} { set knl [lindex [split $a] 0] if {![string length $knl]} { putserv "PRIVMSG $c :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı." return } if {[string equal {#} [string index $knl 0]]} { set hedef [string range $knl 1 end] } else { set hedef $knl } if {[lsearch -nocase $::cici $hedef] eq -1} { putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi." return } else { # .gir Komutunu kullananı sajoinler. putquick "SAJOIN $n #$hedef" # Botu O kanala sokar. # channel add #$hedef } } proc girmsg {n u h a} { set knl [lindex [split $a] 0] if {![string length $knl]} { putserv "PRIVMSG $n :Hatalı Kullanım. $::komut Kanal-Adı şeklinde Olmalı." return } if {[string equal {#} [string index $knl 0]]} { set hedef [string range $knl 1 end] } else { set hedef $knl } if {[lsearch -nocase $::cici $hedef] eq -1} { putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi." return } else { # .gir Komutunu kullananı sajoinler. putquick "SAJOIN $n #$hedef" # Botu O kanala sokar. # channel add #$hedef } }

Copy-Paste'nizden
Çek ettim Kaçırmamışım Bracket:
Bknz : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan