home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 97
/
af097sub.adf
/
Gplayer.LZX
/
GroovyPlayer
/
Groovy_Install_E
< prev
next >
Wrap
Text File
|
1997-02-28
|
8KB
|
232 lines
;*******************************************************
;* $VER: GroovyPlayer Install 1.08 (19.02.97) *
;* Copyright ©1996 Alan *
;* Install script by Stef & Alan *
;* *
;* English version V1.08 *
;* *
;*******************************************************
;* English section area *
;************************
((if @language "english")
(set @default-dest "sys:")
(set #echotxt "echo \"Working on installation...\"\n" )
(complete 0)
;************************
;The text message area
;************************
(set #Intro-Txt
(cat "Welcome to GroovyPlayer installation.\n\n"
"\n"
"Thank you very much for your registration.\n"
"I hope you will enjoy using this program.\n\n\n\n"
" Alan\n"
)
)
(set #Guide-Txt
(cat "\n\nI recommend you to read the AmigaGuide documentation,\n"
"which contains some information especially useful\n"
"for beginners, although I think everyone will more easily\n"
"find out about various functions from the AmigaGuide help."
)
)
(set #Warning-Txt
(cat "WARNING\n\n\n"
"You will need 0.5 Mbyte of free HD space\n"
"and 250Kbyte of free memory to complete the installaton\n"
"(If necessary, you can delete files from the\n"
"destination disk to make room for GroovyPlayer).\n"
)
)
(set #Path-Txt
(cat "Select destination directory\n\n"
"A drawer named GroovyPlayer will be created here.\n"
)
)
(set #Decrunch-Txt
(cat "Decrunching `CD Titles` file to RAM: \n\n"
"This catalog contains 816 various style CD's,\n"
"from reggae to rock and even some Aminet CD's.\n"
"When inserted, these CD's will be automatically\n"
"recognised by GroovyPlayer.\n"
)
)
;************************
; End text message area
;************************
(message #Intro-Txt)
(message #Warning-Txt)
(set target_dir
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
)
)
;Making the directories
(set directory_name (substr target_dir (- (strlen target_dir) 1) 1))
(set Groovy_dir (tackon target_dir "GroovyPlayer"))
(if (NOT (exists Groovy_dir))
(makedir Groovy_dir))
(set doc_dir (cat Groovy_dir "/Doc"))
(if (NOT (exists Doc_dir))
(makedir Doc_dir))
(complete 10)
;*************************************************
; Copy the guide files to destdir/GroovyPlayer/doc
;*************************************************
(message #Guide-Txt)
(set @default-dest target_dir)
(copyfiles
(prompt "\nCopying English documentation for GroovyPlayer...")
(help @copy-files-help)
(source "GroovyPlayer_E.guide")
(dest doc_dir)
(confirm)
)
(set @default-dest target_dir)
(copyfiles
(prompt "\nCopying Hungarian documentation for GroovyPlayer...")
(help @copy-files-help)
(source "GroovyPlayer_M.guide")
(dest doc_dir)
(confirm)
)
(complete 20)
;***************************************
; Copy GroovyPlayer fonts to FONTS:
;***************************************
(
(copyfiles
(prompt "\nCopying GroovyPlayer fonts to your FONTS: assign...")
(help @copyfiles-help)
(source "Fonts/")
(dest "FONTS:")
(pattern "#?")
(confirm)
)
)
(complete 30)
;***************************************
; Copy GroovyPlayer locale to LOCALE:
;***************************************
(
(copyfiles
(prompt "\nCopying catalogs to your LOCALE: assign...")
(help @copyfiles-help)
(source "Locale/")
(dest "LOCALE:")
(pattern "#?")
(confirm)
)
)
(complete 35)
;******************************************
; Install GroovyPlayer main program
;******************************************
(
(copyfiles
(prompt "\nCopying GroovyPlayer to the destination directory...")
(help @copyfiles-help)
(source "GroovyPlayer")
(dest Groovy_dir)
(confirm)
)
)
(complete 40)
;******************************************
; Install the GroovyPlayer.info
;******************************************
(
(copyfiles
(prompt "\nCopying GroovyPlayer's icon file to the destination directory...")
(help @copyfiles-help)
(source "GroovyPlayer.info")
(dest Groovy_dir)
(confirm)
)
)
(complete 45)
;**********************************
; Install iconify icon
;**********************************
(
(copyfiles
(prompt "\nCopying GroovyPlayer appicon to ENVARC:...")
(help @copyfiles-help)
(source "envarc/")
(dest "ENVARC:")
(pattern "#?")
(confirm)
)
)
(run (cat "resident" c:delete))
(complete 50)
;***********************
; Decrunch CD Titles
;***********************
(message #Decrunch-Txt)
(
(copyfiles
(source "CDTitles.lha")
(dest "RAM:")
(pattern "#?")
)
)
(set decrunch "SYS:C/LHA >CON:0/0/320/60/LHA/AUTO -a -x x RAM:CDTitles.lha #? ")
(set decrunch (cat decrunch Groovy_dir))
(set decrunch (cat decrunch "/"))
(run decrunch)
(complete 80)
;**********************************************
; Copy RAM:CD Titles directory to destination
;**********************************************
(
(copyfiles
(prompt "\nCopying CD title collection...")
(help @copyfiles-help)
(source "RAM:")
(dest Groovy_dir)
(pattern "CDTitles.LHA")
(confirm)
)
; )
; (complete 90)
; (message "\nA small surprise...")
; (run "assign GPSHOW: Presentation")
; (run "ScalaMMPlayer GroovyPlayerDemo_E.script")
; (run "assign GPSHOW: remove")
; (
(set doc1 (askchoice
(prompt "Please choose the documentation you wish to read now:")
(help @askchoice-help)
(choices "Hungarian documentation" "English documentation" "Nothing :-)")
(default 1)
)
)
;****************************
; Let the user read a guide file
;****************************
(if (= doc1 0)
(run ("SYS:Utilities/MultiView GroovyPlayer_M.guide"))
)
(if (= doc1 1)
(run ("SYS:Utilities/MultiView GroovyPlayer_E.guide"))
)
)
;****************************
; Delete decrunched directory
;****************************
(run ("c:delete ram:CDTitles.lzx noreq"))
)
(complete 100)
(exit)