//
//  A T2 test game: 
//

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

startroom: room
   sdesc = "XTads T2 banner test"
   ldesc = "ad-hoc reprod of bugs, etc."
   turnCount = 0
   
   // 10b bug:
   
   /*
   contentList = ['previous', 'previous', '25%', 'previous', '35%', 'previous']
   widths =      ['previous', 'previous', '25%', 'previous', '35%', 'previous']
   */

   /*
   contentList = ['previous', 'nil', '25%', 'previous', '35%', 'previous']
   widths =      ['previous', nil, '25%', 'previous', '35%', 'previous']
   */

   /*
   contentList = ['previous', '25%', 'previous', '35%', 'previous']
   widths =      ['previous', '25%', 'previous', '35%', 'previous']
   */

   /*
   contentList = ['previous', 'previous', '150', 'previous', '250', 'previous']
   widths =      ['previous', 'previous', '150', 'previous', '250', 'previous']
   */

	/* works like on qtads
   contentList = ['nil', 'previous', '25%', 'previous', '35%', 'previous']
   widths =      [nil, 'previous', '25%', 'previous', '35%', 'previous']
   */

	/* works like on qtads
   contentList = ['40%', 'previous', '25%', 'previous', '35%', 'previous']
   widths =      ['40%', 'previous', '25%', 'previous', '35%', 'previous']
   */

	/* works like on qtads
   contentList = ['40%', 'previous', 'previous', '25%', 'previous', '35%', 'previous']
   widths =      ['40%', 'previous', 'previous', '25%', 'previous', '35%', 'previous']
   */

	/* works like on qtads
   contentList = ['40%', 'previous', 'previous', '25%', 'previous', 'previous', '35%', 'previous']
   widths =      ['40%', 'previous', 'previous', '25%', 'previous', 'previous', '35%', 'previous']
   */

	/* works like on qtads
   contentList = ['150', 'previous', 'previous', '250', 'previous', 'previous', '350', 'previous']
   widths =      ['150', 'previous', 'previous', '250', 'previous', 'previous', '350', 'previous']
   */

	/* works like on qtads
   contentList = ['150', 'previous', 'previous', '250', '250', 'previous', 'previous', '350', 'previous']
   widths =      ['150', 'previous', 'previous', '250', '250', 'previous', 'previous', '350', 'previous']
   */
   
   //---
   
   /*
   contentList = ['unspecddddddddddd', 'previous', 'preeeeevious', 'unspecd', 'preeevious', 'preeeeevious']
   widths =      [nil,                 'previous', 'previous',     nil,       'previous', 'previous']
   */

   /*
   contentList = ['unspecddddddddddd', 'previous', 'previous', 'previous', 'preeeeevious', 'unspecd', 'preeevious', 'preeeeevious']
   widths =      [nil,                 'previous', 'previous', 'previous', 'previous',     nil,       'previous',   'previous']
   */

   /*
   contentList = ['unspecddddddddddd', 'previous', 'prev',     'pr',       'preeeeevious!', 'unspecd', 'unspecddd', 'preeev',     'preeeeevious']
   widths =      [nil,                 'previous', 'previous', 'previous', 'previous',      nil,       nil,         'previous',   'previous']
   */

   /*
   contentList = ['150', 'previous', 'prev',     'pr',       'preeeeevious!', 'unspecd', 'unspecddd', 'preeev',     'preeeeevious']
   widths =      ['150', 'previous', 'previous', 'previous', 'previous',      nil,       nil,         'previous',   'previous']
   */

   /*
   contentList = ['150', 'previous', 'prev',     'unspecd', 'preeev',     'preeeeevious', '200', 'prev.']
   widths =      ['150', 'previous', 'previous', nil,       'previous',   'previous',     '200', 'previous']
   */
   
   /*
   contentList = ['25%', 'previous', 'prev',     'unspecd', 'preeev',     'preeeeevious', '40%', 'prev.']
   widths =      ['25%', 'previous', 'previous', nil,       'previous',   'previous',     '40%', 'previous']
   */

	/*
   contentList = ['unspecddddddddddd', 'previous', 'pre',      'unspec', 'preeevious', 'p',        'xxxxxxxxxxxxxxxxxxxxxx']
   widths =      [nil,                 'previous', 'previous', nil,      'previous',   'previous', 'previous']
   */
   
   //---

	/* 
   contentList = ['unsp', 'preeeeevious', 'unspecd', 'unsp', 'preeevious', 'preeeeevious']
   widths =      [nil,    'previous',     nil,       nil,    'previous',   'previous']
   */

	/*
   contentList = ['previous', 'preeeeevious', 'p',        'prev',     'pr',       'previous',  'pr',       'preeeeevious']
   widths =      ['previous', 'previous',     'previous', 'previous', 'previous', 'previous',  'previous', 'previous']
   */
   
	/*
   contentList = ['nil', 'n', 'niiiil', 'ni', 'nill', 'niiilll', 'n']
   widths =      [nil,   nil, nil,      nil,  nil,    nil,       nil]
   */
   
   //---
   
	/*
   contentList = ['previouS', 'preeeeeviouS', 'p',        'uns',  'preeevious', 'preeeeevious']
   widths =      ['previous', 'previous',     'previous', nil,    'previous',   'previous']
   */
   
	/*
   contentList = ['p',        'uns',  'unsp', 'un', 'preeevious', 'preeeeevious']
   widths =      ['previous', nil,    nil,    nil,  'previous',   'previous']
   */

	/*
   contentList = ['previous', 'preeeeevious', 'p',        'uns',  'unsp', 'un', 'preeevious', 'preeeeevious']
   widths =      ['previous', 'previous',     'previous', nil,    nil,    nil,  'previous',   'previous']
   */

	/*
   contentList = ['previous', 'preeeeevious', 'p',        'uns',  'unsp', 'preeevious', 'preeeeevious']
   widths =      ['previous', 'previous',     'previous', nil,    nil,    'previous',   'previous']
   */

	/*
   contentList = ['previous', 'preeeeevious', 'unspecd', 'unsp', 'preeevious', 'preeeeevious']
   widths =      ['previous', 'previous',     nil,       nil,    'previous',   'previous']
   */

	//*
   contentList = ['previ',    'preeeeevious', 'unspeecd', 'unspeeeeecd', 'preeevious', 'preeeeevious']
   widths =      ['previous', 'previous',     nil,       nil,           'previous',   'previous']
   //*/
   
   /*
	statusLine =
		{
		local cycleCount;
		local cycleCount2;
		local width;
		local widthAttr;
		
		turnCount += 1;
		cycleCount := ((turnCount - 1) % length(widths)) + 1;
		cycleCount2 := ((turnCount - 1) % length(contentList)) + 1;
		width := widths[cycleCount];
		if (width = nil) {
			widthAttr := '';
		} else {
			widthAttr := ('width=' + width);
		}
		
		"<banner id=custStatusLine align=left <<widthAttr>> border>
			<<contentList[cycleCount2]>>
		</banner>";
		}
	*/

	/*
	statusLine =
		{
		"<banner id=StatusLine height=previous> <body bgcolor=black ";
		"text=white><b><B>Office</B></b><tab align=right><i>Monday 10:09 a.m. ";
		" ";
		"</i></banner>";
		}
	*/

	statusLine =
		{
		if (turnCount = 0) {
		"<banner id=StatusLine height=previous> <body bgcolor=black ";
		"text=white><b><B>Office</B></b><tab align=right><i>Monday 10:09 a.m. ";
		" ";
		"</i></banner>";
		}
		else 
		{
		"
		<banner remove id=StatusLine>
		<banner id=MenuTitle>
			<body bgcolor=\"#003000\" text=\"silver\">
			Common Ground<tab align=\"right\">Q=quit P=previous menu<br> 
			<tab align=\"right\">U=up D=down ENTER=select
		</banner>
		<banner border id=MenuBody><body bgcolor=\"silver\" text=\"#003000\">
			<table>
				<tr>
					<td width=\"10\"> </td>
					<td>&gt;<a plain href=\"1\">Instructions and Information</a><br>
					<font color=\"silver\">&gt;</font><a plain href=\"2\">Fine Print</a><br></td>
				</tr>
			</table>
		</banner>
		";
		}
		turnCount += 1;
		}
;

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