//
//  A T2 test game: minimal, to suss out some memory leaks in XTads
//

#include <adv.t>
#include <std.t>

replace init: function
{
    /* perform common initializations */
    commonInit();

	 clearscreen();
	 randomize();

"<br>";
"<font face='TADS-Sans' size=2>";

"<TABLE border=1>";
"<TR align=center>";
"<TH COLSPAN=4>";
"<B>";
"<I>";
"UV";
"</I>";
"</B>";
"<TR align=left>";
"<TD>strip <TD>ask <I>person</I> about <I>topic</I>&nbsp;&nbsp;&nbsp;&nbsp;<TD>Talk to <person> ";
"<TD> Listen ";
"<TR align=center><TD>search <TD>Knock <TD> Eat <TD>Hit";
"<TR align=center><TH COLSPAN=4><B>SV</B> ";
"<TR align=left><TD>lick/kiss <TD>touch/rub <TR align=left><TD>fuck/screw <TD>fuck <bodypart> with <object>";
" ";
"<TD>";
" </TABLE>";
"</font>";


/*
"<br>";

"<TABLE border=1>";

"<TR align=left><TD>lick/kiss ";
"<TR align=left><TD>fuck/screw ";
" ";

" </TABLE>";
*/

/*
"And here's the end.  Boot me over to the tavern to start the true game.  ";

" <table height='85%' width='100%' CELLSPACING=2 CELLPADDING=1 border=1>";
"<tr valign=middle>";
" <td> <center>";


"<table height='40%' width='40%'>";
"<tr align=center valign=middle>";
" <td>";

" <font ";
" ";
"color='#999900' size='+5'><i><u>";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>Gilded</font></i></u><p> <font color='#CCCC99' size='+1'><b><u>The Lily and";
" ";
"the Cage";
"
";
"<BR HEIGHT=0>";
"
";
"<BR> ____________";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>_________";
"
";
"<BR HEIGHT=0>";
"
";
"<BR>_____<b></u></font>";

" </tr>";
"</table>";


" <br> <br height=6>Press spacebar to";
" ";
"continue</center></tr></table>";
"
";
"<BR HEIGHT=0>";
*/

/*	 
"<TAB MULTIPLE=4>My name is Aubrey Foil, Monsieur Lapot's chosen chronicler and";
" ";
"assistant.  I accompanied Lapot during many of his travels, and I will endeavor";
" ";
"to provide you an accurate account of what proved to be his last adventure.";
"
";
*/
	 
	 //"Just some text<br>
	 //before inputkey()";
  	//inputkey();
	 //morePrompt();

    parserGetMe().location := startroom;     // move player to initial location
}

startroom: room
    sdesc = "\b\bXTads T2 test game"
    ldesc = {
    	"Test game: ...";
    	/*
    	inputkey();
    	setscore('50/100');
    	"Status line should show loc name and score.";
    	inputkey();
    	*/
    }
	statusLine =
		{
		"<banner id=StatusLine height=previous border> <body bgcolor=statusbg ";
		"text=statustext><b>Ancient Riverbed</b><tab align=right><i> </i></banner>";
		}
  ;

replace commonInit: function
{
    // turn on html mode
    "\H+";
}

commandPrompt: function(code)
{
    "\b&gt;";

    "<b>";
}

//*
commandAfterRead: function(code)
{
    "</b>";
} //*/
