home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 2
/
AnewsCD2.iso
/
Indispensables
/
Graphisme
/
CyberAVI
/
Install
< prev
next >
Wrap
Text File
|
1999-10-04
|
4KB
|
189 lines
;
; $VER: CyberAVI installation 1.1 (9.12.96)
;
; Copyright (c) 1996 Thore Böckelmann
;
;****************************************************************************
;
; English texts
;
(if (not (= @language "deutsch"))
(
(set #bad-kick "You must have AmigaOS 3.0 (V39) or newer to be able to use CyberAVI.")
(set #bad-cpu "You must have at least an MC68020 to use CyberAVI.")
(set #selectdir "Please select where to install CyberAVI\nA directory 'CyberAVI' will be created automatically")
(set #selectlibsdir "Please select where to install necessary libraries")
(set #makedircyberavi "Creating directory 'CyberAVI'")
(set #copymainprg "Copying CyberAVI...")
(set #copydocs "Copying documentation...")
(set #copylibs "Copying asyncio.library...")
(set #installgui "\n\nDo you want to install the Argue interface for CyberAVI?\n(You need to have Argue installed!)")
(set #installguihelp "You will have to get argue13.lha and argue13a.lha from Aminet to use this graphical user interface.\n\nArgue is ©1996 by Thorsten Stocksmeier")
(set #copyargue "Copying interface for CyberAVI...")
)
)
;****************************************************************************
;
; Deutsche Texte
;
(if (= @language "deutsch")
(
(set #bad-kick "Sie müssen AmigaOS 3.0 (V39) oder höher installieren, um CyberAVI zu benutzen.")
(set #bad-cpu "Sie brauchen mindestens einen MC68020, um CyberAVI zu benutzen.")
(set #selectdir "Wohin soll CyberAVI installiert werden?\nEin Verzeichnis 'CyberAVI' wird automatisch erstellt")
(set #selectlibsdir "Wohin sollten die benötigten Bibliotheken installiert werden?")
(set #makedircyberavi "Erstelle Verzeichnis 'CyberAVI'")
(set #copymainprg "Kopiere CyberAVI...")
(set #copydocs "Kopiere Anleitung...")
(set #copylibs "Kopiere asyncio.library...")
(set #installgui "\n\nWollen Sie die Argue-Oberfläche für CyberAVI installieren?\n(Sie müssen dafür Argue installiert haben!)")
(set #installguihelp "Sie müssen sich argue13.lha und argue13a.lha vom Aminet besorgen, um die Oberfläche benutzen zu können.\n\nArgue ist ©1996 by Thorsten Stocksmeier")
(set #copyargue "Kopiere Oberfläche für CyberAVI...")
)
)
;****************************************************************************
;
; Setup
;
(complete 0)
(if (< (/ (getversion) 65536) 39)
(abort #bad-kick)
)
(if (patmatch "68000|68010" (database "cpu"))
(abort #bad-cpu)
)
(set @default-dest "SYS:")
(set @libs-dest "LIBS:")
;****************************************************************************
;
; Welcome
;
(welcome)
(complete 10)
;****************************************************************************
;
; Setup directory
;
(set #destdir
(askdir
(prompt #selectdir)
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set #libsdir
(askdir
(prompt #selectlibsdir)
(help @askdir-help)
(default @libs-dest)
)
)
(set @default-dest (tackon #destdir "CyberAVI"))
(set @libs-dest #libsdir)
(complete 20)
(makedir @default-dest
(prompt #makedircyberavi)
(help @makedir-help)
(infos)
)
(complete 40)
;****************************************************************************
;
; Copy main program
;
(copyfiles
(prompt #copymainprg)
(help @copyfiles-help)
(source "CyberAVI")
(dest @default-dest)
(infos)
(confirm)
)
(complete 60)
;****************************************************************************
;
; Copy documentation
;
(copyfiles
(prompt #copydocs)
(help @copyfiles-help)
(source "")
(pattern "#?.(guide|readme)")
(dest @default-dest)
(infos)
(confirm)
)
(complete 80)
;****************************************************************************
;
; Install libraries
;
(copylib
(help @copylib-help)
(prompt #copylibs)
(source "asyncio.library")
(dest @libs-dest)
(confirm)
)
;****************************************************************************
;
; Install GUI
;
(if (askbool
(prompt #installgui)
(help #installguihelp)
)
(
(copyfiles
(prompt #copyargue)
(help @copyfiles-help)
(source "CyberAVI GUI")
(dest @default-dest)
(infos)
(confirm)
)
(tooltype
(dest (tackon @default-dest "CyberAVI GUI"))
(settooltype "COMMAND" (tackon @default-dest "CyberAVI"))
)
)
)
;****************************************************************************
;
; Exit
;
(complete 100)
(exit)