IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
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)

alphae 30 Ağustos 2015 13:59
.gir kanal komutu hakkinda
 
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
Cevap: .gir kanal komutu hakkinda
 
Kod:
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
Cevap: .gir kanal komutu hakkinda
 
him bot sajoin yapio zaten o odalara atcak beni onemli olan belrledigim odalar disindaki odalara girmesin..

Heartbroken 30 Ağustos 2015 17:01
Cevap: .gir kanal komutu hakkinda
 
Tcl Versionu nedir?
ve Belirlediğiniz girilecek
Odalar kaç tanedir ?

alphae 30 Ağustos 2015 17:31
Cevap: .gir kanal komutu hakkinda
 
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
Cevap: .gir kanal komutu hakkinda
 
putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.

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

Kod:
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
Cevap: .gir kanal komutu hakkinda
 
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 ?



Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680832)
putquick "sajoin $nick #$knl"
Burada $nick Komutu Kullanan
Kişidir.

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

Kod:
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
Cevap: .gir kanal komutu hakkinda
 
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
Cevap: .gir kanal komutu hakkinda
 
Kod:
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
Cevap: .gir kanal komutu hakkinda
 
Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680835)
Kod:
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
}
}

Heartbroken 30 Ağustos 2015 18:19
Cevap: .gir kanal komutu hakkinda
 
Kod da Yazım Hatası Yok.
Botu .restart edip deneyin.

Cevap vermiyorsa bota Bağlanın .
.tcl info pa
Komutu Tcl sürümünü verir.

Yada Shell üzerinde önce
tclsh sonra info patchlevel
Aynı işi Görür.

Yada Shell üzerinde Direk
echo 'puts [info patchlevel]' | /usr/local/bin/tclsh8.5
yada tcl sürümü Herneyse işte ,
8.5 yerine O Konulmalı.

Komutu Uygularken,
Hata Alınmadığını Kontrol edin.

alphae 30 Ağustos 2015 18:27
Cevap: .gir kanal komutu hakkinda
 
bu ozelde

Duygu çıkış yaptı (Client exited).
<nnn> .gir**oyun
<nnn> .gir**#test


bu oda yaptigim komut
cambaz (Client exited).
<SessizMavi> :))
<nnn> .gir**oyun


.eggdrop -nm die baslatim hata yok..



Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680839)
Kod da Yazım Hatası Yok.
Botu .restart edip deneyin.

Cevap vermiyorsa bota Bağlanın .
.tcl info pa
Komutu Tcl sürümünü verir.

Yada Shell üzerinde önce
tclsh sonra info patchlevel
Aynı işi Görür.

Yada Shell üzerinde Direk
echo 'puts [info patchlevel]' | /usr/local/bin/tclsh8.5
yada tcl sürümü Herneyse işte ,
8.5 yerine O Konulmalı.

Komutu Uygularken,
Hata Alınmadığını Kontrol edin.

alphae 30 Ağustos 2015 18:28
Cevap: .gir kanal komutu hakkinda
 
[18:26] Tcl error [girpub]: syntax error in expression "$hedef ni $::cici": extra tokens at end of expression

ozelde .gir oyun dedim

ve kanalda .gir oyun dedim

[18:26] Tcl error [girmsg]: syntax error in expression "$hedef ni $::cici": extra tokens at end of expression

Heartbroken 30 Ağustos 2015 18:37
Cevap: .gir kanal komutu hakkinda
 
Tcl sürümünüzü Söylemediniz.
Özellikle Belirttim Bu koddaki
Tcl Komutları 8.5 ve üstü
Sürümlerce Desteklenir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yazım Hatası Yok Kod da,

Kod:
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
        }
        foreach hmm [split $::cici " "] {
        if {![string match -nocase $hedef $hmm]} {
              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
        }
       
     
        foreach hmm [split $::cici " "] {
        if {![string match -nocase $hedef $hmm]} {
              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
        }
    }
}
Böyle deneyin.

