version.hug

!\-----------------------------------------------------------------
Version.hug release 1.5, based on version.hug from the Future Boy!
source code by Kent Tessman, adapted by Jon Blask

In your game source, you'll want to define the following constants:

constant GAME_TITLE "Annoyotron X: Annoyotron Takes Manhatten"
constant TITLECOLOR LIGHT_RED ! has to be a number value if defined before "hugolib.h" is included
constant AUTHOR "Some Guy"
constant RELEASE "1.0"	! Game release number
constant EMAIL "email@address.com"
constant WEBSITE "www.somewebsite.com"

Of course, if you want the player to be able to pull up version
info, you'll have to define a "version" verb like this:

xverb "version"
*                          DoVersion

-------------------------------------------------------------------\!

routine GameTitle
{
#if defined TITLECOLOR
	color TITLECOLOR
#endif

#if undefined GAME_TITLE
#message error "You need to define the TITLE constant before version.hug is
included!"
#endif
#if defined GAME_TITLE
	print GAME_TITLE;
#endif
	color TEXTCOLOR
}

routine DoVersion
{
	Font(BOLD_ON | ITALIC_OFF)
	print GameTitle;
	Font(BOLD_OFF | ITALIC_OFF)
#ifset DEMO_VERSION
	"\B (demo version)\b"
#else
	""
#endif
	string(_temp_string, serial$, 8)
	print "Copyright (c) 20";
	StringPrint(_temp_string, 6, 8)
#if defined AUTHOR
	" by ";
	print AUTHOR;
#endif
	""
#if defined RELEASE
	print "Release "; RELEASE; " / ";
#endif
#if clear BETA
	print "Serial Number ";
	StringPrint(_temp_string, 0, 2)
	StringPrint(_temp_string, 3, 5)
	StringPrint(_temp_string, 6, 8)
#else
	" \BBETA BUILD # 20";
	StringPrint(_temp_string, 6, 8)
	StringPrint(_temp_string, 0, 2)
	StringPrint(_temp_string, 3, 5)
	Font(BOLD_OFF)
#endif
print newline
#if	defined	IFID
		print "IFID: "; IFID
#endif
print "Written in ";
print BANNER
#ifset BETA
#if defined TITLECOLOR
	color TITLECOLOR
#endif
	"\n\BDO NOT DISTRIBUTE!\b";
	color TEXTCOLOR
	" This beta release is intended for testing only, not for
	distribution to the general public.";
#if defined EMAIL
   " Please report any errors,
	bugs, etc. to \I<";
	print EMAIL;">\i."
#endif
	"\nHI, TESTERS:  Please type \B>SCRIPT ON\b and send in your transcripts."
#endif
#ifset DEMO_VERSION
#if defined WEBSITE
	"\n(Like this demo?  Visit \B";
	print WEBSITE; "\b for the full version.)"
#endif
#endif
#ifset HUGOFIX
	"\n\I(Compiled with the HugoFix Debugging Suite)\i"
#endif
}