; $Id: Install-DeluxePaintV,v 1.7 94/08/10 15:58:27 lee Exp $
; $VER: Install-DeluxePaintV 1.7
;
; Copyright (c) 1994 Electronic Arts, Inc. All Rights Reserved.

(set app_prefix "DPaintV_")
(set app_disk1  "Install")
(set app_disk2  "Media")
(set app_disk3  "Examples")
(set app_disk4  "Extras")

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

(set expert_user_level 2)
(set orig_user_level @user-level)

; standard amiga error codes
(set RC_OK     0
     RC_WARN   5
     RC_ERROR 10
     RC_FATAL 20
     )

; program install options
(set INSTF_DPAINT  1
     INSTF_DPLAYER 2)


;
; determine AmigaDos version and revision numbers
;
(set AmigaDos_Number   (getversion))
(set AmigaDos_Version  (/ AmigaDos_Number 65536))
(set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))

;
; set up some message strings
;
(set format_msg
   (cat
      "Please insert an unused write-enabled floppy disk in drive "
      "DF0 before clicking on the \"Proceed\" button. This will be "
      "your destination disk.\n\n"

      "When prompted for a source disk (i.e. \"DPaintV_Install\"), "
      "place the source disk in any drive other than DF0\n\n"
   )
)

(set format_help
   (cat
      format_msg

      "Warning all data on the write-enabled floppy you provide "
      "will be erased!\n\n"

      "Please make sure that all your original DeluxePaintV "
      "source disks are write-protected before proceeding!!"
   )
)


; --------------------------------------------------------------------
; format_disk:
;   standard floppy format procedure.
;   if an error occurs during the format, a message will be put up
;   and the user re-prompted.
;
; inputs:
;   <DstDiskName> : The name to use when formatting the disk.
;
; outputs:
;   <fmt_error>  will be set to 0 if disk was formatted successfully,
;                or some value <= RC_WARN if the user cancelled the format.
;
(procedure format_disk
   (run "echo >ram:newline <nil: \"\"")
   (run ("assign \"%s\" remove" (cat DstDisName ":")))
   (user expert_user_level)
   (set fmt_error RC_FATAL)
   (until (<= fmt_error RC_WARN)
     ((set fmt_error
           (run  ("sys:system/format DRIVE DF0: NAME \"%s\" FFS NOICONS >NIL: <ram:newline" DstDiskName)
                 (help format_help)
                 (prompt (cat ("Creating disk \"%s\"...\n\n" DstDiskName) format_msg))
                 (confirm)
                 )
            )
       (transcript "format_result = " fmt_error)
       (if (> fmt_error RC_WARN)
           (message ("Error formatting disk \"%s\"" DstDiskName)))
       
       ))
    (user orig_user_level)
    (delete ram:newline)
)



; --------------------------------------------------------------------
(procedure setup_floppy_install
  (user expert_user_level)
  (message "The complete floppy disk installation requires 4 "
           "unused disks. Please have your disks ready.\n\n"
 
           "Warning: this install procedure assumes that you have "
           "at least two disk drives."
           )
  (user orig_user_level)
)

; --------------------------------------------------------------------
(procedure setup_hd_install
   (message 
      "\nYour copy of DeluxePaintV will be installed in a new drawer named "
      "\"DPaintV\". You will be asked where on your hard drive (or "
      "storage device) you want this drawer created.")

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


   (set app_path (tackon app_locate "DPaintV"))
   (makedir app_path (infos))
)



