home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / VISA39_1.LHA / Visage / Rexx / Visage_Slideshow.dopus5
Encoding:
Text File  |  1995-08-18  |  2.2 KB  |  64 lines
  1. /* Visage_Slideshow for Directory Opus 5 and Visage.
  2.    By Leo Davidson ("Nudel", Pot-Noodle/Gods'Gift Utilities)
  3.  
  4. $VER: Visage_Slideshow.dopus5 1.2 (18.8.95)
  5.  
  6.    NOTE: This script _requires_ DOpus v5.11 or above.
  7.  
  8.    This simple script will call "Visage" to display a slideshow of all
  9.    pictures in the source-lister's path. A requester will appear so that you
  10.    can give it a password to xpk-decrypt the pictures with, if required.
  11.  
  12.    To change the amount of time pictures are displayed for, alter the
  13.    "Visage_Delay" variable below (time in seconds).
  14.  
  15. Call as:
  16. ------------------------------------------------------------------------------
  17. ARexx        DOpus5:ARexx/Visage_Slideshow.dopus5 {Qp} {s}
  18. ------------------------------------------------------------------------------
  19. Turn off all switches.
  20.  
  21.    v1.00 -> v1.01 - Very minor tidying up.
  22.                     Now checks to make sure the DOPUS.x port exists.
  23.     v1.01 -> v1.2 - Now uses Show() instead of ShowList(). (Thanks Stoebi)
  24.                     Style Guide compliant version numbering and $VER string.
  25.  
  26. */
  27. /*- Path to Visage command -------------------------------------------------*/
  28. Visage_Path  = "DH0:Tools/Art/Utils/Visage"
  29. /*- Delay variable ---------------------------------------------------------*/
  30. Visage_Delay = 5
  31. /*--------------------------------------------------------------------------*/
  32. options results
  33. options failat 99
  34. signal on syntax;signal on ioerr        /* Error trapping */
  35. parse arg DOpusPort source_path.0
  36. DOpusPort = Strip(DOpusPort,"B",'" ')
  37. source_path.0 = Strip(source_path.0,"B",'" ')
  38.  
  39. If DOpusPort="" THEN Do
  40.     Say "Not correctly called from Directory Opus 5!"
  41.     Say "Load this ARexx script into an editor for more info."
  42.     EXIT
  43.     END
  44. If ~Show("P",DOpusPort) Then Do
  45.     Say DOpusPort "is not a valid port."
  46.     EXIT
  47.     End
  48. Address value DOpusPort
  49.  
  50. dopus getstring '"Enter password, if required" 256 "" Okay|Cancel'
  51.  
  52. If DOPUSRC = 0 Then
  53.     Exit
  54. Else
  55.     If Result = "RESULT" Then
  56.         Visage_Password = ""
  57.     Else
  58.         Visage_Password = ' PASSWORD "' || RESULT || '"'
  59.  
  60. address command Visage_Path source_path.0 || "#? DELAY" Visage_Delay Visage_Password "NOBUSY FOREVER QUIET RANDOM WAITFORPIC CENTRE"
  61.  
  62. syntax:;ioerr:                /* In case of error, jump here */
  63. EXIT
  64.