home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga ACS 1998 #6
/
amigaacscoverdisc1998-061998.iso
/
games
/
shareware
/
gms
/
install_english
< prev
next >
Wrap
Text File
|
1998-06-08
|
4KB
|
150 lines
; $VER: GMS V1.0 Installer 27.2.98
; (Users archive)
; Written by Michael Praschl
(complete 0)
;*** Strings festlegen ***
(set #already-installed-text
(cat "A version of GMS is already installed on your system.\n"
"The files in GMS: have to be deleted,\n"
"but you can back them up if you want to.\n\n"
"If you have your projects stored in GMS:,\n"
"We suggest you backup the files!"
)
)
(set #copy-gms-help
(cat "GMS will now be installed. All files will be copied to the directory "
"you selected, including libraries and fonts, so it's very easy to uninstall GMS!"
)
)
(set #startup-text
(cat "The assign GMS: will now be added to s:user-startup\n"
"This assign is necessary for all GMS programms!"
)
)
(set #select-text "Select Yes or No")
(set #backup "Yes, backup")
(set #dont-backup "Don't backup")
(set #where-backup "Where should the files be backed up to?\n(A drawer called GMSBackup will be created.)")
(set #wherebackup-help "You can set the directory, where the files in GMS: shall be copied to before GMS: is deleted.")
(set #delete "This will delete all files from GMS:")
(set #addassign "Adding the assigns to s:user-startup")
(set #whereinst "Where should the Games Master System be installed?\n(A drawer called GMS will be created.)")
(set #whereinst-help "You can select a directory for the GMS files to be copied to.")
(set #demos-text "Do you want to install the demos?")
(set #demos-help "The Demos are not needed by GMS and only show the features. Many of them are very nice, so INSTALL THEM!!!")
(welcome "Welcome to the installation of " @app-name)
;***
(procedure P_CopyFiles
(if (= (askbool (prompt #demos-text) (help #demos-help)) 1)
( ;then
(copyfiles (dest "GMS:") (source "") (choices "Demos"))
)
)
(copyfiles (dest "GMS:") (source "")
(choices "Utils" "System" "Scripts" "Prefs" "libs" "Games" "Fonts" "C")
)
; (copyfiles (dest "GMS:") (source "Copyright.txt"))
(copyfiles (dest "GMS:") (source "Demos.info"))
(copyfiles (dest "GMS:") (source "Games.info"))
(copyfiles (dest "GMS:") (source "IMPORTANT.TXT"))
(copyfiles (dest "GMS:") (source "IMPORTANT.TXT.info"))
(copyfiles (dest "GMS:") (source "README.TXT"))
(copyfiles (dest "GMS:") (source "README.TXT.info"))
(copyfiles (dest "GMS:") (source "REGISTER.TXT"))
(copyfiles (dest "GMS:") (source "REGISTER.TXT.info"))
(copyfiles (dest "GMS:") (source "Utils.info"))
)
;***
(if (= (exists "GMS:" (noreq)) 2)
( ; then
(set #dest-dir "GMS:")
(if (= (askbool (prompt #already-installed-text)
(help #select-text)
(default 1)
(choices #Backup #Dont-backup)) 1 )
( ; then
(set #backup-dir
(tackon
(askdir
(prompt #where-backup)
(help #wherebackup-help)
(default "Work:")
(disk)
) "GMSBackup"
)
)
(makedir #backup-dir)
(copyfiles
(source "GMS:")
(dest #backup-dir)
(all)
(optional force)
)
(complete 25)
)
)
(run "c:delete GMS:#? all force noreq" (prompt #delete)
(help "!")
(confirm))
(complete 50)
(if (= (askbool (prompt #copy-gms-help)
(help #select-text)
(default 1)) 1 )
( ; then
(P_CopyFiles)
(complete 75)
)
)
(set #maindir "GMS:")
(startup "GMS"
(prompt #addassign)
(help #addassign)
(command (cat "Assign GMS: " #maindir))
(command "\nAssign C: GMS:c ADD")
)
) ( ;else
(set #maindir
(tackon
(askdir
(prompt #whereinst)
(help #whereinst-help)
(default "Work:")
(disk)
) "GMS"
)
)
(makedir #maindir)
(makeassign "GMS" #maindir)
(if (= (askbool (prompt #copy-gms-help)
(help #select-text)
(default 1)) 1 )
( ; then
(P_CopyFiles)
(complete 50)
)
)
(startup "GMS"
(prompt #addassign)
(help #addassign)
(command (cat "Assign GMS: " #maindir))
(command "\nAssign C: GMS:c ADD")
)
)
)
(complete 100)
(set @default-dest #maindir)