.gir kanal komutu hakkinda - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

alphae · 30 Ağustos 2015, 18:12

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 "Okanal Bukanal Şukanal"

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 {$hedef ni $::cici} {
              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 {$hedef ni $::cici} {
              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
         }
}

Bu Şekilde Kanal adı Başında
# Olsun olmasın İşler.
Sadece Girilmesine
izin Verdiğiniz Kanalları ,
set cici ayarında Adlarının başında
# Olmadan sıralayın .
Bu kod için!

Tcl8.5 ve Üstü Gerekir.

asagidaki gibi yaptim bot ozeline ve kanalda .gir oyun diyorum normal user nicki ile bot atmiyor odaya

set komut ".gir"

set cici "oyun yarisma sohbet test kelime teylo avrupa dj aop help konu toplanti jm"

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 {$hedef ni $::cici} {
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 {$hedef ni $::cici} {
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
}
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Chanserv Kanal List Komutu ve Kodu	Goemon	Conference Room (CR)	1	22 Kasım 2015 13:58
Register Komutu Bekleme Süresinde Komutu Uygulayanı #Kanal'a Sajoinlendirme.	SeYH_SaMiL	Anope	9	04 Nisan 2011 17:58
Kanal Listesi Hakkinda	DjSummeR	mIRC Scripting Sorunları	2	18 Şubat 2011 17:47
!uyar Komutu istenilen Kanal Dahilinde Yollama	AgReSsivVe	mIRC Scripting Sorunları	4	26 Nisan 2008 20:30
/who #kanal komutu hakkında yardım	Luke	mIRC Scripting Sorunları	2	13 Ekim 2006 18:39

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.