; --------------------------------------------------------------------
; copy_volume1 
;    copies files from <app_volume1> into the user's preselected 
;    destination directory. If we're doing a <hd_install> this procedure
;    assumes <app_path> has already been set.  If we're doing a 
;    floppy install, the files will be copied to the newly formatted
;    'DPaintV' disk.
;
;    if either dpaint or dplayer are installed and catalogs directory
;    will be created. This assumes that app_volume1 contains an empty
;    catalogs directory and that the user will be prompted for language
;    installation later.
;
(procedure copy_volume1
  (complete 5)
  (set program_options 
      (askoptions
         (prompt "Which applications do you wish to install?")
         (choices "DPaint" "DPlayer")
         (help  "  DPaint  -- installs DPaint and its support files\n"
                "  DPlayer -- installs DPaint Player Utility\n\n"
                @askoptions-help)
         )
      )
  (if (not hd_install)
      ((set DstDiskName "DPaintV")
       (set app_path    (cat DstDiskName ":"))
       (if program_options
           ((format_disk) 
            (if fmt_error (set program_options 0))))))
  (if (bitand INSTF_DPAINT program_options)
      (copyfiles
         (prompt "Copying DPaint and its support files...")
         (source app_volume1)
         (dest   app_path)
         (choices "DPaint" "Libs" "Fonts")
         (help @copyfiles-help)
         (infos)
         (fonts)
         ))
  (complete 10)
  (if (bitand INSTF_DPLAYER program_options)
      (copyfiles
         (prompt "Copying DPlayer...")
         (source app_volume1)
         (dest   app_path)
         (choices "DPlayer")
         (infos)
         (help @copyfiles-help)
         ))
  (set @default-dest app_path)
)

; --------------------------------------------------------------------
(procedure copy_dir
  (copyfiles 
      (prompt  ("Copying \"%s\"..." app_dir))
      (source  app_volume)
      (dest    app_path)
      (choices app_dir)
      (help    @copyfiles-help)
      (infos)
      (fonts)
      (optional)
      )
)

; --------------------------------------------------------------------
; copy_volume2 
;    copies files from <app_volume2> into the user's preselected 
;    destination directory. If we're doing a <hd_install> this procedure
;    assumes <app_path> has already been set.  If we're doing a 
;    floppy install, the files will be copied to the newly formatted
;    <app_disk2> disk.
;
(procedure copy_volume2
  (complete 15)
  (set options 
      (askoptions 
          (prompt "Which of the following directories do you wish to install?")
          (choices "Media" "Textures" "Patterns" "Brush" "Move" "Colours")
          (help "  Media    -- sample media types (chalk,oil,etc..)\n"
                "  Textures -- sample paper textures\n"
                "  Patterns -- sample fill patterns\n"
                "  Brush    -- sample brushes\n"
                "  Move     -- sample move templates\n"
                "  Colours  -- sample colours/palettes\n"
                "\n"
                @askoptions-help)
          )
      )
  (if options
      (if (not hd_install)
          ((set DstDiskName app_disk2)
           (set app_path (cat DstDiskName ":"))
           (format_disk)
           (if fmt_error (set options 0)))))
  (set app_volume app_volume2)
  (if (bitand 1 options)
      ((set app_dir "Media") (copy_dir)))
  (complete 20)
  (if (bitand 2 options)
      ((set app_dir "Textures") (copy_dir)))
  (complete 25)
  (if (bitand 4 options)
      ((set app_dir "Patterns") (copy_dir)))
  (complete 30)
  (if (bitand 8 options)
      ((set app_dir "Brush") (copy_dir)))
  (complete 35)
  (if (bitand 16 options)
      ((set app_dir "Move") (copy_dir)))
  (complete 40)
  (if (bitand 32 options)
      ((set app_dir "Colours") (copy_dir)))
)


; --------------------------------------------------------------------
; copy_volume3 
;    copies files from <app_volume3> into the user's preselected 
;    destination directory. If we're doing a <hd_install> this procedure
;    assumes <app_path> has already been set.  If we're doing a 
;    floppy install, the files will be copied to the newly formatted
;    <app_disk3> disk.
;
(procedure copy_volume3
  (complete 45)
  (set options 
      (askoptions 
          (prompt "Which of the following directories do you wish to install?")
          (choices "Picture" "Anim" "Animbrush" "Karafonts")
          (help "  Picture   -- sample pictures\n"
                "  Anim      -- sample animations\n"
                "  AnimBrush -- sample animbrushes\n"
                "  Karafonts -- sample colour fonts\n"
                "\n"
                @askoptions-help)
          )
      )
  (if options
      (if (not hd_install)
          ((set DstDiskName app_disk3)
           (set app_path (cat DstDiskName ":"))
           (format_disk)
           (if fmt_error (set options 0)))))
  (set app_volume app_volume3)
  (if (bitand 1 options)
      ((set app_dir "Picture") (copy_dir)))
  (complete 50)
  (if (bitand 2 options)
      ((set app_dir "Anim") (copy_dir)))
  (complete 55)
  (if (bitand 4 options)
      ((set app_dir "Animbrush") (copy_dir)))
  (complete 60)
  (if (bitand 8 options)
      ((set app_dir "Karafonts") (copy_dir)))
)

