proc fillques {nick uhost hand chan text} { set start 0 set data [split $text] set amount [lindex $data 1] set waittime [lindex $data 0] set filename [ini_read "mp3leech.ini" "mp3" "mp3leech_list"] set channel [ini_read "mp3leech.ini" "mp3" "mp3leech_channel"] set current [ini_read "mp3leech.ini" "mp3" "mp3leech_line"] set total [ini_read "mp3leech.ini" "mp3" "mp3leech_total"] set data [split [read [open $filename]] \n] set total [llength $data] if {$start < $amount} { utimer $waittime [makereq $channel [lindex $data $current]] incr current incr start } }