home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma62.dms / ma62.adf / VoyView / VoyView.d < prev    next >
Text File  |  1980-01-06  |  5KB  |  135 lines
  1. ;*****************************************************************************************
  2. ;*                   Voy-View 1.00 (c) 1996 Richter Arno                                 *
  3. ;*                                                                                       *
  4. ;* Das Script ist in Blöcken (Dateitypen) eingeteilt, wobei jeder Block genau gleich ist.*
  5. ;* Die Unterschiede sind der Text bei >requestchoice<, das Anzeigeprogramm               *
  6. ;* und die Kennungen (JPG,GIF,...)                                                       *
  7. ;*                                                                                       *
  8. ;* Die zu ändernden Zeilen habe ich mit >******< gekennzeichnet.                         *
  9. ;*                                                                                       *
  10. ;* Der MUI-Public Screen heißt bei mir >MUI-Screen.16bit< und läuft unter Cybergfx       *
  11. ;* auf der Retina Karte.                                                                 *
  12. ;*                                                                                       *
  13. ;* Ich bin der Meinung, wenn V schon auf einem 16bit Schirm läuft, muß das               *
  14. ;* Anzeigeprogramm nicht auch noch einen eigenen Schirm öffnen. (Schade um den Speicher) *
  15. ;*                                                                                       *
  16. ;*****************************************************************************************
  17.  
  18. ; Bitte hier die Verzeichnisse angeben !!!!
  19. setenv VerzA hd2:dfü/download/www ; Verzeichnis, in das V die Dateien speichert ******
  20. setenv VerzB hd2:dfü/download/www/gfx ; Verzeichnis, in das VoyView die Dateien verschieben soll ******
  21. setenv Schirm MUI-Screen.16bit ; Hier ist der MUI-Public Schirm anzugeben ******
  22.  
  23.  
  24. failat 21
  25. delete > nil: env:ende ; ...falls die Variable versehentlich schon gesetzt ist.
  26. wait 10 ; bis V fertig geladen ist
  27.  
  28.  
  29. cd $VerzA
  30.  
  31. lab start
  32.  
  33. ;*** JPEG ***
  34. setenv Typ #?jpg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
  35. ECHO $typ len 3 > env:typ2
  36.  
  37. dir $typ > env:datei ;zu bearbeitende Datei(en) wählen
  38.  
  39. list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern
  40.  
  41. IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...
  42.  
  43.   requestchoice VoyView "JPEG-Grafik anzeigen ?" Ja|Nein pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.
  44.  
  45.      IF $ergebnis eq "1"
  46.         hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
  47.      endif
  48.  
  49. rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
  50. endif
  51.  
  52.  
  53. ;*** JPEG 2 ***
  54. setenv Typ #?jpeg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
  55. ECHO $typ len 4 > env:typ2 ; Hier 4, da die Kennung vier Zeichen enthält
  56.  
  57. dir $typ > env:datei ;zu bearbeitende Datei(en) wählen
  58.  
  59. list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern
  60.  
  61. IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...
  62.  
  63.   requestchoice VoyView "JPEG-Grafik anzeigen ?" Ja|Nein pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.
  64.  
  65.      IF $ergebnis eq "1"
  66.         hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
  67.      endif
  68.  
  69. rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
  70. endif
  71.  
  72.  
  73. ;*** GIF ***
  74. setenv Typ #?gif ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
  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 "GIF-Grafik anzeigen ?" Ja|Nein 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 ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
  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 "MPEG-Animation abspielen ?" Ja|Nein 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 ;Wird V beendet, muß $ende irgendeinen Wert annehmen, damit das Script stoppt
  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 ; beginnt nach obiger Pause von Neuem.
  134.  
  135.