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

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

- - Söz oku tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/726634-soz-oku-tcl.html)

Kod:

 # Güzel Söz okuyan TCL Bot.!! #

# Coced : KurtaLan ( satis@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]inet.com )

# Önceden Kodladığınız Sözleri Karışık Şekilde Botun Bulunduğu kanal a Yazıyor.. #

# kullanimi !soz oku seklinde. ( botun özeline değil. kanal geneline.. #

# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #

set soz {

sözler

sözler

sözler

sözler

sözler

# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!

bind pub - !soz tell_that

proc tell_that {nick uhost hand chan $rand} {

global soz

putserv "privmsg $chan 4 $nick 2 Komik Söz Isteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| "

}

Elimdeki böyle bir tcl var ve sözler ekli o sözleri #kanal da !soz yazarak okutuyorum ama sırayla değil karışık okuyor bazen aynı şeyi bir kaç defa okuyor ben bunu sırayla okuması için ne yapabilirim

Cevap: Söz oku tcl

Şuanda İşteyim, Akşama Kadar Yardımcı Olan Çıkmazsa Seve Seve Halederiz.. (;

Cevap: Söz oku tcl

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041740138)

Kod:

 # Güzel Söz okuyan TCL Bot.!! #

# Coced : KurtaLan ( satis@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]inet.com )

# Önceden Kodladığınız Sözleri Karışık Şekilde Botun Bulunduğu kanal a Yazıyor.. #

# kullanimi !soz oku seklinde. ( botun özeline değil. kanal geneline.. #

# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #

set soz {

sözler

sözler

sözler

sözler

sözler

# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!

bind pub - !soz tell_that

proc tell_that {nick uhost hand chan $rand} {

global soz

putserv "privmsg $chan 4 $nick 2 Komik Söz Isteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| "

}

Öncelik Kodunuz da ki Üstten Tırnak İşaretleri Eksik '' '' Onlardan Dolayı Çalışmamıştır.
Altta Çalışan Kodu Veriyorum, Kendinize Göre Düzenlersiniz...

Kod:

# Güzel Söz okuyan TCL Bot.!! #

#

# Önceden Kodladığınız Sözleri Karışık Şekilde Botun Bulunduğu kanal a Yazıyor.. #

# kullanimi !soz oku seklinde. ( botun özeline değil. kanal geneline.. #

# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #

set soz {

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"

"Söz"}

# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!

bind pub - !soz tell_that

proc tell_that {nick uhost hand chan $rand} {

global soz

putserv "privmsg $nick 4 $nick 12 Güzel Söz İsteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| == GüzeL Söz Budur ;) =="

}

Cevap: Söz oku tcl

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam tırnak işaretleri vardı ben sadece sözler uzun uzun çıkmasın diye orada kısa kısa geçtim yani tırnak işaretleri mevcut ama sıradan yapmıyor karışık yapıyor

Cevap: Söz oku tcl

Biraz Araştırmak Lazım.. Vardı Bir Kod Ama Bulamadım O Yüzden Saksı Sarmadı.. (;

Cevap: Söz oku tcl

Kod:

set soz {

"sözler"

"sözler"

"sözler"

"sözler"

"sözler"

}

set ::say 0

# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!

bind pub - !soz tell_that

proc tell_that {nick uhost hand chan text} {

 if {[llength $::soz] < [expr {$::say + 1}]} { set ::say "0" }

     putserv "privmsg $chan :\00304$nick\003 \00302Komik Söz Isteğiniz\003 : \002|\002 \00307[lindex $::soz $::say]\003 \002|\002"

     incr ::say

}