home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Amiga Game Guide
/
AmigaGameGuide_CD.iso
/
Amiga
/
Game-Installer
/
JST-Installer
/
ChipsChallenge
/
Install
< prev
next >
Wrap
Text File
|
1977-12-31
|
1KB
|
80 lines
; HD Installer
(set DOS 1)
(set App "ChipsChallenge" )
(set AppHD ("%sHD" App))
(set AppReadme ("%sHD.readme" App))
(set AppImage App)
(set Disks 1)
(if (= DOS 1)
(
(set RipSlave "")
)
(
(set RipSlave ("%s.slave" App))
)
)
(set DestMsg ("Where should %s be installed?\nA drawer %s will be created" App App) )
(set HelpMsg ("Select the plave on your HD where %s should be installed\nA drawer %s will be created" App App) )
(set DefaultDir "RAM:" )
(set SourceMsg ("From which drive do you want to install %s?" App))
(set SourceHelp "This drive will be used to rip the disk(s)" )
(set DriveUnit
(askchoice
(help SourceHelp)
(prompt SourceMsg)
(choices "DF0:"
"DF1:"
"DF2:"
"DF3:"
)
)
)
(set @default-dest
(askdir
(prompt DestMsg)
(help HelpMsg)
(default DefaultDir)
(disk)
)
)
(set DestDir (tackon @default-dest App))
(makedir DestDir
(infos)
)
(copyfiles
(help @copyfiles-help)
(source AppHD)
(dest DestDir)
(infos)
)
(copyfiles
(help @copyfiles-help)
(source AppReadme )
(dest DestDir)
(infos)
)
(set DiskRun 0)
(while (< DiskRun Disks)
(set DiskRun (+ DiskRun 1))
(set DiskMsg ("\nInsert %s disk %ld into drive DF%ld: !" App DiskRun DriveUnit))
(message DiskMsg )
(if
(= 0 (run ("Diskripper %s DF%ld: \"%s/%s.d%d\" >CON:///1000//CLOSE/WAIT" RipSlave DriveUnit DestDir AppImage DiskRun)))
("")
(abort "\"DiskRipper\" must be in your PATH !")
)
)