home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / mirror / install < prev    next >
Text File  |  1995-04-17  |  2KB  |  79 lines
  1. ; $VER: 1.0
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 21)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 2.1.0 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.  
  24.         (message (cat "\n"
  25.  
  26.             "Mirror - Online Bracket Highlighting        \n"
  27.             "                                            \n"
  28.             "©1995 Dietmar Eilert                        \n"
  29.             "      DIETMAR@TOMATE.TNG.OCHE.DE            \n"
  30.             "                                            \n"
  31.             "GoldED Release 2.1.0+ required.             \n"
  32.             "                                            \n"
  33.             "This utility is NOT 'freely distributable'. \n"
  34.             "Please have a look at the licence file      \n"
  35.             "before using this software. Thank you.      \n"
  36.         ))
  37.  
  38.         (if (not (exists "GoldED:API/Mirror"))
  39.  
  40.             (makedir "GoldED:API/Mirror")
  41.         )
  42.  
  43.         (copyfiles
  44.  
  45.             (source  (pathonly @icon))
  46.             (dest    "GoldED:API/Mirror")
  47.             (pattern "(mirror|readme|source|presets|licence)")
  48.             (infos)
  49.         )
  50.  
  51.         (if (exists "golded:presets")
  52.  
  53.             (copyfiles
  54.  
  55.                 (source "GoldED:API/Mirror/presets")
  56.                 (dest   "golded:presets")
  57.                 (all)
  58.             )
  59.         )
  60.  
  61.         (complete 100)
  62.  
  63.         (message "\nInstallation complete. Have fun :-)")
  64.  
  65.         (run (cat "gx FORCE MACRO=\"" (tackon (pathonly @icon) "auto.ged\"")))
  66.     )
  67.  
  68.     (message (cat "\n"
  69.  
  70.         "Please install GoldED before attempting to\n"
  71.         "install this client.                      \n"
  72.     ))
  73. )
  74.  
  75. (exit (quiet))
  76.  
  77. (welcome)
  78.  
  79.