Jonah

He hit your shield but it glanced off.<<set $s = 0>>\n<<display "youdid">>

<<if $s eq $t and $s eq 0>>You are now ready to try again.\n<<display "SetupTurn">>\n<<else>><<if $s eq $t>>Too bad, you both lost. At least your honor is intact.\n<<display "Lose">>\n<<else>><<if $s lt $t>>You have won this joust.\n\n<<set $a = $a + 1>><<if $a gt 4>>Hooray! You are the winner. Here comes the bride!\n<<display "PlayAgain">>\n<<else>><<display "TurnStart">>\n<<endif>><<else>><<if $s gt $t>>Too bad, you lost. Hope your insurance was paid up.\n<<display "Lose">><<endif>>\n<<endif>><<endif>><<endif>><<endif>>

You broke your lance, but injured and unseated your foe.\n<<set $t = 5>><<display "EndOfTurn">>

<<if $c eq 1 or $c eq 4 or $c eq 5 or $c eq 6>><<display "opo2650">>\n<<else>><<if $c eq 2>><<display "opo2600">>\n<<else>><<display "opo2950">>\n<<endif>><<endif>>

Sorry, better luck next joust.\n<<display "PlayAgain">>

He broke his lance.<<set $s = 0>>\n<<display "youdid">>

<<set $b = 7>><<display "ChooseDefense1550">>

You missed him (hiss!)\n<<set $t = 0>><<display "EndOfTurn">>

<<display "RealStart">>

<<if $b eq 1>><<display "charge2150">>\n<<else>><<if $b eq 2>><<display "charge2200">>\n<<else>><<if $b eq 3>><<display "charge2250">>\n<<else>><<if $b eq 4>><<display "charge2300">>\n<<else>><<if $b eq 5>><<display "charge2350">>\n<<else>><<if $b eq 6>><<display "charge2400">>\n<<else>><<if $b eq 7>><<display "charge2450">>\n<<else>><<display "charge2500">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

END.

Good luck, Sir!\n\n<<set $a = 1>><<display "TurnStart">>

You may use one of these defenses: <<choice "choiceC2" "2-RIGHT LEAN">>, <<choice "choiceC4" "4-STEADY SEAT">>, <<choice "choiceC5" "5-SHIELD HIGH">>, <<choice "choiceC6" "6-SHIELD LOW">>.

<<if $c eq 1 or $c eq 4 or $c eq 6>><<display "opo2750">>\n<<else>><<if $c eq 2>><<display "opo2650">>\n<<else>><<display "opo2850">>\n<<endif>><<endif>>

<<if $a eq 1>>This is your first joust. You are up aginst the Gold Knight.\n<<else>><<if $a eq 2>>This is your second joust. Your opponent is the Silver Knight.\n<<else>><<if $a eq 3>>You are doing well! Your third joust is against the Red Knight.\n<<else>>This is you final test!!! If you win this one the Princess is Yours!!! This fight is against the fierce Black Knight!!!!\n<<endif>><<endif>><<endif>><<display "SetupTurn">>

<<if $c eq 1 or $c eq 4 or $c eq 6>><<display "opo2750">>\n<<else>><<if $c eq 2>><<display "opo2950">>\n<<else>><<display "opo2600">>\n<<endif>><<endif>>

You broke your lance, but unseated your opponent.\n<<set $t = 5>><<display "EndOfTurn">>

<<if $b eq 1>><<display "you3700">>\n<<else>><<if $b eq 2>><<display "you3700">>\n<<else>><<if $b eq 3>><<display "you3750">>\n<<else>><<if $b eq 4>><<display "you3850">>\n<<else>><<if $b eq 5>><<display "you3700">>\n<<else>><<if $b eq 6>><<display "you3850">>\n<<else>><<if $b eq 7>><<display "you4050">>\n<<else>><<display "you3900">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

