home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
multiworks_install
/
installmultiworks
< prev
next >
Wrap
Text File
|
1996-06-23
|
6KB
|
260 lines
; ******************************************************
; *********** Multiworks Installer *********************
; ****************** written by ************************
; ***************** Graffity (Thore K.) & Andorra ***
; *************** Bremen 07/10/1995 ********************
; ******************************************************
(set @default-dest "T:")
(transcript "Getting Location of MultiWorks Directory")
(set Multiworks_dir "SYS:")
(if (NOT (exists Multiworks_dir (noreq)))
(set Multiworks_dir "Sys:")
)
(set Multiworks_dir
(askdir
(prompt
"Wo soll das MultiWorks's Verzeichniss erstellt werden?")
(help @askdir-help)
(default Multiworks_dir)
)
)
(if (NOT (exists (tackon Multiworks_dir "MultiWorks")(noreq)))
(
(copyfiles
(source "C/MultiWorks.info")
(dest MultiWorks_dir))
(tooltype
(dest (tackon MultiWorks_dir "MultiWorks"))
(noposition))
(makedir (tackon MultiWorks_dir "MultiWorks"))
)
)
(set MultiWorks_dir (tackon MultiWorks_dir "MultiWorks"))
(set @default-dest MultiWorks_dir)
;--------------------------------------------------------------------------------------
(set Multiworks_DBdir "SYS:")
(if (NOT (exists Multiworks_DBdir (noreq)))
(set Multiworks_DBdir "Sys:")
)
(message
"Die DataBase von MultiWorks benötigt ein Verzeichnis 'MWDataBase'. "
"Hier werden die Miniaturbilder abgespeichert.\nDer dafür vorgesehende Datenträger sollte einige Megabyte "
"freien Speicherplatz haben!\n "
"Sie werden gleich aufgefordert den Pfad für dieses Verzeichnis zu setzen."
)
(set Multiworks_DBdir
(askdir
(prompt "Wo soll das 'DataBase' Verzeichniss erstellt werden?"
)
(help @askdir-help)
(default Multiworks_DBdir)
)
)
(if (NOT (exists (tackon Multiworks_DBdir "MWDataBase")(noreq)))
(makedir (tackon MultiWorks_DBdir "MWDataBase"))
)
(set MultiWorks_DBdir (tackon MultiWorks_DBdir "MWDataBase"))
;(set @default-dest MultiWorks_DBdir)
;--------------------------------------------------------------------------------------
(transcript "Installing MultiWorks Program")
(copyfiles
(prompt "Installiere MultiWorks Hauptprogram.")
(help @copyfiles-help)
(source "MultiWorks")
(infos)
(dest MultiWorks_dir)
)
(copyfiles
(prompt "Installiere MultiWorks Hauptprogram.")
(help @copyfiles-help)
(source "MWDataBase")
(infos)
(dest MultiWorks_dir)
)
;****************
;**** libs ******
;****************
(working "Installiere MultiWorks Libraries..." )
(if (NOT (exists (tackon Multiworks_dir "libs") (noreq)))
(makedir (tackon Multiworks_dir "libs"))
)
(copyfiles
(prompt "Installiere Multiworks Libs...")
(help @copyfiles-help)
(source "libs")
(all)
(dest (tackon Multiworks_dir "libs"))
)
;*********************
;**** operators ******
;*********************
(transcript "Installiere MultiWorks Operators...")
(working "Installiere MultiWorks Operators..." )
(transcript "Installiere MultiWorks Operators...")
(if (NOT (exists (tackon Multiworks_dir "operators") (noreq)))
(
(makedir (tackon Multiworks_dir "operators"))
)
)
(copyfiles
(prompt "Installiere MultiWorks Operators...")
(help @copyfiles-help)
(source "operators")
(all)
(dest (tackon Multiworks_dir "operators"))
)
;*********************
;**** Savers ******
;*********************
(transcript "Installiere MultiWorks Savers...")
(working "Installiere MultiWorks Savers..." )
(transcript "Installiere MultiWorks Savers...")
(if (NOT (exists (tackon Multiworks_dir "savers") (noreq)))
(
(makedir (tackon Multiworks_dir "savers"))
)
)
(copyfiles
(prompt "Installiere MultiWorks Savers...")
(help @copyfiles-help)
(source "savers")
(all)
(dest (tackon Multiworks_dir "savers"))
)
;*********************
;**** Rexx ******
;*********************
(working "Installiere MultiWorks Rexx..." )
(if (NOT (exists (tackon Multiworks_dir "rexx") (noreq)))
(
(makedir (tackon Multiworks_dir "rexx"))
)
)
(copyfiles
(prompt "Installiere MultiWorks Rexx...")
(help @copyfiles-help)
(source "rexx")
(all)
(dest (tackon Multiworks_dir "rexx"))
)
;**** Dir prefs machen ******
(if (NOT (exists (tackon Multiworks_dir "prefs") (noreq)))
(makedir (tackon Multiworks_dir "prefs"))
)
;*****************
;**** Loaders ****
;*****************
(if (NOT (exists (tackon Multiworks_dir "loaders") (noreq)))
(makedir (tackon Multiworks_dir "loaders"))
)
(copyfiles
(prompt "Installing Multiworks Loaders.")
(help @copyfiles-help)
(source "loaders")
(pattern "#?.mwloader")
(dest (tackon Multiworks_dir "loaders"))
)
;******** Directory "Displays" wird installiert **********
(transcript "Installing MultiWorks Displays.")
(if (NOT (exists (tackon Multiworks_dir "displays") (noreq)))
(makedir (tackon Multiworks_dir "displays"))
)
(copyfiles
(prompt "Installing MultiWorks Displays.")
(help @copyfiles-help)
(source "Displays")
(all)
(dest (tackon MultiWorks_dir "Displays"))
)
;******** Directory "Samplays" wird installiert **********
(transcript "Installing MultiWorks Samplays.")
(if (NOT (exists (tackon Multiworks_dir "samplays") (noreq)))
(
(makedir (tackon Multiworks_dir "samplays"))
)
)
(copyfiles
(prompt "Installing MultiWorks Samplays.")
(help @copyfiles-help)
(source "samplays")
(all)
(dest (tackon MultiWorks_dir "samplays"))
)
;******** Directory "pref_icons" wird installiert **********
(transcript "Installing MultiWorks pref_icons.")
(if (NOT (exists (tackon Multiworks_dir "pref_icons") (noreq)))
(makedir (tackon Multiworks_dir "pref_icons"))
)
(copyfiles
(prompt "Installing MultiWorks icons.")
(help @copyfiles-help)
(source "pref_icons")
(all)
(dest (tackon MultiWorks_dir "pref_icons"))
)
; (copyfiles
; (prompt "Installing MultiWorks icons.")
; (help @copyfiles-help)
; (source "")
; (choices "asl.library")
; (dest (tackon MultiWorks_dir ""))
; )
; Hier die assigns, damit mw sofort aktiv ist.
;---------------------------------------------
(makeassign "MultiWorks" Multiworks_dir)
(makeassign "MWDataBase" Multiworks_DBdir)
(startup "Multiworks"
(prompt
"Damit Multiworks immer richtig läuft müssen noch zwei Einträge in die \"S:user-startup\" gepatcht werden.")
(help "Keine Hilfe für diese funktion")
(command "assign MultiWorks: "Multiworks_dir"\n")
(command "assign MWDataBase: "Multiworks_DBdir"\n")
)
(exit "Multiworks ist nun fertig installiert.\n\nFrohes Schaffen und allzeit gute Laune wünscht Ihnen ihr\n\nSynetic Software Team")