alphae 30 Ağustos 2015 18:43
Cevap: .gir kanal komutu hakkinda
 
kod yazim hatasi var örnek botun ozelinde veya kanalda .gir oyun dediginde
bot bu hatayi ekrana veriyor ./eggdrop -nm bot.conf bu sekilde calistirdim
.gir demedigin surece altaki hatayi vermiyor

[18:26] Tcl error [girpub]: syntax error in expression "$hedef ni $::cici": extra tokens at end of expression

Heartbroken 30 Ağustos 2015 18:45
Cevap: .gir kanal komutu hakkinda
 
Yazım Hatası Değil O
Sizdeki Tcl sürümü
ni in Komutlarını Tanımıyor.
Ki Bunlar 8.5 ve üstündeki
Tcl sürümlerince Destekleniyor.

Yazım Hatası Olmadığını
Göstermek için O Tcl Paste
Linkini verdim.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Hatalar Üstte Kırmızı Büyük harflerle
ERROR olarak Belirtiliyor.

if {$hedef ni $::cici} {
Satırları :
if {[lsearch $::cici $hedef] >= 0} {
Olarak değişebilirsiniz.
Bunu 8.4'te destekliyor.

alphae 30 Ağustos 2015 18:54
Cevap: .gir kanal komutu hakkinda
 
8.5.0 kurdum onu gormuyor..

Heartbroken 30 Ağustos 2015 19:29
Cevap: .gir kanal komutu hakkinda
 
8.4 Tarih oldu.
Windows XP yada 98'in
Konumu Neyse Tcl8.4'lerin
Durumu Aynı.

Tedavülden kalktı.
Artık üretilmiyor.Desteklenmiyor.

Sorun Sanırım Shellcilerin,
Hala 10 yıl Evvel yazılmış
Oto kurulumları ve Oradan ,
Buradan Buldukları eski Dosyaları
Kullanmaları.

8.5.0 Bile Çok Çok eski.
8.4 Resmen Antika.

Win8 yada 10 Varken şimdi
Kim XP yada Win98 Kullanıyor?

Kim şimdiki Bilmem kaç Çekirdekli,
Bilmem kaç Gb Ram'li PC'sini
Bırakırda 10 Yıl evvelki Hurdayı
Kullanır?

8.6.4 varken , bilmem Kaç
Yıl evvel Çıkmış Birşeyi niye
Kullanmak isteyesiniz ki ?
Parayla da Değil ,
Beleş Sonuçta.

Yeni ,Son birkaç Yıl İçinde
Yazılmış bir Script Kullanmaya
Kalksanız çoğu çalışmayacaktır.
Birkaç Script Yazarı Hariç,
Hemen Tümü Yeni
Tcl sürümlerini takip eder.
O'nun getirdiklerini Kullanır.

libtcl8.5.so ve tcl.h
Tam dizinini Göstermelisiniz.
./configure --with-tcllib=/usr/local/lib/libtcl8.5.so --with-tclinc=/usr/local/include/tcl.h
gibi.
Sizde Nerdeyseler Öyle.

No_FeaR 30 Ağustos 2015 21:38
Cevap: .gir kanal komutu hakkinda
 
Ben XP Kullanıyorum ;p

alphae 30 Ağustos 2015 21:54
Cevap: .gir kanal komutu hakkinda
 
oot@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [~/tcl8.5.0/unix]# make install
Installing libtcl8.5.so to /usr/local/lib/
Installing tclsh as /usr/local/bin/tclsh8.5
Installing tclConfig.sh to /usr/local/lib/
Installing libtclstub8.5.a to /usr/local/lib/
Installing message catalogs
Creating msgs
Installing header files
Installing library files to /usr/local/lib/tcl8.5
Installing library http1.0 directory
Installing package http 2.5.3 as a Tcl Module
Installing library opt0.4 directory
Installing package msgcat 1.4.2 as a Tcl Module
Installing package tcltest 2.3.0 as a Tcl Module
Installing package platform 1.0.3 as a Tcl Module
Installing package platform::shell 1.1.3 as a Tcl Module
Installing library encoding directory
Installing and cross-linking top-level (.1) docs
Installing and cross-linking C API (.3) docs
Installing and cross-linking command (.n) docs

kurdum yeniden tcl ve alta egdrop kuruyorum hata.






libtcl8.5.so ve tcl.h
Tam dizinini Göstermelisiniz.
./configure --with-tcllib=/usr/local/lib/libtcl8.5.so --with-tclinc=/usr/local/include/tcl.h
gibi.
Sizde Nerdeyseler Öyle.

ayni sekilde yaptim hata mesaji


./eggdrop: error while loading shared libraries: libtcl8.5.so: cannot open shared object file: No such file or directory
make: *** [modules] Error 127







Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680844)
Yazım Hatası Değil O
Sizdeki Tcl sürümü
ni in Komutlarını Tanımıyor.
Ki Bunlar 8.5 ve üstündeki
Tcl sürümlerince Destekleniyor.

Yazım Hatası Olmadığını
Göstermek için O Tcl Paste
Linkini verdim.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Hatalar Üstte Kırmızı Büyük harflerle
ERROR olarak Belirtiliyor.

if {$hedef ni $::cici} {
Satırları :
if {[lsearch $::cici $hedef] >= 0} {
Olarak değişebilirsiniz.
Bunu 8.4'te destekliyor.

alphae 30 Ağustos 2015 22:05
Cevap: .gir kanal komutu hakkinda
 
/usr/local/src/tcl8.5.18/unix kurdum :) yine olmadi

Heartbroken 30 Ağustos 2015 22:30
Cevap: .gir kanal komutu hakkinda
 
Bakın Şurada :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
nrt'nin Hazırladığı süper Detaylı
bir Dökümanı var.

Komutları Takip edin yeterli.

Tcl Son Sürümü 8.6.4
Bu:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu link Tcl / tk
Geliştiricilerinin Sunucusunun
ftp Adresi.
Dosyayı direk Yapanların
Elinden almış Olacaksınız.

No_FeaR 30 Ağustos 2015 23:27
Cevap: .gir kanal komutu hakkinda
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Daha da Olmadı, Bence @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'e Bilgilerini Ver O Ayarlasın En Kısa Çözüm.. : )

alphae 30 Ağustos 2015 23:32
Cevap: .gir kanal komutu hakkinda
 
bu verdiginiz centos5.11 32 bit lunux icin degilmi ?




Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680887)
Bakın Şurada :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
nrt'nin Hazırladığı süper Detaylı
bir Dökümanı var.

Komutları Takip edin yeterli.

Tcl Son Sürümü 8.6.4
Bu:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu link Tcl / tk
Geliştiricilerinin Sunucusunun
ftp Adresi.
Dosyayı direk Yapanların
Elinden almış Olacaksınız.

alphae 30 Ağustos 2015 23:48
Cevap: .gir kanal komutu hakkinda
 
cok garip ls ile kalsorleri kontrol ediyorum yolari dogru dir ile yada

./configure --with-tcllib=/usr/local/lib/libtcl8.6.so --with-tclinc=/usr/local/include/tcl.h

usteki komutu kulaniyorum make config ardindan make yapinca ki yolunu dogru veriyorum tcl de dogru kuruyorum sorun :)

