;Configure AmiTCP Control Panel V4.2
;-----------------------------------
;©PirlAGA 1995
;e.mail: tekne@cmns.mnegri.it
;www:    http://www.cmns.mnegri.it/~tekne

(set left
    (asknumber
       (prompt "How Far From The Left \n Of The Screen Do You Want \n Control Panel To Appear?")
       (help @asknumber-help)
       (range 0 1200)
       (default 10)
    )
)

(set top
    (asknumber
       (prompt "How Far Down The Screen \n Do You Want Control Panel To Appear?")
       (help @asknumber-help)
       (range 0 600)
       (default 20)
    )
)

(set device1
   (askbool
      (prompt "Select The Device\n You Use To\nConnect To Internet\nThis Is Usually\n\nSLIP")
      (default 1)
      (choices "SLIP" "PPP")
      (help "No other choiches!\n SLIP (often) or PPP")
   )  
)

(if(= device1 1)
   (set DEVICE ("DEVICE = SLIP\n"))
   (set DEVICE ("DEVICE = PPP\n"))
)

(set Status1
   (askbool
      (prompt "\nDo You Want\nControl Panel\nStatus Information")
      (default 1)
      (choices "YES" "NO")
      (help "It's not so hard to choose! :)")
   )
)

(if(= Status1 1)
   (set STATUS ("STATUS = YES\n"))
   (set STATUS ("STATUS = NO\n"))
)

(message "\nNow it's time to setup programs to use.\n")
(set link
   (askfile
      (prompt "What Script Do You Use To Connect To Internet?")
      (help @askfile-help)
      (default "amitcp:bin/link_gui.exe")
   )
)

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

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

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

(set WWW
   (askfile
       (prompt "What WWW Browser Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/amosaic")
   )
)

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

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

(set UUDECODER
   (askfile
       (prompt "What UUDecoder Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/uucode")
   )
)

(set DeArchiver
   (askfile
       (prompt "What DeArchiver Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/guiarc")
   )
)

(set newsed
   (askfile
       (prompt "What News Group Editor Do You Use?")
       (help @askfile-help)
       (default "amitcp:bin/newsed_gui.exe")
   )
)


(message "Let's configure the 2 buttons and 5 menu items.\n\n If you dont want,\n just leave blank lines\n and click on Proceed")
(set option1Text
   (askstring
      (prompt "Enter Menu and Button Text For Option 1\n(Just ONE word, dude!)")
      (help @askstring-help)
      (default " ")
   )
)
(set option1prog
   (askfile
      (prompt "Which Program Should This Option Run?")
      (help @askfile-help)
      (default " ")
   )
)
(set option2Text
   (askstring
      (prompt "Enter Menu and Button Text For Option 2\n(Still ONE word, pal!)")
      (help @askstring-help)
      (default " ")
   )
)
(set option2prog
   (askfile
      (prompt "Which Program Should This Option Run?")
      (help @askfile-help)
      (default " ")
   )
)
(set option3Text
   (askstring
      (prompt "Enter Menu Text For Option 3\n(ONE other word, guy!)")
      (help @askstring-help)
      (default " ")
   )
)
(set option3prog
   (askfile
      (prompt "Which Program Should This Option Run?")
      (help @askfile-help)
      (default " ")
   )
)
(set option4Text
   (askstring
      (prompt "Enter Menu Text For Option 4\n(Do you know? .. ONE word)")
      (help @askstring-help)
      (default " ")
   )
)
(set option4prog
   (askfile
      (prompt "Which Program Should This Option Run?")
      (help @askfile-help)
      (default " ")
   )
)
(set option5Text
   (askstring
      (prompt "Enter Menu Text For Option 5\n(Finally, the last ONE word)")
      (help @askstring-help)
      (default " ")
   )
)
(set option5prog
   (askfile
      (prompt "Which Program Should This Option Run?")
      (help @askfile-help)
      (default " ")
   )
)
(message "You can enter now\n4 users profiles.\n\nIf you don't want,\n leave blank requester\n and ckick on Proceed.\n(As Ever!:)")
(set User1Text
   (askstring
      (prompt "Enter Menu Text For User 1\n(How many words? ONEEEEEE!!!)")
      (help @askstring-help)
      (default "")
   )
)
(set user1name
   (askstring
      (prompt "Enter the User Name of User 1\n(3? 5? 666? no!! Just ONE word!)")
      (help @askstring-help)
      (default "")
   )
)
(set user1realname
   (askstring
      (prompt "Enter the Real Name of User 1")
      (help @askstring-help)
      (default "")
   )
)

