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 >
Wrap
Text File
|
1977-12-31
|
2KB
|
100 lines
;****************************
(set #last-disk 3) ;amount of disks
(set #disk-size 901120) ;size of each disk
;****************************
;----------------------------
; Checks if given program is reachable via the path
; if not abort install
; IN: #program - to check
; OUT: -
(procedure P_chkrun
(if
(= 0 (run ("cd SYS:\nWhich %s" #program)))
("")
(abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
)
)
;----------------------------
; Create disk-Image using DIC
; IN: #dest - DestinationPath
; #CI_diskname - DiskName
; #CI_diskno - DiskNumber
; #CI_drive - DriveToReadFrom
; OUT: -
(procedure P_image
(message ("\nInsert CLC savedisk into drive %s !\n\n(make sure it's the right disk because it will not checked)" #CI_drive))
(if
(= 0
(run ("cd \"%s\"\nDIC %s FD=3 LD=3 SIZE=%ld >CON:///1000//CLOSE" #dest #CI_drive #disk-size))
)
("")
(abort "\"DIC\" has failed to create a diskimage")
)
)
;****************************
(set #program "WHDLoad")
(P_chkrun)
(set #program "DIC")
(P_chkrun)
; in expert mode ask for source drive
(if
(= @user-level 2)
(
(set #CI_drive
(askchoice
(prompt "Select source drive for diskimages")
(default 0)
(choices "DF0:" "DF1:" "RAD:" "Enter Device")
(help @askchoice-help)
)
)
(select #CI_drive
(set #CI_drive "DF0:")
(set #CI_drive "DF1:")
(set #CI_drive "RAD:")
(set #CI_drive
(askstring
(prompt "Select source drive for diskimages")
(default "DF0:")
(help @askstring-help)
)
)
)
)
(set #CI_drive "DF0:")
)
(set @default-dest
(askdir
(prompt ("Select the directory where is Carl Lewis Challenge installed"))
(help @askdir-help)
(default @default-dest)
(disk)
)
)
(set #dest (@default-dest))
(set #CI_diskno 3)
(while
(<= #CI_diskno #last-disk)
(
(set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
(P_image)
(run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
(set #CI_diskno (+ #CI_diskno 1))
)
)
;----------------------------
(exit)