home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga ACS 1997 #4
/
amigaacscoverdisc1997-041997.iso
/
amigascene
/
inteloutside4
/
demos
/
fa
/
install
< prev
next >
Wrap
Text File
|
1997-07-11
|
2KB
|
93 lines
(set app-name "Fallen_Angels by Venture")
(if(<(/(getversion)65536)39)
(abort "Fallen Angels needs at least OS3.0\n"))
(complete 0)
(message
(cat "\n\n\n\n\n\nWelcome to The Fallen_Angels Installation Script.\n"
"(c)1997 Venture. All rights reserved."
)
)
(copyfiles
(prompt "Copying ros config file into ENV:")
(help #copy)
(source "env/ros.prefs")
(dest "ENV:")
(nogauge)
)
(copyfiles
(prompt "Copying keyfile")
(source "l/fallen_angels.key")
(dest "l:")
(nogauge)
)
(complete 10)
(set rosv (/(getversion "libs:ros.library")65536))
(set rosr (-(getversion "libs:ros.library")(* rosv 65536)))
(set rosv2 (/(getversion "libs/ros.library")65536))
(set rosr2 (-(getversion "libs/ros.library")(* rosv 65536)))
(set upd
(askchoice(choices "Update" "Dont")
(default 0)
(help "ros.library is required by the demo.")
(prompt ("\nCurrently installed ros.library: \n\nVersion : %ld.%ld\nVersion to install : %ld.%ld\n" rosv rosr rosv2 rosr2))
)
)
(copylib
(prompt "Copying ros.library.")
(source "libs/ros.library")
(dest "libs:")
)
(complete 20)
(set direk
(askdir
(prompt "Please select a place where you want to install Fallen Angels.\nDrawer for it will be created there.")
(help "Just tell me where to put this production.")
(default "ram:")
)
)
(if
(not(exists(tackon direk "Fallen_Angels")))
(makedir(tackon direk "Fallen_Angels")
)
)
(set direk(tackon direk "Fallen_Angels"))
(complete 30)
(copyfiles
(prompt "Copying demo files into " direk)
(source "fallen_angels")
(dest direk)
)
(complete 40)
(copyfiles
(prompt "Copying demo files into " direk)
(source "fallen_angels.dat")
(dest direk)
)
(complete 90)
(copyfiles
(prompt "Copying demo files into " direk)
(source "fallen_angels.readme")
(dest direk)
)
(complete 100)