(set User2Text
   (askstring
      (prompt "Enter Menu Text For User 2\n(mumble..mumble..it's ONE word?)")
      (help @askstring-help)
      (default "")
   )
)
(set user2name
   (askstring
      (prompt "Enter the User Name of User 2\n(Let me think to ONE word)")
      (help @askstring-help)
      (default "")
   )
)
(set user2realname
   (askstring
      (prompt "Enter the Real Name of User 2")
      (help @askstring-help)
      (default "")
   )
)
(set User3Text
   (askstring
      (prompt "Enter Menu Text For User 3\n(QUIZ: think a number from ONE to ONE)")
      (help @askstring-help)
      (default "")
   )
)
(set user3name
   (askstring
      (prompt "Enter the User Name of User 3\n(Maybe more than ONE ?)")
      (help @askstring-help)
      (default "")
   )
)
(set user3realname
   (askstring
      (prompt "Enter the Real Name of User 3")
      (help @askstring-help)
      (default "")
   )
)
(set User4Text
   (askstring
      (prompt "Enter Menu Text For User 4\n(Don't bore me! I know! ONE word!!!)")
      (help @askstring-help)
      (default "")
   )
)
(set user4name
   (askstring
      (prompt "Enter the User Name of User 4\n(AAArghhhh!! What a ball!! ONE ball!)")
      (help @askstring-help)
      (default "")
   )
)
(set user4realname
   (askstring
      (prompt "Enter the Real Name of User 4")
      (help @askstring-help)
      (default "")
   )
)
(message "You can also change the PoP you use\njust selecting a menuitem.\n\nIf you dont want.. \njust keep pressing Proceed")
(set pop1text
   (askstring
      (prompt "Enter The Menu Text For POP1\n(I hope it's just ONE word!)")
      (help @askstring-help)
      (default "")
   )
)
(set pop1file
   (askfile
      (prompt "What Dialscript Is Used To Dial This POP")
      (help @askfile)
      (default "")
   )
)
(set pop2text
   (askstring
      (prompt "Enter The Menu Text For POP2\n(Shake your mind.. gimme LAST ONE word!)")
      (help @askstring-help)
      (default "")
   )
)
(set pop2file
   (askfile
      (prompt "What Dialscript Is Used To Dial This POP")
      (help @askfile)
      (default "")
   )
)
(set pop3text
   (askstring
      (prompt "Enter The Menu Text For POP3\n(Dont burst into tears.. it was a joke!)\n(This is really the LAST ONE!)")
      (help @askstring-help)
      (default "")
   )
)
(set pop3file
   (askfile
      (prompt "What Dialscript Is Used To Dial This POP")
      (help @askfile)
      (default "")
   )
)


(Set intro1 "; Control Panel 4.2 Configuration File\n")
(Set intro2 "; Written by * PirlAGA Config Script *\n")
(set tekne "; e.mail: tekne@cmns.mnegri.it  -  www: http://www.cmns.mnegri.it\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")
(set amitcpdirt ("AMITCPDIR = %s \n" amitcpdir))
(set Intro5 "; Programs Used By Control Panel\n")
(set linkprog ("Link = %s \n" link))
(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 tracerouteprog ("TRACEROUTE = Amitcp:bin/ping.traceroute.exe\n"))
(set pingprog ("PING = AMITCP:bin/ping.traceroute.exe\n"))
(set archieprog ("ARCHIE = Amitcp:bin/archie_gui.exe\n"))
(set fingerprog ("FINGER = Amitcp:bin/finger_gui.exe\n"))
(set autoprog ("AUTO = AMITCP:bin/auto.exe\n"))
(Set UUDecoderProg ("UUDECODER = %s \n" uudecoder))
(Set Dearchiverprog ("DEARCHIVER = %s \n" dearchiver))
(Set NewsEdProg ("NEWSEDPROG = %s \n" NewsEd))
(set UserOptions ("; Control Panel User Options\n"))
(set option1 ("OPTION1 = %s %s\n" option1text option1prog))
(set option2 ("OPTION2 = %s %s\n" option2text option2prog))
(set option3 ("OPTION3 = %s %s\n" option3text option3prog))
(set option4 ("OPTION4 = %s %s\n" option4text option4prog))
(set option5 ("OPTION5 = %s %s\n" option5text option5prog))
(set Users ("; Control Panel Users\n"))
(set user1 ("USER1 = %s %s %s \n" user1text user1name user1realname))
(set user2 ("USER2 = %s %s %s \n" user2text user2name user2realname))
(set user3 ("USER3 = %s %s %s \n" user3text user3name user3realname))
(set user4 ("USER4 = %s %s %s \n" user4text user4name user4realname))
(set Pops ("; Control Panel Pop's\n"))
(set pop1 ("POP1 = %s %s\n" pop1text pop1file))
(set pop2 ("POP2 = %s %s\n" pop2text pop2file))
(set pop3 ("POP3 = %s %s\n" pop3text pop3file))
(set endofconfig "; End Of Control Panel Config File\n")
(set greet "; Greetings from Italy by PirlAGA")
(textfile
   (dest "s:cp.config")
   (append intro1)
   (append intro2)
   (append tekne)
   (append blankline)
   (append intro3)
   (append leftpos)
   (append toppos)
   (append blankline)
   (append Intro4)
   (append amitcpdirt)
   (append blankline)
   (append device)
   (append blankline)
   (append status)
   (append blankline)
   (append intro5)
   (append linkprog)
   (append mailprog)
   (append newsprog)
   (append ftpprog)
   (append wwwprog)
   (append gopherprog)
   (append ircprog)
   (append pingprog)
   (append tracerouteprog)
   (append autoprog)
   (append archieprog)
   (append fingerprog)
   (append uudecoderprog)
   (append dearchiverprog)
   (append newsedprog)
   (append blankline)
   (append useroptions)
   (append option1)
   (append option2)
   (append option3)
   (append option4)
   (append option5)
   (append users)
   (append user1)
   (append user2)
   (append user3)
   (append user4)
   (append pops)
   (append pop1)
   (append pop2)
   (append pop3)
   (append endofconfig)
   (append greet)
)