home *** CD-ROM | disk | FTP | other *** search
- ;
- ;
- ; SSClock - v1.3 Install Script
- ; - By Gareth 'Gaz' Murfin
- ;
- ;
- ;Program name & by Gareth Murfin Scrolling.
- (procedure WAITX (set X 1) ( (while (< X 100) (set X (+ X 1)) ) ) )
- (working "\n\n\n\n\n\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 0)
- (working "\n\n\n\n\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 1)
- (working "\n\n\n\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 2)
- (working "\n\n\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 3)
- (working "\n\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 4)
- (working "\n\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 5)
- (working "\n\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 6)
- (working "\n\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 7)
- (working "\n\n\n\n\nSSClock v1.3") (WAITX)
- (complete 8)
- (working "\n\n\n\nSSClock v1.3") (WAITX)
- (complete 9)
- (working "\n\n\nSSClock v1.3") (WAITX)
- (complete 10)
- (working "\n\nSSClock v1.3") (WAITX)
- (complete 11)
- (working "\n\nSSClock v1.3") (WAITX)
- (complete 12)
- (working "\nSSClock v1.3") (WAITX)
- (complete 13)
- (working "\nSSClock v1.3") (WAITX)
- (complete 14)
- (working "\nSSClock v1.3\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
- (complete 15)
- (working "\nSSClock v1.3\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
- (complete 16)
- (working "\nSSClock v1.3\n\n\n\n\n\n\n\n\n\nby") (WAITX)
- (complete 17)
- (working "\nSSClock v1.3\n\n\n\n\n\n\n\n\nby") (WAITX)
- (complete 18)
- (working "\nSSClock v1.3\n\n\n\n\n\n\n\nby") (WAITX)
- (complete 19)
- (working "\nSSClock v1.3\n\n\n\n\n\n\nby") (WAITX)
- (complete 20)
- (working "\nSSClock v1.3\n\n\n\n\n\nby") (WAITX)
- (complete 21)
- (working "\nSSClock v1.3\n\n\n\n\nby") (WAITX)
- (complete 22)
- (working "\nSSClock v1.3\n\n\n\nby") (WAITX)
- (complete 22)
- (working "\nSSClock v1.3\n\n\nby") (WAITX)
- (complete 23)
- (working "\nSSClock v1.3\n\n\nby") (WAITX)
- (complete 24)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
- (complete 25)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
- (complete 26)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
- (complete 27)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\n\n\nGareth Murfin.") (WAITX)
- (complete 28)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\n\nGareth Murfin.") (WAITX)
- (complete 29)
- (working "\nSSClock v1.3\n\n\nby\n\n\n\nGareth Murfin.") (WAITX)
- (complete 30)
- (working "\nSSClock v1.3\n\n\nby\n\n\nGareth Murfin.") (WAITX)
- (message "\n\n\nSSClock v1.3\n\n\nby\n\n\nGareth Murfin.") (WAITX)
- (run "SSClock")
- (welcome)
- (makedir "SYS:Wbstartup/SSCSounds")
- (complete 45)
- ;End of Introduction.
- ;
- ;---------------------
- (complete 80)
- (copyfiles
- (source "SSClock")
- (dest "SYS:WbStartup/")
- (all)
- )
- ;---------------------
- (complete 83)
- (copyfiles
- (source "SSClock.info")
- (dest "SYS:WbStartup/")
- (all)
- )
- ;---------------------
- ;
- ;
- ;
- (complete 84)
- (set #DOC
- (askoptions
- (prompt "Select Voice to Install")
- ; (help (cat @askoptions-help))
- (help " SSClock Help - By Gaz Murfin"
- "\n ----------------------------"
- "\nWelcome to SSClock Install help! You must make a decision about what voice you "
- "would like installed onto your Amiga. The choices are English, Canadian, Isle of Wight "
- "And 'Amiga' which is the computerised voice included with Workbench. Each voice is equally "
- "understandable and funny, so I suggest you listen to the samples in a filemanager before you "
- "make your decision. alternatively you could install one, reboot and listen to it, and then install "
- "a new one.\n"
- "If you're short of HD space or need all your CPU power at bootup then I suggest you use the Amiga "
- "voice because it takes up virtually no room or CPU cycles. However the most space a voice can take up is "
- "only 400k, and even the CPU of an A500 can take any voice set easily.\n"
- "So decide which voice you want and then click the mouse pointer on the 'checkbox' and then 'proceed'. Make "
- "sure only tick one box or they will all be cancelled out.\n"
- "Right, thats about it! Enjoy SSClock and if you like it make your own sample set and eMail to gazy@globalnet.co.uk. "
- "You'll be supporting me, the Amiga & you'll get your name in the credits, so go for it! Also checkout the Guide for "
- "a step by step guide on how to use your own voice in SSClock, and More.\n\n"
- "Gareth 'Gaz' Murfin :-)\n\n"
- "SSClock (c) Alpha Software 1998-99 - All rights reserved."
- )
- (default 0)
- (choices "English" "Canadian" "Isle Of Wight" "Amiga")
- )
- )
- ; *** Copy Doc(s) to given path ***
- (if (IN #DOC 0)
- (copyfiles
- (source "SSCSounds")
- (dest "SYS:WbStartup/SSCSounds/")
- (all)
- ))
- ;---------------------
- ;Copy UK Voice
- ;---------------------
- (if (IN #DOC 1)
- (copyfiles
- (source "SSCSounds.US")
- (dest "SYS:WbStartup/SSCSounds/")
- (all)
- ))
- ;---------------------
- ;Copy Canadian Voice
- ;---------------------
- ;
- ;---------------------
- ;Copy UK Voice
- ;---------------------
- (if (IN #DOC 2)
- (copyfiles
- (source "SSCSounds.IOW")
- (dest "SYS:WbStartup/SSCSounds/")
- (all)
- ))
- ;---------------------
- ;Copy Isle Of Wight Voice
- ;---------------------
- ;
- (if (IN #DOC 3)
- (copyfiles
- (source "C/SSClock")
- (dest "SYS:WbStartup/")
- (all)
- ))
- ;---------------------
- ;Copy Amiga Voice
- ;---------------------
- ;
- (complete 89)
- (run "c/play16 <>nil: c/ALPHA.IFF")
- ;
- ;
- ;
- (complete 95)
- (message
- "\n\n SSClock v1.3 was installed successfully!"
- "\n Reboot your Amiga to hear SSClock talk to you!"
- "\n\n\n** Alpha Software - Contact details **"
- "\n URL......http://www.users.globalnet.co.uk/~gazy/"
- "\n eMail.......................gazy@globalnet.co.uk"
- "\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
- "\n\n Enjoy SSClock v1.3..."
- )
- (complete 100)
-
-
-