# 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"