; $VER: MegaBook v3 Installer, Version 3.00 (28.6.96)
;; I really hate writing installers. Its worse then writing docs!
;; The docs and the installer probs take longer then the program :) Nah,
;; i've been working on MegaBook 3 for about a month now and this aint gonna
;; take that long ...
;; Hey .. get some kewl mods and HippoPlayer and make a huge play list ...
;; great while ya working (if u have the memory that is :)..) (and don't
;; forget to whack the volume right up on the stereo too)
;; Anyway, enuff of the silly comments ... here's the installer :) bugger..
;; i really hate all these bloody brackets :( ... should of custom written
;; one in C .. never mind.
;; BTW: the comments are mainly for my benefit as i keep forgetting what
;; each installer command does :) But they'll help u too if u decide to use
;; bits of this script :)
;; Misc Messages
(set WhereTo "Please select directory to install MegaBook to\n(a directory will be created)")
(set CopyExe "Copying MegaBook")
(set CopyDocs "Copying Documentation")
(set CopyExamp "Copying Examples")
(set CopyExtras "Copying Extras")
(set CopyStore "Copying Storage")
(set CopyRexx "Copying ARexx Scripts")
(set CopySamp "Copying Samples")
(set Modem "\n\n\n\n\nDo you have a modem ?")
(set EMail "\n\n\n\n\nDo you have an EMail address ?")
(set Fax "\n\n\n\n\nDo you use Fax software ?")
(set TermProg "Please select your terminal software")
(set TermProg "Please select your mailer software")
(set StartP "\n\nThe following command needs to be\nadded to your user startup\n\nASSIGN MegaBook3: \"")
;; Help messages
(set WhereToHelp "Select the directory you wish to install\nMegaBook into and select Ok\n\nA directory named MegaBook 3 will be created")
(set ModemHelp "MegaBook allows you to dial through a\nmodem to call BBS's. If you have on,\nselect Yes and you'll be ask to select\nyour terminal software. The installer\nwill then copy a ARexx script to enable\nyou to use your modem with MegaBook")
(set EMailHelp "MegaBook allows you to send EMails\nif you have an internet account\nyou'll be able to send EMails direct\nfrom MegaBook.")
(set FaxHelp "If your modem supports Fax, you can\nsend faxes from within MegaBook")
;; This is a tad complex and i can't be arsed to comment it any more.
;;
;; Look, it's 1:10am now and i've been working on bits of megabook since
;; about 3:30pm and i'm KNACKERED.
;; Hope all thsi work is worth my bother, if no one uses this ... hmm
;; oh well, such is life.
;; yup, its another stupid comment and chariots of fire is blurting out
;; the stereo for some unknown reason ... ahh, its in Hippo's play
;; list :) hmm... whats next ... yup ... kewl ravey one from the
;; shun ep.
;; shit ... best right the procedure instead of this stupid comment :)
;; here goes...
;;
;; wait for it.... ahh, i feel it coming ... nope, not yet..
;; NOW!
;; oh, mebbe not ...yesh :) kewl ravey track :)
;; hmmm, whaddya mean shut up ? oh, ok :)
(set gotmodem
(askbool
(prompt Modem)
(default 1)
(help ModemHelp)
)
)
(if (= gotmodem 1)
(
(set termtype (askchoice
(prompt TermProg)
(default 0)
(choices "NComm"
"Term"
"ZeeTerm"
"Termite")
(help @askchoice-help)
)
)
(select termtype
(
(copyfiles
(prompt CopyExtras)
(source "Storage/DialData/NComm.mbrx")
(newname "DialData.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
(
(copyfiles
(prompt CopyExtras)
(source "Storage/DialData/Term.mbrx")
(newname "DialData.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
(
(copyfiles
(prompt CopyExtras)
(source "Storage/DialData/ZeeTerm.mbrx")
(newname "DialData.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
(
(copyfiles
(prompt CopyExtras)
(source "Storage/DialData/Termite.mbrx")
(newname "DialData.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
)
)
)
(set gotemail
(askbool
(prompt EMail)
(default 1)
(help FaxHelp)
)
)
;; hey, i'm annoyed now! i keep typing {'s instead of ('s and }'s instead
;; of )'s ... oh well, i'm too used to C :)
(if (= gotemail 1)
(
(set mailer (askchoice
(prompt MailProg)
(default 0)
(choices "Spot"
"Yam")
(help @askchoice-help)
)
)
(select mailer
(
(copyfiles
(prompt CopyExtras)
(source "Storage/SendEMail/Spot.mbrx")
(newname "SendEMail.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
(
(copyfiles
(prompt CopyExtras)
(source "Storage/SendEMail/Yam.mbrx")
(newname "SendEMail.mbrx")
(dest XtrasDest)
(infos)
(help @copyfiles-help)
)
)
)
)
)
)
(procedure
faxmsg
(message "Unfortunately, there are no fax scripts in\nthis release of MegaBook. This is because\nwe couldn't find any ARexx docs for\nGPFax and other fax programs. If you write\na good fax script, we would like to see it\nSee docs for more info")
