home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Install_MCF < prev    next >
Encoding:
Text File  |  1996-12-27  |  16.2 KB  |  609 lines
  1. ; Installer Script for MCF4AmIRC Version 4.13
  2. ; $VER: Install_MCF V_4.13 (26.12.96)
  3. (set @def-dest1 "Rexx:")
  4. (set @def-dest2 "AmiTCP:help")
  5. (set @def-dest3 "ENVARC:")
  6. (set @def-dest4 "AmiTCP:Doc")
  7.  
  8. (set #Hello
  9. (cat "\nWelcome to the Installer Proceedure for MCF for AmIRC"
  10.      " Before using this Installer, you should really read the"
  11.      " documentation first so that you have a better understanding"
  12.      " of what MCF is and how it actually works.  It will also"
  13.      " make the installation process easier to understand."
  14. ))
  15.  
  16. (set #config-player1
  17. (cat "\nSelect the program that you wish to use to play sounds.\n"
  18. ))
  19.  
  20. (set #config-player2
  21. (cat "\nSelect the program that you wish to us for Speech.\n"
  22. ))
  23.  
  24. (set #config-sounds
  25. (cat "\nSelect the directory which contains your sound files.\n"
  26. ))
  27.  
  28. (set #config-dccdir
  29. (cat "\nSelect the directory for Auto-Download of Auto-Rerquested sound files.\n"
  30. ))
  31.  
  32. (set #config-o-ajoin
  33. (cat "\nDo you wish to Automacially join a channel when you receive"
  34.      " an Invite to it?\n(default 'Y')\n"
  35. ))
  36.  
  37. (set #config-o-asend
  38. (cat "\nDo you wish to Auto-Send sound files requested by others?\n(default 'Y')\n"
  39. ))
  40.  
  41. (set #config-o-dccget
  42. (cat "\nDo you wish to Auto-Get sound files Auto-Requested by you?\n(default 'N')\n"
  43. ))
  44.  
  45. (set #config-o-fserv
  46. (cat "\nDo you wish to turn the File Server feature ON?\n(default 'N')\n"
  47. ))
  48.  
  49. (set #config-o-ops
  50. (cat "\nDo you wish to turn Auto OPs ON?\n (default 'Y')\n"
  51. ))
  52.  
  53. (set #config-o-greets
  54. (cat "\nDo you wish to turn Auto Greets ON?\n (default 'N')\n"
  55. ))
  56.  
  57. (set #config-o-rcmds
  58. (cat "\nDo you wish to turn Remote Commands ON?\n(default 'Y')\n"
  59. ))
  60.  
  61. (set #config-o-sounds
  62. (cat "\nDo you wish to turn the Sounds feature ON?\n(default 'Y')\n"
  63. ))
  64.  
  65. (set #config-o-psound
  66. (cat "\nDo you wish to Play Sounds you send to other users?\n(default 'N')\n"
  67. ))
  68.  
  69. (set #config-o-speech
  70. (cat "\nDo you wish to turn the Speech feature ON?\n(default 'N')\n"
  71. ))
  72.  
  73. (set #config-o-nosounds
  74. (cat "\nWhich response to 'Soundfile Not Found' condition do you want? (0-9)\n(default '2')\n"
  75. ))
  76.  
  77. (set #player-help1
  78. (cat "\nThis is the program that will play your sounds."
  79.      " The current default is 'C:Play16' since this works fine"
  80.      " when you are connected to the net.  The directory path"
  81.      " of your sound play cannot have any spaces in it's name.\n"
  82. ))
  83.  
  84. (set #player-help2
  85. (cat "\nThis is the program that will provide Speech for MCF."
  86.      " The current default is 'SYS:Utilities/Say'.  The directory"
  87.      " path of your Speech program cannot have any spaces in it's name.\n"
  88. ))
  89.  
  90. (set #sounds-help
  91. (cat "\nThis is the directory which contains your sound files"
  92.      " that you want to be available for playing thru MCF.  This"
  93.      " directory name cannot have any spaces in it's name.\n\n"
  94. ))
  95.  
  96. (set #opts-help
  97. (cat "\nThese are AUTO options that are alterable by using %AUTO.\n\n"
  98.      "AJOIN    = N or Y.     Turns off/on your Auto-Join on an INVITE.\n"
  99.      "ASEND    = N or Y.     Turns off/on your Auto-Sending of requested Sounds.\n"
  100.      "DCCGET   = N or Y.     Turns off/on your Auto-Get function.\n"
  101.      "FSERV    = N or Y.     Turns off/on your FileServer functions.\n"
  102.      "GREETS   = C,N,P or Y. Sets your Auto-Greets response.\n"
  103.      "  C = Channel Specific Auto-Greets."
  104.      "  N = Turns off Auto-Greets."
  105.      "  P = Send Auto-Greets as PRIVMSG to User."
  106.      "  Y = Global Auto-Greets. (NOT Recommended!)"
  107.      "OPS      = N or Y.     Turns off/on your Auto-Ops and %OP functions.\n"
  108.      "RCMDS    = N or Y.     Turns off/on your Remote Commands.\n"
  109.      "SPEAK    = N or Y.     Turns off/on your Speech function.\n"
  110.      "SOUNDS   = N or Y.     Turns off/on your Sound Playing function.\n"
  111.      "PSOUND   = N or Y.     Turns off/on Playing of sent sounds.\n"
  112.      "NOSOUNDS = 0 to 9.     Sets your response to 'Soundfile Not Found'."
  113.      "  0 = Do nothing.  1 = Notify Requestor.  2 = Notify You."
  114.      "  3 = Issue CTCP GETSOUND to Requestor."
  115.      "  4 = Issue !Nick Soundfile.wav to Requestor.\n"
  116.      "  5 thru 9 are the same as 0 thru 4 except that they instruct"
  117.      " MCF_Sound.AMIRX to NOT play the sound, AmIRC BETA 1.4+ will.\n"
  118. ))
  119.  
  120. (set #path-text-help
  121. (cat "\nSelect directory to install MCF OPs and help files to"
  122. ))
  123.  
  124. (set #path-text-rexx
  125. (cat "\nSelect directory to install MCF Rexx Scripts to"
  126. ))
  127.  
  128. (set #path-help
  129. (cat "\nThis section lets you choose where to install MCF Ops and"
  130.      " help files on your hard disk.  If you already have installed"
  131.      " a previous version or have already configured your MCF.Ops"
  132.      " and MCF.Fserv files, De-Select them before copying.\n\n"
  133.      @askdir-help
  134. ))
  135.  
  136. (set #copy-help
  137. (cat "\nThis section lets you choose where to install MCF Ops and"
  138.      " help files on your hard disk.  If you already have installed"
  139.      " a previous version or have already configured your MCF.Greets,"
  140.      " MCF.GNicks, MCF.Ops, and MCF.Fserv files, De-Select them before copying.\n\n"
  141.      @copyfiles-help
  142. ))
  143.  
  144. (set #path-rexx
  145. (cat "\nThis section installs the MCF Script files on your hard disk.\n"
  146.      "I've found less problems if only 1 directory is assigned to Rexx:.\n\n"
  147.      @copyfiles-help
  148. ))
  149.  
  150. (set #rexx-copy-text
  151. (cat "Installing MCF Scripts"
  152. ))
  153.  
  154. (set #help-copy-text
  155. (cat "Installing MCF Ops and Help files. De-Select MCF.Ops and"
  156.      " MCF.Fserv if you have already configured these files"
  157. ))
  158.  
  159. (set #env-copy-text
  160. (cat "Installing MCF ENV: to ENVARC: This step is not necessary"
  161.      " if ENV: and ENVARC: are on your Hard-drive to save Ram:"
  162. ))
  163.  
  164. (set #env-copy-dal
  165. (cat "Configuration of DalHelper is only necessary if you use ChanServ"
  166.      " and/or NickServ on DalNet and have not already cofigured it"
  167.      " during a previous install."
  168. ))
  169.  
  170. (set #doc-dir-choose
  171. (cat "\nWhich parts of documentation do you wish to install?"
  172. ))
  173.  
  174. (set #doc-dir-choose-help
  175. (cat "\nSelect which of the following files are to be installed:\n"
  176.      "  MCF4AmIRC.guide  - documentation\n"
  177.      "  MCF4AmIRC.readme - ReadMe file. Latest update info\n"
  178.      @askdir-help
  179. ))
  180.  
  181. (set #install-docs
  182. (cat " Install documentation?\n"
  183.      "This consists of the following files:\n"
  184.      "AmigaGuide documentation\n"
  185.      "ReadMe file. Latest update info\n"
  186. ))
  187.  
  188. (set #goodbye
  189. (cat "\nInstallation of MCF is Complete. Please remember that MCF4AmIRC is not"
  190.      " perfect, nor even anywhere near complete in it's Flood Protection.  Any"
  191.      " info on how to handle Floods not included in MCF would be appreciated\n\n"
  192. ))
  193.  
  194. (set #my-address
  195. (cat    "Donald T Becker\n"
  196.     "335 S Chestnut St\n"
  197.     "Mt Carmel Pa 17851-2219\n\n"
  198.     "email:   dtbecker@prolog.net\n"
  199.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  200. ))
  201. ;********************************************************************
  202.  
  203. (complete 7) (message #Hello)
  204. (set target2
  205.    (askdir (prompt #path-text-help)
  206.    (help #path-help)
  207.    (default @def-dest2)
  208. ;   (newpath)
  209. ))
  210.  
  211. (makeassign "MCF" target2)
  212.  
  213. (set @def-dest2 target2)
  214.  
  215. (complete 13) (message "About to move configuration files\nand delete obsolete files.")
  216.  
  217. (if (Exists "env:mcf.dal")
  218. (
  219.     (run "copy <>nil: env:mcf.dal MCF:")
  220.     (run "delete <>nil: env:mcf.dal")
  221. ))
  222.  
  223. (if (Exists "env:mcf.startup")
  224. (
  225.     (run "copy <>nil: env:mcf.startup MCF:")
  226.     (run "delete <>nil: env:mcf.startup")
  227. ))
  228.  
  229. (if (Exists "env:mcf.protect")
  230. (
  231.     (run "copy <>nil: env:mcf.protect MCF:")
  232.     (run "delete <>nil: env:mcf.protect")
  233. ))
  234.  
  235. (if (Exists "envarc:mcf.dal")
  236.     (run "delete <>nil: envarc:mcf.dal")
  237. )
  238.  
  239. (if (Exists "envarc:mcf.startup")
  240.     (run "delete <>nil: envarc:mcf.startup")
  241. )
  242.  
  243. (if (Exists "envarc:mcf.protect")
  244.     (run "delete <>nil: envarc:mcf.protect")
  245. )
  246.  
  247. (if (Exists "rexx:mcf_sfprotect.amirx")
  248.     (run "delete <>nil: rexx:mcf_sfprotect.amirx")
  249. )
  250.  
  251. (if (Exists "rexx:mcf__help.amirx")
  252.     (run "delete <>nil: rexx:mcf__help.amirx")
  253. )
  254.  
  255. (if (Exists "rexx:mcf__status.amirx")
  256.     (run "delete <>nil: rexx:mcf__status.amirx")
  257. )
  258.  
  259. (complete 17)
  260. (set player1
  261.    (askfile (prompt #config-player1)
  262.    (help #player-help1)
  263.    (default "C:Play16")
  264. ))
  265.  
  266. (set player2
  267.    (askfile (prompt #config-player2)
  268.    (help #player-help2)
  269.    (default "SYS:Utilities/Say")
  270. ))
  271.  
  272. (set sounds
  273.    (askdir (prompt #config-sounds)
  274.    (help #sounds-help)
  275.    (default "Ram:")
  276. ))
  277.  
  278. (set dccdir
  279.    (askdir (prompt #config-dccdir)
  280.    (help #sounds-dccdir)
  281.    (default "Ram:")
  282. ))
  283.  
  284. (complete 21)
  285. (set o-ajoin
  286.    (askbool (prompt #config-o-ajoin)
  287.    (help #opts-help)
  288.    (choices "YES" "NO")
  289.    (default 0)
  290. ))
  291.  
  292. (set o-asend
  293.    (askbool (prompt #config-o-asend)
  294.    (help #opts-help)
  295.    (choices "YES" "NO")
  296.    (default 0)
  297. ))
  298.  
  299. (set o-dccget
  300.    (askbool (prompt #config-o-dccget)
  301.    (help #opts-help)
  302.    (choices "YES" "NO")
  303.    (default 0)
  304. ))
  305.  
  306.  
  307. (complete 24)
  308. (set o-fserv
  309.    (askbool (prompt #config-o-fserv)
  310.    (help #opts-help)
  311.    (choices "YES" "NO")
  312.    (default 0)
  313. ))
  314.  
  315. (complete 28)
  316. (set o-greets
  317.    (askchoice (prompt #config-o-greets)
  318.    (help #opts-help)
  319.    (choices "C" "N" "P" "Y")
  320.    (default 1)
  321. ))
  322.  
  323. (complete 30)
  324. (set o-ops
  325.    (askbool (prompt #config-o-ops)
  326.    (help #opts-help)
  327.    (choices "YES" "NO")
  328.    (default 0)
  329. ))
  330.  
  331. (complete 33)
  332. (set o-rcmds
  333.    (askbool (prompt #config-o-rcmds)
  334.    (help #opts-help)
  335.    (choices "YES" "NO")
  336.    (default 0)
  337. ))
  338.  
  339. (complete 38)
  340. (set o-sounds
  341.    (askbool (prompt #config-o-sounds)
  342.    (help #opts-help)
  343.    (choices "YES" "NO")
  344.    (default 0)
  345. ))
  346.  
  347. (complete 40)
  348. (set o-Psound
  349.    (askbool (prompt #config-o-psound)
  350.    (help #opts-help)
  351.    (choices "YES" "NO")
  352.    (default 0)
  353. ))
  354.  
  355. (complete 43)
  356. (set nosounds-f
  357.    (askchoice (prompt #config-o-nosounds)
  358.    (help #opts-help)
  359.    (choices "0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
  360.    (default 2)
  361. ))
  362.  
  363. (complete 45)
  364. (set o-speak
  365.    (askbool (prompt #config-o-speech)
  366.    (help #opts-help)
  367.    (choices "YES" "NO")
  368.    (default 0)
  369. ))
  370.  
  371.  
  372. (set ajoin-f "N")
  373. (set asend-f "N")
  374. (set dccget-f "N")
  375. (set fserv-f "N")
  376. (set greets-f "N")
  377. (set ops-f "N")
  378. (set rcmds-f "N")
  379. (set sounds-f "N")
  380. (set psound-f "N")
  381. (set speak-f "N")
  382.  
  383. (if (= o-ajoin 1)
  384.      (set ajoin-f "Y")
  385. )
  386.  
  387. (if (= o-asend 1)
  388.      (set asend-f "Y")
  389. )
  390.  
  391. (if (= o-dccget 1)
  392.      (set dccget-f "Y")
  393. )
  394.  
  395. (if (= o-fserv 1)
  396.      (set fserv-f "Y")
  397. )
  398.  
  399. (if (= o-greets 0)
  400.      (set greets-f "C")
  401. )
  402.  
  403. (if (= o-greets 2)
  404.      (set greets-f "P")
  405. )
  406.  
  407. (if (= o-greets 3)
  408.      (set greets-f "Y")
  409. )
  410.  
  411. (if (= o-ops 1)
  412.      (set ops-f "Y")
  413. )
  414.  
  415. (if (= o-rcmds 1)
  416.      (set rcmds-f "Y")
  417. )
  418.  
  419. (if (= o-sounds 1)
  420.      (set sounds-f "Y")
  421. )
  422.  
  423. (if (= o-psound 1)
  424.      (set psound-f "Y")
  425. )
  426.  
  427. (if (= o-speak 1)
  428.      (set speak-f "Y")
  429. )
  430.  
  431. (run "echo >MCF:MCF.StartUp $VER: MCF.StartUp 4.13 (26.12.96)")
  432. (run "echo >>MCF:MCF.StartUp SPEAKPLAYER " player2)
  433. (run "echo >>MCF:MCF.StartUp SOUNDPLAYER " player1)
  434. (run "echo >>MCF:MCF.StartUp SOUNDDIR    " sounds)
  435. (run "echo >>MCF:MCF.StartUp DCCDIR      " dccdir)
  436. (run "echo >>MCF:MCF.StartUp AJOIN       " ajoin-f)
  437. (run "echo >>MCF:MCF.StartUp ASEND       " asend-f)
  438. (run "echo >>MCF:MCF.StartUp DCCGET      " dccget-f)
  439. (run "echo >>MCF:MCF.StartUp FSERV       " fserv-f)
  440. (run "echo >>MCF:MCF.StartUp GREETS      " greets-f)
  441. (run "echo >>MCF:MCF.StartUp OPS         " ops-f)
  442. (run "echo >>MCF:MCF.StartUp RCMDS       " rcmds-f)
  443. (run "echo >>MCF:MCF.StartUp SOUNDS      " sounds-f)
  444. (run "echo >>MCF:MCF.StartUp PSOUND      " psound-f)
  445. (run "echo >>MCF:MCF.StartUp NOSOUNDS    " nosounds-f)
  446. (run "echo >>MCF:MCF.StartUp SPEAK       " speak-f)
  447. (copyfiles
  448.    (source "ENV")
  449.    (dest "ENV:")
  450.    (choices "MCF_JOIN.AMIRX")
  451.    (files)
  452. )
  453.  
  454. (set dalrc (askbool   (prompt #env-copy-dal)
  455.                 (help "Do you wish to config DalHelper?")
  456.         (choices "YES" "NO")
  457.       )
  458. )
  459. (if (= dalrc 1)
  460.    (run "echo >MCF:MCF.Dal $VER: MCF.Dal 4.13 (26.12.96)")
  461.  
  462.    (complete 45)
  463.    (set ncntr (askstring
  464.        (prompt "Enter the number of Nicks that you have Registered.")
  465.        (help "Enter the number of Nicks you have Registered on Dalnet with Nickserv.")
  466.        (default "0")
  467.    ))
  468.  
  469.    (complete 48)
  470.    (while (> ncntr 0)
  471.       (set Dalinfo (askstring
  472.           (prompt "Enter Registered Nick and Password.")
  473.           (help "Enter you Dalnet Registered Nick, a space and the Nick's Password."
  474.              " Remember that the Password is CaSe SeNsItIvE.")
  475.       ))
  476.       (run "echo >>MCF:MCF.Dal " Dalinfo)
  477.       (set ncntr (- ncntr 1))
  478.    )
  479.  
  480.    (complete 51)
  481.    (set ccntr (askstring
  482.        (prompt "Enter the number of Channels that you have Registered.")
  483.        (help "Enter the number of Channels you have Registered on Dalnet with Nickserv.")
  484.        (default "0")
  485.    ))
  486.  
  487.    (complete 53)
  488.    (while (> ccntr 0)
  489.       (set Dalinfo (askstring
  490.           (prompt "Enter Registered Channel and Password.")
  491.           (help "Enter you Dalnet Registered Channel, a space and the Channel's Password."
  492.              " Remember that the Password is CaSe SeNsItIvE.")
  493.       ))
  494.       (run "echo >>MCF:MCF.Dal " Dalinfo)
  495.       (set ccntr (- ccntr 1))
  496. ))
  497.  
  498. (complete 56)
  499. (copyfiles
  500.    (prompt #rexx-copy-text)
  501.    (help @copyfiles-help)
  502.    (source "Rexx")
  503.    (dest @def-dest1)
  504.    (pattern "#?")
  505.    (files)
  506. )
  507.  
  508. (complete 70)
  509. (copyfiles
  510.    (prompt #help-copy-text)
  511.    (help @copy-help)
  512.    (source "MCF")
  513.    (dest @def-dest2)
  514.    (choices "MCF.FServ" "MCF.GChans" "MCF.Greets" "MCF.GNicks" "MCF.Ops" "MCF.Pings" "MCF.PNicks" "MCF.Protect")
  515.    (files)
  516.    (confirm)
  517. )
  518. (copyfiles
  519.    (source "MCF")
  520.    (dest @def-dest2)
  521.    (choices "MCF.Cmds" "MCF.Encrypt" "MCF_AU.help" "MCF_AUTO.help" "MCF_DO.help"
  522.             "MCF_DU.help" "MCF_FLIST.help" "MCF_FSEND.help" "MCF_HELP.help" "MCF_K.help"
  523.             "MCF_KB.help" "MCF_MDO.help" "MCF_MKB.help" "MCF_OP.help" "MCF_OPTS.help"
  524.             "MCF_QUIT.help" "MCF_RC.help" "MCF_RU.help" "MCF_STATUS.help" "MCF_USERS.help")
  525.    (files)
  526. )
  527.  
  528. (complete 77)
  529. (if (askbool
  530.     (prompt "Do you wish to Install MCF Aliases??")
  531.       (help "This will install Aliases that make using MCF easier.")
  532.       (choices "YES" "NO")
  533.       (default 1))
  534. (
  535.    (message ("Start a copy of AmIRC that has\nAMIRC.1 in the top left corner.\nClick Proceed when ready."))
  536.    (run "rx \"address AMIRC.1 say '/ALIAS S /Rx CTCP_Sound %p'\"")
  537.    (run "rx \"address AMIRC.1 say '/ALIAS CS /Rx DalHelper C %p'\"")
  538.    (run "rx \"address AMIRC.1 say '/ALIAS NS /Rx DalHelper N %p'\"")
  539.    (run "rx \"address AMIRC.1 say '/ALIAS JS /Rx JSound %p'\"")
  540.    (run "rx \"address AMIRC.1 say '/ALIAS MCF /Rx MCF %p'\"")
  541.    (run "rx \"address AMIRC.1 say '/ALIAS AU /Rx MCF_Alias %%AU %p'\"")
  542.    (run "rx \"address AMIRC.1 say '/ALIAS AUTO /Rx MCF_Alias %%AUTO %p'\"")
  543.    (run "rx \"address AMIRC.1 say '/ALIAS DU /Rx MCF_Alias %%DU %p'\"")
  544.    (run "rx \"address AMIRC.1 say '/ALIAS OPTS /Rx MCF_Alias %%OPTS'\"")
  545.    (run "rx \"address AMIRC.1 say '/ALIAS MQ /Rx MCF_Alias %%QUIT'\"")
  546.    (run "rx \"address AMIRC.1 say '/ALIAS RC /Rx MCF_Alias %%RC'\"")
  547.    (run "rx \"address AMIRC.1 say '/ALIAS RE /Rx MCF_Alias %%RE'\"")
  548.    (run "rx \"address AMIRC.1 say '/ALIAS RU /Rx MCF_Alias %%RU'\"")
  549.    (run "rx \"address AMIRC.1 say '/ALIAS MU /Rx MCF_Alias %%USERS'\"")
  550.    (run "rx \"address AMIRC.1 say '/ALIAS X /Rx MCF_Encode %p'\"")
  551.    (run "rx \"address AMIRC.1 say '/ALIAS MDO /Rx MCF_MDO'\"")
  552.    (run "rx \"address AMIRC.1 say '/ALIAS MKB /Rx MCF_MKB %p'\"")
  553.    (run "rx \"address AMIRC.1 say '/ALIAS OK /Rx MCF_OK %p'\"")
  554.    (run "rx \"address AMIRC.1 say '/ALIAS OKB /Rx MCF_OKB %p'\"")
  555.    (run "rx \"address AMIRC.1 say '/ALIAS SA /Rx MCF_SAbuser %p'\"")
  556.    (run "rx \"address AMIRC.1 say '/ALIAS Say /Rx Say %p'\"")
  557.    (run "rx \"address AMIRC.1 say '/ALIAS MSI /Rx MCF_Silence %p'\"")
  558.    (run "rx \"address AMIRC.1 say '/ALIAS MUS /Rx MCF_Silence %p -'\"")
  559.    (run "rx \"address AMIRC.1 say '/ALIAS UI /Rx MCF_UI %p'\"")
  560. ))
  561.  
  562. (complete 80)
  563. (startup "MCF for AmIRC"
  564.      (prompt
  565.       "An Assign to MCF: needs to be added to the \"S:User-Startup\" so the MCF: knows where to find the OPs and help files. READ HELP!")
  566.      (help "Installs the Assign to MCF: in your S:User-Startup or you must manually add the assign to S:User-Startup.")
  567.      (command (cat "Assign MCF: " '"'(getassign "MCF" "a")'"' "\n"))
  568. )
  569.  
  570. (complete 84)
  571. (set earc (askbool   (prompt #env-copy-text)
  572.                 (help "Do you wish ENV: files stored in ENVARC:?")
  573.         (choices "YES" "NO")
  574.       )
  575. )
  576. (if (= earc 1)
  577.    (copyfiles
  578.       (source "ENV:")
  579.       (dest @def-dest3)
  580.       (choices "MCF_JOIN.AMIRX")
  581.       (files)
  582.    )
  583. )
  584.  
  585. (complete 92)
  586. (set docs (askbool (prompt #install-docs)
  587.         (help #install-docs-help)
  588.         (choices "YES" "NO")
  589.       )
  590. )
  591.  
  592. (complete 96)
  593. (if (= docs 1)
  594.     (copyfiles
  595.        (prompt #doc-dir-choose)
  596.        (help #doc-dir-choose-help)
  597.            (source "")
  598.            (choices "MCF4AmIRC.guide" "MCF4AmIRC.guide.info" "MCF4AmIRC.ReadMe" "MCF4AmIRC.ReadMe.info")
  599.        (dest @def-dest4)
  600.        (infos)
  601.            (files)
  602.        (confirm)
  603.     )
  604. )
  605.  
  606. (complete 100) (message #goodbye #my-address)
  607.  
  608. (exit (quiet))
  609.