./eggdrop: error while loading shared libraries: libtcl8.6.so: cannot open shared object file: No such file or directory
make: *** [modules] Error 127

alphae 31 Ağustos 2015 00:10
Cevap: .gir kanal komutu hakkinda
 
kurulum tamam hata cozuldu sira su botun tcl haletmek

SeckiN 31 Ağustos 2015 00:12
Cevap: .gir kanal komutu hakkinda
 
Bunu dene bakalım. Botun os raw erişimi olsun.

Kod:
set admin_chan #Opers
set oyunamcalar "#Bilmece,#Carkifelek,#Oyun,#isLam,#Kelime,#Test,#Yarisma"
bind pub - !gir oynmc

proc oynmc { n u h c a } {

  global oyunamcalar admin_chan

    putquick "OS Raw svsjoin $n $oyunamcalar"
    putquick "privmsg $c :12Oyun Kanallarina Girisiniz Basariyla Saglandi $n"
    putquick "privmsg $admin_chan :$n nickli kullanıcı, tüm oyun kanallarına giriş yaptı."
}

Heartbroken 31 Ağustos 2015 00:16
Cevap: .gir kanal komutu hakkinda
 
nrt O Anlatımda Debian
Kullanmış.
CentOS Redhat Tabanlı bir
Dağıtım,

