; Install Lottery Analyser (v1.0)
; $VER: Install Analyser


; some 'constants'

(set app_volume "Analyser:")
(set orig_user_level @user-level)
(set #finishmsg
  (cat "\nAfter clicking the `Proceed' button, remove the `Analyser' disk from the internal disk drive and reset your Amiga.\n"
  )
)

(user orig_user_level)

; tell average/expert user what we'll be doing

(message
   "\nYour copy of The Lottery Analyser will be installed in a new drawer named "
   "\"Analyser\". You will be asked where on your hard drive "
    "(or other storage device) you want this drawer created."
)

; ask user where to put the drawer

(set app_locate
 (askdir
  (prompt "Please indicate where you want the Analyser Drawer "
         "to be located.")
  (help @askdir-help)
  (default @default-dest)
 )
)

; make the main drawer

(set app_locate (tackon app_locate "Analyser"))

(makedir app_locate (infos))

(set @default-dest app_locate)

; Copy files

(copyfiles
  (source app_volume)
  (dest app_locate)
  (choices
    "Lottery"
    "Lottery.info"     
    "Lottery.draws"
    "Lottery.own"
    "Lottery.syn"
    "Analyser.Guide"
    "Analyser.Guide.info"
    "Analyser.txt"
    "Analyser.txt.info"       
    )
  (infos)
)
(complete 30)


(startup "Analyser"
        (prompt
                "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use Analyser.")
        (help "No help for this function")
        (command "assign Analyser: " app_locate)
)

(makeassign "Analyser: " app_locate)

(complete 100)

(exit #finishmsg)