home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 81 / af081a.adf / archives / af81a3.lzx / LaunchPad / LaunchPadInstall < prev    next >
Text File  |  2019-12-19  |  3KB  |  106 lines
  1. ; $VER: V4.5 LaunchPad Installation 4.5 (4.7.95)
  2. ; Script to install V4.5 of LaunchPad
  3.  
  4. (set newHandlerVersion (getversion "LaunchPad"))
  5. (set newVer (/ newHandlerVersion 65536))
  6. (set newRev (- newHandlerVersion (* newVer 65536)))
  7.  
  8. (complete 0)
  9.  
  10. (set #introduction
  11. (cat "\n\nThis program lets you install V" ("%ld.%ld" newVer newRev) " of LaunchPad "
  12. ))
  13.  
  14. (set #important
  15. (cat "\n***************************************************** "
  16.        "*            LaunchPad is CookieWare!!              * "
  17.        "***************************************************** "
  18.        "*       This means you will have to send me         * "
  19.        "*   cookies if you use LaunchPad. Send them to:     * "
  20.        "*              Martin Stengle                       * "
  21.        "*              Hofmarkstr.1                         * "
  22.        "*              81211 Germering                      * "
  23.        "*              Germany                              * "
  24.        "***************************************************** "
  25.      "\nPlease abort this install and delete these files if "
  26.        "you can't comply with these instructions\n\n "
  27. ))
  28.  
  29. (set #info
  30. (cat "LaunchPad is a program that lets you start any "
  31.      "application from its window by simply selecting "
  32.      "the a button with the mouse. You can start either "
  33.      "from WorkBench, CLI, Batch, AREXX, or define "
  34.      "pop-up- and pull-down-menus in the display. "
  35. ))
  36.  
  37. (set #which-launchpad
  38. (cat "In which directory should LaunchPad be installed? "
  39. ))
  40.  
  41. (set #which-launchpad-help
  42. (cat "\nThis section lets you choose on which hard drive directory "
  43.      "LaunchPad will be installed. This should normally go to the "
  44.      "directory SYS:WBStartup.\n\n"
  45.      @askdir-help
  46. ))
  47.  
  48. (set #ask-language
  49. (cat "Which language do you want to install:"
  50. ))
  51.  
  52. (set #ask-language-help @askoptions-help
  53. )
  54.  
  55. (set #WBHandler-text
  56. (cat "\nInstalling WBStart-Handler\n\nCopyright ©1991-93 Stefan Becker"
  57. ))
  58.  
  59. (set #WBHandler-help
  60. (cat  "This will copy WBStart-Handler into your L: directory.\nCopyright ©1991-93 Stefan Becker\n\n"
  61.      @copylib-help
  62. ))
  63.  
  64. (complete 0)
  65. (message #introduction)
  66.  
  67. (complete 10)
  68. (message #important)
  69.  
  70. (complete 20)
  71. (message #info)
  72.  
  73. (complete 30)
  74. (set target1
  75.          (askdir (prompt #which-launchpad)
  76.          (help #which-launchpad-help)
  77.          (default "SYS:WBStartup")
  78.          (disk)))
  79.  
  80. (complete 50)
  81. (set formatmask (askoptions  (prompt #ask-language)
  82.                     (help   #ask-language-help)
  83.                     (choices "deutsch"
  84.                             "english"
  85.                     )
  86.                     (default 2)
  87.        )
  88. )
  89.  
  90. (if (IN formatmask 0)
  91. (copyfiles (source 'catalogs/deutsch/LaunchPad.catalog') (dest 'LOCALE:catalogs/deutsch'))
  92. )
  93. (complete 70)
  94. (copyfiles (source 'LaunchPad') (dest target1))
  95. (complete 80)
  96. (copyfiles (source 'LaunchPad.info') (dest target1))
  97. (copyfiles (source 'LaunchPad.prefs') (dest 'envarc:' ))
  98. (copyfiles (source 'LaunchPad.prefs') (dest 'env:' ))
  99. (complete 90)
  100.  
  101. (copylib (prompt #WBHandler-text) (help #WBHandler-help) (source "WBStart-Handler") (dest "L:") (confirm) )
  102.  
  103. (transcript '\nLaunchPad installed to 'target1'\n')
  104.  
  105. (complete 100)
  106.