home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / opus / opus-5.x / xpkdc / xpkdc.dopus5 < prev    next >
Encoding:
Text File  |  1998-02-09  |  968 b   |  58 lines
  1. /*
  2.  $VER: XPKdc.dopus5 1.0 (02.03.98)
  3.  Ecrit par / written by
  4.  Fabien Conus
  5.  Utiliser des fichiers XPK comme des fichiers normaux /
  6.  To use XPK-packed files as if they where normal files
  7.  Appelé par: / Call as
  8.  <AREXX>DOpus5:ARexx/XPKdc.dopus5 {s} {o}
  9. */
  10.  
  11. options results
  12. options failat 99
  13. parse arg '"' chemin '"' nom
  14.  
  15. if Show("P","DOPUS.1") then
  16.  address "DOPUS.1"
  17. Else Do
  18.  exit
  19.  end
  20.  
  21. dopus version
  22. If ( result='RESULT' | translate(result,'.',' ') < 5.1218 ) then do
  23.         dopus request '"Ce script nécessite DOpus v5.5 ou plus/Needs DOpus v5.5 or more" OK'
  24.  exit
  25.  end
  26.  
  27. nom=strip(nom)
  28. nom=strip(nom,'L','"')
  29.  
  30. file='"'chemin''nom
  31.  
  32. dopus front
  33. address command 'c:copy 'file' TO t: quiet'
  34. address command 'c:xPack "t:'nom''
  35. command wait doubleclick '"t:'nom''
  36. address command wait
  37.  
  38. effacement:
  39.  
  40. address command 'delete "t:'nom' quiet'
  41.  
  42. signal erreur
  43.  
  44. exit
  45.  
  46. erreur:
  47. say RC
  48. if RC=20 then do
  49.     address command 'delete "t:'nom' quiet'
  50.     Call effacement
  51. end
  52.  
  53. exit
  54.  
  55.  
  56.  
  57.  
  58.