You may use one of these defenses: <<choice "choiceC1" "1-LOWER HELM">>, <<choice "choiceC4" "4-STEADY SEAT">>, <<choice "choiceC5" "5-SHIELD HIGH">>, <<choice "choiceC6" "6-SHIELD LOW">>.

<<if $c eq 1 or $c eq 4>><<display "opo2950">>\n<<else>><<if $c eq 2>><<display "opo2650">>\n<<else>><<if $c eq 3 or $c eq 6>><<display "opo2750">>\n<<else>><<display "opo2850">>\n<<endif>><<endif>><<endif>>

<<set $d = Math.floor(Math.random() * 8) + 1>>\n\nYour aiming point?\n<<choice "choiceB1" "1- HELM">>\n<<choice "choiceB2" "2- UPPER LEFT (OF SHIELD)">>\n<<choice "choiceB3" "3- UPPER MIDDLE">>\n<<choice "choiceB4" "4- UPPER RIGHT">>\n<<choice "choiceB5" "5- LOWER LEFT">>\n<<choice "choiceB6" "6- LOWER MIDDLE">>\n<<choice "choiceB7" "7- LOWER RIGHT">>\n<<choice "choiceB8" "8- BASE OF SHIELD">>

He has broken his lance and unseated you (clang!)<<set $s = 5>>\n<<display "youdid">>

<<if $b eq 1>><<display "you3900">>\n<<else>><<if $b eq 2>><<display "you3850">>\n<<else>><<if $b eq 3>><<display "you4050">>\n<<else>><<if $b eq 4>><<display "you3750">>\n<<else>><<if $b eq 5>><<display "you3700">>\n<<else>><<if $b eq 6>><<display "you3950">>\n<<else>><<if $b eq 7>><<display "you3750">>\n<<else>><<display "you3950">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

<<if $c eq 1>><<display "opo2850">>\n<<else>><<if $c eq 2>><<display "opo2800">>\n<<else>><<if $c eq 3>><<display "opo2650">>\n<<else>><<if $c eq 4>><<display "opo2750">>\n<<else>><<if $c eq 5>><<display "opo2950">>\n<<else>><<display "opo2900">>\n<<endif>><<endif>><<endif>><<endif>><<endif>>

<<set $b = 2>><<display "ChooseDefense1650">>

<<set $c = 1>><<display "Charge">>

<<set $c = 2>><<display "Charge">>

<<set $c = 3>><<display "Charge">>

<<set $c = 4>><<display "Charge">>

<<if $e eq 1 or $e eq 3>><<display "youdid">><<else>><<display "you3350">><<endif>>

<<set $c = 6>><<display "Charge">>

Joust

<<if $b eq 1>><<display "you3700">>\n<<else>><<if $b eq 2>><<display "you3900">>\n<<else>><<if $b eq 3>><<display "you3950">>\n<<else>><<if $b eq 4>><<display "you3750">>\n<<else>><<if $b eq 5>><<display "you3850">>\n<<else>><<if $b eq 6>><<display "you4050">>\n<<else>><<if $b eq 7>><<display "you3750">>\n<<else>><<display "you3850">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

You may use one of these defenses: <<choice "choiceC3" "3-LEFT LEAN">>, <<choice "choiceC4" "4-STEADY SEAT">>, <<choice "choiceC5" "5-SHIELD HIGH">>, <<choice "choiceC6" "6-SHIELD LOW">>.

You broke your lance(crack...)\n<<set $t = 0>><<display "EndOfTurn">>

<<if $e lt 3>><<display "youdid">><<else>><<display "you3350">><<endif>>

<<set $b = 5>><<display "ChooseDefense1550">>

He knocked off your helm!<<set $s = 0>>\n<<display "youdid">>

He has unseated you(thud!)<<set $s = 5>>\n<<display "youdid">>

You may use one of these defenses: <<choice "choiceC4" "4-STEADY SEAT">>, <<choice "choiceC5" "5-SHIELD HIGH">>, <<choice "choiceC6" "6-SHIELD LOW">>.

