home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / PD-Games / WormWars / Install next >
Text File  |  1977-12-31  |  4KB  |  136 lines
  1. ; $VER: Worm Wars 5.6 (@@.4.2000)
  2. ; Installer script for Worm Wars
  3. ; © Copyright 2000 Amigan Software
  4. ; Required: Installer 42.9+. Recommended: Installer 44+.
  5.  
  6. (set @app-name ("Worm Wars 5.6"))
  7. (welcome "Welcome to the Worm Wars 5.6 installation/uninstallation script!")
  8. (if (>= @installer-version 44)
  9.     (effect "center" "radial" $FFFF00 $0000FF)
  10. )
  11.  
  12. (complete 0)
  13.  
  14. (set #mainchoice
  15.     (askchoice
  16.         (prompt "Would you like to:")
  17.         (choices
  18.             "Install Worm Wars"
  19.             "Uninstall Worm Wars"
  20.         )
  21.         (default 0)
  22.         (help "It is not necessary to uninstall a previous version of Worm Wars before installing Worm Wars 5.6.")
  23.     )
  24. )
  25. (complete 5)
  26.  
  27. (if (= #mainchoice 0)
  28. (   (set #new_dir
  29.         (askdir
  30.             (prompt "Where do you want to install Worm Wars?\n"
  31.             "A drawer called \"WormWars\" will be created.\n")
  32.             (default "SYS:")
  33.             (help "This is self-explanatory.")
  34.         )
  35.     )
  36.     (set @default-dest (tackon #new_dir "WormWars"))
  37.     (makedir @default-dest (infos))
  38.     (complete 10)
  39.     (copylib
  40.         (prompt "Installing MEDPlayer.library to LIBS:")
  41.         (help "Worm Wars can use MEDPlayer.library to play music.")
  42.         (source "medplayer.library")
  43.         (dest "LIBS:")
  44.         (confirm)
  45.     )
  46.     (complete 30)
  47.  
  48.     (set #fontchoice
  49.     (askchoice
  50.         (prompt "Would you like to install WormWars.font?")
  51.         (help "Worm Wars can use this 8x8 monospaced font rather than Topaz 8.")
  52.         (choices "Yes" "No")
  53.         (default 0)
  54.     )
  55.     )
  56.     (if (= #fontchoice 0)
  57.     (    (copyfiles
  58.         (source "WormWars.font")
  59.         (dest "FONTS:")
  60.         )
  61.         (complete 35)
  62.         (makedir ("FONTS:WormWars"))
  63.         (complete 40)
  64.         (copyfiles
  65.         (source "WormWars/8")
  66.         (dest "FONTS:WormWars")
  67.     ))
  68.     (complete 50)
  69.     (copyfiles
  70.         (prompt "Copying other files...")
  71.     (source "")
  72.     (help @copyfiles-help)
  73.     (dest @default-dest)
  74.     (all)
  75.     (infos)
  76.     )
  77.     (complete 75)
  78.     (delete (tackon @default-dest "MEDPlayer.library"))
  79.     (complete 80)
  80.     (delete (tackon @default-dest "WormWars.font"))
  81.     (complete 85)
  82.     (delete (tackon @default-dest "WormWars/8"))
  83.     (complete 90)
  84.     (delete (tackon @default-dest "WormWars"))
  85. )))
  86.  
  87. ;Possible installation enhancements:
  88. ; copy directory .info file, instead of making a new one
  89. ; delete original directory and all subdirectories of it
  90. ; options as to whether to install the effects and/or source code
  91.  
  92. (if (= #mainchoice 1)
  93. (
  94.     (set #the_dir
  95.         (askdir
  96.             (prompt "In which drawer is the Worm Wars executable located?")
  97.             (default "PROGDIR:")
  98.             (help "This is self-explanatory.")
  99.     )   )
  100.     (set @default-dest (#the_dir))
  101.     (delete
  102.         (@default-dest)
  103.         (all)
  104.         (optional force)
  105.     )
  106.     (complete 65)
  107.     (delete
  108.         ("/WormWars#?")
  109.         (optional force)
  110.     )
  111.     (complete 70)
  112.     (delete
  113.         ("LIBS:MEDPlayer.library")
  114.         (confirm)
  115.         (prompt "About to delete LIBS:MEDPlayer.library...")
  116.         (help "This is self-explanatory.")
  117.     )
  118.     (complete 80)
  119.     (set #fontchoice
  120.         (askchoice
  121.             (prompt "Do you want to delete the Worm Wars font?")
  122.             (help "This font is useful as a general-purpose font.")
  123.             (choices "Yes" "No")
  124.             (default 1)
  125.     )   )
  126.     (complete 90)
  127.     (if (= #fontchoice 0)
  128.     (   (delete ("FONTS:WormWars.font"))
  129.         (delete ("FONTS:WormWars/8"))
  130.         (delete ("FONTS:WormWars"))
  131.     ))
  132. ))
  133.  
  134. (complete 100)
  135. (exit bye)
  136.