; $Id: Install Quid,v 1.0 97/05/15 17:39:10 lee Exp $
; $VER: Install-Quid 1.0

(set app_prefix "Quid?_")
(set app_disk1  "1")
(set app_disk2  "2")
(set app_disk3  "3")

(set app_volume1 (cat app_prefix app_disk1 ":"))
(set app_volume2 (cat app_prefix app_disk2 ":"))
(set app_volume3 (cat app_prefix app_disk3 ":"))




; standard amiga error codes
(set RC_OK     0
     RC_WARN   5
     RC_ERROR 10
     RC_FATAL 20
     )
;
; determine AmigaDos version and revision numbers
;
(set AmigaDos_Number   (getversion))
(set AmigaDos_Version  (/ AmigaDos_Number 65536))
(set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))

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

(procedure get_lhex

        (if ( = (exists "ram:lhex" (noreq)) 0)
                (
                (working "Kopieren LHEX in Ram...\n")
                (copyfiles (source ("LHEX")) (dest "ram:"))
               )
        )
)

(procedure setup_hd_install
   (message 
      "\nQUID? wird in einer neuen Schublade mit dem Namen "
      "\"Quid\" installiert. Sie werden aufgefordert, für die Schublade einen "
      "Speicherort auf der Festplatte anzugeben.")
   (set app_path (tackon
       (askdir
         (prompt
         "Geben Sie an, wo die Quid erstellt "
                 "werden soll.")
         (help @askdir-help)
        (default @default-dest)
                          )
                 "Quid")
    )
   (makedir app_path)
)



(procedure copy_volume1
  (complete 5)
  (get_lhex)
  (copyfiles
         (prompt "Kopieren data.lha ...")
         (source ("data.lha"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         )
  (complete 10)
  (copyfiles
         (prompt "Kopieren levels01.lha ...")
         (source ("levels01.lha"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         )
  (complete 20)
  (copyfiles
         (prompt "Kopieren levels02.lha ...")
         (source ("levels02.lha"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         )
  (complete 30)
   (set options
      (askoptions
          (prompt "Welche der folgenden AmigaGuide möchten Sie installieren?")
          (choices "English" "Italiano" "Deutsh")
          (help "\n"
           @askoptions-help)
          )
      )
  (if (bitand 1 options)
  (copyfiles
         (prompt "Kopieren QuidENG.guide ...")
         (source ("QuidENG.guide"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         ))
  (if (bitand 2 options)
  (copyfiles
         (prompt "Kopieren QuidITA.guide ...")
         (source ("QuidITA.guide"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         ))
  (if (bitand 4 options)
  (copyfiles
         (prompt "Kopieren QuidDE.guide ...")
         (source ("QuidDE.guide"))
         (dest   app_path)
         (help @copyfiles-help)
         (infos)
         (fonts)
         ))
  (complete 40)
  (set @default-dest app_path)
)

(procedure dearchive
 (complete 60)
 (working "Dearchiven \"data.lha\".\nNur ein moment...")
 (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/data.lha\"")))
 (complete 70)
  (working "Dearchiven \"levels01.lha\".\nNur ein moment...")
 (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels01.lha\"")))
 (complete 80)
  (working "Dearchven \"levels02.lha\".\nNur ein moment...")
 (run (cat (cat "ram:lhex  <NIL: \"-w=" app_path)(cat (cat "/\" x \"" app_path) "/levels02.lha\"")))
 (complete 97)
 (delete (cat app_path "/levels01.lha"))
 (delete (cat app_path "/levels02.lha"))
 (delete (cat app_path "/data.lha"))
 (delete "ram:lhex")
 (rename (cat app_path "/levels/level00") (cat app_path "/levels/LEVEL00"))
 (rename (cat app_path "/levels/level01") (cat app_path "/levels/LEVEL01"))
 (rename (cat app_path "/levels/level02") (cat app_path "/levels/LEVEL02"))
 (rename (cat app_path "/levels/level03") (cat app_path "/levels/LEVEL03"))
)

; --------------------------------------------------------------------
; do_exit
;   does the language installation
;   does the program registrations if requested
;   puts up regcard reminder and says thanks...
;
(procedure do_exit

(complete 99)
(message "\nQuid ist jetzt installiert !"
           "Quid? ist mailware...wenn gefällt dir, shreibst du mir "
           "ein email. meine addresse ist:\n"
           "gtoffoli@leonardo.math.unipd.it\n\n"
           "Danke!"
           )
  (exit)
)


; --------------------------------------------------------------------
;                   This is the actual Install Script
; --------------------------------------------------------------------

(if (< AmigaDos_Version 39)
    (
      (abort
         "Quid? required AmigaOS 3.0, I'm sorry."
         )
    )
)
    (setup_hd_install)
(copy_volume1)
(dearchive)
(do_exit)