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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - !oku komutu (https://www.ircforumlari.net/tcl-scriptler/502760-oku-komutu.html)

Selam .. Arkadaşlar ben kanala !oku yazdığım zaman .. Nick.txt de adı geçen botlardan herhangi bir tanesinin , Söz.txt deki sözlerden bir tanesini kanala yazmasını istiyorum .. böyle bir tcl varmı , yardımlarınız için şimdiden teşekkürler ....

Cevap: !oku komutu

PHP- Kodu:

    
# Random metinlerin bulunduğu klasör

 
set randomfile "scripts/soz.txt"

 
# Random Metin Bulucu

 
bind pub - !rastgele information

proc information {nick uhand host chan text} { 

  global randomfile

  set file [open $randomfile r]

  set data [read -nonewline $file]

  close $file 

  set lines [split $data "\n"]

  putquick "PRIVMSG #Sohbet [lindex $lines [rand [llength $lines]]]"

} 

 
putlog "Random Metin Bulucu - Written By CLubber"

* !rastgele komutu ile belirttiğin yerdeki herhangi bir satırı okur.

* #Sohbet kanalına mesaj gönderir, istersen değiştirebilirsin.