Oradakiyle Belirgin ,
Dikkat edeceğiniz farklar.
apt-get install ...
Değil
yum install ...
Debian RPM ile apt-get Kullanır.

Diğer Mühim farkı
gcc, make , gcc-c++ gibi
Bağımlılıkları Yüklemede
Debian,Ubuntu gibi Dağıtımlarda
sudo apt-get install build-essantial
Kullanılırken CentOS da bu iş
sudo yum groupinstall "Development Tools" -y && sudo yum install kernel-devel -y
yada
sudo yum install gcc gcc-c++ kernel-devel
Şeklinde İşliyor.
O anlatımdakiyle sizin
CentOS arasında Uygulamada
Farklılıkları bunlar.

./configure Dan sonra,
make config Den evvel
export etmelisiniz.
nrt Orada Bash ve csh Shell
İçin ayrı iki Yolu Yazmış.

Sizde Büyük ihtimal Bash
Kullanıyorsunuzdur.
export LD_LIBRARY_PATH=/usr/local/lib:${LD_LIBRARY_PATH}
export TCL_LIBRARY=/usr/local/lib/tcl8.6
Doğru dizinler ve
Doğru Tcl sürümünü Göstererek
Uyguladıktan sonra ,
make config ile
Devam ediyorsunuz.

alphae 31 Ağustos 2015 00:26
Cevap: .gir kanal komutu hakkinda
 
simdi hocam bot oluyor ama sole bir sorun var .gir oyun diyorum ondan sonraki kanalari gormuyor
virgulude kulandim ilk oyun yazana aliyor digerlerine almiyor

set komut ".gir"

set cici "oyun yarisma kelime sohbet teylo ops avrupa test help"


set komut ".gir"

set cici "oyun , yarisma , kelime , sohbet , teylo , jm , ops , avrupa ,test , help"




Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680844)
Yazım Hatası Değil O
Sizdeki Tcl sürümü
ni in Komutlarını Tanımıyor.
Ki Bunlar 8.5 ve üstündeki
Tcl sürümlerince Destekleniyor.

Yazım Hatası Olmadığını
Göstermek için O Tcl Paste
Linkini verdim.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Hatalar Üstte Kırmızı Büyük harflerle
ERROR olarak Belirtiliyor.

