;Installer V2 For AmiTCP Control Panel V5.2
;
;Martin Hunt 1995
;
;


(set amitcpdir
   (askdir
       (prompt "Where is AmiTCP installed?")
       (help @askdir-help)
       (default "dh1:amitcp")
   )
)
(set @default-dest amitcpdir)
(makeassign "amitcp" amitcpdir
 (safe)
)

(set cp5dest
   (askdir
       (prompt "Where do you want Control Panel 5 to be installed?")
       (help @askdir-help)
       (default "sys:wbstartup")
   )
)

(copyfiles
   (prompt "Copying AmiTCP Control Panel to " @default-dest )
   (help @copyfiles-help)
   (source "ControlPanel5")
   (dest cp5dest)
   (infos)
   (confirm)
)
(copyfiles
   (prompt "Copying AmiTCP Control Panel to " @default-dest )
   (help @copyfiles-help)
   (source "cp5.exe")
   (dest "c:")
   (confirm)
)

(set cp5
   (askdir
       (prompt "Where do you want CP5's scripts to be installed?")
       (help @askdir-help)
       (default "amitcp:cp")
   )
)

(makeassign "CP" cp5
  (safe)
)

(copyfiles
 (prompt "Copying AmiTCP Control Panel Scripts and Commands to "cp5)
   (help @copyfiles-help)
   (source "bin")
   (all)
   (dest cp5)
   (infos)
   (confirm)
)

(set amitcpdocs
   (askdir
       (prompt "Where do you want the docs to be stored?")
       (help @askdir-help)
       (default "amitcp:docs")
   )
)

(copyfiles
 (prompt "Copying AmiTCP Control Panel Docs to "amitcpdocs)
   (help @copyfiles-help)
   (source "docs")
   (all)
   (dest amitcpdocs)
   (infos)
   (confirm)
)

(makedir "cp:prefs"
  (prompt)
  (infos)
  (safe)
)

(Copyfiles
(prompt "Copying AmiTCP Control Panel Default Prefs to "cp5"/prefs")
   (help @copyfiles-help)
   (source "prefs")
   (all)
   (dest "cp:prefs")
   (infos)
   (confirm)
)

(set ConnectType
(askchoice
  (prompt "Select which type of connection software you are using")
  (help @askchoice-help)
  (choices "Standard AmiTCP Startnet/Stopnet"
           "Demon Internet Startnet/Stopnet/Link"
           "Amiconnect"
  )
)
)

(if  (= connecttype 0)
     (Copyfiles
       (prompt "Copying AmiTCP Control Panel Main Prefs to s:cp.config")
       (help @copyfiles-help)
       (source "s/cp.config.std")
       (dest "s:")
       (confirm)
       (newname "cp.config")
     )
     (if (= connecttype 1)
         (Copyfiles
            (prompt "Copying AmiTCP Control Panel Main Prefs to s:cp.config")
            (help @copyfiles-help)
            (source "s/cp.config.demon")
            (dest "s:")
            (confirm)
            (newname "cp.config")
         )
         (Copyfiles
            (prompt "Copying AmiTCP Control Panel Main Prefs to s:cp.config")
            (help @copyfiles-help)
            (source "s/cp.config.amiconnect")
            (dest "s:")
            (confirm)
            (newname "cp.config")
         )
     )
)

(copylib
   (prompt "Copying Apig.Library to Libs:" )
   (help @copyfiles-help)
   (source "Libs/apig.library")
   (dest "Libs:")
   (infos)
   (confirm)
)

(set line1 ("Assign Amitcp: %s \n" amitcpdir))
(set line15 ("Assign Inet: %s \n" amitcpdir))
(set line2 ("Assign Cp: %s \n" cp5))
(set line3 ("path amitcp:bin add \n"))
(set line4 ("path cp: add \n"))

(startup "CP5"
   (prompt "Adding assigns and paths to s:user-startup")
   (help @startup-help)
   (command line1)
   (command line15)
   (command line2)
   (command line3)
   (command line4)
)

(run "cp:controlpanelprefs main"
   (prompt "Starting Main Preference Editor" )
   (help "FRED")
   (confirm)
   (safe)
)

(run "cp:controlpanelprefs programs"
   (prompt "Starting Program Preference Editor" )
   (help "FRED")
   (confirm)
   (safe)
)

(run "cp:controlpanelprefs options"
   (prompt "Starting Options Preference Editor" )
   (help "FRED")
   (confirm)
   (safe)
)

(run "cp:controlpanelprefs Edit"
   (prompt "Starting EditFile Preference Editor" )
   (help "FRED")
   (confirm)
   (safe)
)

(run "cp:controlpanelprefs POPS"
   (prompt "Starting PoP Preference Editor" )
   (help "FRED")
   (confirm)
   (safe)
)

(run "cp:changeuser.exe"
   (prompt "Starting User Editor" )
   (help "RTFM!")
   (CONFIRM)
)
