(message "\n\nMikro Mortal Tennis Installer Script\n by Marco Pacifico of Skywards Software\n\nMake sure that you have got approx. 2Mb of free space on your harddrive.\n")
(set path
(askdir
(prompt "Please select the disk or drawer in which should the"
" Mikro Mortal Tennis drawer be created. ")
(help
"\nThe installation utility will create a drawer named"
" \"MMT\" in this directory. All Mikro Mortal Tennis files"
" will be placed inside that directory.\n\n"
"The selected directory must have about 2Mb free storage"
" left.\n\n"
)
(default "SYS:")
)
)
(set space (getdiskspace(path)) )
(set spaceneeded (+ 2000000) )
( if (< space spaceneeded )
(abort ("I have found only %ld bytes free!!\nI need almost 2Mb to install MMT!!" space))
)
(copyfiles (source "MMT3:")
(dest path)
(choices
"Install/MMT.info"
)
(prompt "copying required files to harddrive")
(help "No help")
)
(makedir (tackon path "MMT"))
(set path (tackon path "MMT"))
(makedir (tackon path "Libs"))
(makedir (tackon path "MMTSaveDisk"))
(set @default-dest path)
(working "Installing Mikro Mortal Tennis")
(askdisk
(prompt "Please insert the disk labeled \"MMT3\"")
(help "No help")
(dest "MMT3" )
)
(copyfiles (source "MMT3:")
(dest path)
(choices
"Data" "End" "Install/MMT-Start.info"
)
(prompt "copying required files to harddrive")
(help "No help")
)
(complete 40)
(askdisk
(prompt "Please insert the disk labeled \"MMT1\"")
(help "No help")
(dest "MMT1" )
)
(copyfiles (source "MMT1:Libs/AMOS.library")
(dest (tackon path "Libs"))
(help "No help")
)
(copyfiles (source "MMT1:")
(dest path)
(choices
"Data" "Intro" "Menu"
)
(prompt "copying required files to harddrive")
(help "No help")
)
(complete 70)
(askdisk
(prompt "Please insert the disk labeled \"MMT2\"")