if {$hedef ni $::cici} {
Satırları :
if {[lsearch $::cici $hedef] >= 0} {
Olarak değişebilirsiniz.
Bunu 8.4'te destekliyor.

Heartbroken 31 Ağustos 2015 00:30
Cevap: .gir kanal komutu hakkinda
 
cici Ayarında arada bir
Boşlukla girilmeli ,
Siz Tek Komutla Hepsine mi
Girilsin istemiştiniz ki ?

Öyle ise:
putquick "SAJOIN $n #$hedef"
Satırlarını:
putquick "SAJOIN $n #[join $::cici {,#}]"
Olarak Değişin.

Cicilerden Herhangi Biri
Yazılsa Hepsine Birden Sokar.

Yani : .gir oyun Dense
#oyun #yarisma #kelime #sohbet ...
Hepsine birden Sajoin Edilir.

alphae 31 Ağustos 2015 00:32
Cevap: .gir kanal komutu hakkinda
 
hayir .gir oyun .gir yarisma bole olsun isitiyorum

alphae 31 Ağustos 2015 00:37
Cevap: .gir kanal komutu hakkinda
 
tek bosluk verdim vurgul verdim olmadi.

.gir oyun dedim giriyor
.gir yarisma dedim girmedi
.gir test girmedi

Heartbroken 31 Ağustos 2015 00:47
Cevap: .gir kanal komutu hakkinda
 
set cici Ayarındaki Kanal
Adlarını :
set cici [list oyun yarışma help]
Gibi girip Deneyiniz.

Ve Kodun sizdeki
Şimdiki Halini Bir gösterirseniz.
Ben Saklamadım Çünkü.

alphae 31 Ağustos 2015 00:50
Cevap: .gir kanal komutu hakkinda
 
hepsine birden girmesini istemiyorum .gir oyun dediginde sadece oyuna girsin
.gir yarisma dediginde sadece yarismaya

sizin verdiginiz kod ile .gir oyun diyorum oyuna giriyor ardindan
.gir yarisma diyorum girmiyor ilk .gir yarisma diyorum girmiyor



Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680911)
cici Ayarında arada bir
Boşlukla girilmeli ,
Siz Tek Komutla Hepsine mi
Girilsin istemiştiniz ki ?

Öyle ise:
putquick "SAJOIN $n #$hedef"
Satırlarını:
putquick "SAJOIN $n #[join $::cici {,#}]"
Olarak Değişin.

Cicilerden Herhangi Biri
Yazılsa Hepsine Birden Sokar.

Yani : .gir oyun Dense
#oyun #yarisma #kelime #sohbet ...
Hepsine birden Sajoin Edilir.

rascoLn 31 Ağustos 2015 00:50
Cevap: .gir kanal komutu hakkinda
 
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 00:57
Cevap: .gir kanal komutu hakkinda
 
anlatamadim derdimi

tek tek alsin belirledim 8 oda var .gir sohbet dediginde sohbet girsin
.gir yarisma dediginde orya girsin toplu girmesini istemiyorum
istiyorum ki gir oyun dediginde giriyor .gir yarisma dedigindede girsin

ilk aldim kod calsiyor basdaki oyunu goruyor diger odalari gormuyor.

[00:53] <%umut> .gir kelime
[00:53] <Duygu> kelime Kanalı yasaklı listemde. Red edildi.


.gir oyun
0:56] *** You were forced to join #oyun
[00:56] *** Notice -- Duygu used SAJOIN to make umut join #oyun

Heartbroken 31 Ağustos 2015 00:59
Cevap: .gir kanal komutu hakkinda
 
Şu Kullandığınız Bottaki
Kodu Bir Postalayıverin.

alphae 31 Ağustos 2015 01:00
Cevap: .gir kanal komutu hakkinda
 
Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1041680921)
Şu Kullandığınız Bottaki
Kodu Bir Postalayıverin.

altaki kod calisiyor ama sadece oyunu goruyor diger odayi gormuyor
.gir yarisma diyorum girmiyor .gir oyun diyince giriyor..

PHP- Kodu:
set komut ".gir"

set cici "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
        }
        foreach hmm [split $::cici " "] {
         if {![string match -nocase $hedef $hmm]} {
              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
        }
        
       
        foreach hmm [split $::cici " "] {
         if {![string match -nocase $hedef $hmm]} {
              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:04
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
        }
}
deneyin Şimdi.

alphae 31 Ağustos 2015 01:09
Cevap: .gir kanal komutu hakkinda
 
hata veriyor


[01:07:45] missing close-brace
while executing
"proc girmsg {n u h a} {
set knl [lindex [split $a] 0]
if {![string length $knl]} {
putserv "PRIVMSG $n :Hatalı Kullan..."
(file "scripts/a.tcl" line 31)
invoked from within
"source scripts/a.tcl"
(file "duygu.conf" line 128)
[01:07:45] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:23.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net