;Installer V2 For AmiTCP Control Panel V3.5
;
;©Martin Hunt 1995
;
;

(complete 0)

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

(makeassign "amitcp" amitcpdir)


(complete 5)

(set @default-dest
   (askdir
       (prompt "Where is AmiTCP Control Panel Installed?")
       (help @askdir-help)
       (default "sys:wbstartup")
   )
)

(copyfiles
   (prompt "Copying AmiTCP Control Panel to " @default-dest )
   (help @copyfiles-help)
   (source "cp_update")
   (dest @default-dest)
   (all)
   (infos)
   (confirm)
)


(complete 15)

(set @doc-dest
   (askdir
       (prompt "Where do you want to install AmiTCP Control Panel's Documents?")
       (help @askdir-help)
       (default "amitcp:docs")
   )
)


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

(complete 25)

(set mail
   (askfile
       (prompt "What Mail Program Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/mail")
   )
)

(complete 30)
(set news
   (askfile
       (prompt "What News Program Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/grn")
   )
)
(complete 35)
(set ftp
   (askfile
       (prompt "What FTP Program Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/gui-ftp")
   )
)
(complete 40)
(set WWW
   (askfile
       (prompt "What WWW Browser Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/amosaic")
   )
)
(complete 45)
(set Gopher
   (askfile
       (prompt "What Gopher Program Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/gopher")
   )
)
(complete 50)
(set IRC
   (askfile
       (prompt "What IRC Program Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/gv")
   )
)
(complete 55)
(set UUDECODER
   (askfile
       (prompt "What UUDecoder Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/uuxt-gui")
   )
)
(complete 60)
(set DeArchiver
   (askfile
       (prompt "What DeArchiver Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/guiarc")
   )
)
(complete 65)
(set newsed
   (askfile
       (prompt "What News Group Editor Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/newsed_gui.exe")
   )
)
(complete 70)
(set left
    (asknumber
       (prompt "Enter How Far From The Left \n Of The Screen You Want The \n Requester To Appear")
       (help @asknumber-help)
       (range 0 1200)
       (default 20)
    )
)
(complete 75)
(set top
    (asknumber
       (prompt "Enter How Far Down The Screen \n You Want The Requester To Appear")
       (help @asknumber-help)
       (range 0 600)
       (default 30)
    )
)

(complete 80)
(Set intro1 "; Control Panel Configuration File\n")
(Set intro2 "; CPv3.5 9/2/95\n")
(set blankline "\n")
(Set intro3 "Requester Position\n")
(set leftpos ("LEFT = %ld \n" left))
(set toppos ("TOP = %ld \n" top))
(set intro4 "Where Is AmiTCP stored?\n\n")
(set amitcpdirt ("AMITCPDIR = %s \n" amitcpdir))
(set Intro5 "Programs Used By Control Panel\n\n")
(set mailprog ("Mail = %s \n" mail))
(set newsprog ("News = %s \n" news))
(set FtpProg ("FTP = %s \n" ftp))
(set WWWprog ("WWW = %s \n" www))
(Set GopherProg ("Gopher = %s \n" gopher))
(set IRCprog ("IRC = %s \n" irc))
(Set UUDecoderProg ("UUDECODER = %s \n" uudecoder))
(Set Dearchiverprog ("DEARCHIVER = %s \n" dearchiver))
(Set NewsEdProg ("NEWSEDPROG = %s \n" NewsEd))
(set endofconfig "End Of Control Panel Config File")
(complete 90)
(textfile
   (dest "s:cp.config")
   (append intro1)
   (append intro2)
   (append blankline)
   (append intro3)
   (append leftpos)
   (append toppos)
   (append blankline)
   (append Intro4)
   (append amitcpdirt)
   (append blankline)
   (append intro5)
   (append mailprog)
   (append newsprog)
   (append ftpprog)
   (append wwwprog)
   (append gopherprog)
   (append ircprog)
   (append uudecoderprog)
   (append dearchiverprog)
   (append newsedprog)
   (append blankline)
   (append endofconfig)
)

(complete 100)