[Kimimben]

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

 # 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

[No_FeaR]

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

[No_FeaR]

Kimimben 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! # 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

Ö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:   Kodu kopyalamak için üzerine çift tıklayın!

# 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 ;) =="
}

[Kimimben]

[Ü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

[No_FeaR]

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

[Kimimben]

Bilgisi olan yok mu

[Heartbroken]

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

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
}