; **************************************************
; ***                                            ***
; *** INSTALL SCRIPT FOR KMHH VERSiON 2.0 DELUXE ***
; ***                                            ***
; ***         WRITTEN BY: MuMu OF OSiRiS         ***
; ***                                            ***
; **************************************************


(message
"Welcome to KMHH VERSiON 2.0 DELUXE from OSiRiS!\n"
"\n"
"This installer will automatically install the\n"
"\n"
"KMHH VERSiON 2.0 DELUXE\n"
"\n"
"to your BBS.\n "
"\n"
"!!! ATTENTiON !!!\n"
"\n"
"MAKE SURE THAT YOU HAVE AN ASSiGNED C-DiRECTORY ON YOUR HARD-DiSK!!! "
)


; *****************************
; *** ASKS FOR THE LANGUAGE ***
; *****************************


(set res
(askchoice
(prompt
"\n"
"Wähle die Sprache von KMHH 2.0 DELUXE aus.\n"
"\n"
"Select the language of KMHH 2.0 DELUXE.\n"
)


; ***************************************
; *** HELPTEXT FOR LANGUAGE REQUESTER ***
; ***************************************


(help
"KMHH VERSiON 2.0 DELUXE should be run on all Amigas with all "
"Ami Express Versions. You should have round about 500 KB free on "
"your Hard Disk.\n"
"\n"
"The *GERMAN* Version uses German samples and the *ENGLiSH* Version "
"uses English samples.\n"
"\n"
"So it is up to you which version you want to install."
)


; ********************************
; *** COiCES FOR THE LANGUAGES ***
; ********************************


(choices "KMHH 2.0 DELUXE *DEUTSCH*" "KMHH 2.0 DELUXE *ENGLiSH*")
(default 0)
)
)


; ****************************
; *** ASKS FOR C-DiRECTORY ***
; ****************************


(set sa_locate
(askdir
(prompt
"Please indicate to which directory you the Sample-Replay-Routine to be copied. "
"It should be your C-Directory."
)
(help @askdir-help)
(default "C:")
)
)


; ***********************************
; *** COPY RAWPLAY TO C-DiRECTORY ***
; ***********************************


(askdisk
(prompt "Please insert the disk labled \"K2\"")
(help @askdisk-help)
(dest "K2")
)


(copyfiles
(source "K2:C/RAWPLAY")
(dest "C:")
)


; ******************************
; *** ASKS FOR BBS-DiRECTORY ***
; ******************************


(set sa_locate
(askdir
(prompt
"Please indicate to which directory you want KMHH 2.0 DELUXE to be copied. "
"It should be your BBS-Directory."
)
(help @askdir-help)
(default "BBS:")
)
)


; **************************
; *** MAKING DIRECTORIES ***
; **************************


(set sa_path (tackon sa_locate "COMMANDS"))
(makedir sa_path)
(set sa_path (tackon sa_locate "COMMANDS/BBSCMD"))
(makedir sa_path)
(set sa_path (tackon sa_locate "MoDuLEs"))
(makedir sa_path (infos))
(set sa_path (tackon sa_locate "MoDuLEs/AbSTuRZ"))
(makedir sa_path (infos))
(set sa_path (tackon sa_locate "MoDuLEs/AbSTuRZ/KMHH"))
(makedir sa_path (infos))


; ***************************
; *** CALCULATE DiSKSPACE ***
; ***************************


(set @default-dest sa_path)
(set disk_space (getdiskspace sa_path))
(set disk_space (getdiskspace sa_path))


; **************
; *** GERMAN ***
; **************


(if (AND (< disk_space 450000) ( NOT res))
(
(message
"Du hast nicht genügend freien Platz auf deiner Hard-Disk "
"um die Deutsche Version von KMHH 2.0 DELUXE zu installieren.\n"
"\n"
"KMHH 2.0 DELUXE braucht 450 KB Platz auf deiner Hard-Disk."
)
(exit)
)
)


; ***************
; *** ENGLiSH ***
; ***************


(if (AND (< disk_space 450000) (= 1 res))
(
(message
"You do not have enough space on your hard drive "
"to install the *ENGLISH* Version of KMHH 2.0 DELUXE.\n"
"\n"
"KMHH 2.0 DELUXE requires 450 KB of free space to install."
)
(exit)
)
)


; *******************************
; *** INSTALL ENGLiSH VERSiON ***
; *******************************


(if  res
(

(askdisk
(prompt "Please insert the disk labled \"K2\"")
(help @askdisk-help)
(dest "K2")
)

(copyfiles
(source "K2:BBS_ENGLiSH/COMMANDS/BBSCMD/O.INFO")
(dest "BBS:COMMANDS/BBSCMD")
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/KMHH.REXX")
(dest sa_path)
(infos)
)

;(set srcbuf (tackon sa_path "KMHH.REXX.ENG"))
;(set dstbuf (tackon sa_path "KMHH.REXX"))


;(if (exists dstbuf)
;(delete dstbuf)
;)

;(rename srcbuf dstbuf)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/KMHH.CFG")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/HORST.TXT")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.1")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.2")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.3")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.4")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.5")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.6")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_ENGLiSH/MODULES/ABSTURZ/KMHH/SAMPLE.7")
(dest sa_path)
)

)
(


; ******************************
; *** INSTALL GERMAN VERSiON ***
; ******************************


(askdisk
(prompt "Please insert the disk labled \"K2\"")
(help @askdisk-help)
(dest "K2")
)

(copyfiles
(source "K2:BBS_DEUTSCH/COMMANDS/BBSCMD/O.INFO")
(dest "BBS:COMMANDS/BBSCMD")
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/KMHH.REXX")
(dest sa_path)
)

;(set srcbuf (tackon sa_path "KMHH.REXX.DEU"))
;(set dstbuf (tackon sa_path "KMHH.REXX"))

;(if (exists dstbuf)
;(delete dstbuf)
;)

;(rename srcbuf dstbuf)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/KMHH.CFG")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/HORST.TXT")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.1")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.2")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.3")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.4")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.5")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.6")
(dest sa_path)
)

(copyfiles
(source "K2:BBS_DEUTSCH/MODULES/ABSTURZ/KMHH/SAMPLE.7")
(dest sa_path)
)
))