; --------------------------------------------------------------------
; do_eoasucks
;   asks the user if he/she wishs to run and register their
;   copy of dpaint now. if the answer is yes, launches the program...
;
(procedure do_eoasucks
  (working "Breaking DeluxePaintV...")
  (run ("run DPaintV_Install:DP5REG \"%s\"" (tackon @default-dest "DPaint"))
       (prompt "\n\n\n\n\nRun crackpatch on DPaintV now?\n\n{see help}")
       (help "Help yourself...\nIf you choose to not install the crack\nand original copy of the DP executable\nwill be installed on your drive.\nMy patcher is on the 1st disk and\nis named DP5REG, there is also a tool to\nclear the userdata and let you reenter\nit, it's name is DP5UNREG. \n\nand that cold day when you lost control\nshame you left my life so soon\nyou should have told me\nbut you left me far behind..."
             )
       (confirm)
       )
)

;-

; --------------------------------------------------------------------
; do_register
;   asks the user if he/she wishs to run and register their
;   copy of dpaint now. if the answer is yes, launches the program...
;
(procedure do_register
  (working "Running DeluxePaintV...")
  (run ("run >NIL: <NIL: \"%s\"" (tackon @default-dest "DPaint"))
       (prompt "Do you wish to register your copy of DeluxePaintV now?")
       (help "DeluxePaintV must be registered when using it for the first "
             "time. If you select \"Proceed\", the installer will run DeluxePaintV "
             "so it can ask you for your registration information now. Please "
             "have your registration card ready. If you select \"Skip This Part\", you may "
             "run and register the program at your earliest convenience."
             )
       (confirm)
       )
)

; --------------------------------------------------------------------
; update_asl:
;   updates asl.library to v38; asks expert users for confirmation.
;
;                             WARNING
;   The installer WILL COPY the supplied library over the user's
;   current library WITHOUT REGARD to the current library's version
;   number!!! This procedure should NOT be called if the library
;   version is v38 or better.
; 
(procedure update_asl
  (working "Checking \"asl.library\" version number...")
  (copylib (prompt "Updating \"asl.library\"...")
           (help "You will need \"asl.library\" version 38 (or better) for "
                 "DeluxePaintV to work properly. The library should only "
                 "be updated if its version number is less than the "
                 "minimum version number required by DeluxePaintV.\n\n"
                 @copylib-help
                 )
           (source (tackon app_volume4 "v38_libs/asl.library"))
           (dest "libs:")
           (confirm))
)


; --------------------------------------------------------------------
; copy_volume4
;    copies files from <app_volume4> into the user's preselected 
;    destination directory. If we're doing a <hd_install> this procedure
;    assumes <app_path> has already been set.  If we're doing a 
;    floppy install, the files will be copied to the newly formatted
;    <app_disk4> disk.
;
;    Updates the asl.library if necessary.
;
(procedure copy_volume4
  (complete 65)
  (set options 
      (askoptions 
          (prompt "Which of the following directories do you wish to install?")
          (choices "Gallery" "Macros" "AGA_Art" "Icons")
          (help  "  Gallery -- gallery art work\n"
                 "  Macros  -- sample arexx macros\n"
                 "  AGA_Art -- sample AGA art work\n"
                 "  Icons   -- sample icon files\n"
                 "\n"
                 @askoptions-help)
          )
      )
  (if options
      (if (not hd_install)
          ((set DstDiskName app_disk4)
           (set app_path (cat DstDiskName ":"))
           (format_disk)
           (if fmt_error (set options 0)))))
  (set app_volume app_volume4)
  (complete 70)
  (if (bitand 1 options)
      ((set app_dir "Gallery") (copy_dir)))
  (complete 75)
  (if (bitand 2 options)
      ((set app_dir "Macros") (copy_dir)))
  (complete 80)
  (if (bitand 4 options)
      ((set app_dir "AGA_Art") (copy_dir)))
  (complete 85)
  (if (bitand 8 options)
      ((set app_dir "Icons") (copy_dir)))
  (complete 90)

  (set asl_version (/ (getversion "libs:asl.library") 65535))
  (transcript "asl_version = " asl_version)
  (if (< asl_version 38)
      (update_asl))
  
)

