set i 0
bind pubm - * proc:say

proc proc:say {nick uhost handle channel text} {
set lines [set fid [open E:/db/random.txt r]
set rand [split [read $fid] \n]]
set randline [lindex $lines [rand [llength $lines]]]
global i
set type [expr {int(rand()*2)}]

if {$channel == "#hyperunknown" || $channel == "#prim4x"} { incr i }

if {$i=="50"} { if {$type == "1"} {puthelp "PRIVMSG $channel :$nick: $randline"} else {puthelp "PRIVMSG $channel :$randline" } ; set i 0 }
}