home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / JST-Installer / ChipsChallenge / Install < prev   
Encoding:
Text File  |  1978-01-01  |  1.4 KB  |  80 lines
  1. ; HD Installer
  2.  
  3. (set DOS 1)
  4. (set App "ChipsChallenge" )
  5. (set AppHD ("%sHD" App))
  6. (set AppReadme ("%sHD.readme" App))
  7. (set AppImage  App)
  8. (set Disks 1)
  9.  
  10. (if (= DOS 1)
  11. (
  12.     (set RipSlave "")
  13. )
  14. (
  15.     (set RipSlave ("%s.slave" App))
  16. )
  17. )
  18.  
  19. (set DestMsg ("Where should %s be installed?\nA drawer %s will be created" App App) )
  20. (set HelpMsg ("Select the plave on your HD where %s should be installed\nA drawer %s will be created" App App) )
  21. (set DefaultDir "RAM:" )
  22. (set SourceMsg ("From which drive do you want to install %s?" App))
  23. (set SourceHelp "This drive will be used to rip the disk(s)" )
  24.  
  25. (set DriveUnit
  26.     (askchoice
  27.         (help   SourceHelp)
  28.         (prompt SourceMsg)
  29.         (choices "DF0:"
  30.              "DF1:"
  31.              "DF2:"
  32.              "DF3:"
  33.         )
  34.     )
  35. )
  36.  
  37. (set @default-dest
  38. (askdir
  39.     (prompt        DestMsg)
  40.     (help        HelpMsg)
  41.     (default    DefaultDir)
  42.     (disk)
  43. )
  44. )
  45.  
  46. (set DestDir (tackon @default-dest App))
  47.  
  48. (makedir DestDir
  49.     (infos)
  50. )
  51.  
  52. (copyfiles
  53.     (help @copyfiles-help)
  54.     (source AppHD)
  55.     (dest DestDir)
  56.     (infos)
  57. )
  58.  
  59. (copyfiles
  60.     (help @copyfiles-help)
  61.     (source AppReadme )
  62.     (dest DestDir)
  63.     (infos)
  64. )
  65.  
  66. (set DiskRun 0)
  67.  
  68. (while (< DiskRun Disks)
  69.     (set DiskRun (+ DiskRun 1))
  70.     (set DiskMsg ("\nInsert %s disk %ld into drive DF%ld: !" App DiskRun DriveUnit))
  71.     (message DiskMsg )
  72.         (if
  73.             (= 0 (run ("Diskripper %s DF%ld: \"%s/%s.d%d\" >CON:///1000//CLOSE/WAIT" RipSlave DriveUnit DestDir AppImage DiskRun)))
  74.             ("")
  75.             (abort "\"DiskRipper\" must be in your PATH !")
  76.         )
  77. )
  78.  
  79.  
  80.