;*
;* Install Script For NewCommandSet V1.30
;*  
;* Done By -> AlphaSOUND <-
;*

(complete 0)

;*** Directory Select ***

(complete 10)

(set DestDir
  (askdir
    (prompt "Where is localized your BlitzLibs drawer ?")
    (help "")
    (default "BlitzLibs:")
  )
)

(set DestDir (expandpath DestDir))
(set NDir (tackon DestDir "NLibs"))


(set ExampleDir
  (askdir
    (prompt "Where do you want to install the examples files ?")
    (help "")
    (default "Blitz2:")
  )
)


(set HelpDir
  (askdir
    (prompt "Where do you want to install the help files ?"
            "An drawer 'NHelp' will be created here.")
    (help "")
    (default "Blitz2:")
  )
)

(set HelpDir (expandpath HelpDir))
(set HDir (tackon HelpDir "NHelp"))


(set ExampleDir (expandpath ExampleDir))

(makedir NDir)
(makedir HDir (infos))

(complete 50)

(copyfiles
  (source "Resident")
  (dest DestDir)
  (pattern "NLibs.res")
)

(complete 60)

(copyfiles
  (source "NLibs")
  (dest NDir)
  (pattern "#?.obj")
)


(complete 80)

(copyfiles
  (source "Examples")
  (dest ExampleDir)
  (pattern "#?.bb2#?")
)


(complete 90)

(copyfiles
  (source "NHelp")
  (dest HDir)
  (pattern "#?")
)

(complete 100)

(set RunMake (askbool (prompt

              "\nThank you to let give a try to this new library set.\n\n"

              "The installation is complete and you must now launch the MAKEDEFLIBS program "
              "which is located in your BlitzLibs: drawer.\n\n"

              "I can do it for you. Click on 'Run It' to run the MAKEDEFLIBS program or on"
              "'Skip' to skip this part.\n\n"

              "Have fun with theses libraries !\n\n"

              "Fred -> AlphaSOUND <-")

              (help "")
              (choices "Run it !"
                       "Skip it !"
              )
             )
)


(if (= 1 RunMake)
(
    (working "Makedeflibs is being to update your deflibs...")
    (run ("BlitzLibs:MakeDefLibs"))
))