;
; $VER: Installer script 1.1 per StrunZometro 0.8Beta
;


;----------------------------------------------------------------------------

; ***** Italiano
(set #wrongOS  "Quizzometro  OS3.0 to run\n")
(set #wrongCPU "YAM needs at least a 68020 CPU to run\n")
(set #QUIZ_dir  (cat "Scegli la dir dove installare Quizzometro\n"
                    "(Non verra' creato un nuovo cassetto!)"))
(set #QUIZ_aiuto (cat "Ma si proprio na chiavica!\n"))
(set #done_1   (cat "\nQuizzometro e' stato installato con successo.\n\n"
                    "Copyright 1999\n\nby\n\nSSoftware Interactive\n\n"
                    "Un saluto allo strunz!"))

;----------------------------------------------------------------------------

;**** Checking environment
;(set OS_ver (getversion "exec.library" (resident)))
;(if (< OS_ver (* 39 65536)) (abort #wrongOS))

;(set MUI_ver (getversion "MUI:libs/muimaster.library"))
;(if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))

(set cpu_type (database "cpu"))
(if (< cpu_type "68020") (abort #wrongCPU))

;----------------------------------------------------------------------------

(complete 0)

(set QUIZ_dir
        (askdir
                (default @default-dest)
                (prompt  #QUIZ_dir)
                (help    #QUIZ_aiuto)
        )
)

;-------------------------- here we go... -----------------------------------

(complete 50)

(makedir QUIZ_dir (infos))
(copyfiles (source "Quizzometro") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 60)
(copyfiles (source "risposte.txt") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 70)
(copyfiles (source "quesiti.txt") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 80)
(copyfiles (source "difficolta.txt") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 90)
(copyfiles (source "Quizzometro.guide") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 95)
(copyfiles (source "prequizzo") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 98)
(copyfiles (source "start") (dest QUIZ_dir) (infos) (help #QUIZ_aiuto))
(complete 99)


(set PUAE_dir (tackon QUIZ_dir ">>PUAE"))
(makedir PUAE_dir)
;(copyfiles (source "snd/") (dest SND_dir) (all))

(complete 100)
(message #done_1)

;********************

(exit (QUIET))