home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 109
/
af109sub.adf
/
Geometry_13.lzx
/
Geometry
/
English
< prev
next >
Wrap
Text File
|
2001-10-18
|
2KB
|
103 lines
(set #progname "Geometry V1.3")
; --- Kickstart-Version überprüfen ---
(set vernum (getversion))
(set kickstart (/ vernum 65536))
(set #badkicktxt
(cat "\n" #progname "\n\nrequires Amiga-OS 2.04 (V37) or higher!\n\n"
"Your kickstart version is " kickstart ".")
)
(if (< kickstart 37)
(
(message (#badkicktxt))
(abort #progname ": Installation aborted!")
)
)
; --- Libraries überprüfen ---
(set #mathlib1 "libs:mathieeedoubbas.library")
(set #mathlib2 "libs:mathieeedoubtrans.library")
(set #nomathlibstxt "\nYou need the following libraries:\n\n")
(if (not (exists #mathlib1))
(message (cat #nomathlibstxt #mathlib1 "\n" #mathlib2))
)
;-----------------------------------------------------
(set #help1
(cat "Enter the path to put the program\n"
#progname ". No new drawer is created!")
)
(set #getdesttxt
(cat "\n" #progname " Installation\n"
"Select destination path for the program.\n"
"No new drawer is created!"
)
)
(set #destpath
(askdir
(prompt #getdesttxt)
(help #help1)
(default ":")
)
)
; --- copy prg+icon ---
(if (not (exists (cat #destpath "Geometry.info")))
(copyfiles
(source "")
(dest #destpath)
(pattern "Geometry.info")
)
)
(copyfiles
(source "")
(dest #destpath)
(pattern "Geometry")
)
; --- Guide kopieren ---
(set #helppath
(askdir
(prompt "Select a path for the AmigaGuide documentation:")
(help @askdir-help)
(default #destpath)
)
)
(copyfiles
(source "")
(dest #helppath)
(pattern "Geometry.guide")
(help @copyfiles-help)
)
(copyfiles
(source "")
(dest #helppath)
(pattern "Geometry.guide.info")
(help @copyfiles-help)
)
(
(message
(cat "\n" #progname " is SHAREWARE!\n"
"»" #progname "is SHAREWARE! If you like this program\n"
"send DM 8.- or US$ 5.- or öS 60.- or Lit. 8000.-\n"
"to F. Agnoli, Schabs 143, I-39040 NATZ-SCHABS, Italy.\n"
"E-Mail: Francesco.Agnoli@gmx.net")
)
)
(message "\n»Geometry 1.3« installation complete!"
"\n"
"\nYou find now the program"
"\nin the directory »" #destpath "«.")
(exit (quiet))