home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / DalHelper.lzx / DalHelper / Install_DalHelper < prev    next >
Encoding:
Text File  |  1997-06-08  |  4.1 KB  |  153 lines
  1. ; Installer Script for DalHelper Version 5.0.2
  2. ; $VER: Install_DalHelper V_5.0.02 (07.06.97)
  3.  
  4. (set #config-dal
  5. (cat "Configuration of DalHelper is only necessary if you use ChanServ"
  6.      " and/or NickServ on DalNet and have not already cofigured it"
  7.      " during a previous install."
  8. ))
  9.  
  10. (set #install-docs
  11. (cat " Install documentation?\n"
  12.      "This consists of 2 file:  DalHelper.doc and it's icon.\n"
  13. ))
  14.  
  15. (set #goodbye
  16. (cat "\nInstallation of DalHelper is Complete.\n\n"
  17. ))
  18.  
  19. (set #my-address
  20. (cat    "Donald T Becker\n"
  21.     "335 S Chestnut St\n"
  22.     "Mt Carmel Pa 17851-2219\n\n"
  23.     "email:   dtbecker@prolog.net\n"
  24.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  25. ))
  26.  
  27. (set dalrc (= 1))
  28. ;********************************************************************
  29.  
  30. (complete 1)
  31.  
  32. (set target1            (askdir
  33.     (prompt "Select Directory where your AmIRC program is")
  34.     (help "This directory should also have a  Rexx  directory in it")
  35.     (default "RAM:")
  36. ))
  37.  
  38. (set @def-target (target1))
  39. (set @old-file (tackon target1 "MCF.Dal"))
  40.  
  41. (if (Exists "Rexx:DalHelper.amirx" (noreq))
  42.     (run "delete <>nil: Rexx:DalHelper.amirx")
  43. )
  44.  
  45. (if (Exists @old-file (noreq))    (
  46.     (run "copy <>nil:" @old-file "RAM:")
  47.     (run "delete <>nil:" @old-file)
  48.     (set dalrc (- dalrc 1))
  49. ))
  50.  
  51. (if (Exists "env:mcf.dal" (noreq))    (
  52.     (run "copy <>nil: env:mcf.dal RAM:")
  53.     (run "delete <>nil: env:mcf.dal")
  54.     (set dalrc (- dalrc 1))
  55. ))
  56.  
  57. (if (Exists "envarc:mcf.dal" (noreq))    (
  58.     (run "copy <>nil: envarc:mcf.dal RAM:")
  59.     (run "delete <>nil: envarc:mcf.dal")
  60.     (set dalrc (- dalrc 1))
  61. ))
  62.  
  63. (if (Exists "MCF:mcf.dal" (noreq))    (
  64.     (run "copy <>nil: mcf:mcf.dal RAM:")
  65. ;    (run "delete <>nil: mcf:mcf.dal")
  66.     (set dalrc (- dalrc 1))
  67. ))
  68.  
  69. (if (= dalrc 1)            (
  70.    (run "echo >RAM:MCF.Dal $VER: MCF.Dal 5.0 (04.06.97)")
  71.  
  72.    (complete 10)
  73.    (set ncntr             (askstring
  74.        (prompt "Enter the number of Nicks that you have Registered.")
  75.        (help "Enter the number of Nicks you have Registered on Dalnet with Nickserv.")
  76.        (default "0")
  77.    ))
  78.  
  79.    (complete 20)
  80.    (while (> ncntr 0)
  81.       (set Dalinfo         (askstring
  82.           (prompt "Enter Registered Nick and Password.")
  83.           (help "Enter you Dalnet Registered Nick, a space and the Nick's Password."
  84.              " Remember that the Password is CaSe SeNsItIvE.")
  85.       ))
  86.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  87.       (set ncntr (- ncntr 1))
  88.    )
  89.  
  90.    (complete 30)
  91.    (set ccntr             (askstring
  92.        (prompt "Enter the number of Channels that you have Registered.")
  93.        (help "Enter the number of Channels you have Registered on Dalnet with Nickserv.")
  94.        (default "0")
  95.    ))
  96.  
  97.    (complete 40)
  98.    (while (> ccntr 0)
  99.       (set Dalinfo        (askstring
  100.           (prompt "Enter Registered Channel and Password.")
  101.           (help "Enter you Dalnet Registered Channel, a space and the Channel's Password."
  102.              " Remember that the Password is CaSe SeNsItIvE.")
  103.       ))
  104.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  105.       (set ccntr (- ccntr 1))
  106.    )
  107. ))
  108.  
  109. (run "copy <>nil: RAM:MCF.Dal" target1)
  110. (run "delete <>nil: RAM:MCF.Dal")
  111.  
  112. (set target2            (askdir
  113.     (prompt "Select Rexx Directory")
  114.     (help "Directory where DalHelper.amirx will be copied to.")
  115.     (default @def-target)
  116. ))
  117.  
  118. (run "copy <>nil: rexx/DalHelper.amirx" target2)
  119.  
  120. (complete 60)
  121. (if (askbool
  122.     (prompt "Do you wish to Install DalHelper Aliases??")
  123.       (help "This will install Aliases that make using DalHelper easier.")
  124.       (choices "YES" "NO")
  125.       (default 1))
  126.       (
  127.         (message ("Start a copy of AmIRC that has\nAMIRC.1 in the top left corner.\nClick Proceed when ready."))
  128.         (run "rx \"address AMIRC.1 say '/ALIAS CS /Rx DalHelper C %p'\"")
  129.         (run "rx \"address AMIRC.1 say '/ALIAS MS /Rx DalHelper M %p'\"")
  130.         (run "rx \"address AMIRC.1 say '/ALIAS NS /Rx DalHelper N %p'\"")
  131. ))
  132.  
  133. (complete 75)
  134. (set docs (askbool (prompt #install-docs)
  135.         (help #install-docs-help)
  136.         (choices "YES" "NO")
  137.       )
  138. )
  139.  
  140. (complete 90)
  141. (if (= docs 1)                (
  142.     (set target3            (askdir
  143.         (prompt "Select Directory for DalHelper.doc")
  144.         (help "Directory where DalHelper.doc will be copied to.")
  145.         (default @def-target)
  146.     ))
  147.     (run "copy <>nil: docs/Dal#?" target3)
  148. ))
  149.  
  150. (complete 100) (message #goodbye #my-address)
  151.  
  152. (exit (quiet))
  153.