proc skip_timer { } {

     global skip

     if { $skip > 0 } { set yzskiptimer [ utimer $skip skip_player ] }

}

proc kill_skip { } {

     global yzskiptimer
     catch { killutimer $yzskiptimer } kt_skip

}