You may use one of these defenses: <<choice "choiceC1" "1-LOWER HELM">>, <<choice "choiceC2" "2-RIGHT LEAN">>, <<choice "choiceC3" "3-LEFT LEAN">>, <<choice "choiceC4" "4-STEADY SEAT">>, <<choice "choiceC5" "5-SHIELD HIGH">>, <<choice "choiceC6" "6-SHIELD LOW">>.

<html> </html>\nDo you want to play again? <<choice "GameStart" "Yes">> / <<choice "PlayAgainN" "No">>

You injured and unseated your opponent.\n<<set $t = 5>><<display "EndOfTurn">>

// Needed to allow loops back through text while keeping output linear\n// Might as well suppress title and toolbar while we're at it\nPassage.prototype.render = function() {\n var passage = insertElement(null, 'div', 'passage' + this.title + 'j' + (new Date).getTime(), 'passage');\n passage.style.visibility = 'hidden';\n var body = insertElement(passage, 'div', '', 'body');\n new Wikifier(body, this.text);\n // event handlers\n passage.onmouseover = function() { passage.className += ' selected' };\n passage.onmouseout = function() { passage.className = passage.className.replace(' selected', ''); };\n return passage;\n};\n\n//And hack the choice macro - no going back!\nmacros['choice'].activate = function (el, destination) {\n var parentDiv = el.parentNode;\n while (parentDiv.className.indexOf('body') == -1)\n parentDiv = parentDiv.parentNode;\n var title = parentDiv.parentNode.id.substr(7);\n var links = parentDiv.getElementsByTagName('a');\n var trashed = [];\n for (var i = 0; i < links.length; i++)\n// if ((links[i] != el) && (links[i].className.indexOf('choice') != -1)) {\n if (links[i].className.indexOf('choice') != -1) {\n var span = document.createElement('span');\n span.innerHTML = links[i].innerHTML;\n span.className = 'disabled';\n links[i].parentNode.insertBefore(span, links[i].nextSibling);\n trashed.push(links[i]);\n };\n tale.get(title).text = '<html>' + parentDiv.childNodes[0].innerHTML + '</html>';\n state.display(destination, el);\n for (var i = 0; i < trashed.length; i++)\n trashed[i].parentNode.removeChild(trashed[i]);\n}

You knocked off his helm!(cheers!)\n<<set $t = 0>><<display "EndOfTurn">>

