home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1998 #5
/
AmigaPlus_CD-ROM_Nr.5-98.iso
/
pd
/
daten
/
address
/
install-address
< prev
next >
Wrap
Text File
|
1998-03-19
|
10KB
|
392 lines
; Install script for Address
; This script is Copyrighted © 1997 - 1998 by Kristoffer Larsson
(set #wrong-kickstart
(cat "You must upgrade to Kickstart 2.04 to be able to use this program!")
)
(set #ask-assign
(cat "In order to use Address, the logical device name\n"
"\"Address:\" must be assigned to the drawer where\n"
"you have chosen to install Address. Either the\n"
"installation script can add this assign to your\n"
"\"S:User-Startup\" file or you must add the assign\n"
"manually.\n\n"
"Would you like the installation script to\n"
"automatically add the necessary assign to your\n"
"\"S:User-Startup\" file?")
)
(set #ask-assign-help
(cat "In order to use Address the logical device name \"Address:\" "
"must be assigned to the drawer where you have chosen to "
"install the files in this package, i.e., the complete path "
"to the drawer \"Address\" which has been created on your "
"harddisk/floppy disk.\n\n"
"The installation script can add this assign to your \"S:User-Startup\" "
"file automatically. If you don't wish the script to edit your file "
"you must manually add the assign to your \"S:User-Startup\"; otherwise "
"Address won't work properly.\n\n")
)
(set #installing-program
(cat "Installing Address into the drawer you have chosen ...")
)
(set #installing-example
(cat "Installing an example database ...")
)
(set #installing-documentation
(cat "Installing the documentation ...")
)
(set #ask-icons
(cat "Which set of icons would you like to install for the files in "
"this package?")
)
(set #ask-icons-help
(cat "In today's Amiga world a great number of different sets of icons "
"exist, such as NewIcons or MagicWB icons. With great help "
"from some icon designers I have compiled four different sets "
"of icons for the Address package. The icons in question belong "
"to either of these sets:\n\n"
"NewIcons\n"
"MagicWB icons\n"
"FreshIcons\n"
"Standard Amiga icons\n\n"
"The last phrase is the term I use for describing the style of the standard Amiga "
"icons that were made by Commodore and that were installed when you "
"purchased your Amiga.")
)
(set #installing-newicons
(cat "Installing the NewIcons especially made for Address ...")
)
(set #installing-magicwbicons
(cat "Installing the MagicWB icons especially made for Address ...")
)
(set #installing-freshicons
(cat "Installing the FreshIcons especially made for Address ...")
)
(set #installing-standardicons
(cat "Installing the Standard Amiga icons especially made for Address ...")
)
(set #newicons
(cat "NewIcons")
)
(set #magicwb
(cat "MagicWB icons")
)
(set #freshicons
(cat "FreshIcons")
)
(set #standard
(cat "Standard Amiga icons")
)
(set #ask-language-help
(cat "If your system is localized you might experience a not entirely "
"correct sorting of the names in the Main Window of Address. "
"The reason for this is that some of the \"LOCALE:Languages/#?.language\" files "
"that Commodore once manufactured are incorrect in certain respects or even missing.\n\n"
"The faulty (or non-existent) files are:\n"
"\"svenska.language\"\n"
"\"norsk.language\"\n"
"\"íslenska.language\"\n"
"\"deutsch.language\"\n\n"
"This installation script can replace these faulty files with "
"correct ones by deleting, for example, \"LOCALE:Languages/svenska.language\" "
"from your harddisk/floppy disk and installing a correct \"svenska.language\" "
"in its place.")
)
(set #ask-language
(cat "Is your system localized and is either of\n"
"\"svenska.language\", \"norsk.language\" or\n"
"\"deutsch.language\" installed in your\n"
"\"LOCALE:Languages/\"?\n"
"Do you speak íslenska and would like a correct\n"
"\"íslenska.language\" installed in your system?\n\n"
"If your answer is \"yes\" to either or both of\n"
"the questions above, would you like the\n"
"installation script to replace these (probably)\n"
"faulty (or non-existent) files with correct ones?")
)
(set #choose-language
(cat "Choose the file or files you wish to replace.")
)
(set #svenska
(cat "svenska.language")
)
(set #norsk
(cat "norsk.language")
)
(set #íslenska
(cat "íslenska.language")
)
(set #deutsch
(cat "deutsch.language")
)
(set installing-svenska
(cat "Installing \"svenska.language\" into \"LOCALE:Languages/\" ...")
)
(set installing-norsk
(cat "Installing \"norsk.language\" into \"LOCALE:Languages/\" ...")
)
(set installing-íslenska
(cat "Installing \"íslenska.language\" into \"LOCALE:Languages/\" ...")
)
(set installing-deutsch
(cat "Installing \"deutsch.language\" into \"LOCALE:Languages/\" ...")
)
(set #ask-drawer
(cat "Select a drawer in which to install all the files "
"that are part of the Address distribution. "
"This installation script will create a drawer called \"Address\" "
"in the drawer you choose here and install "
"the Address files into this drawer.")
)
(set #ask-drawer-help
(cat "By selecting a particular drawer in the requester "
"you tell the installation script where it should "
"create a drawer called \"Address\".\n"
"To this drawer, i.e., \"Address\", the script will copy "
"all the files necessary to run Address.")
)
(set #welcome
(cat "\n\nWelcome to Address 1.0\n\n"
"All the files in this distribution are\n"
"Copyrighted © 1997 - 1998 by Kristoffer Larsson\n"
"All rights reserved")
)
(if (< (/ (getversion) 65536) 37)
(
(abort #wrong-kickstart)
)
)
(complete 0)
(welcome "\n\nWelcome to the Address installation!\n")
(message #welcome)
(complete 20)
(set @default-dest "SYS:")
(set destdir
(askdir
(prompt #ask-drawer)
(help #ask-drawer-help)
(default @default-dest)
)
)
(set programdir (tackon destdir "Address"))
(set @default-dest programdir)
(set datadir (tackon programdir "Data"))
(set docdir (tackon programdir "Documentation"))
(makedir programdir)
(makedir datadir)
(makedir docdir)
(copyfiles (prompt #installing-program)
(source "Bin/Address")
(dest programdir)
)
(copyfiles (prompt #installing-example)
(source "Data/people.dat")
(dest datadir)
)
(copyfiles (prompt #installing-documentation)
(source "Documentation/Address.guide")
(dest docdir)
)
(complete 40)
(set iconchoice
(askoptions
(prompt #ask-icons)
(choices #newicons #magicwb #freshicons #standard)
(default 1)
(help #ask-icons-help)))
(if (<> 0 (BITAND iconchoice 1))
(
(copyfiles (prompt #installing-newicons)
(source "Icons/NewIcons/Address_Drawer.info")
(newname "Address.info")
(dest destdir))
(copyfiles (prompt #installing-newicons)
(source "Icons/NewIcons/Address.info")
(dest programdir))
(copyfiles (prompt #installing-newicons)
(source "Icons/NewIcons/Address.guide.info")
(dest docdir))
(copyfiles (prompt #installing-newicons)
(source "Icons/NewIcons/Documentation.info")
(dest programdir))
)
)
(if (<> 0 (BITAND iconchoice 2))
(
(copyfiles (prompt #installing-magicwbicons)
(source "Icons/MagicWB/Address_Drawer.info")
(newname "Address.info")
(dest destdir))
(copyfiles (prompt #installing-magicwbicons)
(source "Icons/MagicWB/Address.info")
(dest programdir))
(copyfiles (prompt #installing-magicwbicons)
(source "Icons/MagicWB/Address.guide.info")
(dest docdir))
(copyfiles (prompt #installing-magicwbicons)
(source "Icons/MagicWB/Documentation.info")
(dest programdir))
)
)
(if (<> 0 (BITAND iconchoice 4))
(
(copyfiles (prompt #installing-freshicons)
(source "Icons/FreshIcons/Address_Drawer.info")
(newname "Address.info")
(dest destdir))
(copyfiles (prompt #installing-freshicons)
(source "Icons/FreshIcons/Address.info")
(dest programdir))
(copyfiles (prompt #installing-freshicons)
(source "Icons/Standard/Address.guide.info")
(dest docdir))
(copyfiles (prompt #installing-freshicons)
(source "Icons/FreshIcons/Documentation.info")
(dest programdir))
)
)
(if (<> 0 (BITAND iconchoice 8))
(
(copyfiles (prompt #installing-standardicons)
(source "Icons/Standard/Address_Drawer.info")
(newname "Address.info")
(dest destdir))
(copyfiles (prompt #installing-standardicons)
(source "Icons/Standard/Address.info")
(dest programdir))
(copyfiles (prompt #installing-standardicons)
(source "Icons/Standard/Address.guide.info")
(dest docdir))
(copyfiles (prompt #installing-standardicons)
(source "Icons/Standard/Documentation.info")
(dest programdir))
)
)
(complete 60)
(if
(askbool
(prompt #ask-language)
(help #ask-language-help)
(choices "Yes" "No"))
(
(set languagechoice
(askoptions
(prompt #choose-language)
(choices #svenska #norsk #íslenska #deutsch)
(default 1)
(help #ask-language-help)
)
)
(if (<> 0 (BITAND languagechoice 1))
(copyfiles (prompt #installing-svenska)
(source "Languages/svenska.language")
(dest "LOCALE:Languages/")
)
)
(if (<> 0 (BITAND languagechoice 2))
(copyfiles (prompt #installing-norsk)
(source "Languages/norsk.language")
(dest "LOCALE:Languages/")
)
)
(if (<> 0 (BITAND languagechoice 4))
(copyfiles (prompt #installing-íslenska)
(source "Languages/íslenska.language")
(dest "LOCALE:Languages/")
)
)
(if (<> 0 (BITAND languagechoice 8))
(copyfiles (prompt #installing-deutsch)
(source "Languages/deutsch.language")
(dest "LOCALE:Languages/")
)
)
)
)
(complete 80)
(set #add-to-startup
(cat "assign Address: \"" (programdir) "\"\n"
)
)
(if
(askbool
(prompt #ask-assign)
(help #ask-assign-help)
(choices "Yes" "No")
)
(startup "Address"
(prompt "The following line will be added to your "
"\"S:User-Startup\" file:\n\n"
#add-to-startup)
(help #ask-assign-help)
(command #add-to-startup)
)
)
(if (exists programdir)
(makeassign "Address"
(programdir)
(safe)
)
)
(complete 100)