Untitled

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]
 while {$start < $amount} {
   every $waittime [makereq $channel [lindex $data $current]]
 incr current
 incr start
 }
}