home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Demos / T-zero / T0setup < prev    next >
Text File  |  1977-12-31  |  2KB  |  84 lines
  1. ; T-Zer0 Setup Installer-script
  2. ; $VER: V1.21, 11 Giugno 1999
  3. ; ============================================================================
  4.  
  5. (set @abort-button "Abort Setup")
  6.  
  7. (set #hello-message
  8.    (cat "\n\n\n"
  9.     "--------- T-zer0 ---------"
  10.     "\n"
  11.     "Setup Utility"
  12.     "\n\n\n"
  13.     "(c) 1999 PXL Computers Inc. and clickBOOM"
  14.     "\n\n\n"
  15.     "www.clickboom.com\n"
  16.     "www.pxlcomputers.com\n"
  17.     ))
  18.  
  19. (set #welcome (cat "------------------- T-zer0 SetUp -------------------"))
  20. (set #cdaudio 0)
  21. (set #save 1)
  22. (Procedure Intro (message #hello-message))
  23.  
  24. (Procedure Selective
  25.  (set #type
  26.    (askchoice (prompt "------------------ Main SetUp Menu ------------------")
  27.           (help @askchoice-help)
  28.           (choices "- CD Audio  Setup -"
  29.                "!Save Preferencies!")
  30.           (default #type))))
  31.  
  32. (Procedure CDAudioPrefs
  33.    (set #cdaudio_device
  34.     (askstring (prompt "--------------- CD-ROM Control Device ---------------"
  35.                "\n\n"
  36.                " Please enter the name of your CD-ROM device \n"
  37.                " controller. For ATAPI drives, it should be something like \n"
  38.                " 'cd.device' or 'atapi.device'. For SCSI drives \n"
  39.                " it is usually 'scsi.device'. ")
  40.           (help @askstring-help)
  41.           (default #cdaudio_device)))
  42.    (set #cdaudio_unit
  43.     (asknumber (prompt "------------- CD-ROM Device Unit Number -------------"
  44.                "\n\n"
  45.                " Please enter the unit number of your CD-ROM device. ")
  46.           (help @asknumber-help)
  47.           (range 0 7)
  48.           (default #cdaudio_unit)))
  49.    )
  50.  
  51. (if (exists "T0Prefs/T0.Prefs")
  52.      (set #rtype 0)
  53.     ((message "\n Error!!!\n Unable to locate T0 path...")
  54.      (exit (quiet))))
  55.  
  56. (if (= (exists "Ram:T0.Prefs") 0)
  57.     (copyfiles (source "T0Prefs/T0.Prefs") (dest "ram:") (nogauge))
  58. )
  59.  
  60. (run "T0Prefs/T0CD -GET cd_device")
  61. (set #cdaudio_device (getenv "T0"))
  62.  
  63. (run "T0Prefs/T0CD -GET cd_unit")
  64. (set #cdaudio_unit (getenv "T0"))
  65.  
  66.  
  67. (Intro)
  68. (welcome #welcome)
  69. (Until (= #type #save)
  70. (set #type #rtype)
  71. (Selective)
  72. (If (= #type #cdaudio)  (CDaudioPrefs))
  73. )
  74.  
  75. (run "T0Prefs/T0CD -SET cd_device "     #cdaudio_device)
  76. (run "T0Prefs/T0CD -SET cd_unit "       #cdaudio_unit)
  77.  
  78. ;(copyfiles
  79. ;        (source "ram:T0.Prefs")
  80. ;        (dest "T0Prefs/")
  81. ;        )
  82. (exit (quiet))
  83.  
  84.