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

Sayfa 5 Toplam 6 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - .gir kanal komutu hakkinda (https://www.ircforumlari.net/eggdrop-neostats-bnc/701238-gir-kanal-komutu-hakkinda.html)

Heartbroken

31 Ağustos 2015 01:11

Cevap: .gir kanal komutu hakkinda

Kod:

 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

Cevap: .gir kanal komutu hakkinda

Bu kodu denedin mi ?

Kod:

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

Cevap: .gir kanal komutu hakkinda

hic calismio :) olmadi ozelde nede kanalda isimiz kolay olsun bari ozeli cikaralim sadece kanalda calistiraim bu kodu olmazmi

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680925)

Kod:

 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

Cevap: .gir kanal komutu hakkinda

saece kanalda olsun dedim olmadi :D

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

Cevap: .gir kanal komutu hakkinda

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:

 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

Cevap: .gir kanal komutu hakkinda

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

Cevap: .gir kanal komutu hakkinda

aha bole cailismio ) tcl yukseltim daha once sadece oyuna giriyordu oda giti :)

PHP- Kodu:

   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

Cevap: .gir kanal komutu hakkinda

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
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-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

Cevap: .gir kanal komutu hakkinda

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

eggdop1.6.21 yukseltim hepsini yukseltim oyun botlarim hpsi bozuldu soruyu iki defa soruyor :D

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680933)

alphae

31 Ağustos 2015 01:51

Cevap: .gir kanal komutu hakkinda

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

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:16.

Sayfa 5 Toplam 6 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster