BARRE DE TEXTE DEFILANT

alias dbar { 
  if ($1 isnum 0-15 && $2 isnum && $3-) { 
    var %ù $calc($width($3-,tahoma,12) +25) 
    window -hbk0p +Ld @BDBar -1 -1 %ù 20 
    drawrect -f @BDBar $1 0 0 0 %ù 20 
    drawtext -pb @BDBar 1 $1 tahoma 12 2 2 $3- 
    window -abCdk0p +Led @DBar -1 -1 %ù 20 
    drawrect -f @DBar $1 0 0 0 %ù 20 
    set %dbar.ref $2 
    set %dbar.sens 37 
    dbar.refresh %ù %ù 
  } 
  else echo $color(info) * /dbar: invalid parameters 
} 
alias -l dbar.refresh { 
  if ($2 == $+(-,$1)) tokenize 32 $1 $1 
  elseif ($2 == $calc($1 *2)) tokenize 32 $1 $+(-,$1) 
  drawcopy @BDBar 0 0 $window(@BDBar).w $window(@BDBar).h @DBar $2 0 
  .timerdbar -m 1 $gettok(%dbar.ref,1,32) dbar.refresh $1 $calc($2 $iif(%dbar.sens == 37,-,+) 1) 
}
on *:KEYDOWN:@DBar:37,39:{ 
  %dbar.sens = $keyval 
  if (!$gettok(%dbar.ref,2,32)) %dbar.ref = $calc(%dbar.ref /2) 1 
} 
on *:KEYUP:@DBar:37,39:{ %dbar.ref = $calc($gettok(%dbar.ref,1,32) *2) } 
menu @DBar { 
  Fermer:.timerdbar off | close -@ @DBar | close -@ @BDBar | unset %dbar.*
}