Lecteur de divx avec annonce, sans zip

Commenter

Contenu du snippet

C'est un lecteur de divx , avec anonce. Mail il faut quand meme avoir un lecteur de divx sous windows , vous aller comprendre !

Source / Exemple : 


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):.
  }

Conclusion :


Je me suis inspirer d'un code existent deja ( il n'y avai que l'alias )
Ptetre que vou aller dir que c simple ou nul mais pour l'instant je n'ai pas en niveau evoluer en scripting
merci et bon mattage de divX
MISE A JOUR: Un ptit bug pour qeu ki lagai :)
sa prend directement sur la variable et po le $me

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Dark-Dragoon)