home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Games / WormWars / Install next >
Text File  |  2000-06-23  |  4KB  |  144 lines
  1. ; $VER: Worm Wars 6.0a (6.6.100)
  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 6"))
  7. (welcome "Welcome to the Worm Wars 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 "You don't need to uninstall first before upgrading versions.")
  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 "No help needed.")
  34.         )
  35.     )
  36.     (set @default-dest (tackon #new_dir "WormWars"))
  37.     (makedir @default-dest (infos))
  38.     (complete 10)
  39.     (set #dest_parent (tackon "/" #new_dir))
  40.     (copyfiles
  41.         (source "/WormWars.info")
  42.         (dest #dest_parent)
  43.     )
  44.  
  45.     (complete 15)
  46.     (copylib
  47.         (prompt "Installing MEDPlayer.library to LIBS:")
  48.         (help "Worm Wars can use MEDPlayer.library to play music.")
  49.         (source "medplayer.library")
  50.         (dest "LIBS:")
  51.         (confirm)
  52.     )
  53.     (complete 30)
  54.  
  55.     (set #fontchoice
  56.     (askchoice
  57.         (prompt "Would you like to install WormWars.font?")
  58.         (help "Worm Wars can use this 8x8 monospaced font rather than Topaz 8.")
  59.         (choices "Yes" "No")
  60.         (default 0)
  61.     )
  62.     )
  63.     (if (= #fontchoice 0)
  64.     (    (copyfiles
  65.         (source "WormWars.font")
  66.         (dest "FONTS:")
  67.         )
  68.         (complete 35)
  69.         (makedir ("FONTS:WormWars"))
  70.         (complete 40)
  71.         (copyfiles
  72.             (source "WormWars/8")
  73.             (dest "FONTS:WormWars")
  74.         )
  75.     ))
  76.     (complete 50)
  77.     (copyfiles
  78.         (prompt "Copying other files...")
  79.         (source "")
  80.     (help @copyfiles-help)
  81.     (dest @default-dest)
  82.     (all)
  83.     (infos)
  84.     )
  85.     (complete 75)
  86.     (delete (tackon @default-dest "MEDPlayer.library"))
  87.     (complete 80)
  88.     (delete (tackon @default-dest "WormWars.font"))
  89.     (complete 85)
  90.     (delete (tackon @default-dest "WormWars/8"))
  91.     (complete 90)
  92.     (delete (tackon @default-dest "WormWars"))
  93. ))
  94.  
  95. ;Possible installation enhancements:
  96. ; delete original directory and all subdirectories of it
  97. ; options as to whether to install the effects and/or source code
  98. ; check for and delete rundown.8svx which may be left over from 5.x
  99.  
  100. (if (= #mainchoice 1)
  101. (
  102.     (set #the_dir
  103.         (askdir
  104.             (prompt "In which drawer is the Worm Wars executable located?")
  105.             (default "PROGDIR:")
  106.             (help "Where is WormWars.exe?")
  107.     )   )
  108.     (set @default-dest (#the_dir))
  109.     (delete
  110.         (@default-dest)
  111.         (all)
  112.         (optional force)
  113.     )
  114.     (complete 65)
  115.     (delete
  116.         ("/WormWars#?")
  117.         (optional force)
  118.     )
  119.     (complete 70)
  120.     (delete
  121.         ("LIBS:MEDPlayer.library")
  122.         (confirm)
  123.         (prompt "About to delete LIBS:MEDPlayer.library...")
  124.         (help "This is self-explanatory.")
  125.     )
  126.     (complete 80)
  127.     (set #fontchoice
  128.         (askchoice
  129.             (prompt "Do you want to delete the Worm Wars font?")
  130.             (help "This font is useful as a general-purpose font.")
  131.             (choices "Yes" "No")
  132.             (default 1)
  133.     )   )
  134.     (complete 90)
  135.     (if (= #fontchoice 0)
  136.     (   (delete ("FONTS:WormWars.font"))
  137.         (delete ("FONTS:WormWars/8"))
  138.         (delete ("FONTS:WormWars"))
  139.     ))
  140. ))
  141.  
  142. (complete 100)
  143. (exit bye)
  144.