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