home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma62.dms / ma62.adf / VoyView / VoyView.e < prev    next >
Text File  |  1980-01-06  |  4KB  |  135 lines
  1. ;*****************************************************************************************
  2. ;*                   Voy-View 1.00 (c) 1996 Richter Arno                                 *
  3. ;*                                                                                       *
  4. ;* The script is divided in several blocks (datatypes), which means that every block     *
  5. ;* is nearly identical.                                                                  *
  6. ;* The differences are the text at >requestchoice<, the viewer and the IDs (JPEG,GIF,..  *
  7. ;*                                                                                       *
  8. ;* Lines to edit I have marked with >******<                                             *
  9. ;*                                                                                       *
  10. ;* On my system the MUI-Screen is named >MUI-Screen.16bit< and runs under CyberGFX       *
  11. ;* on a Retina board.                                                                    *
  12. ;*                                                                                       *
  13. ;* I think that if V runs on 16bit screen it doesn't have to be that the viewer gets     *
  14. ;* a screen for its own.                                                                 *
  15. ;*                                                                                       *
  16. ;*****************************************************************************************
  17.  
  18. ; Please enter the Drawers here !!!!
  19. setenv VerzA hd2:dfü/download/www ; Drawer, in that V saves the files ******
  20. setenv VerzB hd2:dfü/download/www/gfx ; Drawer, to where VoyView moves the files. ******
  21. setenv Schirm MUI-Screen.16bit ;Name of the MUI Public screen ******
  22.  
  23.  
  24. failat 21
  25. delete > nil: env:ende ; ...if the variable is already set...
  26. wait 10 ; wait until V have been fully loaded.
  27.  
  28.  
  29. cd $VerzA
  30.  
  31. lab start
  32.  
  33. ;*** JPEG ***
  34. setenv Typ #?jpg ;Enter here the datatype (#?. - please leave !!!) ******
  35. ECHO $typ len 3 > env:typ2
  36.  
  37. dir $typ > env:datei ;select files to process
  38.  
  39. list sub $typ2 lformat %e > env:dateityp ;filter datatypes
  40.  
  41. IF $dateityp eq $typ2 ;if it is a JPEG file...
  42.  
  43.   requestchoice VoyView "View JPEG-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis ;Prompt, if the file should be viewed or not
  44.  
  45.      IF $ergebnis eq "1"
  46.         hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;View the file on the V screen
  47.      endif
  48.  
  49. rename > nil: $datei TO $VerzB ; Move the file...
  50. endif
  51.  
  52.  
  53. ;*** JPEG 2 ***
  54. setenv Typ #?jpeg ;Enter here the datatype (#?. - please leave !!!) ******
  55. ECHO $typ len 4 > env:typ2 ; ...4, because the suffix has 4 letters
  56.  
  57. dir $typ > env:datei
  58.  
  59. list sub $typ2 lformat %e > env:dateityp
  60.  
  61. IF $dateityp eq $typ2
  62.  
  63.   requestchoice VoyView "View JPEG-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis
  64.  
  65.      IF $ergebnis eq "1"
  66.         hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95
  67.      endif
  68.  
  69. rename > nil: $datei TO $VerzB
  70. endif
  71.  
  72.  
  73. ;*** GIF ***
  74. setenv Typ #?gif ;Enter here the datatype (#? - please leave !!!) ******
  75. ECHO $typ len 3 > env:typ2
  76.  
  77. dir $typ > env:datei
  78.  
  79. list sub $typ2 lformat %e > env:dateityp
  80.  
  81. IF $dateityp eq $typ2
  82.  
  83.   requestchoice VoyView "View GIF-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis
  84.  
  85.      IF $ergebnis eq "1"
  86.         hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95
  87.      endif
  88.  
  89. rename > nil: $datei TO $VerzB
  90. endif
  91.  
  92.  
  93. ;*** MPEG ***
  94. setenv Typ #?mpg ;please enter here the datatype (#? - please leave !!!) ******
  95. ECHO $typ len 3 > env:typ2
  96.  
  97. dir $typ > env:datei
  98.  
  99. list sub $typ2 lformat %e > env:dateityp
  100.  
  101. IF $dateityp eq $typ2
  102.  
  103.   requestchoice VoyView "Play MPEG-Animation ?" Yes|No pubscreen $schirm > env:ergebnis
  104.  
  105.      IF $ergebnis eq "1"
  106.          stack 50000
  107.          setenv x11/usepub $schirm
  108.          hd1:utilities/xanim/xanim +Ae +Ak +Av100 +b +r +R +T1 $datei
  109.          setenv x11/usepub 70Hz.2
  110.      endif
  111.  
  112. rename > nil: $datei TO $VerzB
  113. endif
  114.  
  115.  
  116.   
  117. wait 5
  118.  
  119. IF exists env:ende ;if V exits, $ende must get any value that this script can exit, too.
  120.   delete env:ende
  121.   delete > nil: env:datei
  122.   delete > nil: env:ergebnis
  123.   delete > nil: env:dateityp
  124.   delete > nil: env:typ
  125.   delete > nil: env:typ2
  126.   delete > nil: env:verza
  127.   delete > nil: env:verzb
  128.   delete > nil: env:schirm
  129.   quit
  130. endif
  131.  
  132.  
  133. skip start back ; after >wait 5< it starts above.
  134.  
  135.