home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma62.dms
/
ma62.adf
/
VoyView
/
VoyView.d
< prev
next >
Wrap
Text File
|
1980-01-06
|
5KB
|
135 lines
;*****************************************************************************************
;* Voy-View 1.00 (c) 1996 Richter Arno *
;* *
;* Das Script ist in Blöcken (Dateitypen) eingeteilt, wobei jeder Block genau gleich ist.*
;* Die Unterschiede sind der Text bei >requestchoice<, das Anzeigeprogramm *
;* und die Kennungen (JPG,GIF,...) *
;* *
;* Die zu ändernden Zeilen habe ich mit >******< gekennzeichnet. *
;* *
;* Der MUI-Public Screen heißt bei mir >MUI-Screen.16bit< und läuft unter Cybergfx *
;* auf der Retina Karte. *
;* *
;* Ich bin der Meinung, wenn V schon auf einem 16bit Schirm läuft, muß das *
;* Anzeigeprogramm nicht auch noch einen eigenen Schirm öffnen. (Schade um den Speicher) *
;* *
;*****************************************************************************************
; Bitte hier die Verzeichnisse angeben !!!!
setenv VerzA hd2:dfü/download/www ; Verzeichnis, in das V die Dateien speichert ******
setenv VerzB hd2:dfü/download/www/gfx ; Verzeichnis, in das VoyView die Dateien verschieben soll ******
setenv Schirm MUI-Screen.16bit ; Hier ist der MUI-Public Schirm anzugeben ******
failat 21
delete > nil: env:ende ; ...falls die Variable versehentlich schon gesetzt ist.
wait 10 ; bis V fertig geladen ist
cd $VerzA
lab start
;*** JPEG ***
setenv Typ #?jpg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2
dir $typ > env:datei ;zu bearbeitende Datei(en) wählen
list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern
IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...
requestchoice VoyView "JPEG-Grafik anzeigen ?" Ja|Nein pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.
IF $ergebnis eq "1"
hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
endif
rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
endif
;*** JPEG 2 ***
setenv Typ #?jpeg ;Hier den Dateityp festlegen (#?. - bitte lassen !!!) ******
ECHO $typ len 4 > env:typ2 ; Hier 4, da die Kennung vier Zeichen enthält
dir $typ > env:datei ;zu bearbeitende Datei(en) wählen
list sub $typ2 lformat %e > env:dateityp ;Dateitypen herausfiltern
IF $dateityp eq $typ2 ;falls es eine JPEG Datei ist...
requestchoice VoyView "JPEG-Grafik anzeigen ?" Ja|Nein pubscreen $schirm > env:ergebnis ;Abfrage, ob die Datei angezeigt werden soll, oder nicht.
IF $ergebnis eq "1"
hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;Anzeige der Datei auf dem V - Schirm
endif
rename > nil: $datei TO $VerzB ; Datei verschieben, damit sie nicht nocheinmal behandelt wird
endif
;*** GIF ***
setenv Typ #?gif ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2
dir $typ > env:datei
list sub $typ2 lformat %e > env:dateityp
IF $dateityp eq $typ2
requestchoice VoyView "GIF-Grafik anzeigen ?" Ja|Nein pubscreen $schirm > env:ergebnis
IF $ergebnis eq "1"
hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95
endif
rename > nil: $datei TO $VerzB
endif
;*** MPEG ***
setenv Typ #?mpg ;Hier den Dateityp festlegen (#? - bitte lassen !!!) ******
ECHO $typ len 3 > env:typ2
dir $typ > env:datei
list sub $typ2 lformat %e > env:dateityp
IF $dateityp eq $typ2
requestchoice VoyView "MPEG-Animation abspielen ?" Ja|Nein pubscreen $schirm > env:ergebnis
IF $ergebnis eq "1"
stack 50000
setenv x11/usepub $schirm
hd1:utilities/xanim/xanim +Ae +Ak +Av100 +b +r +R +T1 $datei
setenv x11/usepub 70Hz.2
endif
rename > nil: $datei TO $VerzB
endif
wait 5
IF exists env:ende ;Wird V beendet, muß $ende irgendeinen Wert annehmen, damit das Script stoppt
delete env:ende
delete > nil: env:datei
delete > nil: env:ergebnis
delete > nil: env:dateityp
delete > nil: env:typ
delete > nil: env:typ2
delete > nil: env:verza
delete > nil: env:verzb
delete > nil: env:schirm
quit
endif
skip start back ; beginnt nach obiger Pause von Neuem.