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

Heartbroken · 31 Ağustos 2015, 01:11

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...]

rascoLn · 31 Ağustos 2015, 01:15

Bu kodu denedin mi ?

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

bind pub - .gir joinchan

set kanallar "oyun radyo istanbul zurna ankara"

proc joinchan { n u h c a } {
if { [lsearch -exact $::kanallar [string map {"#" ""} [lindex $a 0]]] > -1 } {
putquick "SAJOIN $n #$a"
}
}

alphae · 31 Ağustos 2015, 01:19

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...]

alphae · 31 Ağustos 2015, 01:20

saece kanalda olsun dedim olmadi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alıntı:

set komut ".gir"

set cici[list oyun kelime test sohbet yarisma]

bind pub - $komut girpub

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

Heartbroken · 31 Ağustos 2015, 01:23

Nasıl Olmaz Yahu.
Herşey Yerli Yerinde.

.restart edip bot Hafızasını
Temizleyin eski Bindlerden.

bind msg satırını unbind yada
#bind msg yaparsanız
Etkisiz - Devredışı Olur.

Kod Debug yapalım Böyle deneyin
Denerken Bota bağlanıp gelecek
Mesajları takip Edin.

Nerede Takıldığı Hakkında Fikir
Verecektir.

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
        }
        putlog "istenen kanal $knl"
        if {[string equal {#} [string index $knl 0]]} {
               set hedef [string range $knl 1 end]
        } else { 
               set hedef $knl
        }
        putlog "hedef kanal : $hedef"
         if {[lsearch -nocase $::cici $hedef] eq -1} {
              putlog "yasak kanal : $hedef"
              putserv "PRIVMSG $c :$knl Kanalı yasaklı listemde. Red edildi."
              return
         } else {
         # .gir Komutunu kullananı sajoinler.
             putlog "Girilecek kanal : $hedef"
             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
         }
}

alphae · 31 Ağustos 2015, 01:24

eggdrop -nm duygu.conf

olmuyor almiyor odalara temizledim botun tum dosyalarini pid vs

[01:22:13] Tcl error [girpub]: bad option "-nocase": must be -all, -ascii, -decr easing, -dictionary, -exact, -glob, -increasing, -inline, -integer, -not, -real, -regexp, -sorted, or -start

alphae · 31 Ağustos 2015, 01:26

aha bole cailismio ) tcl yukseltim daha once sadece oyuna giriyordu oda giti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PHP 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

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

Heartbroken · 31 Ağustos 2015, 01:30

Allah'ım
Tcl 8.4'te lsearch'ün -nocase
Option - seçeneği Yoktu.
Sonradan 8.5 ile Birlikte eklendi.

Kanal Adlarında Büyük-Küçük
Harf Yazılmış Olması fark etmesin
Diyerek ekledim -nocase 'i
-exact Kullanılırsa yada hiç
-Option belirtilmezse -glob
Olarak Bakar ki,
Büyük-Küçük Harf Duyarlıdır.

Aynen set cici listesinde
Yazıldığı Haliyle ister.

Bknz Bu Tclsh8.6

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

-1 Dönmesi eşleşmedi / Listede Yok
Olumsuz.
0 Dönmesi Olumlu Eşleşme Var.

Şimdi 8.5 ilede Denedim
lsearch -nocase $list $str
İşliyor.
Siz sürüm Yükseltmemiş miydiniz ?

alphae · 31 Ağustos 2015, 01:46

tcl8.6.4-src.tar.gz kurdum..

eggdop1.6.21 yukseltim hepsini yukseltim oyun botlarim hpsi bozuldu soruyu iki defa soruyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Allah'ım
Tcl 8.4'te lsearch'ün -nocase
Option - seçeneği Yoktu.
Sonradan 8.5 ile Birlikte eklendi.

Kanal Adlarında Büyük-Küçük
Harf Yazılmış Olması fark etmesin
Diyerek ekledim -nocase 'i
-exact Kullanılırsa yada hiç
-Option belirtilmezse -glob
Olarak Bakar ki,
Büyük-Küçük Harf Duyarlıdır.

Aynen set cici listesinde
Yazıldığı Haliyle ister.

Bknz Bu Tclsh8.6

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

-1 Dönmesi eşleşmedi / Listede Yok
Olumsuz.
0 Dönmesi Olumlu Eşleşme Var.

Şimdi 8.5 ilede Denedim
lsearch -nocase $list $str
İşliyor.
Siz sürüm Yükseltmemiş miydiniz ?

alphae · 31 Ağustos 2015, 01:51

sen hangi versionda deniyorsun eggdrop surumu kac vs soyersen hocam calisiyosa bende onlari kurarim.

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.