LECTEUR DE DIVX AVEC ANNONCE, SANS ZIP

Alias divX1 {
  /set %DivXFile $sfile(C:\_Div-X\,Choisissez un DivX,Ouvrir)
  if ($exists(%DivXFile) == $true) {  
    /dialog -x divx divx 
    /nick %ralf
    /run %DivXFile
    /echo -a 4 0,0
    /echo -a 4 **[ DivX Film]**[By Dragoon1]*****************
    /echo -a 4 - Tite du film: %DivXFile
    /echo -a 4 - Taille du film: $file(%DivXfile).size Ko
    /echo -a 4 *********************************************   
    /echo -a 4 0,0 
    /set %FileName $mid(%DivXFile,$poscs(%DivXFile,\,$count(%DivXFile,\)) + 1,$len(%DivXFile))
    /set %FileFullName $mid(%FileName,2,$len(%FileName))
    /set %FileShortName $remove($mid(%FileFullName,1,$poscs(%FileFullName,.,1) - 1),.)
    /set %FileExtensionName $remove($mid(%FileFullName,$poscs(%FileFullName,.,1),$len(%FileFullName)),.)
    /dialog -m lect lect
    /ame 4.:(12=> Je vais Regarder un DivX! <=4):. .:(12=> Taille du fichier: $bytes($file(%DivXfile).size,m).suf   <=4):. .:(12=> Et son titre est: %FilefullName <=4):. .:(12=> Lecteur DivX par DrAgOoN1 <=4):.
    /echo -a 4.:(12=> chargement en cours du Divx %filefullname  <=4):.
  }
  else {
    /echo -a 4 0,0
    /echo -a 4 **[ 12DivX Film4 ]**[12By Dragoon14]*****************
    /echo -a 4 - DivX a ete mal charger ou 
    /echo -a 4 - Le fichier n'existe pas
    /echo -a 4 *********************************************
    /echo -a 4 0,0
  }
}
alias divx { /dialog -m divx divx }
dialog Divx {
  title "Lecteur de DivX [By DrAgOoN1]"
  size -1 -1 144 75
  option dbu
  button "Choisi ton fichier a lire", 2, 4 28 132 12, flat
  text "Ton nick pendent la lecture", 1, 5 13 69 8
  edit "", 3, 72 12 66 10, autohs
  button "Fermer", 4, 78 59 58 12, flat ok cancel
  edit "", 5, 4 43 133 10, read autohs
}
on *:dialog:divx:init:*:{
  did -a divx 5 %FileFullName
}
on *:dialog:divx:sclick:3:{
  /active $did(divx,3)
}
on *:dialog:divx:sclick:2:{
  if ($did(3) != $null) {
    /set %ralf $did(divx,3)
    /divx1
  }
  else {
    /echo -a 4.:(12=> choisie dabord un pseudo ! <=4):.
  }
}
dialog lect {
  title "Lecture en cours:"
  size -1 -1 206 56
  option dbu
  edit "", 1, 40 4 164 10, read
  text "Nick Apres la lecture", 2, 5 28 53 8
  edit "", 3, 58 27 55 10, autohs
  button "Revenir", 4, 5 42 197 12, flat
  text "Divx en cours", 5, 5 5 34 8
  text "Mot de passe", 6, 114 28 35 8
  edit "", 7, 148 27 56 10
  text "Ton Nick en ce moment", 8, 5 16 59 8
  edit "", 9, 65 15 139 10, read
}
on *:dialog:lect:init:*:{
  did -a lect 1 %FileFullName
  did -a lect 9 %ralf
}
on *:dialog:lect:sclick:3:{
  /active $did(lect,3)
}
on *:dialog:lect:sclick:3:{
  /active $did(lect,7)
}
on *:dialog:lect:sclick:4:{
  if ($did(3) != $null) {
    /ame 4.:(12=> Me revoila apres mon ptit DivX ! <=4):.
    /nick $did(lect,3)
    /identify $did(lect,7)
    /dialog -x lect lect
  }
  else {
    /echo -a 4.:(12=> choisie dabord un pseudo ! <=4):.
  }