Söz oku tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kimimben · 09 Şubat 2016, 01:37

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 · 10 Şubat 2016, 16:18

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

No_FeaR · 10 Şubat 2016, 22:14

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 · 11 Şubat 2016, 01:49

[Ü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 · 11 Şubat 2016, 21:29

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

Kimimben · 13 Şubat 2016, 02:17

Bilgisi olan yok mu

Heartbroken · 13 Şubat 2016, 16:30

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
}

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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.