.passage .title { display:none; }\nbody { background-color: #000; color: #6f3; font-family: monospace; }\n#content2, .passage, #passages, h1, h2, h3 { background-color: #030; color: #6f3; font-family: monospace; }\n#content2 { padding: 1em 2.5em; }\n#passages { padding-bottom: 5em; }\n.passage { font-size: 12px; line-height: 17px; }\na.internalLink, a.externalLink, .disabled { color: #6f0; }\n.disabled { font-style: normal; }\n#footer { position: fixed; bottom: 1em; right: 1em; width: 15em; background-color: #000; text-align: left; color: #060; }

<<if $b eq 1>><<display "you3700">>\n<<else>><<if $b eq 2>><<display "you3700">>\n<<else>><<if $b eq 3>><<display "you4000">>\n<<else>><<if $b eq 4>><<display "you3900">>\n<<else>><<if $b eq 5>><<display "you3850">>\n<<else>><<if $b eq 6>><<display "you3850">>\n<<else>><<if $b eq 7>><<display "you3750">>\n<<else>><<display "you3850">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

You unseated him (loud cheers and huzzahs!!)\n<<set $t = 5>><<display "EndOfTurn">>

He missed you!<<set $s = 0>>\n<<display "youdid">>

<<set $c = 5>><<display "Charge">>

<<set $b = 8>><<display "ChooseDefense1950">>

<<set $b = 1>><<display "ChooseDefense1550">>

<<if $e eq 2 or $e eq 3>><<display "youdid">><<else>><<display "you3350">><<endif>>

<html>JOUST\nCreative Computing\nMorristown, New Jersey\n \n </html>\nSir Knight, you are a medieval knight in a jousting tournament. The prize to the winner is the Princess' hand in marriage. To win, you must beat four other knights.\nTo joust, you pick an aiming point for the lance, and then one of from three to six possible defense positions. If you break a lance or lose a helm, you will be given another.\n\n<<display "GameStart">>

<<if $c eq 1 or $c eq 4 or $c eq 5>><<display "opo2650">>\n<<else>><<if $c eq 2>><<display "opo2600">>\n<<else>><<if $c eq 3>><<display "opo2750">>\n<<else>><<display "opo2800">>\n<<endif>><<endif>><<endif>>

He has broken his lance, injured and unseated you (ouch!)<<set $s = 5>>\n<<display "youdid">>

<<set $e = Math.floor(Math.random() * 6) + 1>><<if $d eq 1>><<display "youdid3100">>\n<<else>><<if $d eq 2>><<display "youdid3150">>\n<<else>><<if $d eq 3>><<display "you3350">>\n<<else>><<if $d eq 4>><<display "youdid3250">>\n<<else>><<if $d eq 5>><<display "youdid3100">>\n<<else>><<if $d eq 6>><<display "you3350">>\n<<else>><<if $d eq 7>><<display "youdid3100">>\n<<else>><<display "youdid3300">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

You hit his shield but glanced off.\n<<set $t = 0>><<display "EndOfTurn">>

<<set $b = 3>><<display "ChooseDefense1750">>

He has injured and unseated you (crash!)<<set $s = 5>>\n<<display "youdid">>

<<if $c eq 1>><<display "opo2800">>\n<<else>><<if $c eq 2 or $c eq 4 or $c eq 5>><<display "opo2750">>\n<<else>><<display "opo2600">>\n<<endif>><<endif>>

<<if $b eq 1>><<display "you3800">>\n<<else>><<if $b eq 2>><<display "you3850">>\n<<else>><<if $b eq 3>><<display "you3850">>\n<<else>><<if $b eq 4>><<display "you3750">>\n<<else>><<if $b eq 5>><<display "you3850">>\n<<else>><<if $b eq 6>><<display "you4050">>\n<<else>><<if $b eq 7>><<display "you3750">>\n<<else>><<display "you3850">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

<<if $b eq 1>><<display "you3700">>\n<<else>><<if $b eq 2>><<display "you3850">>\n<<else>><<if $b eq 3>><<display "you3900">>\n<<else>><<if $b eq 4>><<display "you3700">>\n<<else>><<if $b eq 5>><<display "you4050">>\n<<else>><<if $b eq 6>><<display "you3750">>\n<<else>><<if $b eq 7>><<display "you3700">>\n<<else>><<display "you3750">>\n<<endif>><<endif>><<endif>><<endif>><<endif>><<endif>><<endif>>

<<set $b = 6>><<display "ChooseDefense1750">>

<<if $c eq 1 or $c eq 2 or $c eq 3 or $c eq 6>><<display "opo2600">>\n<<else>><<if $c eq 4>><<display "opo2700">>\n<<else>><<display "opo2800">>\n<<endif>><<endif>>

<<set $b = 4>><<display "ChooseDefense1850">>

by Alan Yarbrough (c. 1979). Conversion by Emmanuel King Turner (Nov 2012)

<<if $e lt 4>><<display "youdid">><<else>><<display "you3350">><<endif>>

<<if $e eq 1>><<display "you3400">>\n<<else>><<if $e eq 2>><<display "you3450">>\n<<else>><<if $e eq 3>><<display "you3500">>\n<<else>><<if $e eq 4>><<display "you3550">>\n<<else>><<if $e eq 5>><<display "you3600">>\n<<else>><<display "you3650">>\n<<endif>><<endif>><<endif>><<endif>><<endif>>