home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -screenplay- / hd_installers / billtomato / install-billtomato < prev    next >
Text File  |  1998-04-23  |  2KB  |  77 lines
  1. (set GameDir "BillTomato")
  2.  
  3. ;try to figure out a place where the user usually installs his games
  4. (if (exists "Games:" (noreq) )
  5.     (set @default-dest "Games:")
  6.     (if (exists "SYS:Games" (noreq) )
  7.         (set @default-dest "SYS:Games")
  8.         (if (exists "Work:Games" (noreq) )
  9.             (set @default-dest "Work:Games")
  10.             (if (exists "JEUX:" (noreq) )
  11.                (set @default-dest "JEUX:")
  12.                (set @default-dest "SYS:")
  13.             )
  14.         )
  15.     )
  16. )
  17.  
  18. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch) or on my site\n\nhttp://www.ensica.fr/~jffabre/patches.html")
  19.  
  20. (set #CI_unit
  21.     (askchoice
  22.         (prompt "From which disk unit do you want\nto install the game")
  23.         (help    @askoptions-help)
  24.         (choices
  25.            "DF0:"
  26.            "DF1:"
  27.            "DF2:"
  28.            "DF3:"
  29.         )
  30.     )
  31. )
  32.  
  33. (set #CI_drive ("DF%ld:" #CI_unit))
  34.  
  35.  
  36. (set default-dest
  37. (askdir
  38.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name GameDir))
  39.     (help @askdir-help)
  40.     (default @default-dest)
  41.     (disk)
  42. )
  43. )
  44.  
  45. (set @default-dest (tackon default-dest GameDir))
  46.  
  47.  
  48. (makedir @default-dest
  49.     (help @makedir-help)
  50.     (infos)
  51. )
  52.  
  53.  
  54. ;----------------------------
  55.  
  56. (copyfiles
  57.     (help @copyfiles-help)
  58.     (source "BillHD")
  59.     (dest @default-dest)
  60.     (infos)
  61. )
  62.  
  63. (copyfiles
  64.     (help @copyfiles-help)
  65.     (source "billtomhd.readme")
  66.     (dest @default-dest)
  67.     (infos)
  68. )
  69.  
  70. (message ("\nInsert %s disk into drive %s !" @app-name #CI_drive))
  71.     (if
  72.         (= 0 (run ("readbilldisk %ld %s >con:///1000//CLOSE/WAIT" #CI_unit (tackon @default-dest "billtom.d1") ) ))
  73.         ("")
  74.         (abort "\"readbilldisk\" must be in your PATH !")
  75.     )
  76.  
  77.