home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / WHD_Installers / Games_C-D / CarlLewisChallengeHD / Install_Savedisk < prev    next >
Text File  |  1977-12-31  |  2KB  |  100 lines
  1. ;****************************
  2.  
  3. (set #last-disk 3)          ;amount of disks
  4. (set #disk-size 901120)     ;size of each disk
  5.  
  6. ;****************************
  7. ;----------------------------
  8. ; Checks if given program is reachable via the path
  9. ; if not abort install
  10. ; IN:  #program - to check
  11. ; OUT: -
  12.  
  13. (procedure P_chkrun
  14.   (if
  15.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  16.     ("")
  17.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  18.   )
  19. )
  20.  
  21. ;----------------------------
  22. ; Create disk-Image using DIC
  23. ; IN:  #dest        - DestinationPath
  24. ;      #CI_diskname - DiskName
  25. ;      #CI_diskno   - DiskNumber
  26. ;      #CI_drive    - DriveToReadFrom
  27. ; OUT: -
  28.  
  29. (procedure P_image
  30.   (message ("\nInsert CLC savedisk into drive %s !\n\n(make sure it's the right disk because it will not checked)" #CI_drive))
  31.   (if
  32.     (= 0 
  33.       (run ("cd \"%s\"\nDIC %s FD=3 LD=3 SIZE=%ld >CON:///1000//CLOSE" #dest #CI_drive #disk-size))
  34.     )
  35.     ("")
  36.     (abort "\"DIC\" has failed to create a diskimage")
  37.   )
  38. )
  39.  
  40. ;****************************
  41.  
  42. (set #program "WHDLoad")
  43. (P_chkrun)
  44.  
  45. (set #program "DIC")
  46. (P_chkrun)
  47.  
  48. ; in expert mode ask for source drive
  49. (if
  50.   (= @user-level 2)
  51.   (
  52.     (set #CI_drive
  53.       (askchoice
  54.     (prompt "Select source drive for diskimages")
  55.     (default 0)
  56.     (choices "DF0:" "DF1:" "RAD:" "Enter Device")
  57.     (help @askchoice-help)
  58.       )
  59.     )
  60.     (select #CI_drive
  61.       (set #CI_drive "DF0:")
  62.       (set #CI_drive "DF1:")
  63.       (set #CI_drive "RAD:")
  64.       (set #CI_drive
  65.         (askstring
  66.           (prompt "Select source drive for diskimages")
  67.           (default "DF0:")
  68.           (help @askstring-help)
  69.         )
  70.       )
  71.     )
  72.   )
  73.   (set #CI_drive "DF0:")
  74. )
  75.  
  76. (set @default-dest
  77.   (askdir
  78.     (prompt ("Select the directory where is Carl Lewis Challenge installed"))
  79.     (help @askdir-help)
  80.     (default @default-dest)
  81.     (disk)
  82.   )
  83. )
  84. (set #dest (@default-dest))
  85.  
  86. (set #CI_diskno 3)
  87. (while
  88.   (<= #CI_diskno #last-disk)
  89.   (
  90.     (set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
  91.     (P_image)
  92.     (run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
  93.     (set #CI_diskno (+ #CI_diskno 1))
  94.   )
  95. )
  96.  
  97. ;----------------------------
  98.  
  99. (exit)
  100.