; --------------------------------------------------------------------
; do_exit
;   does the language installation
;   does the program registrations if requested
;   puts up regcard reminder and says thanks...
;
(procedure do_exit
  (complete 95)
  (set options 
      (askoptions 
          (prompt "Which of the language Catalogs do you wish to install?")
          (choices "Français" "Deutsch")
          (help  "Français -- installs French catalogs in DPaintV:Catalogs/Français\n\n"
                 "Deutsch  -- installs German catalogs in DPaintV:Catalogs/Deutsch\n\n"
                 @askoptions-help)
          )
      )
  (set app_volume (tackon app_volume4 "Catalogs"))
  (set app_path   (tackon @default-dest "Catalogs"))
  (if (bitand 1 options)
      ((set app_dir "Français") (copy_dir)))
  (if (bitand 2 options)
      ((set app_dir "Deutsch") (copy_dir)))

  (complete 98)
  (if hd_install
      (startup @app-name
         (prompt "\nAdd DPaintV: assignment to s:user-startup?")
         (help   "All icons written out by DeluxePaintV will default to using "
                 "DPaintV:DPaint. Adding the above assignment to your "
                 "startup file will allow these files to automatically launch "
                 "DeluxePaintV when you double-click on them.\n\n"

                 @startup-help
                 )
         (command ("Assign DPaintV: \"%s\" defer" @default-dest))
         ))

  (if hd_install
      (run ("assign DPaintV: \"%s\"" @default-dest)
           (prompt ("\nAssign DPaintV: to \"%s\" now?" @default-dest))
           (help "DeluxePaintV looks for pictures, brushes, textures "
                 "in subdirectories under the logical assignment "
                 "\"DPaintV:\" by default.\n\n"
                 "This assignment is only needed now if you plan to "
                 "run DeluxePaintV before rebooting your computer "
                 "and using your s:user-startup. "
                 )
           (confirm)))
             
  (complete 99)
  (message "\n\n\n\n\n\nBroken by JNohbdy/TeJaS   Supplied by PegLeg/TeJaS"
	   "\n WE'RE ON A MISSION FROM GOD!\n"
	   )
  (do_eoasucks)
  (do_register)
 
  (complete 100)
  (user expert_user_level)
  (message "\nPlease remember to fill out and mail in your DeluxePaintV "
           "Registration Card as soon as possible.\n\n"

           "Thank you for purchasing DeluxePaintV!"
	   "\n\n\n{Whatever...}"
           )
  (exit)
)
; --------------------------------------------------------------------
;                   This is the actual Install Script
; --------------------------------------------------------------------
;
; tell the user that DPaintV requires AmigaDos 2.04
;
(if (< AmigaDos_Version 37)
    (
      (abort
         "DeluxePaintV will not run under this version of AmigaDOS. "
         "DeluxePaintV requires a minimum of AmigaDOS 2.04"
         )
    )
)
;
; ask the user if this is a floppy or harddisk installation
; and set the value of <hd_install>
;
(user expert_user_level)
(set hd_install 
   (= 0
     (askchoice
           (prompt "\nSelect installation method:")
           (help
               "DeluxePaintV must be properly registered before use. The can be done "
               "at the same time that the program is installed on your hard drive "
               "(or other storage device), or can be performed on a copy of the DeluxePaintV "
               "floppy disk.\n"
               "  Select \"Hard Drive\" to install DeluxePaintV to your hard drive.\n"
               "  Select \"Floppy Disk\" to install DeluxePaintV to a floppy disk.\n"
               "\n"
               @askchoice-help
               )
           (choices "Hard Drive" "Floppy Disk")
           (default 0)
           )
      )
)
(user orig_user_level)

(if hd_install
    (setup_hd_install)
    (setup_floppy_install))

(copy_volume1)
(copy_volume2)
(copy_volume3)
(copy_volume4)
(do_exit)