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

alphae · 30 Ağustos 2015, 13:59

merhaba asagidaki komut çalısıyor asilnda bu komutu sadece oyun odalari icn kulanmak istiyorum belirledim bir kac odaya gire bilsinler kanalyasaklama.conf mevcut orda izin verdim odalara giriliyor

.gir elif dediginde bu odayada giriyor istiyorum ki sadece belirledigim odalara gire bilsinler .gir dediginde her odaya giremesin

set komut ".gir"

bind msg - $komut giris1
bind pub - $komut giris2

proc giris1 {nick host hand text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

proc giris2 {nick host hand chan text} {
set knl [string map {"#" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

No_FeaR · 30 Ağustos 2015, 15:07

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set komut ".gir"

bind msg - $komut giris1
bind pub - $komut giris2

proc giris1 {nick host hand text} {
set knl [string map {"#Oyun,#Yarisma" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

proc giris2 {nick host hand chan text} {
set knl [string map {"#Oyun,#Yarisma" ""} [lindex $text 0]]
putquick "sajoin $nick #$knl"
}

Denemedim Ama Böyle Çalışır Diye Düşünüyorum. : )

alphae · 30 Ağustos 2015, 16:44

him bot sajoin yapio zaten o odalara atcak beni onemli olan belrledigim odalar disindaki odalara girmesin..

Heartbroken · 30 Ağustos 2015, 17:01

Tcl Versionu nedir?
ve Belirlediğiniz girilecek
Odalar kaç tanedir ?

alphae · 30 Ağustos 2015, 17:31

simdi uste verdim komut .gir dedinde yazdigin her odaya giriyor bot sajoin ile aliyor belirledigim oda sayisi 6 yani istiyorum ki .gir dediginde soyle giriyor .gir oyun .gir yarisma belirledigim bu 6 odanin ismini yazinca girsin digerlerine giremesin..

Heartbroken · 30 Ağustos 2015, 17:34

putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.

Yani Bot kendini Sokmaz,
Komutu .gir Diyeni sajoin eder.

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] < 2} {
        putserv "PRIVMSG $c :Hatalı Kullanım. $::komut #Kanal şeklinde Olmalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $c :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}

proc girmsg {n u h a} {
        set knl [lindex [split $a] 0]
   if {[string length $knl] < 2} {
        putserv "PRIVMSG $n :Hatalı Kullanım. $::komut #Kanal şeklinde Olmalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $n :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}

Botun Belirtilen Kanala
Girmesi isteniyorsa,
# channel add $knl
Satırının başındaki # Kaldırın.
Bu Kod Tcl8.5 ve Üzerinde İşler.

Girilmesine izin verdiğiniz Kanallar ,
set cici Ayarında sıralanmalı.

alphae · 30 Ağustos 2015, 17:41

Yani alta verdiginiz kod ornek user .gir oyun dediginde # isareti koymadan odada veya botun ozelinde bot odaa .gir ankara dediginde bot onu atmicak odaya degilmi ?

Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.

Yani Bot kendini Sokmaz,
Komutu .gir Diyeni sajoin eder.

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] < 2} {
        putserv "PRIVMSG $c :Hatalı Kullanım. $::komut #Kanal şeklinde Olamalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $c :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}

proc girmsg {n u h a} {
        set knl [lindex [split $a] 0]
   if {[string length $knl] < 2} {
        putserv "PRIVMSG $n :Hatalı Kullanım. $::komut #Kanal şeklinde Olamalı."
        return
   } elseif {![string equal {#} [string index $knl 0]]} {
        putserv "PRIVMSG $n :Hatalı #Kanal adı girdiniz."
        return
   } elseif {$knl ni $::cici} {
        putserv "PRIVMSG $n :$knl Kanalı yasaklı listemde. Red edildi."
        return
   } else {
        # .gir Komutunu kullananı sajoinler.
        putquick "SAJOIN $n $knl"
        # Botu O kanala sokar.
        # channel add $knl
   }
}

Botun Belirtilen Kanala
Girmesi isteniyorsa,
# channel add $knl
Satırının başındaki # Kaldırın.
Bu Kod Tcl8.5 ve Üzerinde İşler.

alphae · 30 Ağustos 2015, 17:55

bot her oda var bu komutu user icin kulanmak istiyorum yani userler .gir oyun dediginde girisin botun ozelinde yada kanalda .gir ankara dediginde giremesin belirledim 6 oda disinda .gir istanbul dese bile bot onu sajoin ile aliyor odaya bu olmasin istiyorum

Heartbroken · 30 Ağustos 2015, 18:03

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.

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)

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.