JavaScript is required. Please enable it to continue.
Your browser lacks required capabilities. Please upgrade it or switch to another to continue.
Loading…
!!!!!created by Sir Slice ----------------------------------- <<nobr>> You currently have $<<print $myMoney.toFixed(2)>> /% Game Progress <<showmeter 'progress' `_progress / _maxProgress`>><<if $progress gt $player.progress>><<set $pChange = $progress - $player.progress>><<fadeout 4s>>+$pChange<</fadeout>><<set $player.progress = $progress>><</if>><<updatemeter 'progress' `$progress / $maxProgress`>> <<if $gameStart eq true>><<nobr>><<set $player.clicks += 1>> <<if $player.time - $tempTime gte 10>> <<set $energyLoss = Math.floor(($player.time - $tempTime)/10)>> <<set $stamina to Math.clamp($stamina - $energyLoss*(random(1,2)), 0, $maxStamina)>> <<set $tempTime = $player.time>> <</if>> <<if $player.clicks gte 20>><<set $player.clicks = 0>> <<set $stamina to Math.clamp($stamina - random(1, 4), 0, $maxStamina)>><</if>><</nobr>> Health <<showmeter 'health' `_health / _maxHealth`>><<if $health gt $player.health>><<set $hChange = $health - $player.health>><<fadeout 4s>>+$hChange<</fadeout>><<elseif $health lt $player.health>><<set $hChange = -($health - $player.health)>><<fadeout 4s>>-$hChange<</fadeout>><</if>> <<nobr>> Stamina <<showmeter 'stamina' `_stamina / _maxStamina`>> <<if $stamina gt $player.stamina>><<set $sChange = $stamina - $player.stamina>><<fadeout 4s>>+$sChange<</fadeout>> <<elseif $stamina lt $player.stamina>><<set $sChange = -($stamina - $player.stamina)>><<fadeout 4s>>-$sChange<</fadeout>><</if>> <<updatemeter 'health' `$health / $maxHealth`>> <<updatemeter 'stamina' `$stamina / $maxStamina`>> <<set $player.health = $health>><<set $player.stamina = $stamina>> <</nobr>> <<if $health neq 0>><font size = 6>^^__MY INVENTORY__^^</font> <<nobr>> <<if $player.money gte 0 and $gameStart eq true>>Money = $<<print $player.money.toFixed(2)>><</if>> <<if $player.time gte 1440>><<set $player.time -= 1440>><</if>> <<set $theHour = Math.floor($player.time/60)>><<set $theMin = $player.time%60>> <<if $theHour gt 12>><<set $theHour -= 12>><</if>> <</nobr>> Wrist watch <<print $theHour.toFixed(0)>>:<<if $theMin lte 9 and $theMin neq 0>>0$theMin<<elseif $theMin eq 0>>00<<else>>$theMin<</if>><<if $player.time gte 720>> pm<<elseif $player.time lt 720>> am<</if>> <<for $i = 0; $i < $inventory.length; $i++>> <<print $inventory[$i]>> <</for>><</if>> <</if>> <<if $inRPG eq true>> Warrior<<showmeter 'warriorHealth' `_warriorHealth / _maxWarriorHealth`>>\ <<updatemeter 'warriorHealth' `$warriorHealth / $maxWarriorHealth`>>\ <<if $elf.join eq true and $eHP[1] gt 0>>\ Wood Elf<<showmeter 'elfHealth' `_elfHealth / _maxElfHealth`>>\ <<updatemeter 'elfHealth' `$elfHealth / $maxElfHealth`>> <</if>> <<if $wizard.join eq true and $eHP[2] gt 0>>\ High Wizard<<showmeter 'wizardHealth' `_wizardHealth / _maxWizardHealth`>>\ <<updatemeter 'wizardHealth' `$wizardHealth / $maxWizardHealth`>> <</if>> You have <<print $warrior.gold>> gold coins <</if>> <<if $warriorRetreat eq true>><<fadeout 5s>><font color = red>You Retreated!</font><</fadeout>><<set $warriorRetreat = false>><</if>> <<if $enemies gte 1>><font size = 5 color = red>__Enemies Present__</font> <<print $eName[$e1]>><<showmeter 'enemy1Health' `_enemy1Health / _maxEnemy1Health`>>\ <<updatemeter 'enemy1Health' `$enemy1Health / $maxEnemy1Health`>> <</if>> <table id="rpg" border> <tr><<set _me = 0>> <<for $y = $rpgY; $y < $rpgY+7; $y++>> <tr> <<for $x = $rpgX; $x < $rpgX+7; $x++>> <<set _me += 1>> <<set _temp = $x+($y*35)>> <<if _me eq 25>> <td><font size = 2>👦</font></td> <<elseif $rpgY lte 3 and _temp lt 102>> <td style="background-color:blue">  </td> <<elseif $rpgY gte 23 and _temp gt 1008>> <td style="background-color:blue">  </td> <<elseif $rpgX lte 3 and _temp lt ($y*35)+3>> <td style="background-color:blue"> <font color = blue><<print _temp>></font></td> <<elseif $rpgX gte 22 and _temp gt ($y*35)+28>> <td style="background-color:blue"> <font color = blue><<print _temp>></font></td> <<else>> <td><<print $rpgMap[_temp]>></td> <</if>> <</for>> </tr> <</for>> </tr> </table> %/ <</nobr>>
<<set $myMoney = 100>> <<set $myRoom = 0>> <<set $playJacks = 0>> <<set $playKeno = 0>> <<set $playSlots = 0>> <<set $playRace = 0>> <<set $playZed = 0>> <<set $playDrill = 0>> <<set $playParser = 0>> /%<<= dice('3d6+2')>>%/ <<set $health to 75, $maxHealth to 100>> <<set $stamina to 39, $maxStamina to 100>> <<set $progress to 1, $maxProgress to 100>> <<set $warriorHealth to 100, $maxWarriorHealth to 100>> <<set $elfHealth to 75, $maxElfHealth to 75>> <<set $wizardHealth to 60, $maxWizardHealth to 60>> /% <<newmeter 'timer' 0>> <<colors 'red' 'green'>> <<animation 10s linear>> <</newmeter>> %/ <<newmeter 'progress' 1>> <<sizing '220px'>> <<label '$progress%'>> <</newmeter>> <<newmeter 'health' 1>> <<sizing '220px'>> <<label '$health%'>> <</newmeter>> <<newmeter 'stamina' 1>> <<sizing '220px'>> <<label '$stamina%'>> <</newmeter>> <<newmeter 'warriorHealth' 1>> <<sizing '220px'>> <<label '$warriorHealth/$maxWarriorHealth'>> <</newmeter>> <<newmeter 'elfHealth' 1>> <<sizing '220px'>> <<label '$elfHealth/$maxElfHealth'>> <</newmeter>> <<newmeter 'wizardHealth' 1>> <<sizing '220px'>> <<label '$wizardHealth/$maxWizardHealth'>> <</newmeter>> <<newmeter 'enemy1Health' 1>> <<sizing '220px'>> <<label '$enemy1Health/$maxEnemy1Health'>> <</newmeter>> <<set $wStats = [0,1,2,3,4]>>/*Str, Con, Dex, Per, Lck%/ <<set $wStats.shuffle()>> <<set $wStr = $wStats[0]>> <<set $wCon = $wStats[1]>> <<set $wDex = $wStats[2]>> <<set $wPer = $wStats[3]>> <<set $wLck = $wStats[4]>> <<set $wDesc = ["average", "above avergage", "excellent", "most excellent", "god-like"]>> <<set $enemies = 0>> <<set $energyLoss = 0>> <<set $gameStart = false>> <<set $inventory = []>> <<set $party = ["Warrior"]>> <<set $tookDmgFrom = "an unknown source">> <<set $licensePlate = ["P0L1C3", "B1T3M3", "S8T4N", "S0LD13R", "0LDF4RT", "R3DN3CK", "GR8NBED", "SUKS2BU", "1ULV2H8", "1B4DSOB", "D0THD3W"]>> <<set $myFirst = ["Bill", "Henry", "Mike", "Adam", "Jason", "Troy", "Scott", "Joe", "Tom", "James"]>> <<set $myLast = ["Smith", "Johnson", "Davis", "Wilson", "Miller", "Hall", "Coleman", "King", "Henderson", "Young"]>> <<set $player = { status: "alive", score: 0, progress: $progress, health: $health, stamina: $stamina, firstname: $myFirst[random(0,9)], lastname: $myLast[random(0,9)], age: random(37,43), money: 0, time: 720, key302: false, warning: false, clicks: 0, plate: random(0,10), checkout: false, accidentCode: random(0,9)+(random(0,9)*10)+(random(0,9)*100)+(random(0,9)*1000)+(random(1,9)*10000) }>> <<set $warrior = { gold: 50, home: "RPG" }>> <<set $eName = ["Warrior", "Wood Elf", "High Wizard", "Orc", "Ogre", "Skeleton"]>> <<set $eHP = [100,70,50,60,90,35]>> <<set $eMaxHP = [100,70,50,60,90,35]>> <<set $eGold = [50,25,75,10,45,5]>> <<set $eWeapon = ["melee", "bow", "magic", "melee", "melee", "melee"]>> <<set $eMinDmg = [8,4,6,7,11,1]>> <<set $eMaxDmg = [12,7,10,11,17,4]>> <<set $eAttacked = [false, false, false, false, false, false]>> <<set $eMessage = ["swing your two-handed longsword fiercely at","flings an arrow from his bow at", "shoots a lightning bolt from his staff at", "swings his shortsword at", "swings his large club at", "jabs his sword at"]>> <<set $hitArea = ["right knee", "left knee", "right arm", "left arm", "upper torso", "chest"]>> <<set $enemy1 = { health: $enemy1Health, attacked: false, gold: 0 }>> <<set $elf = { join: false, approached: false, attacked: false, gold:25 }>> <<set $wizard = { join: false, attacked: false, gold: 75 }>> <<set $wake = "">> <<set $tempTime = $player.time>> <<set $enableArrowKeys = false>> <<event 'keyup'>> <<which 38>> <<if $enableArrowKeys eq true>> <<if $rpgY gt 0>> <<set $rpgY -= 1>> <<else>> <<set $badMove = true>> <</if>> <<goto "RPG">> <</if>> <</event>> <<event 'keyup'>> <<which 40>> <<if $enableArrowKeys eq true>> <<if $rpgY lt 25>> <<set $rpgY += 1>> <<else>> <<set $badMove = true>> <</if>> <<goto "RPG">> <</if>> <</event>> <<event 'keyup'>> <<which 37>> <<if $enableArrowKeys eq true>> <<if $rpgX gt 0>> <<set $rpgX -= 1>> <<else>> <<set $badMove = true>> <</if>> <<goto "RPG">> <</if>> <</event>> <<event 'keyup'>> <<which 39>> <<if $enableArrowKeys eq true>> <<if $rpgX lt 25>> <<set $rpgX += 1>> <<else>> <<set $badMove = true>> <</if>> <<goto "RPG">> <</if>> <</event>>
/% ------------- UPDATE BAR ------------- %/ <<widget "updatebar">><<silently>> <<replace "#story-caption">><<display "StoryCaption">><</replace>> <</silently>><</widget>> /% ------------- UPDATE WEAPON ------------- %/ <<widget "updateweapon">><<nobr>> <<if $myWeapon eq 1>> <<set $discardDeck.push("k")>><<set $myOldWeapon = "Knife">> <<elseif $myWeapon eq 2>> <<set $discardDeck.push("p")>><<set $myOldWeapon = "Pistol">> <<elseif $myWeapon eq 3>> <<set $discardDeck.push("s")>><<set $myOldWeapon = "Shotgun">> <</if>> <</nobr>><</widget>> /% ------------- UPDATE CPU WEAPON ------------- %/ <<widget "updateCPUweapon">><<nobr>> <<if $cpuWeapon eq 1>> <<set $discardDeck.push("k")>><<set $cpuOldWeapon = "Knife">> <<elseif $cpuWeapon eq 2>> <<set $discardDeck.push("p")>><<set $cpuOldWeapon = "Pistol">> <<elseif $cpuWeapon eq 3>> <<set $discardDeck.push("s")>><<set $cpuOldWeapon = "Shotgun">> <</if>> <</nobr>><</widget>> /% ------------- SHUFFLE DISCARDS ------------- %/ <<widget "shufflediscards">><<nobr>> <<set $discardDeck.shuffle()>> <<set $zedDeck = $discardDeck>> <<set $discardDeck = []>> <<for $i = 0; $i < $zedDeck.length; $i++>> <<if $zedDeck[$i] eq "1">> <<set $zedCardName[$i] = "Kill 1 Zed">> <<elseif $zedDeck[$i] eq "2">> <<set $zedCardName[$i] = "Kill 2 Zed">> <<elseif $zedDeck[$i] eq "3">> <<set $zedCardName[$i] = "Kill 3 Zed">> <<elseif $zedDeck[$i] eq "k">> <<set $zedCardName[$i] = "Knife">> <<elseif $zedDeck[$i] eq "p">> <<set $zedCardName[$i] = "Pistol">> <<elseif $zedDeck[$i] eq "s">> <<set $zedCardName[$i] = "Shotgun">> <<elseif $zedDeck[$i] eq "w">> <<set $zedCardName[$i] = "Weapon Jam">> <<elseif $zedDeck[$i] eq "i">> <<set $zedCardName[$i] = "Injury">> <<elseif $zedDeck[$i] eq "f">> <<set $zedCardName[$i] = "First Aid">> <<else>> <<set $zedCardName[$i] = "ERROR">>/% should never get here %/ <</if>> <</for>> <</nobr>><</widget>> /% ------------- SHUFFLE CARDS ------------- %/ <<widget "shufflecards">><<nobr>> <<set $cardIndex.shuffle()>> <<for $i = 0; $i < 52; $i++>> <<set $cardDeckShuffled[$i] = $cardDeck[$cardIndex[$i]]>> <<set $cardSuitShuffled[$i] = $cardSuit[$cardIndex[$i]]>> <<set $cardValueShuffled[$i] = $cardValue[$cardIndex[$i]]>> <<set $cardNameShuffled[$i] = $cardName[$cardIndex[$i]]>> <</for>> <</nobr>><</widget>> /% ------------- UPDATE SUIT COLORS ------------- %/ <<widget "updatesuitcolors">><<nobr>> <<for $i = 0; $i < 51; $i++>> <<if $cardSuitShuffled[$i] eq "Hearts">> <<set $cardSuitColor[$i] = "#8B1A51">> <<elseif $cardSuitShuffled[$i] eq "Diamonds">> <<set $cardSuitColor[$i] = "pink">> <<elseif $cardSuitShuffled[$i] eq "Spades">> <<set $cardSuitColor[$i] = "black">>/%violet%/ <<elseif $cardSuitShuffled[$i] eq "Clubs">> <<set $cardSuitColor[$i] = "mediumspringgreen">> <</if>> <</for>> <</nobr>><</widget>> /% ------------- SORT MY VALUE HAND ------------- %/ <<widget "sortmyvaluehand">><<nobr>> <<for $i = 0; $i < 4; $i++>> <<for $j = $i+1; $j < 5; $j++>> <<if $myValueHand[$i] gt $myValueHand[$j]>> <<set $temp = $myValueHand[$j]>> <<set $myValueHand[$j] = $myValueHand[$i]>> <<set $myValueHand[$i] = $temp>> <</if>> <</for>> <</for>> <</nobr>><</widget>> /% ------------- SORT MY CARD HAND ------------- %/ <<widget "sortmycardhand">><<nobr>> <<for $i = 0; $i < 4; $i++>> <<for $j = $i+1; $j < 5; $j++>> <<if $myCardHand[$i] gt $myCardHand[$j]>> <<set $temp = $myCardHand[$j]>> <<set $myCardHand[$j] = $myCardHand[$i]>> <<set $myCardHand[$i] = $temp>> <</if>> <</for>> <</for>> <</nobr>><</widget>> /% ------------- SHOW SUIT ------------- %/ <<widget showsuit>><<nobr>> <<if $cardSuit[$myCardHand[$args[0]]] eq "Hearts">> <font size = 7>♥</font> <<elseif $cardSuit[$myCardHand[$args[0]]] eq "Diamonds">> <font size = 7>♦</font> <<elseif $cardSuit[$myCardHand[$args[0]]] eq "Spades">> <font size = 7>♠</font> <<elseif $cardSuit[$myCardHand[$args[0]]] eq "Clubs">> <font size = 7>♣</font> <</if>> <</nobr>><</widget>> /% ------------- SLOT RESULT ------------- %/ <<widget slotresult>> <<if $args[0] eq "cherry">> <font color = red size = 8>🍒</font> <<elseif $args[0] eq "watermelon">> <font color = pink size = 8>🍉</font> <<elseif $args[0] eq "lemon">> <font color = yellow size = 8>🍋</font> <<else>> <font color = orange size = 8>💰</font>\ <<set $slotBonus += 1>> <</if>> <</widget>> /% ------------- MG BONUS1 ------------- %/ <<widget mgBonus1>><<nobr>> <font size = 4> <<if $mgSquare.count($args[0]) neq 1 and $mgWin eq false>> <<link "?">> <<set $mgLastPick = $matchAmount[$args[0]]>> <<set $mgSquare.push($args[0])>> <<set $mgPicked.push($mgLastPick)>> <<goto "Play Match Game">> <</link>> <<elseif $mgSquare.count($args[0]) eq 1>> <font color = yellow> <<if $matchAmount[$args[0]] lte 50>>$<</if>> <<print $matchAmount[$args[0]]>></font> <<else>> <<if $matchAmount[$args[0]] lte 50>>$<</if>> <<print $matchAmount[$args[0]]>> <</if>></font> <</nobr>> <</widget>> /% ------------- KENO CARD ------------- %/ <<widget kenoCard>><<nobr>> <<link $args[0]>> <<set $myPicked.push($args[0])>> <<set $mySpots += 1>> <<goto "Play KENO">><</link>> <</nobr>><</widget>> /% ------------- MONEY SPENT ------------- %/ <<widget moneyspent>><<nobr>> <<if $myMoney gte $args[0]>> <<set $canAfford = true>> <<set $myMoney -= $args[0]>> <<else>> <<set $canAfford = false>> <</if>> <<updatebar>> <</nobr>> <</widget>> /% ------------- EMPTY CHECK ------------- %/ <<widget emptycheck>><<nobr>> <<set $emptyerror = false>> <<set $meParser.prev = previous()>> <<if $input.trim() eq "">> <<set $emptyerror = true>> <<goto $meParser.prev>> <</if>> <</nobr>><</widget>> /% ------------- ERROR MSG ------------- %/ <<widget errormsg>><<nobr>> <<if $emptyerror eq true>> <font color = yellow> <<if random(0,1) eq 0>> Try typing something in the box! I'm a parser, not a mind reader! <<else>> I admit I'm a crappy parser, but give me something to work with here! <</if>> </font> <</if>> <</nobr>><</widget>> /% ################################################################# %/ /%*****************************************%/ /% ------------- PARSE INPUT ------------- %/ /%*****************************************%/ <<widget parseinput>><<nobr>> <font color = pink> <<set $input = $input.trim()>> <<set $input = $input.toLowerCase()>> /% ===== AGAIN ===== %/ <<if $input eq "again">><<set $input = $lastInput>><</if>> /% ===== SPLIT INPUT INTO SINGLE WORDS ===== %/ <<set $parserData = $input.split(" ")>> /% ===== CONVERT ANY VERBS HERE BEFORE PROCESSING ===== %/ <<if $parserData[0] eq "shut">> <<set $parserData[0] = "close">> <<elseif $parserData[0] eq "take" or $parserData[0] eq "pick" or $parserData[0] eq "grab">> <<set $parserData[0] = "get">> <<elseif $parserData[0] eq "speak">> <<set $parserData[0] = "talk">> <</if>> /% ===== CHECK FOR 2-WORD VERBS ===== %/ <<set $twoWordVerb = false>> <<if $parserData.length gte 2>> <<set $twoWords = ($parserData[0]+" "+$parserData[1])>> <<if $parserVerb.count($twoWords) eq 1 or $twoWords eq "begin game">> <<set $twoWordVerb = true>> <<else>> <<set $twoWordVerb = false>> <</if>> <</if>> <<if $parserData.length gte 2>> /% =====----------------===== %/ /% = 2 WORDs or More INPUT == %/ /% =====----------------===== %/ /% _______________________________________________________________ %/ /% Classify each word as a verb, noun, prep, article, or direction %/ /% --------------------------------------------------------------- %/ <<set $allNouns = []>> <<set $wordClass = []>> <<for _i = 0; _i < $parserData.length; _i++>> <<if $parserVerb.includes($parserData[_i])>> <<set $wordClass[_i] = "verb">> <<elseif $parserArt.includes($parserData[_i])>> <<set $wordClass[_i] = "article">> <<elseif $parserPrep.includes($parserData[_i])>> <<set $wordClass[_i] = "prep">> <<elseif $parserDir.includes($parserData[_i])>> <<set $wordClass[_i] = "direction">> <<else>> <<set $wordClass[_i] = "noun">> <</if>> <</for>> <<set $nounsPassed = true>> <<set $nounsFound = []>> <<set _names to Object.keys($parserRoom)>> <<set _namesinv to Object.keys($parserInv)>> <<set _namesbag to Object.keys($parserBag)>> /% ====== DETERMINE IF NOUN IS A SYNONYM ====== %/ <<for _i = 0; _i < $wordClass.length; _i++>> <<if $wordClass[_i] eq "noun">> <<for _j = 0; _j < $roomArray.length; _j++>> <<if $parserRoom[_names[_j]].synonym neq undefined>> <<set $parserSynonyms = $parserRoom[_names[_j]].synonym>> <<if $parserSynonyms.includesAny($parserData[_i])>> <<set $parserData[_i] = $roomArray[_j]>> <<elseif _i+1 lt $wordClass.length>> <<set $adjNoun = $parserData[_i]+ " "+$parserData[_i+1]>> <<if $parserSynonyms.includesAny($adjNoun)>> <<set $wordClass[_i] = "adjective">> <<set $parserData[_i+1] = $roomArray[_j]>> <</if>> <</if>> <</if>> <</for>> <<for _j = 0; _j < $invArray.length; _j++>> <<if $parserInv[_namesinv[_j]].synonym neq undefined>> <<set $parserSynonyms = $parserInv [_namesinv[_j]].synonym>> <<if $parserSynonyms.includesAny($parserData[_i])>> <<set $parserData[_i] = $invArray[_j]>> <<elseif _i+1 lt $wordClass.length>> <<set $adjNoun = $parserData[_i]+ " "+$parserData[_i+1]>> <<if $parserSynonyms.includesAny($adjNoun)>> <<set $wordClass[_i] = "adjective">> <<set $parserData[_i+1] = $invArray[_j]>> <</if>> <</if>> <</if>> <</for>> <<for _j = 0; _j < $bagArray.length; _j++>> <<if $parserBag[_namesbag[_j]].synonym neq undefined>> <<set $parserSynonyms = $parserBag [_namesbag[_j]].synonym>> <<if $parserSynonyms.includesAny($parserData[_i])>> <<set $parserData[_i] = $bagArray[_j]>> <<elseif _i+1 lt $wordClass.length>> <<set $adjNoun = $parserData[_i]+ " "+$parserData[_i+1]>> <<if $parserSynonyms.includesAny($adjNoun)>> <<set $wordClass[_i] = "adjective">> <<set $parserData[_i+1] = $bagArray[_j]>> <</if>> <</if>> <</if>> <</for>> <</if>> /% ====== DETERMINE IF NOUN IS PRESENT IN CURRENT ROOM ====== %/ <<if $wordClass[_i] eq "noun">> <<if $roomArray.includes($parserData[_i])>> <<if $seenArray.includes ($parserData[_i]+$meParser.loc)>> <<set $nounsFound.push($parserData[_i])>> <<else>> <<set $nounsPassed = false>> <</if>> <<elseif $invArray.includes($parserData[_i]) or $bagArray.includes($parserData[_i])>> <<else>> <<set $nounsPassed = false>> <</if>> <</if>> <</for>> /% ====== SET PARSER NOUN & CHECK TWO WORD VERBS 1ST ====== %/ <<set $objFound = false>> <<set $parserNoun = false>> <<if $wordClass.count("noun") gt 0>> <<set $parserNoun = $parserData [$wordClass.indexOf("noun")]>> <<if $nounsFound.includes($parserNoun)>> <<set $objFound = $parserRoom[$roomArray [$roomArray.indexOf($parserNoun)]]>> <<elseif $invArray.includes($parserNoun)>> <<set $objFound = $parserInv[$invArray [$invArray.indexOf($parserNoun)]]>> <<elseif $bagArray.includes($parserNoun)>> <<set $objFound = $parserBag[$bagArray [$bagArray.indexOf($parserNoun)]]>> <</if>> <</if>> /% ALL NOUNS found in current container, includes Inv %/ <<for _i = 0; _i < $parserData.length; _i++>> <<if $wordClass[_i] eq "noun">> <<set $allNouns.push($parserData[_i])>> <</if>> <</for>> /% ===== SET SOME TEMP VARIABLES ===== %/ <<set _thisContainer = $parserRoom [$roomArray[$roomArray.indexOf($parserNoun)]]>> <<set _inRoom = $roomArray.includes($parserNoun)>> <<set _inInv = $invArray.includes($parserNoun)>> <<set _inBag = $bagArray.includes($parserNoun)>> <<set _knownObj = $seenArray.includes ($objFound.unique)>> /% ===== BEGIN GAME ===== %/ <<if $input eq "begin game">> <<if $parserStart eq false>> <<set $parserStart = true>> <<placenote>> <<else>> It's already begun! <</if>> /% ===== KICK, HIT, PUNCH, ATTACK, KILL ===== %/ <<elseif $parserData[0] eq "kick" or $parserData[0] eq "hit" or $parserData[0] eq "punch" or $parserData[0] eq "attack" or $parserData[0] eq "kill">> <<if $meParser.loc eq 52 and $roomArray.includes("dog")>> The dog nips at you and begins barking loudly. <<else>> That sounds violent! Not a good idea! <</if>> /% ===== CLIMB ===== %/ <<elseif $parserData[0] eq "climb">> What are you, some sort of monkey? I don't think so! /% ===== SCREAM ===== %/ <<elseif $parserData[0] eq "scream">> You scream at the top of your lungs. No one near or far acknowledges your outburst.<br> <<if $meParser.loc eq 52 and $roomArray.includes("dog")>> The dog cowers briefly but then with a light growl, he starts to show his teeth at you. <</if>> /% ===== PET ===== %/ <<elseif $parserData[0] eq "pet">> <<if $parserData[1] eq "dog" or $parserData[1] eq "rex">> You begin to pet Rex, but he starts growling at you. You back your hand away slowly and say, "Nice dog". <<elseif $parserData[1] eq "cat">> Seriously! Do you see a cat anywhere?! <<else>> You are offically weird! What is wrong with you! <</if>> /% ===== TOSS OR THROW ===== %/ <<elseif $parserData[0] eq "toss" or $parserData[0] eq "throw">> <<if $allNouns.includes("ball")>> <<if $invArray.includes("ball")>> <<if $roomArray.includes("dog")>> You give the tennis ball a toss and Rex goes running after it. He gets the ball and packs it off to the other side of the yard. <<run delete $parserInv["ball"]>> <<parserinv>> <<run delete $parserRoom52["dog"]>> <<set $seenArray.delete("dog52")>> <<run delete $seenObjects["dog"]>> <<parserroom>> <<else>> There is no one here willing to chase after it, so you change your mind. <</if>> <<else>> You don't have a ball to throw! <</if>> <<else>> That's probably not a good idea right now. If you want to throw or toss something, probably something like a ball is a better idea. <</if>> /% ===== MOVE OR PUSH ===== %/ <<elseif $parserData[0] eq "move" or $parserData[0] eq "push">> <<if $parserData[1] eq "doghouse" and $meParser.loc eq 52>> <<if $roomArray.includes("dog")>> Rex starts growling loudly at you. You change your mind about trying to move the doghouse while he is present. <<elseif $moveDoghouse eq 0>> You push on the doghouse and it beings to move a little. You get tired and take a quick break. <<set $moveDoghouse = 1>> <<elseif $moveDoghouse eq 1>> You give the doghouse a larger shove and move it a few feet from it's original resting place. <<set $moveDoghouse = 2>> <<elseif $moveDoghouse eq 2>> You push the doghouse until the dirt beneath the doghouse is completely exposed. <<set $moveDoghouse = 3>> <<elseif $moveDoghouse eq 3>> You've moved the doghouse far enough. There is a small square patch of dirt here where the doghouse used to be. <</if>> <<else>> That's probably not a good idea. <</if>> /% ===== READ ===== %/ <<elseif $parserData[0] eq "read">> <<if _inRoom eq true or _inInv eq true>> <<if $parserNoun eq "note" and (_inRoom eq true or _inInv eq true)>> <<parsernote>> <<elseif $parserNoun eq "books" or $parserNoun eq "book">> Maybe later. You have more important tasks at hand for now. <<elseif $parserNoun eq "map">> <<parsermap>> <<else>> There is nothing of interest to read on that <</if>> <<else>> I don't see that <</if>> /% ===== BONUS INPUT ===== %/ <<elseif $input eq "something, anything" or $input eq "something, anything!">> <<if $meParser.bonus eq false>> LOL! Bonus +10pts! Wow, someone actually typed that. Cool! <<set $meParser.score += 10>> <<set $meParser.bonus = true>> <<else>> You can only get the bonus pts once! LOL! <</if>> /% ===== SEARCH ===== %/ <<elseif $parserData[0] eq "search">> <<if $allNouns.length eq 1>> <<if $objFound neq false and _inRoom eq true>> <<set _hidden = Object.keys($unseenObjects)>> <<set _found = false>> <<for _i = 0; _i < $unseenArray.length; _i++>> <<if $unseenObjects[_hidden[_i]].parent neq undefined>> <<if $unseenObjects[_hidden[_i]].container neq undefined>> <<if $unseenObjects[_hidden[_i]].parent eq $parserNoun and $unseenObjects [_hidden[_i]].container eq "hidden">> <<set $meParser.score += 10>> It was very well hidden, but you found something....a <<print $unseenArray[_i]>><br> You put it in your inventory <<set _found = true>> <<set State.variables["parserRoom" +$meParser.loc][$unseenArray[_i]] .container = "inventory">> <<set State.variables["parserRoom" +$meParser.loc][$unseenArray[_i]] .parent = "room">> <<set $parserInv[$unseenArray[_i]] = State.variables ["parserRoom"+$meParser.loc] [$unseenArray[_i]]>> <<set $invArray.push ($unseenArray[_i])>> <<run delete State.variables ["parserRoom"+$meParser.loc] [$unseenArray[_i]]>> <<run delete $unseenObjects [_hidden[_i]]>> <<set $unseenArray.delete (_hidden[_i])>> <<parserroom>> <<parserinv>> <</if>> <</if>> <</if>> <</for>> <<if _found eq false>> You didn't find anything you didn't already know about <</if>> <<else>> <<if _inInv eq true>> You don't find anything <<else>> I don't see that <</if>> <</if>> <<else>> Search what exactly? <</if>> /% ===== EXAMINE or LOOK AT/IN ===== %/ <<elseif $parserData[0] eq "examine" or $parserData[0] eq "x" or $twoWords eq "look at" or $twoWords eq "l at" or $twoWords eq "look in" or $twoWords eq "l in">> <<if $allNouns.length eq 1 and $parserNoun eq $meParser.name or $allNouns.length eq 1 and $parserNoun eq $meParser.synonym>> $meParser.desc <<elseif $objFound neq false and $allNouns.length eq 1>> <<checkclosed>> <<if _knownObj eq true or _inInv eq true or _inBag eq true>> <<if $objFound.ison neq undefined>> <<for _i = 0; _i < $roomArray.length; _i++>> <<set _obj = $parserRoom[_names[_i]]>> <<if _obj.onobject neq undefined>> <<if _obj.onobject eq $parserNoun>> Sitting on the $parserNoun you see a _obj.name.<br> <</if>> <</if>> <</for>> <</if>> <</if>> <<else>> <<set $inputFail += 1>> I don't see what you're referring to <</if>> /% ===== EAT ===== %/ <<elseif $parserData[0] eq "eat" and $objFound neq false>> <<if $objFound.edible neq true>> <<set $objFound.edible = false>> <</if>> <<if $objFound neq false>> <<if $objFound.edible neq false>> <<if _inBag eq false>> <<if $objFound.container eq "room" or _inInv eq true>> You eat the $parserNoun<br> <<print either ("It tastes horrible!", "You've eaten better.", "Not the best, but it was at least edible.")>> <<if _inRoom>> <<run delete State.variables["parserRoom" +$meParser.loc][$parserNoun]>> <<parserroom>> <<set $seenArray.delete ($objFound.unique)>> <<run delete $seenObjects[$parserNoun]>> <<elseif _inInv eq true>> <<run delete $parserInv[$parserNoun]>> <<parserinv>> <<set $seenArray.delete ($objFound.unique)>> <<run delete $seenObjects[$parserNoun]>> <</if>> <<else>> <<if $objFound.container neq "room">> You must take the $parserNoun from it's container before you can eat it. <</if>> <</if>> <<else>> You need to take items from it's container before you can eat them. <</if>> <<else>> You can't eat that! You cray cray? <</if>> <<else>> Eat what? I don't see that nearby or in your inventory! <</if>> /% ===== SHOW ===== %/ <<elseif $parserData[0] eq "show">> <<if _inInv eq true and $allNouns.length eq 2>> <<if $roomArray.includes($allNouns[1])>> <<set $objFound = $parserRoom[$roomArray [$roomArray.indexOf($allNouns[1])]]>> <<if $objFound.alive neq undefined>> You show the $parserNoun.<br> <<if $objFound.name eq "mother">> <<if $allNouns[0] eq "note">> "$2,000,000! Holy crap! I knew he was rich, but not that rich!", says your mother. <<elseif $allNouns[0] eq "key">> "That doesn't look like a safety deposit box key", says your mother. <<elseif $allNouns[0] eq "ball">> "Go play fetch with the dog", says your mother. <<elseif $allNouns[0] eq "map">> "I wonder if the K stands for Kitchen", says your mother. <<elseif $allNouns[0] eq "shovel">> "Yuck, it's dirty. Get it out of the house!", says your mother. <<elseif $allNouns[0] eq "toaster">> "Shouldn't you leave the toaster in the kitchen where it belongs son?", says your mother. <<elseif $allNouns[0] eq "toast">> "That looks old. Feed it to the dog maybe. He's out back", says your mother. <<else>> "What exactly are you trying to show me", says your mother. <</if>> <<elseif $objFound.name eq "neighbor">> <<if $allNouns[0] eq "note">> "I knew he was rich, but I didn't realize he was that rich!", says the neighbor. <<elseif $allNouns[0] eq "key">> "I think this key is for the shed along side your Uncle's house.", says the neighbor. <<elseif $allNouns[0] eq "ball">> "Your Uncle's dog loved to chew on this ball", says the neighbor. <<elseif $allNouns[0] eq "map">> "I wonder if the G stands for Gate", says the neighbor. <<elseif $allNouns[0] eq "shovel">> "Hmm. That looks just like my shovel", says the neighbor. <<elseif $allNouns[0] eq "toaster">> I won't ask why you're carrying a toaster around with you", says the neighbor. <<elseif $allNouns[0] eq "toast">> "It looks edible to me", says the neighbor. <<else>> "What exactly are you trying to show me", says the neighbor. <</if>> <<elseif $objFound.name eq "dog">> <<if $allNouns[0] eq "toast">> The dog starts making begging sounds while jumping around excitedly. <<elseif $allNouns[0] eq "ball">> The dog gets very excited and starts jumping up and down. Looks like he wants you to throw the ball. <<else>> The dog looks at you strangely and lets out a quick bark while wagging his tail. <</if>> <<else>> "Wow, that's interesting", says <<print $objFound.name>>. <</if>> <<else>> Hmm, for some reason I don't think the inanimate object is too impressed. <</if>> <<else>> Show to who? <</if>> <<else>> Show what to who? <</if>> /% ===== TALK / ASK ===== %/ <<elseif $parserData[0] eq "talk" or $parserData[0] eq "ask">> <<if $objFound neq false and _knownObj eq true>> <<if $objFound.alive eq true>> <<if $parserData.includes("about") and $allNouns.length gte 2>> You begin <<if $parserData[0] eq "talk">> talking to<<else>>asking<</if>> <<if $objFound.name eq "mother">> your<<else>> the<</if>> $parserNoun all about $allNouns[1] <<if $allNouns.length gt 2>> $allNouns[2]<</if>> <<if $allNouns.length gt 3>> $allNouns[3]<</if>>.... <<checktalk $allNouns[0] $allNouns[1]>> <<else>> You start <<if $parserData[0] eq "talk">> talking to <<else>>asking <</if>> <<if $objFound.name eq "mother">> your<<else>> the<</if>> $parserNoun <<if $parserData[0] eq "ask">> about something, but then quickly forget what it was about<<else>>... about what I don't know <</if>> <</if>> <<else>> You start <<if $parserData[0] eq "talk">>talking, <<else>>asking something,<</if>> then quickly realize the $parserNoun isn't going to be responding any time soon <</if>> <<else>> <<if $parserData[0] eq "talk">>Talk to<<else>>Ask <</if>> who? <<set $inputFail += 1>> <</if>> /% ===== OPEN / CLOSE ===== %/ <<elseif $parserData[0] eq "open" or $parserData[0] eq "close">> <<if $objFound neq false and _knownObj eq true or _inInv eq true>> <<set _thisContainer = $objFound>> <<if _thisContainer.openable neq undefined>> <<if _thisContainer.status eq "open" and $parserData[0] eq "open" or _thisContainer.status eq "closed" and $parserData[0] eq "close">> The <<print $parserData[0]>> is already <<print _thisContainer.status>> <<elseif _thisContainer.lock neq undefined>> <<if _thisContainer.lock eq "locked">> You will need to unlock the _thisContainer.name first before you can open it <<else>> <<openclose $parserNoun>> <</if>> <<else>> <<openclose $parserNoun>> <</if>> <<else>> That's not something that can be opened or closed <</if>> <<else>> I don't see that to <<print $parserData[0]>> <<set $inputFail += 1>> <</if>> /% ===== LOCK & UNLOCK ===== %/ <<elseif $parserData[0] eq "lock" or $parserData[0] eq "unlock">> <<if $roomArray.includes($parserNoun) or $invArray.includes($parserNoun)>> <<if $objFound neq false>> <<if $objFound.lock neq undefined>> <<if $parserData[0] eq "lock" and $objFound.lock eq "locked">> The $parserNoun is already locked! <<elseif $parserData[0] eq "unlock" and $objFound.lock eq "unlocked">> The $parserNoun is already unlocked! <<else>> <<parserlockunlock>> <</if>> <<else>> The $parserNoun cannot be locked or unlocked <</if>> <<else>> I don't see the $allNouns[0] <</if>> <<elseif $bagArray.includes($parserNoun)>> I can't do that while the $parserNoun is in it's container <<else>> I don't see the $parserNoun you're referring to <</if>> /% ===== GET ===== %/ <<elseif $parserData[0] eq "get">> <<if $objFound neq false and _knownObj eq true>> <<checkclosed>> <<elseif $allNouns.length eq 1 and $parserNoun eq "all">> <<for _temp = 0; _temp < $seeingArray.length; _temp>> <<set $parserNoun = $seeingArray[0]>> <<set $objFound = $parserRoom[$roomArray [$roomArray.indexOf($parserNoun)]]>> <<getobject>> <</for>> <<elseif $allNouns[0] eq "all" and $parserData.includes("from") and $allNouns.length eq 2>> <<if $roomArray.includes($allNouns[1])>> <<set $seeingArray = []>> <<for _i = 0; _i < $roomArray.length; _i++>> <<set $parserNoun = $roomArray[_i]>> <<set $objFound = $parserRoom[$roomArray [$roomArray.indexOf($parserNoun)]]>> <<if $unseenArray.includes($parserNoun)>> <<else>> <<if $objFound.container eq $allNouns[1]>> <<set $seeingArray.push($parserNoun)>> <</if>> <</if>> <</for>> <<if $seeingArray.length eq 0>> Is there anything in the $allNouns[1] to take? <</if>> <<for _temp = 0; _temp < $seeingArray.length; _temp>> <<set $parserNoun = $seeingArray[0]>> <<set $objFound = $parserRoom[$roomArray [$roomArray.indexOf($parserNoun)]]>> <<getobject>> <</for>> <<elseif $invArray.includes($allNouns[1])>> <<set $seeingArray = []>> <<for _i = 0; _i < $bagArray.length; _i++>> <<set $parserNoun = $bagArray[_i]>> <<set $objFound = $parserBag[$bagArray [$bagArray.indexOf($parserNoun)]]>> <<if $unseenArray.includes($parserNoun)>> <<else>> <<if $objFound.container eq $allNouns[1]>> <<set $seeingArray.push($parserNoun)>> <</if>> <</if>> <</for>> <<if $seeingArray.length eq 0>> Is there anything in the $allNouns[1] to take? <</if>> <<for _temp = 0; _temp < $seeingArray.length; _temp>> <<set $parserNoun = $seeingArray[0]>> <<set $objFound = $parserBag[$bagArray [$bagArray.indexOf($parserNoun)]]>> <<getobject>> <</for>> <</if>> <<else>> I don't see that anywhere nearby <<set $inputFail += 1>> <</if>> /% ===== DROP ===== %/ <<elseif $parserData[0] eq "drop">> <<if _inInv eq true>> <<dropobject>> You drop the $parserNoun from your inventory.<br> <<elseif $allNouns.length eq 1 and $parserNoun eq "all">> <<for _temp = 0; _temp < $invArray.length; _temp>> <<set $parserNoun = $invArray[0]>> <<set $objFound = $parserInv[$invArray [$invArray.indexOf($parserNoun)]]>> <<dropobject>> You drop the $parserNoun from your inventory.<br> <</for>> <<else>> I don't see that in your inventory <<set $inputFail += 1>> <</if>> /% ===== GIVE ===== %/ <<elseif $parserData[0] eq "give">> <<if $allNouns.length eq 2 and $parserData.includes("to")>> <<if $invArray.includes($parserNoun)>> <<if $roomArray.includes($allNouns[1])>> <<set _roomReceiver = $parserRoom[$roomArray [$roomArray.indexOf($allNouns[1])]]>> <<if $allNouns[1] eq "dog" or $allNouns[1] eq "rex">> <<givetodog>> <<elseif _roomReceiver.alive eq true>> You hand the $parserNoun to your $allNouns[1]. <br> /% check give for special event %/ Your $allNouns[1] takes the $parserNoun from you, looks it over a few times and then <<print _roomReceiver.pronoun1>> says, "...Umm, thanks?" <<run delete $parserInv[$parserNoun]>> <<parserinv>> <<else>> You can't give the $parserNoun to the $allNouns[1] <</if>> <<else>> Give the $parserNoun to who? <</if>> <<elseif $bagArray.includes($allNouns[0])>> You need to take the $allNouns[0] from the container it's in first. <<else>> You don't have the $allNouns[0] to give! <</if>> <<else>> Give what to who? <</if>> /% ===== PUT ===== %/ <<elseif $parserData[0] eq "put">> <<set $bagFound = false>> <<set $roomContainerFound = false>> <<if $invArray.includes($allNouns[1])>> <<set $bagFound = $parserInv[$invArray [$invArray.indexOf($allNouns[1])]]>> <<elseif $roomArray.includes($allNouns[1])>> <<set $roomContainerFound = $parserRoom[$roomArray [$roomArray.indexOf($allNouns[1])]]>> <</if>> <<if $allNouns.length eq 2 and $parserData.includes("on") and $roomContainerFound neq false>> <<if $invArray.includes($parserNoun)>> <<if $roomContainerFound.ison neq undefined>> <<dropobject>> You place the $parserNoun $roomContainerFound.ison<br> <<else>> You can't put the $parserNoun on the $roomContainerFound.name <</if>> <<elseif $bagArray.includes($parserNoun)>> You need to take the $parserNoun out of any container and have it in your inventory before you can put it somewhere <<else>> You need to have the $parserNoun to put it somewhere <</if>> <<elseif $bagFound neq false or $roomContainerFound neq false>> <<if _inInv eq true>> <<if $allNouns.length eq 2 and $parserData.includes("in")>> <<set _itemsInBag = false>> <<if $objFound.space neq undefined>> <<set _namesbag = Object.keys($parserBag)>> <<for _i = 0; _i < $bagArray.length; _i++>> <<set _obj = $parserBag[_namesbag[_i]]>> <<if _obj.container eq $objFound.name>> <<set _itemsInBag = true>> <</if>> <</for>> <</if>> <<if _itemsInBag eq false>> <<if $bagFound neq false>> <<if $bagFound.space neq undefined>> <<if $bagFound.space gte $objFound.weight and $bagFound.space gt 0>> <<set $bagFound.space -= $objFound.weight>> <<set $objFound.container = $bagFound.name>> <<set $objFound.parent = "inventory">> /% <<set $bagArray.push($parserNoun)>> %/ <<set $objFound.unique = $objFound.name+$meParser.loc>> <<set $parserBag[$parserNoun] = $parserInv[$parserNoun]>> <<set $seenArray.push ($objFound.unique)>> <<set $seenObjects [$parserNoun+$meParser.loc] = $parserInv[$parserNoun]>> <<run delete $parserInv[$parserNoun]>> <<parserinv>> <<parserbag>> You put the $parserNoun into the $allNouns[1] <<else>> There isn't enough space in the $bagFound.name <</if>> <<else>> You don't see a good spot to place the $parserNoun into the $allNouns[1] <</if>> <<elseif $roomContainerFound neq false>> <<if $roomContainerFound.space neq undefined>> <<if $roomContainerFound.status neq undefined and $roomContainerFound .openable neq undefined>> <<if $roomContainerFound.status eq "open" and $roomContainerFound .openable eq true>> <<checkroomcontainer>> <<else>> The $roomContainerFound.name isn't open to place things in <</if>> <<else>> <<checkroomcontainer>> <</if>> <<else>> You don't see a good spot to place the $parserNoun into the $allNouns[1] <</if>> <<else>> I don't see the $allNouns[1] <</if>> <<else>> You decide not to move the $parserNoun until all the items from it are removed <</if>> <<else>> Did you mean, "put the $parserNoun in $allNouns[1]?" <</if>> <<else>> You need to have the $parserNoun before you can put it somewhere <</if>> <<else>> I don't see where you want me to put the $parserNoun <</if>> /% ===== SIT ===== %/ <<elseif $parserData[0] eq "sit" and _inRoom eq true and ($parserData.includes("on") or $parserData.includes("in"))>> <<if $parserRoom[$parserNoun].sit neq undefined>> You briefly sit <<print $parserRoom[$parserNoun].sit>> <<elseif _inRoom>> It's probably not best to sit on the $parserNoun <<else>> I don't see that nearby to sit on <</if>> /% ===== STAND ===== %/ <<elseif $parserData[0] eq "stand" and _inRoom eq true and ($parserData.includes("on") or $parserData.includes("in"))>> <<if $parserRoom[$parserNoun].stand neq undefined>> You stand <<print $parserRoom[$parserNoun].stand>> <<set $meParser.state = "standing">> <<elseif _inRoom>> It's probably not best to stand on the $parserNoun <<else>> I don't see that nearby to stand on <</if>> /% ===== RECOGNIZE ALL WORDS BUT DON'T UNDERSTAND COMMAND ===== %/ <<elseif $nounsPassed eq true>> <<set $inputFail += 1>> I'm not sure I quite understand what you're trying to say <<else>> <<errorparsermsg>> <</if>> <<elseif $parserData.length lte 1>> /% =====----------------===== %/ /% ===== 1 WORD INPUT ===== %/ /% =====----------------===== %/ /% ===== MOVEMENT ===== %/ <<if $parserExits.includes($input) and $parserDir.includes($input) and $canExit eq true>> You just moved <<print $input>> <<print $exitMsg>> <<elseif $canExit eq false>> You bump into a closed <<if $parserRoom["door"] neq undefined>> door! <<else>> gate! <</if>> <<elseif $parserExits.count($input) neq 1 and $parserDir.count($input) eq 1>> <<print either ("You cannot travel in that direction!", "What part of, 'The only obvious exits seem to be: $parserExits', do you not get???")>> /% ===== DIG ===== %/ <<elseif $parserData[0] eq "dig">> <<if $invArray.includes("shovel") or $invArray.includes("spade")>> <<if $meParser.loc eq 52>> <<if $moveDoghouse eq 3>> <<parserwinner>> <<else>> There is no good place to dig. The doghouse is in the way. <</if>> <<else>> You start digging with the shovel, but find nothing. Now you've made a mess. <</if>> <<else>> You start digging with your hands, but quickly realize the ground is too hard to make any headway. You need a shovel! <</if>> /% ===== SIT ===== %/ <<elseif $input eq "sit" or $input eq "sit down">> You briefly sit on the ground, but then quickly get back up /% ===== STAND ===== %/ <<elseif $parserData[0] eq "stand" or $input eq "stand up">> <<if $meParser.state eq "standing">> You are already standing! <<else>> You stand up <<set $meParser.state = "standing">> <</if>> /% ===== SEARCH ===== %/ <<elseif $input eq "search">> Search what? /% ===== LOOK ===== %/ <<elseif $input eq "look">> You look around /% ===== INVENTORY ===== %/ <<elseif $input eq "inventory">> <<set _namesinv to Object.keys($parserInv)>> <<if _namesinv.length eq 0>> You are not carrying anything at the moment. <<else>> You are carrying the following:<br> <<set _hidden = Object.keys($unseenObjects)>> <<for _i = 0; _i < _namesinv.length; _i++>> <<set _invItem = $parserInv[_namesinv[_i]]>> <<if _invItem.preinv neq undefined>> <<print _invItem.preinv + _namesinv[_i]>><br> <<else>> <<print "a " + _namesinv[_i]>><br> <</if>> <<for _j = 0; _j < _hidden.length; _j++>> <<set _objU = $unseenObjects[_hidden[_j]]>> <<if _objU.container eq _namesinv[_i]>> ---- contains: unseen object<br> <</if>> <</for>> <<set _seen = Object.keys($seenObjects)>> <<for _k = 0; _k < _seen.length; _k++>> <<set _objS = $seenObjects[_seen[_k]]>> <<if _objS.container eq _namesinv[_i]>> ---- contains: <<print _objS.name>><br> <</if>> <</for>> <</for>> <br> <</if>> /% ===== EAT ===== %/ <<elseif $input eq "eat">> Eat what? /% ===== SLEEP ===== %/ <<elseif $parserData[0] eq "sleep">> You're not tired now. Focus! /% ===== YELL ===== %/ <<elseif $parserData[0] eq "yell">> You start yelling at the top of your lungs! Not sure what good that did, but hey, it's your game. /% ===== SCREAM ===== %/ <<elseif $parserData[0] eq "scream">> You start screaming at the top of your lungs! Feel better now? /% ===== CRY ===== %/ <<elseif $parserData[0] eq "cry">> You begin to cry out of frustration. Maybe type "hint" to see if that helps. /% ===== CHEAT ===== %/ <<elseif $parserData[0] eq "cheat">> Ok, you win, you happy now?! Wait, I take that back. I perfer watching you struggle! /% ===== HISTORY ===== %/ <<elseif $input eq "history">> <<print $parserCommands>> /% ===== EXAMINE ===== %/ <<elseif $input eq "examine">> <<if $parserData.length eq 1>> What would you like to examine? <</if>> /% ===== READ ===== %/ <<elseif $input eq "read">> Read what? /% ===== JUMP ===== %/ <<elseif $input eq "jump">> You jump up and down /% ===== VERBOSE ===== %/ <<elseif $input eq "verbose">> Verbose mode is ON (Type BRIEF to turn OFF) <<set $parserVerbose = true>> /% ===== BRIEF ===== %/ <<elseif $input eq "brief">> Brief mode is ON (Type VERBOSE for more detailed room info) <<set $parserVerbose = false>> /% ===== WAIT ===== %/ <<elseif $input eq "wait">> You wait, I wait, we all patiently wait for your next command /% ===== STATS ===== %/ <<elseif $input eq "stats">> <<parserstats>> /% ===== WALKTHROUGH ===== %/ <<elseif $input eq "walkthrough">> Get shovel:<br> 1) from neighbor or<br> 2) from locked shed on side of house<br> a) use key found in upstairs nightstand to open shed<br><br> Go to doghouse in backyard<br> 1) go as far east and south as you can in backyard<br> <br> Get dog to leave <br> 1) give dog toast from toaster or<br> 2) find ball in backyard and toss ball<br> <br> With dog gone, push doghouse until moved<br> <br> Dig with shovel and find key - You win /% ===== QUIT ===== %/ <<elseif $input eq "quit">> If you're sure you want to quit, just click the link below. Otherwise you can just keep playing if you wish. <br><br> <<link "Quit Game">><<goto "Quit Parser Game">><</link>> <br> /% ===== HINT ===== %/ <<elseif $input eq "hint">> 1) Try starting your command with a verb (action word)<br> 2) Don't use more than two nouns (objects) in a sentence<br> 3) Type "help" for more info<br> 4) If all else fails, type Quit /% ===== CREDITS ===== %/ <<elseif $input eq "credits">> Crappy parser v1.01 designed in Twine SugarCube 2.30.0<br> Written by yours truly, Sir Slice!<br> © Feburary 2021 /% ===== SCORE ===== %/ <<elseif $input eq "score">> Your score so far: $meParser.score /% ===== HELP ===== %/ <<elseif $input eq "help">> Maybe this will help...<br><br> Verbs I understand: <<print $parserVerb.sort()>> <br><br> There may be other verbs I understand as well possibly. <<elseif $parserVerb.includes($parserData[0])>> $input what? <<set $inputFail += 1>> <<elseif $input eq "">> Doesn't look like you typed anything to me. Try again. <<else>> /% ===== PARSER ERROR MESSAGE ===== %/ <<errorparsermsg>> <</if>> <</if>> <br> /% ===== CLEAR INPUT ===== %/ <<set $lastInput = $input>> <<set $input = "">> </font> <</nobr>><</widget>> /% ===== PARSER - LOCK/UNLOCK ===== %/ <<widget parserlockunlock>><<nobr>> <<if $allNouns.length eq 2 and $parserData.includes("with")>> <<if $invArray.includes($allNouns[1])>> <<set $keyArray = []>> <<for _i = 0; _i < $invArray.length; _i++>> <<if $parserInv[$invArray[_i]].id neq undefined>> <<set $keyArray.push($parserInv[$invArray[_i]].id)>> <</if>> <</for>> <<if _inRoom eq true>> <<if $objFound.openwith neq undefined>> <<if $invArray.includes($objFound.openwith)>> <<if $allNouns[1] eq $objFound.openwith>> <<if $keyArray.includes($objFound.openid)>> <<if $objFound.lock eq "locked">> <<set $meParser.score += 10>> <<set State.variables["parserRoom" +$meParser.loc] [$parserNoun].lock = "unlocked">> Just as soon as you unlock the $parserNoun with the $allNouns[1], the $allNouns[1] breaks in two and the pieces go tumbling away. /%<<set $seenArray.delete ($parserInv[$allNouns[1]].unique)>>%/ <<run delete $parserInv[$allNouns[1]]>> <<parserinv>> /%<<run delete $seenObjects[$allNouns[1]]>>%/ <<elseif $objFound.status eq "closed">> <<set State.variables["parserRoom" +$meParser.loc] [$parserNoun].lock = "locked">> You lock the $parserNoun with the $allNouns[1] <<elseif $objFound.status eq "open">> You will first need to close the $parserNoun before you can lock it <</if>> <<else>> The $allNouns[1] doesn't fit correctly <</if>> <<else>> You cannot open the $parserNoun with that! <</if>> <<else>> You need a $objFound.openwith to do that <</if>> <<else>> $parserNoun cannot be locked or unlocked <</if>> <<elseif _inInv eq true>> <<if $objFound.openwith neq undefined>> <<if $invArray.includes($objFound.openwith)>> <<if $allNouns[1] eq $objFound.openwith>> <<if $keyArray.includes($objFound.openid)>> <<if $objFound.lock eq "locked">> <<set $parserInv[$parserNoun].lock = "unlocked">> You unlock the $parserNoun with the $allNouns[1] <<elseif $objFound.status eq "closed">> <<set $parserInv[$parserNoun].lock = "locked">> You lock the $parserNoun with the $allNouns[1] <<elseif $objFound.status eq "open">> You will first need to close the $parserNoun before you can lock it <</if>> <<else>> The $allNouns[1] doesn't fit correctly <</if>> <<else>> You cannot open the $parserNoun with that! <</if>> <<else>> You need a $objFound.openwith to do that <</if>> <<else>> $parserNoun cannot be locked or unlocked <</if>> <<else>> Take item from container before attempting that <</if>> <<else>> I don't see a $allNouns[1] in your inventory <</if>> <<elseif $allNouns.length eq 1>> $parserData[0] $parserNoun with what? <<else>> $parserData[0] what with what? <</if>> <</nobr>><</widget>> /% ===== PARSER - ITEM IN CLOSED CONTAINER? ===== %/ <<widget checkclosed>><<nobr>> <<if $invArray.includes($parserNoun)>> <<print $objFound.desc>> <<elseif $roomArray.includes($objFound.container)>> <<if $parserRoom[$objFound.container].status neq undefined>> <<if $parserRoom[$objFound.container].status eq "closed">> You are unable to <<if $parserData[0] eq "get">>get<<else>> look at<</if>> the $parserNoun as it's in a closed $objFound.container <<else>> <<if $parserData[0] eq "get">> <<getobject>> <<else>> <<print $objFound.desc>> <</if>> <</if>> <<else>> <<if $parserData[0] eq "get">> <<getobject>> <<else>> <<print $objFound.desc>> <</if>> <</if>> <<elseif $invArray.includes($objFound.container)>> <<if $parserInv[$objFound.container].status neq undefined>> <<if $parserInv[$objFound.container].status eq "closed">> You are unable to <<if $parserData[0] eq "get">>get<<else>> look at<</if>> the $parserNoun as it's in a closed $objFound.container <<else>> <<if $parserData[0] eq "get">> <<getobject>> <<else>> <<print $objFound.desc>> <</if>> <</if>> <<else>> <<if $parserData[0] eq "get">> <<getobject>> <<else>> <<print $objFound.desc>> <</if>> <</if>> <</if>> <</nobr>><</widget>> /% ===== PARSER - CHECK ROOM CONTAINER ===== %/ <<widget checkroomcontainer>><<nobr>> <<if $roomContainerFound.space gte $objFound.weight and $roomContainerFound.space gt 0>> <<set $roomContainerFound.space -= $objFound.weight>> <<set $objFound.container = $roomContainerFound.name>> <<set $objFound.parent = "room">> <<set $objFound.unique = $objFound.name+$meParser.loc>> <<set State.variables["parserRoom" +$meParser.loc] [$parserNoun] = $parserInv[$parserNoun]>> <<set $seenArray.push($objFound.unique)>> <<set $seenObjects[$parserNoun+$meParser.loc] = $parserInv[$parserNoun]>> <<run delete $parserInv[$parserNoun]>> <<parserinv>> <<parserroom>> You put the $parserNoun into the $allNouns[1] <<else>> The $roomContainerFound.name isn't able to hold the $parserNoun <</if>> <</nobr>><</widget>> /% ------------- PARSER - CHECK TALK ------------- %/ <<widget checktalk>><<nobr>> <<set $proNoun1 = $objFound.pronoun1>> <<set $proNoun2 = $objFound.pronoun2>> <<if $objFound.name eq "mother">> <<if $args[1] eq "uncle" or $args[1] eq "jim" or $args[1] eq "brother">> <br>Your mother smiles and starts telling you a recent story about the last time she saw your Uncle Jim, but then she quickly begins choking up and sobbing.<br> <<elseif $args[1] eq "tears">> <br>"Your Uncle and I didn't talk as often as we should have. Now that he is gone, I regret that", says your mother.<br> <<elseif $args[1] eq "note">> <br>You tell your mother about the note and wonder what she knew. "I didn't know anything about that. Your Uncle was always eccentric in his ways", she says.<br> <<elseif $args[1] eq "safety" or $args[1] eq "deposit" or $args[1] eq "box" or $args[1] eq "key">> <br>"You're referring to his safety deposit box at the bank? I heard he had one down there. I don't know anything about the key unfortunately. Though he used to hang keys near the door that leads to the garage", says your mother.<br> <<elseif $args[1] eq "map" and $invArray.includes("map")>> <br>"It could be a treasure map I suppose", says your mom.<br> <<elseif $args[1] eq "dog" or $args[1] eq "rex">> <br>"Uncle Jim's dog? He's out back somewhere I believe", says your mother.<br> <<else>> <<parserrejection>> <</if>> <<elseif $objFound.name eq "neighbor">> <<if $args[1] eq "uncle" or $args[1] eq "jim" or $args[1] eq "brother">> <br>"I'm really sorry to hear about your Uncle. He was a good guy", says the neighbor. "The last time I saw him, he was walking through his front gate with a shovel in one hand and a piece of paper in the other. Not sure what he was up to though", adds the neighbor.<br> <<elseif $args[1] eq "note">> <br>"Well isn't that interesting", says the neighbor.<br> <<elseif $args[1] eq "map" and $invArray.includes("map")>> <br>"Hmm, I wonder if the map is the piece of paper I saw your Uncle carrying the last time I saw him", wonders the neighbor outloud.<br> <<elseif $args[1] eq "safety" or $args[1] eq "deposit" or $args[1] eq "box" or $args[1] eq "key">> <br>"Your Uncle once told me a story about misplacing a key and it took him a week to find it. He said he started hiding a backup key in his nightstand. You might want to check that out.", says the neighbor.<br> <<elseif $args[1] eq "dog" or $args[1] eq "rex">> <br>"He loved that dog. I saw him throwing a tennis ball all the time with that dog. Half the time though, the dog would fetch the ball, but then run off with it and not bring it back.", says the neighbor as he's laughing.<br> <<elseif $args[1] eq "ball" or $args[1] eq "fetch">> <br>"You referring to the tennis balls that your Uncle used to toss to that dog of his? That dog loves playing fetch. I'm sure there's one lying in that tall grass somewhere over there.", says the neighbor.<br> <<elseif $args[1] eq "shovel" and $parserShovel eq false>> <br>"Need to borrow a shovel huh? Jack tosses a shovel at your feet. Bring it back when you're done!", says the neighbor.<br> <<set $meParser.score += 10>> <<set $parserShovel = true>> <<set $parserRoom146["shovel"].container = "room">> <<set $parserRoom146["shovel"].parent = "world">> <<parserroom>> <<else>> <<parserrejection>> <</if>> <<else>> Unsurprising, you get no response. <</if>> <</nobr>><</widget>> /% ------------- PARSER - TALK/ASK REJECTION ------------- %/ <<widget parserrejection>><<nobr>> <<if $parserData[0] eq "ask">> <br>"You want to know about '$allNouns[1]<<if $allNouns.length gt 2>> $allNouns[2]<</if>><<if $allNouns.length gt 3>> $allNouns[3]<</if>>' huh?", says <<if $objFound.name eq "mother">>your <<else>> the <</if>>$objFound.name. "Well I don't know much about that," $proNoun1 says.<br> <<else>> <br><<if $objFound.name eq "mother">>Your <<else>> The <</if>>$objFound.name gets a puzzled look on $proNoun2 face as you talk about $allNouns[1]. <</if>> <</nobr>><</widget>> /% ------------- PARSER - GET OBJECT ------------- %/ <<widget getobject>><<nobr>> /% Check if in bag %/ <<if $bagArray.includes($objFound.name)>> You take the $parserNoun from the <<print $objFound.container>><br> <<set $meParser.space -= $objFound.weight>> /%<<set $parserInv[$objFound.container].space += $objFound.weight>> %/ <<set $objFound.parent = "room">> <<set $objFound.container = "inventory">> <<set $parserInv[$parserNoun] = $parserBag[$parserNoun]>> <<run delete $parserBag[$parserNoun]>> <<run delete $seenObjects[$parserNoun]>> <<set $seenArray.delete($objFound.unique)>> <<set $seeingArray.delete($parserNoun)>> <<parserinv>> <<parserbag>> <<elseif $objFound.weight neq undefined>> <<if $objFound.weight lte $meParser.space>> <<set _hidden = Object.keys($unseenObjects)>> <<for _j = 0; _j < _hidden.length; _j++>> <<set _objU = $unseenObjects[_hidden[_j]]>> <<if _objU.container eq $parserNoun>> <<set _objU.parent = "inventory">> /%<<set $bagArray.push(_objU.name)>>%/ <<set $parserBag[_objU.name] = $unseenObjects[_objU.name]>> <<parserbag>> <<run delete State.variables["parserRoom" +$meParser.loc][$roomArray [$roomArray.indexOf(_objU.name)]]>> /%<<parserroom>>%/ <</if>> <</for>> <<set _seen = Object.keys($seenObjects)>> <<for _k = 0; _k < _seen.length; _k++>> <<set _objS = $seenObjects[_seen[_k]]>> <<if _objS.container eq $parserNoun>> <<set _objS.parent = "inventory">> /%<<set $bagArray.push(_objS.name)>>%/ <<set $parserBag[_objS.name] = $seenObjects[_objS.name]>> <<parserbag>> <<run delete State.variables["parserRoom" +$meParser.loc][$roomArray [$roomArray.indexOf(_objS.name)]]>> /%<<parserroom>>%/ <</if>> <</for>> <<set $seenArray.delete($objFound.unique)>> <<run delete $seenObjects[$objFound.name]>> <<set $seeingArray.delete($parserNoun)>> <<set $meParser.space -= $objFound.weight>> <<set $objFound.container = "inventory">> <<set $objFound.parent = "room">> <<set $parserInv[$parserNoun] = $parserRoom[$parserNoun]>> <<run delete State.variables["parserRoom" +$meParser.loc] [$roomArray[$roomArray.indexOf($parserNoun)]]>> <<parserinv>> /%<<parserbag>>%/ <<parserroom>> You grab the $parserNoun and put it in your inventory<br> <<else>> You don't have enough space in your inventory to carry that<br> <</if>> <<else>> You can't take that!<br> <</if>> <</nobr>><</widget>> /% ------------- PARSER - DROP OBJECT ------------- %/ <<widget dropobject>><<nobr>> /% Anything in object being dropped? If so, drop it too %/ <<set _hidden = Object.keys($unseenObjects)>> <<for _j = 0; _j < _hidden.length; _j++>> <<set _objU = $unseenObjects[_hidden[_j]]>> <<if _objU.container eq $parserNoun>> <<set _objU.parent = "room">> <<set _objU.container = $parserNoun>> <<set State.variables["parserRoom" + $meParser.loc][_objU.name] = $unseenObjects[_objU.name]>> <<parserroom>> <<run delete $parserBag[_objU.name]>> <<parserbag>> <</if>> <</for>> <<set _seen = Object.keys($seenObjects)>> <<for _k = 0; _k < _seen.length; _k++>> <<set _objS = $seenObjects[_seen[_k]]>> <<if _objS.container eq $parserNoun>> <<set _objS.parent = "room">> <<set _objS.container = $parserNoun>> <<set State.variables["parserRoom" + $meParser.loc][_objS.name] = $seenObjects[_objS.name]>> <<parserroom>> <<run delete $parserBag[_objS.name]>> <<parserbag>> <</if>> <</for>> <<set $meParser.space += $objFound.weight>> <<set $seenArray.delete($objFound.unique)>> <<set $objFound.unique = $objFound.name+$meParser.loc>> <<set $objFound.container = "room">> <<set $objFound.parent = "world">> <<set State.variables["parserRoom" +$meParser.loc] [$parserNoun] = $parserInv[$parserNoun]>> <<run delete $parserInv[$parserNoun]>> <<parserinv>> <<parserroom>> <<if $parserData[0] eq "drop">> <<set $objFound.onobject = false>> <<elseif $parserData[0] eq "put">> <<set $objFound.onobject = $allNouns[1]>> <</if>> <</nobr>><</widget>> /% -------------- SET PARSERROOM & ROOM ARRAY -------------- %/ <<widget parserroom>><<nobr>> <<set $parserRoom = State.variables["parserRoom" +$meParser.loc]>> <<set _names = Object.keys($parserRoom)>> <<set $roomArray = []>> <<for _i = 0; _i < _names.length; _i++>> <<set $roomArray.push(_names[_i])>> <</for>> <</nobr>><</widget>> /% -------------- SET INVENTORY ARRAY -------------- %/ <<widget parserinv>><<nobr>> <<set _namesinv = Object.keys($parserInv)>> <<set $invArray = []>> <<for _i = 0; _i < _namesinv.length; _i++>> <<set $invArray.push(_namesinv[_i])>> <</for>> <</nobr>><</widget>> /% -------------- SET BAG ARRAY -------------- %/ <<widget parserbag>><<nobr>> <<set _namesinv = Object.keys($parserBag)>> <<set $bagArray = []>> <<for _i = 0; _i < _namesinv.length; _i++>> <<set $bagArray.push(_namesinv[_i])>> <</for>> <</nobr>><</widget>> /% ------------- PARSER - ERROR MESSAGES ------------- %/ <<widget errorparsermsg>><<nobr>> <<set $inputFail += 1>> <<print either ( "You want me to do what?", "Me no understand your engrish", "Say what?", "Type something I can understand", "I don't know what that means, but it sounds cool!", "Seriously <<print $parserName>>, you expect me to understand that?", "I can't understand that! Try again.", "Try typing your words more slowly so I can understand.", "Seriously?!" )>> <</nobr>><</widget>> /% ------------- PARSER - STATS ------------- %/ <<widget parserstats>><<nobr>> You visited $uniqueRooms unique <<if $uniqueRooms eq 1>>place<<else>>places<</if>> <br><br> Total input processed: $inputTotal<br> Failed to understand input $inputFail <<if $inputFail eq 1>>time<<else>>times<</if>><br> <</nobr>><</widget>> /% ------------- PARSER - STATUS OF ------------- %/ <<widget statusof>><<nobr>> <<itemof $args[0]>> <<if $itemObj.lock neq undefined>> <<if $itemObj.status eq "closed">> <<print "closed and "+$itemObj.lock+".">> <<else>> <<print "open.">> <</if>> <<else>> <<print $itemObj.status>> <</if>> <</nobr>><</widget>> /% ----------- PARSER - ITEM OF ROOM, INVENTORY, OR BAG? -------------- %/ <<widget itemof>><<nobr>> <<if $roomArray.includes($args[0])>> <<set $itemObj = $parserRoom[$roomArray [$roomArray.indexOf($args[0])]]>> <<set $itemIn = "room">> <<elseif $invArray.includes($args[0])>> <<set $itemObj = $parserInv[$invArray [$invArray.indexOf($args[0])]]>> <<set $itemIn = "inventory">> <<elseif $bagArray.includes($args[0])>> <<set $itemObj = $parserBag[$bagArray [$bagArray.indexOf($args[0])]]>> <<set $itemIn = "bag">> <</if>> <</nobr>><</widget>> /% ------------- PARSER - OPENCLOSE ------------- %/ <<widget openclose>><<nobr>> <<if $roomArray.includes($parserNoun)>> <<if $objFound.status eq "open">> <<set State.variables["parserRoom" +$meParser.loc][$roomArray [$roomArray.indexOf($args[0])]].status = "closed">> You close the $args[0] <<if State.variables["parserRoom" +$objFound.door2] neq undefined>> <<if $args[0] eq "door">> <<set State.variables["parserRoom" +$objFound.door2] ["door"].status = "closed">> <<elseif $args[0] eq "gate">> <<set State.variables["parserRoom" +$objFound.door2] ["gate"].status = "closed">> <</if>> <</if>> <<else>> <<set State.variables["parserRoom" +$meParser.loc][$roomArray [$roomArray.indexOf($args[0])]].status = "open">> You open the $args[0] <<if State.variables["parserRoom" +$objFound.door2] neq undefined>> <<if $args[0] eq "door">> <<set State.variables["parserRoom" +$objFound.door2] ["door"].status = "open">> <<elseif $args[0] eq "gate">> <<set State.variables["parserRoom" +$objFound.door2] ["gate"].status = "open">> <</if>> <</if>> <</if>> <<else>> <<if $objFound.status eq "open">> <<set $objFound.status = "closed">> You close the $args[0] <<else>> <<set $objFound.status = "open">> You open the $args[0] <</if>> <</if>> <<parserroom>> <</nobr>><</widget>> /% --------- PARSER - SEE OBJECTS / REMEMBER ALL --------- %/ <<widget containedby>><<nobr>> <<seenobjects $args[0]>> /% <<if $parserData[0] eq "search" and $seeingArray.length eq 0>> You search, but don't find anything that you don't already know about. <</if>> %/ <<for _i = 0; _i < $seeingArray.length; _i++>> <<itemof $seeingArray[_i]>> <<set _preinv = $itemObj.preinv>> <<if $itemObj.preinv neq undefined>> <<print "There is <<print _preinv + $seeingArray[_i]>> here">> <<else>> <<print "There is a <<print $seeingArray[_i]>> here">> <</if>> <<if $itemObj.container neq "room">> <<print "in the "+$itemObj.container+".">> <<elseif $itemObj.onobject neq undefined>> <<if $roomArray.includes($itemObj.onobject) and $itemObj.container eq "room">> <<print $parserRoom[$itemObj.onobject].ison + ".">> <<else>> <<print "on the ground.">> <</if>> <<else>> <<print "on the ground.">> <</if>> <br> <<set _hidden = Object.keys($unseenObjects)>> <<for _j = 0; _j < _hidden.length; _j++>> <<if $seeingArray[_i] eq _hidden[_j]>> <<run delete $unseenObjects[_hidden[_j]]>> <<set $unseenArray.delete(_hidden[_j])>> <</if>> <</for>> <</for>> /%<br>oS: $seenArray<br>%/ <</nobr>><</widget>> /% ---------------- SET SEEN OBJECTS ---------------- %/ <<widget seenobjects>><<nobr>> <<set $seeingArray = []>> <<itemof $args[0]>> <<set _thisContainer = $itemObj>> <<if $itemIn eq "inventory">> <<if $bagArray.length gt 0>> <<set _namesbag = Object.keys($parserBag)>> <<for _i = 0; _i < _namesbag.length; _i++>> <<set _obj = $parserBag[_namesbag[_i]]>> <<set _objContainer = _obj.container>> <<if _objContainer eq _thisContainer.name>> <<set $seeingArray.push(_obj.name)>> <<if $seenArray.includes(_obj.unique)>> <<else>> <<set $seenArray.push(_obj.unique)>> <<set $seenObjects[_namesbag[_i]] = $parserBag[_namesbag[_i]]>> <</if>> <</if>> <</for>> <</if>> <<else>> <<set _names = Object.keys($parserRoom)>> <<for _i = 0; _i < _names.length; _i++>> <<set _obj = $parserRoom[_names[_i]]>> <<set _objContainer = _obj.container>> <<if _objContainer eq $args[0]>> <<if _thisContainer.status neq undefined and _thisContainer.openable neq undefined>> <<if _thisContainer.status eq "open" and _thisContainer.openable eq true>> <<if _obj.moveable neq undefined>> <<if _obj.moveable eq true>> <<set $seeingArray.push(_names[_i])>> <</if>> <<if $seenArray.includes (_names[_i]+$meParser.loc)>> <<else>> <<set $seenArray.push (_names[_i]+$meParser.loc)>> <<set $seenObjects[_names[_i]] = $parserRoom[_names[_i]]>> <</if>> <</if>> <</if>> <<elseif _obj.moveable neq undefined>> <<if _obj.moveable eq true>> <<set $seeingArray.push(_names[_i])>> <</if>> <<if $seenArray.includes(_names[_i]+$meParser.loc)>> <<else>> <<set $seenArray.push(_names[_i]+$meParser.loc)>> <<set $seenObjects[_names[_i]] = $parserRoom[_names[_i]]>> <</if>> <<elseif _obj.parent eq _thisContainer.container>> <<if $seenArray.includes(_names[_i]+$meParser.loc)>> <<else>> <<set $seenArray.push(_names[_i]+$meParser.loc)>> <<set $seenObjects[_names[_i]] = $parserRoom[_names[_i]]>> <</if>> <</if>> <</if>> <</for>> <</if>> <</nobr>><</widget>> /% ============== CHECK FOR INPUT ============== %/ <<widget checkinput>><<nobr>> <font color = pink> <<if $args[0] eq 1>> <br>I'm still patiently waiting for your input! <<set $parserWarning += 30>> <<elseif $args[0] eq 2>> <br>Yo! You still there? <<elseif $args[0] eq 3>> <br>This is where you type in the above box! <<elseif $args[0] eq 4>> <br>You do understand that you press Enter after typing something, right?! <<elseif $args[0] eq 5>> <br>My patience is running thin! You in the bathroom or something?! <<elseif $args[0] eq 6>> <br>I don't have all day! I've got things to do!! <<elseif $args[0] eq 7>> <br>This is ridiculous! I'm about ready to hack into your computer and install a virus! <<elseif $args[0] eq 8>> <br>I'll do it, I swear! Don't temp me!!! <<elseif $args[0] eq 9>> <br>For #@%!'s sake! TYPE something, anything! <<elseif $args[0] eq 10>> <br>I give up! Wake me when you're ready! <</if>> </font> <</nobr>><</widget>> /% ================ PARSER - UNSEEN OBJECTS ================ %/ <<widget unseenobjects>><<nobr>> <<set _names = Object.keys($parserRoom)>> <<for _i = 0; _i < _names.length; _i++>> <<set _notFound = $parserRoom[_names[_i]]>> <<if _notFound.moveable neq undefined>> <<if _notFound.moveable eq true and _notFound.parent neq "world" >> <<if $unseenArray.includes(_notFound)>> <<else>> <<set $unseenArray.push(_names[_i])>> <<set $unseenObjects[_names[_i]] = $parserRoom[_names[_i]]>> <</if>> <</if>> <</if>> <</for>> <</nobr>><</widget>> /% ================ PARSER - PLACE NOTE ================ %/ <<widget placenote>><<nobr>> Days after the funeral, yourself, your mother, and the family laywer gather at Uncle Jim's house to read over the Last Will and Testament. All non-monetary assets such as the house, house belongings, cars, the dog, etc, all are willed to your mother. However, there is no mention of all his monetary assets which were rumored to be quite substantial.<br><br> The lawyer places a hand written note from your Uncle Jim on the desk. "It's for you <<print $parserName>>", says the lawyer.<br><br> With that, the lawyer grabs his possessions and exits the house, leaving you and your mother behind.<br> Your mother quickly exits the room with tears in her eyes leaving you alone in the room with the note.<br> <</nobr>><</widget>> /% ================ PARSER - NOTE FROM UNCLE ================ %/ <<widget parsernote>><<nobr>> <section class="paper"> <article class="paperheader"></article> <div class="papertext"> Dear Nephew, <br><br><br> Having no children of my own, and as you're the only child of my sister Irene, I am hereby willing all my monetary assets to you. Everything is legally spelled out on papers that are currently residing in a safety deposit box at the local bank. <br><br> As of this writing, the assets in the safety deposit box are worth a little more than $2,000,000. However, before you can claim a cent of that money, you will first need to play a little game of hide-n-seek. I've hidden the safety deposit box key somewhere on my property. Find the key and my fortune is all yours, otherwise it may go unclaimed forever. <br><br> I will depart this world leaving you with only one little clue... <br><br> "All treasure hunters dig where X marks the spot." <br><br><br> Your loving Uncle,<br> Jim </div> </section> <</nobr>><</widget>> /% ================ PARSER - CHECK FOR DOOR ================ %/ <<widget checkfordoor>><<nobr>> <<if $parserRoom["door"] neq undefined>> <<if $parserRoom["door"].dir eq $input and $parserRoom["door"].status eq "closed">> <<set $canExit = false>> <<else>> <<set $canExit = true>> <</if>> <<else>> <<set $canExit = true>> <</if>> <<if $parserRoom["gate"] neq undefined>> <<if $parserRoom["gate"].dir eq $input and $parserRoom["gate"].status eq "closed">> <<set $canExit = false>> <<else>> <<set $canExit = true>> <</if>> <</if>> <</nobr>><</widget>> /% ================ PARSER - MAP ================ %/ <<widget parsermap>><<nobr>> <br><br>MAP<br><br> <table> <tr> <td>*|g|*|*|*|*|</td> </tr><tr> <td>*|*|*|k|*|*|</td> </tr><tr> <td>*|*|*|*|*|*|</td> </tr><tr> <td>*|*|*|s|*|X|</td> </tr> </table> <</nobr>><</widget>> /% ================ PARSER - GET UP FROM SITTING ================ %/ <<widget getupfromsitting>><<nobr>> <<print either ("You quickly stand up.", "You first stand up.", "You rise to your feet.", "You get up from a sitting position.")>> <br> <</nobr>><</widget>> /% ================ PARSER - DOG ================ %/ <<widget givetodog>><<nobr>> <<if $parserNoun eq "toast" or $parserNoun eq "ball">> <<if $invArray.includes("toast")>> <<run delete $parserInv[$parserNoun]>> <<parserinv>> You extend the piece of toast towards the dog. He sniffs at the toast for a second and then happily takes it from you before he runs off. <<run delete $parserRoom52["dog"]>> <<set $seenArray.delete("dog52")>> <<run delete $seenObjects["dog"]>> <<parserroom>> <<else>> You give the ball to the dog, but he gives it right back. He seems to want you to give the ball a toss. <</if>> <<elseif _InInv>> The dog sniffs at it, but doesn't show any interest. You keep it. <<else>> I don't see that in your inventory to give. <</if>> <</nobr>><</widget>> /% ================ PARSER - WINNER ================ %/ <<widget parserwinner>><<nobr>> You start digging underneath where the doghouse once sat. Then all of a sudden you see it...the key! You've found the safety deposit box key!!! Congrats, you win! <br><br> <<if $uniqueRooms gt 20>> <<set $meParser.score += 10>> <<elseif $uniqueRooms gt 15>> <<set $meParser.score += 5>> <</if>> <<if $totalInput+$totalFail lt 50>> <<set $meParser.score += 10>> <<elseif $totalInput+$totalFail lt 100>> <<set $meParser.score += 5>> <</if>> Your score for the game was <<print $meParser.score +"/50">> <br> <<if $meParser.score gte 50>> Wow! You must have really paid attention! Great job!<br> <<elseif $meParser.score gt 40>> Excellent score!<br> <<elseif $meParser.score gt 30>> Great score!<br> <<elseif $meParser.score gt 20>> Good score!<br> <<elseif $meParser.score gt 10>> Not the best score ever, but you solved the game nonetheless!<br> <<else>> How did you score that low? Oh well, you still won!<br> <</if>> <br> <<parserstats>> <br><br> <<set $parserWin = true>> <<set UIBar.unstow()>> <</nobr>><</widget>>
<section class="paper">\ <article class="paperheader"></article>\ <div class="papertext">Hello, World! Here's some text that looks like handwriting on lined paper. This is a really, really, really, really long line to demonstrate that the text wraps properly when the line length is wider than the page. </div>\ </section> @@#links; <<link "Choice 1">> <<replace "#links">>\ You chose 1. <</replace>> <</link>> <<link "Choice 2">> <<replace "#links">>\ You chose 2. <</replace>> <</link>> @@ <<set $hairColor = "brown">> <<switch $hairColor>> <<case "red" "auburn">> You ginger. <<case "black" "brown">> Dark haired, eh? <<case "blonde">> You may have more fun. <<default>> Orange huh? <</switch>>
<<linkreplace "See Rules">>The rules are quite simple. You score a TD before the clock runs out, you automatically win! Pick either a Run or a Pass play each down. Your opponent will choose either a Run or Pass Defense. Good luck!<</linkreplace>> <<nobr>> <<if $fbClock eq 120>> <<set $down = 1>><<set $toGo = 10>><<set $ydLine = 20>> <<set $hasScored = false>><<set $firstDown = 30>> <</if>> <<set $fbMin = Math.floor($fbClock/60)>><<set $fbSec = $fbClock-($fbMin*60)>> <table id="twomin" border> <tr> <td colspan = 4><font size = 5 color = black>Scoreboard</font></td> </tr> <th><font color = midnightblue>HOME</font></th> <td colspan = 2><font color = yellow>Time Remaining </font></td> <th><font color = "#8B1A51">AWAY</font></th> <tr> <th><font color = midnightblue>24</font></th> <td colspan = 2><font color = yellow size = 5><<print $fbMin>>:<<if $fbSec lte 9 and $fbSec neq 0>>0$fbSec<<elseif $fbSec eq 0>>00<<else>>$fbSec<</if>></font></td> <th><font color = "#8B1A51">20</font></th> </tr> <tr> <td><font color = black>Down</font></td> <td><font color = black>To Go</font></td> <td><font color = black>Ball On</font></td> <td><font color = black>Qtr</font></td> </tr> <tr> <td><font color = black><<if $down eq 1>>1st<<elseif $down eq 2>>2nd<<elseif $down eq 3>>3rd<<else>>4th<</if>></font></td> <td><font color = black><<print $toGo>></font></td> <td><font color = black><<if $ydLine lt 50>>Your <<print $ydLine>> <<elseif $ydLine gt 50>>Opp <<print 100-$ydLine>> <<else>>50<</if>></font></td> <td><font color = black>4th</font></td> </tr> </table> <</nobr>> <<set $toTD = 100 - $ydLine>> <font color = pink>"As the AWAY Coach, you have <<print $toTD>> <<if $toTD eq 1>> yd <<else>> yds<</if>> to to go to score. A field goal isn't going to do it, you need a touchdown!" "What's the play Coach?"</font> [[Run the ball|Run Menu]] [[Pass the ball|Pass Menu]] [[Look at the field|FB Field]] ----------------- <<linkreplace "Quit Game">><<link "Yes, I'm sure. Quit game.">><<goto "Convention room">><</link>><</linkreplace>>
<b>Run Options</b> Run plays get a bonus against pass DEF's <font color = yellow>(8 - 12 seconds per play)</font> <<link "HB Sweep (towards sideline)">><<set $myPlayName = "HB Sweep">><<set $playType = "run">><<set $timeUsed = random(8,12)>><<set $maxGain = 10>><<set $addYds = false>><<goto "Hike Ball">><</link>> <font color = yellow>(12 - 18 seconds per play)</font> <<link "HB Blast (shoot up the middle)">><<set $myPlayName = "HB Blast">><<set $playType = "run">><<set $timeUsed = random(12,18)>><<set $maxGain = 14>><<set $addYds = true>><<goto "Hike Ball">><</link>> <font color = yellow>(18 - 22 seconds per play)</font> <<link "HB Draw (delayed handoff, up the middle)">><<set $myPlayName = "HB Draw">><<set $playType = "run">><<set $timeUsed = random(18,22)>><<set $maxGain = 18>><<set $addYds = true>><<goto "Hike Ball">><</link>> [[Consider Pass Options instead|Pass Menu]] [[Look at Scoreboard|Two Minute Drill]]
<b>Pass Options</b> Sideline plays get no additional yds after reception Pass plays have a higher chance for completion vs Run DEF's <font color = yellow>(5 - 10 seconds per play)</font> <<link "Short Pass Sideline">><<set $myPlayName = "Short Pass Sideline">><<set $playType = "pass">><<set $timeUsed = random(5,10)>><<set $minGain = 1>><<set $maxGain = 6>><<set $addYds = false>><<set $compRate = 90>><<goto "Hike Ball">><</link>> <font color = yellow>(10 - 15 seconds per play)</font> <<link "Short Pass Middle">><<set $myPlayName = "Short Pass Middle">><<set $playType = "pass">><<set $timeUsed = random(10,15)>><<set $minGain = 3>><<set $maxGain = 7>><<set $addYds = true>><<set $compRate = 80>><<goto "Hike Ball">><</link>> <<link "Medium Pass Sideline">><<set $myPlayName = "Medium Pass Sideline">><<set $playType = "pass">><<set $timeUsed = random(10,15)>><<set $minGain = 10>><<set $maxGain = 15>><<set $addYds = false>><<set $compRate = 67>><<goto "Hike Ball">><</link>> <font color = yellow>(15 - 20 seconds per play)</font> <<link "Medium Pass Middle">><<set $myPlayName = "Medium Pass Middle">><<set $playType = "pass">><<set $timeUsed = random(15,20)>><<set $minGain = 12>><<set $maxGain = 17>><<set $addYds = true>><<set $compRate = 50>><<goto "Hike Ball">><</link>> <<link "Long Pass Sideline">><<set $myPlayName = "Long Pass Sideline">><<set $playType = "pass">><<set $timeUsed = random(15,20)>><<set $minGain = 18>><<set $maxGain = 27>><<set $addYds = false>><<set $compRate = 35>><<goto "Hike Ball">><</link>> <<link "Long Pass Middle">><<set $myPlayName = "Long Pass Middle">><<set $playType = "pass">><<set $timeUsed = random(15,20)>><<set $minGain = 24>><<set $maxGain = 33>><<set $addYds = true>><<set $compRate = 25>><<goto "Hike Ball">><</link>> <font color = yellow>(20 - 25 seconds per play)</font> <<link "Hail Mary Pass">><<set $myPlayName = "Hail Mary Pass">><<set $playType = "pass">><<set $timeUsed = random(20,25)>><<set $minGain = 35>><<set $maxGain = 50>><<set $addYds = true>><<set $compRate = 7>><<goto "Hike Ball">><</link>> [[Consider Run Options instead|Run Menu]] [[Look at Scoreboard|Two Minute Drill]]
<<nobr>> <<set $cpuDef = random(0,1)>> <<if $cpuDef eq 0>> <<set $def = "run">> <<else>> <<set $def = "pass">> <</if>> <<if $def eq "run">> <<set $cpuPlayName = "Run DEF">> <<else>> <<set $cpuPlayName = "Pass DEF">> <</if>> <<if $def eq "run" and $def eq $playType>> <<set $maxGain = $maxGain/2 + 2>> <</if>> <<if $def eq "pass" and $def eq $playType>> <<set $compRate -= 15>> <<if $compRate lte 0>><<set $compRate = 2>><</if>> <</if>> <<if $playType eq "run">><<set $ydsGained = random(0,$maxGain)>> <<else>> <<set $ydsGained = random($minGain,$maxGain)>> <</if>> <<if $addYds eq true>> <<if $def eq $playType>> <<set $bonusYds = random(random(0,1),random(4,9))>> <<else>> <<set $bonusYds = random(random(1,3),random(7,12))>> <</if>> <<else>> <<set $bonusYds = 0>> <</if>> <font color = red><<print $myPlayName>></font> vs. <font color = orange><<print $cpuPlayName>></font> <<set $ydLine += ($ydsGained+$bonusYds)>> <<if $ydLine gte 100>><<set $hasScored = true>><</if>> <<fadein 1s 1s>> <br><br> <<print either("The QB scans the field...", "The QB eyes the defense...", "The QB shouts out some numbers...")>> <</fadein>><<fadein 2s 2s>> <br> <<print either("the ball is hiked...", "here's the snap...")>> <</fadein>> <br><br> <<if $playType eq "run">> <<fadein 2s 4s>>The ball goes to the HB...<</fadein>> <br> <<fadein 2s 5s>><<if $hasScored neq true>> HB gains <<print $ydsGained+$bonusYds>> <<if ($ydsGained+$bonusYds) eq 1>> yd <<else>> yds <</if>> on the play <<else>> The HB runs the ball into the endzone! TOUCHDOWN!!! <br> <</if>><</fadein>> <<else>> <<fadein 2s 4s>>The QB drops back to pass...<br> <</fadein>> <<fadein 2s 5s>> <<if random(0,1) eq 0>>flings <<else>>throws <</if>>the ball... <br> <</fadein>> <br> <<if random(1,100) gt $compRate>> <<fadein 2s 6s>> <<print either("The receiver drops the ball! Pass incomplete.","The pass is deflected. Pass incomplete.","The QB overthrows the WR. Pass incomplete.")>> <</fadein>> <br> <<set $ydLine -= ($ydsGained+$bonusYds)>> <<set $hasScored = false>> <<else>> <<fadein 2s 5500ms>> <<if $hasScored neq true>> The receiver catches the ball! <br> The play goes for <<print $ydsGained+$bonusYds>> <<if ($ydsGained+$bonusYds) eq 1>> yd<<else>> yds!<</if>> <<else>> <br> The WR catches the ball in the endzone! TOUCHDOWN!!! <br> <</if>> <</fadein>> <</if>> <</if>> <<fadein 3s 6s>> <<if $hasScored neq true>> <<if $ydLine gte $firstDown>> <<set $firstDown = $ydLine + 10>> <<set $down = 0>> <br> You gained a first down on the play! <br> <</if>> <br> That last play took <<print $timeUsed>> seconds off the clock. <<set $fbClock -= $timeUsed>><<set $down += 1>> <<if $firstDown gte 100>><<set $toGo = 100 - $ydLine>> <<else>> <<set $toGo = $firstDown - $ydLine>> <</if>> <br> <<else>> <br> You beat the Game! Congrats! <</if>> <br> <<if $fbClock gt 0 and $hasScored eq false and $down lt 5>> [[Call your next play|Two Minute Drill]] <<elseif ($fbClock lte 0 and $hasScored eq false) or $down gt 4>> <<if $down gt 4>>You turn the ball over on downs! <br> <<elseif $fbClock lte 0>>The clock has run out!<</if>> <br><br> Sorry coach, you didn't score a touchdown in the final two minutes of the game. You LOSE! Better luck next time! <br> <</if>> <<if ($fbClock lte 0 and $hasScored eq false) or $hasScored eq true or $down gt 4>> <br><br> <<link "Play again">><<set $fbClock = 120>><<goto "Two Minute Drill">><</link>> <br><br><br> [[View surroundings|Convention room]] <</if>> <</fadein>> <<if ($fbClock lte 0 and $hasScored eq false) or $down gt 4>> <<else>> <<set $fbYdLine = $ydLine>> <<set $fbTenYds = $fbYdLine - $fbYdLine%10>> <<set $fbSingleYds = $fbYdLine - $fbTenYds>> <<if $fbSingleYds eq 0>><<set $fbOnMain = true>> <<else>><<set $fbOnMain = false>><</if>> <<set $fbMain = $fbTenYds/10>> <<fadein 0s 7s>> <table id="retrofb" border> <tr> <td style="background-color: #654321">┏</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <<for $i = 0; $i < 10; $i++>> <td style="background-color:#654321">┬</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <</for>> <td style="background-color:#654321">┬</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">┓</td> </tr> <<set $lastYd = true>><<set $startYd = 1>> <<set $ydUp = true>> <<for $i = 1; $i < 10; $i++>> <tr> <<if $i eq 4 or $i eq 6>> <td style="background-color: #654321">╋</td> <<else>> <td style="background-color: #654321">┃</td> <</if>> <td style="background-color:silver"></td> <<if $i eq 2 or $i eq 8>> <td style="background-color:silver"> <font color = red size = 4>E</font></td> <<elseif $i eq 3 or $i eq 7>> <td style="background-color:silver"> <font color = red size = 4>N</font></td> <<elseif $i eq 4>> <td style="background-color:silver"> <font color = red size = 4>D</font></td> <<elseif $i eq 5>> <td style="background-color:silver"> <font color = red size = 4>Z</font></td> <<elseif $i eq 6>> <td style="background-color:silver"> <font color = red size = 4>O</font></td> <<else>> <td style="background-color:silver"></td> <</if>> <td style="background-color:silver"></td> <td style="background-color:silver"></td> <td style="background-color:green">│</td> <<for $j = 0; $j < 10; $j++>> <<if $i eq 2 or $i eq 8>> <<if $lastYd eq false>> <<if $j eq 0>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">0</td> <</if>> <td style="background-color:green"></td> <td style="background-color:green"></td> <<if $j eq 9>> <td style="background-color:green"></td> <<set $startYd = 0>> <<else>> <td style="background-color:green">$startYd</td> <</if>> <<if $ydUp eq true>> <<set $startYd += 1>> <<if $startYd eq 6>> <<set $startYd = 4>> <<set $ydUp = false>> <</if>> <<else>> <<set $startYd -= 1>> <<if $startYd eq 0>> <<set $startYd = 1>> <<set $ydUp = true>> <</if>> <</if>> <<set $lastYd = true>> <<else>> <<if $j eq 0>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">0</td> <</if>> <td style="background-color:green"></td> <td style="background-color:green"></td> <<if $j eq 9>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">$startYd</td> <</if>> <<if $ydUp eq true>> <<set $startYd += 1>> <<if $startYd eq 6>> <<set $startYd = 4>> <<set $ydUp = false>> <</if>> <<else>> <<set $startYd -= 1>> <<if $startYd eq 0>> <<set $startYd = 1>> <<set $ydUp = true>> <</if>> <</if>> <<set $lastYd = false>> <</if>> <<elseif $i eq 4 or $i eq 6>> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <<elseif $i eq 5 and $fbOnMain eq false and $j eq $fbMain>> <<if $fbSingleYds lte 3>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 5 and $fbSingleYds gt 3>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 7 and $fbSingleYds gt 5>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 9 and $fbSingleYds gt 7>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<else>> <td style="background-color:green"></td> <td style="background-color:green"></td> <td style="background-color:green"></td> <td style="background-color:green"></td> <</if>> <<if $fbOnMain eq true and $j eq $fbMain-1 and $i eq 5>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green">│</td> <</if>> <</for>> <td style="background-color:silver"></td> <td style="background-color:silver"></td> <<if $i eq 2 or $i eq 8>> <td style="background-color:silver"> <font color = red size = 4>E</font></td> <<elseif $i eq 3 or $i eq 7>> <td style="background-color:silver"> <font color = red size = 4>N</font></td> <<elseif $i eq 4>> <td style="background-color:silver"> <font color = red size = 4>D</font></td> <<elseif $i eq 5>> <td style="background-color:silver"> <font color = red size = 4>Z</font></td> <<elseif $i eq 6>> <td style="background-color:silver"> <font color = red size = 4>O</font></td> <<else>> <td style="background-color:silver"></td> <</if>> <td style="background-color:silver"></td> <<if $i eq 4 or $i eq 6>> <td style="background-color: #654321">╋</td> <<else>> <td style="background-color: #654321">┃</td> <</if>> </tr> <</for>> <tr> <td style="background-color: #654321">┗</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <<for $i = 0; $i < 10; $i++>> <td style="background-color: #654321">┴</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <</for>> <td style="background-color: #654321">┴</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">┛</td> </tr> </table> <</fadein>> <</if>> <</nobr>>
Welcome to <font color = red>"Dozen Dead Zed"</font>, the card game. [[See Game Rules|Zed Instructions]] <<link "Play Dozen Dead Zed">><<set $playZed += 1>> <<goto "Play Zed">><</link>> [[View Surroundings|Convention room]] [[Walk back towards Casino|Casino]] <<nobr>> <<set $zedDeck = ["1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "k", "k", "k", "k", "k", "k", "k", "k", "k", "k", "p", "p", "p", "p", "p", "p", "s", "s", "s", "s", "w", "w", "w", "w", "w", "w", "i", "i", "i", "i", "i", "f", "f", "f", "f", "f", "f", "f", "f", "f"]>> <<set $zedCardName = []>> <<set $myZedDeck = []>> <<set $cpuZedDeck = []>> <<set $zedDeck.shuffle()>> <<for $i = 0; $i < $zedDeck.length; $i++>> <<if $zedDeck[$i] eq "1">> <<set $zedCardName[$i] = "Kill 1 Zed">> <<elseif $zedDeck[$i] eq "2">> <<set $zedCardName[$i] = "Kill 2 Zed">> <<elseif $zedDeck[$i] eq "3">> <<set $zedCardName[$i] = "Kill 3 Zed">> <<elseif $zedDeck[$i] eq "k">> <<set $zedCardName[$i] = "Knife">> <<elseif $zedDeck[$i] eq "p">> <<set $zedCardName[$i] = "Pistol">> <<elseif $zedDeck[$i] eq "s">> <<set $zedCardName[$i] = "Shotgun">> <<elseif $zedDeck[$i] eq "w">> <<set $zedCardName[$i] = "Weapon Jam">> <<elseif $zedDeck[$i] eq "i">> <<set $zedCardName[$i] = "Injury">> <<elseif $zedDeck[$i] eq "f">> <<set $zedCardName[$i] = "First Aid">> <<else>> <<set $zedCardName[$i] = "ERROR">>/% should never get here %/ <</if>> <</for>> <<set $myCardName = []>> <<for $i = 0; $i < 5; $i++>> <<set $myZedDeck.push($zedDeck[$i])>> <<set $myCardName.push($zedCardName[$i])>> <</for>> <<set $cpuCardName = []>> <<for $i = 5; $i < 10; $i++>> <<set $cpuZedDeck.push($zedDeck[$i])>> <<set $cpuCardName.push($zedCardName[$i])>> <</for>> <<for $i = 0; $i < 10; $i++>> <<set $zedDeck.deleteAt($i)>> <<set $zedCardName.deleteAt($i)>> <</for>> <<set $drawCard = 0>> <<set $myInjury = false>> <<set $cpuInjury = false>> <<set $myWeapon = 0>> <<set $cpuWeapon = 0>> <<set $myZedScore = 0>> <<set $cpuZedScore = 0>> <<set $zedPhase = "draw">> <<set $myZedTurn = true>> <<set $discardDeck = []>> <<set $myInjuryPlay = false>> <<set $cpuInjuryPlay = false>> <<set $myLastPlay = "">> <<set $gameRefresh = true>> <<set $zedTurn = 0>> <</nobr>>
<<nobr>><font color = orange>__First to score exactly 12 kills wins__</font> /%Cards remaining in deck: <<print $zedDeck.length>> Cards in discard pile: <<print $discardDeck.length>> cpu Deck: <<print $cpuZedDeck>>%/ <<if 12-$myZedScore lt 12-$cpuZedScore>><<set $zedWinning = 1>><<elseif 12-$cpuZedScore lt 12-$myZedScore>><<set $zedWinning = 2>><<else>><<set $zedWinning = 0>><</if>> <br><</nobr>> <<nobr>> <<if $zedWinning eq 1>><font color = yellow>YOU: <<print 12-$myZedScore>><<if 12-$myZedScore eq 1>> kill left<<else>> kills left<</if>></font><<else>><font color = white>YOU: <<print 12 - $myZedScore>><<if 12 - $myZedScore eq 1>> kill left<<else>> kills left<</if>></font><</if>> -- <<if $myInjury eq true>>Injured, needs First Aid<</if>> <<if $myInjury eq true>>( <<else>> <</if>><<if $myWeapon eq 0>>Defending with <<else>>Armed with <</if>><<if $myWeapon eq 0>>Bare Hands<<elseif $myWeapon eq 1>>Knife<<elseif $myWeapon eq 2>>Pistol<<else>>Shotgun<</if>><<if $myInjury eq true>> ) <<else>> <</if>> <<for _i = 0; _i < (12 - $myZedScore); _i++>> <<print "🧟">> <</for>> <</nobr>> <<nobr>> <<if $zedWinning eq 2>><font color = yellow>CPU: <<print 12-$cpuZedScore>><<if 12-$cpuZedScore eq 1>> kill left<<else>> kills left<</if>></font><<else>><font color = white>CPU: <<print 12-$cpuZedScore>><<if 12-$cpuZedScore eq 1>> kill left<<else>> kills left<</if>></font><</if>> -- <<if $cpuInjury eq true>>Injured, needs First Aid<</if>> <<if $cpuInjury eq true>>( <<else>> <</if>><<if $cpuWeapon eq 0>>Defending with <<else>>Armed with <</if>><<if $cpuWeapon eq 0>>Bare Hands<<elseif $cpuWeapon eq 1>>Knife<<elseif $cpuWeapon eq 2>>Pistol<<else>>Shotgun<</if>><<if $cpuInjury eq true>> ) <<else>> <</if>> <<for _i = 0; _i < (12 - $cpuZedScore); _i++>> <<print "🧟">> <</for>> <</nobr>> ----------------------------- <<nobr>> <<if $zedTurn eq 0>> <<if $cpuZedDeck.count("i") gte 1 or $cpuZedDeck.count("k") gte 1 or $cpuZedDeck.count("p") gte 1 or $cpuZedDeck.count("s") gte 1>> <<set $cpuMulligan = false>> The Cpu decides to keep their stating hand <<else>> <<set $cpuMulligan = true>> The Cpu decides to take a mulligan <<for $i = 4; $i > -1; $i-->> <<set $discardDeck.push($cpuZedDeck[$i])>> <<set $cpuZedDeck.deleteAt($i)>> <<set $cpuCardName.deleteAt($i)>> <</for>> <<for $i = 10; $i < 15; $i++>> <<set $cpuZedDeck.push($zedDeck[$i])>> <<set $cpuCardName.push($zedCardName[$i])>> <</for>> <</if>> <br><br> Your starting hand:<br><br> <<for $i = 0; $i < 5; $i++>> <<print $myCardName[$i]>><br> <</for>> <br> <<link "Keep this starting hand">> <<set $zedTurn = 1>><<goto "Play Zed">><</link>> <br><br> <<link "Mulligan this hand and redraw 5 new cards">> <<for $i = 4; $i > -1; $i-->> <<set $discardDeck.push($myZedDeck[$i])>> <<set $myZedDeck.deleteAt($i)>> <<set $myCardName.deleteAt($i)>> <</for>> <<if $cpuMulligan eq true>> <<set _iStart = 15>> <<set _iEnd = 20>> <<else>> <<set _iStart = 10>> <<set _iEnd = 15>> <</if>> <<for $i = _iStart; $i < _iEnd; $i++>> <<set $myZedDeck.push($zedDeck[$i])>> <<set $myCardName.push($zedCardName[$i])>> <</for>> <<set $zedTurn = 1>><<goto "Play Zed">><</link>> <</if>> <<if $zedTurn gt 0>> <<if $myZedTurn eq true>> <<set $zedTurn += 1>> <</if>> Turn #<<print $zedTurn-1>><br><br> <<if $myZedTurn eq true>> <<if $myInjury eq false or $myInjuryPlay eq true>> <<if $zedDeck.length eq 0>><<shufflediscards>><</if>> <<set $myZedDeck.push($zedDeck[0])>> <<set $myCardName.push($zedCardName[0])>> You draw a card,<<if $cpuLastPlay eq "Injury">> an<<else>> a<</if>> <font color = pink><<print $myCardName[5]>> card</font><<print "\n">> <<set $zedDeck.deleteAt(0)>> <<set $zedCardName.deleteAt(0)>> <<if $zedDeck.length eq 0>><<shufflediscards>><</if>> <<else>> You are injured. You have two options... <<print "\n\n">> <<link "You can draw a card and continue as normal">> <<set $myInjuryPlay = true>> <<goto "Play Zed">> <</link>> <<print "\n\n">> <<linkreplace "Discard your entire hand and draw another five cards. (Your turn will end immediately if you pick this option)">> <<for $i = 4; $i > -1; $i-->> <<set $discardDeck.push($myZedDeck[$i])>> <<set $myZedDeck.deleteAt($i)>> <<set $myCardName.deleteAt($i)>> <</for>> <<for $i = 0; $i < 5; $i++>> <<if $zedDeck.length eq 0>><<shufflediscards>><</if>> <<set $myZedDeck.push($zedDeck[0])>> <<set $myCardName.push($zedCardName[0])>> <<set $zedDeck.deleteAt(0)>> <<set $zedCardName.deleteAt(0)>> <</for>> <<set $myInjuryPlay = false>> <<set $myZedTurn = false>> <<set $myLastPlay = "You discarded your hand and drew another 5 cards">> <<goto "Play Zed">> <</linkreplace>> <</if>> <</if>> <br> In my Hand: <table id="zed"> <tr> <<if $myZedDeck.count("1") gt 0>> <td>( <<print $myZedDeck.count("1")>> ) Kill 1 Zed</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $myInjury eq false and $myWeapon gte 1>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Kill 1 Zed' card">> <<set $myZedScore += 1>> <<set $cardPicked = $myCardName.indexOf("Kill 1 Zed")>> <<set $discardDeck.push("1")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>><td> <<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Kill 1 Zed' card">> <<set $cardPicked = $myCardName.indexOf("Kill 1 Zed")>> <<set $discardDeck.push("1")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("2") gt 0>> <td>( <<print $myZedDeck.count("2")>> ) Kill 2 Zed</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $myInjury eq false and $myWeapon gte 2 and $myZedScore lte 10>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Kill 2 Zed' card">> <<set $myZedScore += 2>> <<set $cardPicked = $myCardName.indexOf("Kill 2 Zed")>> <<set $discardDeck.push("2")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Kill 2 Zed' card">> <<set $cardPicked = $myCardName.indexOf("Kill 2 Zed")>> <<set $discardDeck.push("2")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("3") gt 0>> <td>( <<print $myZedDeck.count("3")>> ) Kill 3 Zed</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $myInjury eq false and $myWeapon eq 3 and $myZedScore lte 9>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Kill 3 Zed' card">> <<set $myZedScore += 3>> <<set $cardPicked = $myCardName.indexOf("Kill 3 Zed")>> <<set $discardDeck.push("3")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Kill 3 Zed' card">> <<set $cardPicked = $myCardName.indexOf("Kill 3 Zed")>> <<set $discardDeck.push("3")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("k") gt 0>> <td>( <<print $myZedDeck.count("k")>> ) Knife</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Knife' card">> <<updateweapon>> <<set $myWeapon = 1>> <<set $cardPicked = $myCardName.indexOf("Knife")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Knife' card">> <<set $cardPicked = $myCardName.indexOf("Knife")>> <<set $discardDeck.push("k")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("p") gt 0>> <td>( <<print $myZedDeck.count("p")>> ) Pistol</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Pistol' card">> <<updateweapon>> <<set $myWeapon = 2>> <<set $cardPicked = $myCardName.indexOf("Pistol")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Pistol' card">> <<set $cardPicked = $myCardName.indexOf("Pistol")>> <<set $discardDeck.push("p")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("s") gt 0>> <td>( <<print $myZedDeck.count("s")>> ) Shotgun</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'Shotgun' card">> <<updateweapon>> <<set $myWeapon = 3>> <<set $cardPicked = $myCardName.indexOf("Shotgun")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Shotgun' card">> <<set $cardPicked = $myCardName.indexOf("Shotgun")>> <<set $discardDeck.push("s")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("w") gt 0>> <td>( <<print $myZedDeck.count("w")>> ) Weapon Jam</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $cpuWeapon gt 1>> <td><<link "- PLAY this card -">> <<updateCPUweapon>> <<set $cpuWeapon = 0>> <<set $myLastPlay = "You played a 'Weapon Jam' card removing the cpu's "+$cpuOldWeapon>> <<set $cardPicked = $myCardName.indexOf("Weapon Jam")>> <<set $discardDeck.push("w")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'Weapon Jam' card">> <<set $cardPicked = $myCardName.indexOf("Weapon Jam")>> <<set $discardDeck.push("w")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("i") gt 0>> <td>( <<print $myZedDeck.count("i")>> ) Injury</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $cpuInjury eq false>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played an 'Injury' card">> <<set $cpuInjury = true>> <<set $cardPicked = $myCardName.indexOf("Injury")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded an 'Injury' card">> <<set $cardPicked = $myCardName.indexOf("Injury")>> <<set $discardDeck.push("i")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> <tr> <<if $myZedDeck.count("f") gt 0>> <td>( <<print $myZedDeck.count("f")>> ) First Aid</td> <<if $myInjury eq true and $myInjuryPlay eq true and $myZedTurn eq true or $myInjury eq false and $myZedTurn eq true>> <<if $myInjury eq true>> <td><<link "- PLAY this card -">> <<set $myLastPlay = "You played a 'First Aid' card">> <<set $myInjury = false>> <<set $discardDeck.push("i")>> <<set $cardPicked = $myCardName.indexOf("First Aid")>> <<set $discardDeck.push("f")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <<else>> <td>- can't play card -</td> <</if>> <td><<link "- DISCARD this card -">> <<set $myLastPlay = "You discarded a 'First Aid' card">> <<set $cardPicked = $myCardName.indexOf("First Aid")>> <<set $discardDeck.push("f")>> <<set $myZedDeck.deleteAt($cardPicked)>> <<set $myCardName.deleteAt($cardPicked)>> <<set $myZedTurn = false>><<goto "Play Zed">> <</link>></td> <</if>><<print "\n">> <</if>> </tr> </table> /% CPU TURN %/ <<if $myZedTurn eq false and $gameRefresh eq true and $myZedScore neq 12>> <<set $cpuDiscarded = false>> <<if $cpuInjury eq true>> <<if $cpuZedDeck.count("f") eq 0>> <<if $myWeapon gt 1 and $cpuZedDeck.count("w") gt 0 or $cpuZedDeck.count("p") gt 0 and $cpuWeapon lt 2 or $cpuZedDeck.count("s") gt 0 and $cpuWeapon lt 3 or $cpuZedDeck.count("i") gt 0 and $myInjury eq false>> <<set $cpuInjuryPlay = true>> <<else>> <<set $cpuInjuryPlay = false>> <</if>> <<else>> <<set $cpuInjuryPlay = true>> <</if>> <<else>> <<set $cpuInjuryPlay = true>> <</if>> <<if $cpuInjuryPlay eq false>> <<for $i = 4; $i > -1; $i-->> <<set $discardDeck.push($cpuZedDeck[$i])>> <<set $cpuZedDeck.deleteAt($i)>> <<set $cpuCardName.deleteAt($i)>> <</for>> <<for $i = 0; $i < 5; $i++>> <<if $zedDeck.length eq 0>><<shufflediscards>><</if>> <<set $cpuZedDeck.push($zedDeck[0])>> <<set $cpuCardName.push($zedCardName[0])>> <<set $zedDeck.deleteAt(0)>> <<set $zedCardName.deleteAt(0)>> <</for>> <<else>> /% draw a card %/ <<if $zedDeck.length eq 0>><<shufflediscards>><</if>> <<set $cpuZedDeck.push($zedDeck[0])>> <<set $cpuCardName.push($zedCardName[0])>> <<set $zedDeck.deleteAt(0)>> <<set $zedCardName.deleteAt(0)>> /%<<print $cpuZedDeck>>%/ <<set $kill1CPU = $cpuZedDeck.count("1")>> <<set $kill2CPU = $cpuZedDeck.count("2")>> <<set $kill3CPU = $cpuZedDeck.count("3")>> <<set $knifeCPU = $cpuZedDeck.count("k")>> <<set $pistolCPU = $cpuZedDeck.count("p")>> <<set $shotgunCPU = $cpuZedDeck.count("s")>> <<set $weaponjamCPU = $cpuZedDeck.count("w")>> <<set $injuryCPU = $cpuZedDeck.count("i")>> <<set $firstaidCPU = $cpuZedDeck.count("f")>> <<if $cpuZedScore eq 9 and $cpuWeapon eq 3 and $kill3CPU gt 0 and $cpuInjury eq false>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 3 Zed")>> <<elseif $cpuZedScore eq 10 and $cpuWeapon gte 2 and $kill2CPU gt 0 and $cpuInjury eq false>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 2 Zed")>> <<elseif $cpuZedScore eq 11 and $cpuWeapon gte 1 and $kill1CPU gt 0 and $cpuInjury eq false>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 1 Zed")>> <<elseif $injuryCPU gt 0 and $myInjury eq false>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Injury")>> <<elseif $cpuInjury eq true and $firstaidCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("First Aid")>> <<elseif $myWeapon gt 1 and $weaponjamCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Weapon Jam")>> <<elseif $kill3CPU gt 0 and $cpuWeapon eq 3 and $cpuInjury eq false and $cpuZedScore lte 9>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 3 Zed")>> <<elseif $kill2CPU gt 0 and $cpuWeapon gte 2 and $cpuInjury eq false and $cpuZedScore lte 10>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 2 Zed")>> <<elseif $kill1CPU gt 0 and $cpuWeapon gte 1 and $cpuInjury eq false>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 1 Zed")>> <<elseif $cpuWeapon lt 3 and $shotgunCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Shotgun")>> <<elseif $cpuWeapon lt 2 and $pistolCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Pistol")>> <<elseif $cpuWeapon lt 1 and $knifeCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Knife")>> <<else>> /% discard %/ <<set $cpuDiscarded = true>> <<if $cpuZedScore gt 9 and $kill3CPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 3 Zed")>> <<elseif $cpuZedScore gt 10 and $kill2CPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Kill 2 Zed")>> <<elseif $shotgunCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Shotgun")>> <<elseif $pistolCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Pistol")>> <<elseif $firstaidCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("First Aid")>> <<elseif $weaponjamCPU gt 0>> <<set $cpuCardPlayed = $cpuCardName.indexOf("Weapon Jam")>> <<else>> <<set $cpuCardPlayed = random(0,5)>> <</if>> <</if>> <<if $cpuDiscarded eq false>> <<if $cpuZedDeck[$cpuCardPlayed] eq "1">> <<set $cpuZedScore += 1>> <<set $discardDeck.push("1")>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "2">> <<set $cpuZedScore += 2>> <<set $discardDeck.push("2")>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "3">> <<set $cpuZedScore += 3>> <<set $discardDeck.push("3")>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "k">> <<if $cpuWeapon gt 0>><<updateCPUweapon>><</if>> <<set $cpuWeapon = 1>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "p">> <<if $cpuWeapon gt 0>><<updateCPUweapon>><</if>> <<set $cpuWeapon = 2>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "s">> <<if $cpuWeapon gt 0>><<updateCPUweapon>><</if>> <<set $cpuWeapon = 3>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "w">> <<updateweapon>> <<set $myWeapon = 0>> <<set $discardDeck.push("w")>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "i">> <<set $myInjury = true>> <<elseif $cpuZedDeck[$cpuCardPlayed] eq "f">> <<set $cpuInjury = false>> <<set $discardDeck.push("i")>> <<set $discardDeck.push("f")>> <</if>> <<set $cpuLastPlay = $cpuCardName[$cpuCardPlayed]>> <<else>> <<set $cpuLastDiscard = $cpuCardName[$cpuCardPlayed]>> <<set $discardDeck.push($cpuZedDeck[$cpuCardPlayed])>> <</if>> <<set $cpuZedDeck.deleteAt($cpuCardPlayed)>> <<set $cpuCardName.deleteAt($cpuCardPlayed)>> <</if>> <<print "\n\n">> <<if $gameRefresh eq true>><<set $gameRefresh = false>><<goto "Play Zed">><</if>> <</if>> <<if $myZedScore eq 12 or $cpuZedScore eq 12>> <<if $myZedScore eq 12>> <font color = pink><<print "\n"+$myLastPlay+"\n\n">></font> <font color = orange> <<print "\n\n">>You WIN!!!<<print "\n\n">> </font> <<else>> CPU draws a card and then plays<<if $cpuLastPlay eq "Injury">> an<<else>> a<</if>> <<print $cpuLastPlay>> card <font color = orange> <<print "\n\n">>You LOST! --- Cpu WINS!!<<print "\n\n">> </font> <</if>> [[Play Again|Dozen Dead Zed]] <<elseif $gameRefresh eq false>> <font color = pink><<print "\n"+$myLastPlay+"\n\n">></font> <<if $cpuInjuryPlay eq false>> The CPU discards his hand and draws another five cards <<elseif $cpuDiscarded eq false>> CPU draws a card and then <font color = pink>plays<<if $cpuLastPlay eq "Injury">> an<<else>> a<</if>> <<print $cpuLastPlay>> card <<if $cpuLastPlay eq "Weapon Jam">>removing your <<print $myOldWeapon>><</if>></font> <<else>> CPU draws a card and then <font color = red>discards<<if $cpuLastPlay eq "Injury">> an<<else>> a<</if>> <<print $cpuLastDiscard>> card</font> <</if>> <<print "\n\n">> <<link "Continue">><<set $myZedTurn = true>> <<set $myInjuryPlay = false>> <<set $gameRefresh = true>> <<goto "Play Zed">><</link>> <</if>> <</if>> <</nobr>> ----------------- <<linkreplace "Quit Game">><<link "Yes, I'm sure. Quit game.">><<goto "Dozen Dead Zed">><</link>><</linkreplace>>
Game Win: --- First player to have killed __exactly__ 12 dead Zed Game Rules: Arm yourself with a weapon to kill Zed! Use the <font color = orange><i>Shotgun</i></font> to kill up to 3 Zed, or use the <font color = orange><i>Pistol</i></font> to kill up to 2 Zed, or use the <font color = orange><i>Knife</i></font> to kill 1 Zed per turn. If a player plays an <font color = orange><i>Injury</i></font> card on their opponent, the injured player will need to play a <font color = orange><i>First Aid</i></font> card before they can start killing Zed again. If an opponent has a gun out, you can play the <font color = orange><i>Weapon Jam</i></font> card, causing them to discard their gun card. __There is one special rule__: If you are injured, instead of drawing one card, you may discard your entire hand and draw 5 new cards which will end your turn immediately. Game Phases: --- Draw 1 card; Play or Discard 1 card only; Pass Turn (Reshuffle discard pile if deck runs out) Deck includes the following 90 cards: ( 26 ) Kill 1 Zed ( 14 ) Kill 2 Zed ( 10 ) Kill 3 Zed ( 10 ) Knife ( 06 ) Pistol ( 04 ) Shotgun ( 06 ) Weapon Jam ( 05 ) Injury ( 09 ) First Aid [[Play Dozen Dead Zed|Play Zed]] or [[View Surroundings|Convention room]]
<<nobr>><<set $cardIndex = []>> <<for $i = 0; $i < 52; $i++>> <<set $cardIndex[$i] = $i>> <</for>> <<set $cardSuit = []>> <<set $cardValue = []>> <<set $cardName = []>> <<for $i = 0; $i < 4; $i++>> <<for $j = 0; $j < 13; $j++>> <<set $cardValue[($i*13)+$j] = $j+1>> <<if $i eq 0>><<set $cardSuit[($i*13)+$j] = "Hearts">> <<elseif $i eq 1>><<set $cardSuit[($i*13)+$j] = "Diamonds">> <<elseif $i eq 2>><<set $cardSuit[($i*13)+$j] = "Spades">> <<elseif $i eq 3>><<set $cardSuit[($i*13)+$j] = "Clubs">> <</if>> <<if $j eq 0>><<set $cardName[($i*13)+$j] = "Ace">> <<elseif $j eq 10>><<set $cardName[($i*13)+$j] = "Jack">> <<elseif $j eq 11>><<set $cardName[($i*13)+$j] = "Queen">> <<elseif $j eq 12>><<set $cardName[($i*13)+$j] = "King">> <<else>><<set $cardName[($i*13)+$j] = $j+1>> <</if>> <</for>> <</for>> <<set $cardDeck = []>> <<for $i = 0; $i < 4; $i++>> <<for $j = 0; $j < 13; $j++>> <<set $cardDeck[($i*13)+$j] = $cardName[($i*13)+$j]+" of "+$cardSuit[($i*13)+$j]>> <</for>> <</for>> <<set $cardDeckShuffled = []>> <<set $cardSuitShuffled = []>> <<set $cardValueShuffled = []>> <<set $cardNameShuffled = []>> <<set $cardSuitColor = []>> <<set $myCardHand = []>> <<set $myValueHand = []>> <<set $cardPhase = "bet">> <<set $unsortedCardHand = []>> <<set $unsortedValueHand = []>> A 25¢ "Jacks or Better" Draw Poker machine stands before you. <br><br> [[Play "Jacks or Better"|Play J or B]] <<set $royalFlushPay = [250,500,750,1000,4000]>> <<set $straightFlushPay = [50,100,150,200,250]>> <<set $fourOfKindPay = [25,50,75,100,125]>> <<set $fullHousePay = [9,18,27,36,45]>> <<set $flushPay = [6,12,18,24,30]>> <<set $straightPay = [4,8,12,16,20]>> <<set $threeOfKindPay = [3,6,9,12,15]>> <<set $twoPairPay = [2,4,6,8,10]>> <<set $onePairPay = [1,2,3,4,5]>> <</nobr>> /%<<set $col = ["red", "fuchsia", "purple", "blueviolet", "indigo", "blue", "dodgerblue", "deepskyblue", "cyan", "mediumspringgreen", "green"]>> <span @style='"color: "+$col[9]'>Your text goes here.</span>%/ [[View my surroundings|Casino]]
<<nobr>> <table border> <tr> <td colspan=6 style="background-color:grey"><font color = yellow>Payouts</font></td><br> <td><font color = green>$ Balance = <<print $myMoney.toFixed(2)>></font></td> </tr> <tr> <th>Hand</th> <<if $myBet eq 1>><td><font color = yellow>1 credit</font></td> <<else>><td>1 credit</td><</if>> <<if $myBet eq 2>><td><font color = yellow>2 credits</font></td> <<else>><td>2 credits</td><</if>> <<if $myBet eq 3>><td><font color = yellow>3 credits</font></td> <<else>><td>3 credits</td><</if>> <<if $myBet eq 4>><td><font color = yellow>4 credits</font></td> <<else>><td>4 credits</td><</if>> <<if $myBet eq 5>><td><font color = yellow>5 credits</font></td> <<else>><td>5 credits</td><</if>> </tr> <tr> <th>Royal Flush</th> <<if $myBet eq 1 and $myFinalHand eq "Royal Flush">> <td style="background-color:blue"> <font color = yellow>250</font></td> <<elseif $myBet eq 1>><td><font color = yellow>250</font></td> <<else>><td>250</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Royal Flush">> <td style="background-color:blue"> <font color = yellow>500</font></td> <<elseif $myBet eq 2>><td><font color = yellow>500</font></td> <<else>><td>500</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Royal Flush">> <td style="background-color:blue"> <font color = yellow>750</font></td> <<elseif $myBet eq 3>><td><font color = yellow>750</font></td> <<else>><td>750</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Royal Flush">> <td style="background-color:blue"> <font color = yellow>1000</font></td> <<elseif $myBet eq 4>><td><font color = yellow>1000</font></td> <<else>><td>1000</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Royal Flush">> <td style="background-color:blue"> <font color = yellow>4000</font></td> <<elseif $myBet eq 5>><td><font color = yellow>4000</font></td> <<else>><td>4000</td><</if>> </tr> <tr> <th>Straight Flush</th> <<if $myBet eq 1 and $myFinalHand eq "Straight Flush">> <td style="background-color:blue"> <font color = yellow>50</font></td> <<elseif $myBet eq 1>><td><font color = yellow>50</font></td> <<else>><td>50</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Straight Flush">> <td style="background-color:blue"> <font color = yellow>100</font></td> <<elseif $myBet eq 2>><td><font color = yellow>100</font></td> <<else>><td>100</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Straight Flush">> <td style="background-color:blue"> <font color = yellow>150</font></td> <<elseif $myBet eq 3>><td><font color = yellow>150</font></td> <<else>><td>150</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Straight Flush">> <td style="background-color:blue"> <font color = yellow>200</font></td> <<elseif $myBet eq 4>><td><font color = yellow>200</font></td> <<else>><td>200</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Straight Flush">> <td style="background-color:blue"> <font color = yellow>250</font></td> <<elseif $myBet eq 5>><td><font color = yellow>250</font></td> <<else>><td>250</td><</if>> </tr> <tr> <th>Four of a kind</th> <<if $myBet eq 1 and $myFinalHand eq "Four of a kind">> <td style="background-color:blue"> <font color = yellow>25</font></td> <<elseif $myBet eq 1>><td><font color = yellow>25</font></td> <<else>><td>25</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Four of a kind">> <td style="background-color:blue"> <font color = yellow>50</font></td> <<elseif $myBet eq 2>><td><font color = yellow>50</font></td> <<else>><td>50</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Four of a kind">> <td style="background-color:blue"> <font color = yellow>75</font></td> <<elseif $myBet eq 3>><td><font color = yellow>75</font></td> <<else>><td>75</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Four of a kind">> <td style="background-color:blue"> <font color = yellow>100</font></td> <<elseif $myBet eq 4>><td><font color = yellow>100</font></td> <<else>><td>100</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Four of a kind">> <td style="background-color:blue"> <font color = yellow>125</font></td> <<elseif $myBet eq 5>><td><font color = yellow>125</font></td> <<else>><td>125</td><</if>> </tr> <tr> <th>Full House</th> <<if $myBet eq 1 and $myFinalHand eq "Full House">> <td style="background-color:blue"> <font color = yellow>9</font></td> <<elseif $myBet eq 1>><td><font color = yellow>9</font></td> <<else>><td>9</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Full House">> <td style="background-color:blue"> <font color = yellow>18</font></td> <<elseif $myBet eq 2>><td><font color = yellow>18</font></td> <<else>><td>18</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Full House">> <td style="background-color:blue"> <font color = yellow>27</font></td> <<elseif $myBet eq 3>><td><font color = yellow>27</font></td> <<else>><td>27</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Full House">> <td style="background-color:blue"> <font color = yellow>36</font></td> <<elseif $myBet eq 4>><td><font color = yellow>36</font></td> <<else>><td>36</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Full House">> <td style="background-color:blue"> <font color = yellow>45</font></td> <<elseif $myBet eq 5>><td><font color = yellow>45</font></td> <<else>><td>45</td><</if>> </tr> <tr> <th>Flush</th> <<if $myBet eq 1 and $myFinalHand eq "Flush">> <td style="background-color:blue"> <font color = yellow>6</font></td> <<elseif $myBet eq 1>><td><font color = yellow>6</font></td> <<else>><td>6</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Flush">> <td style="background-color:blue"> <font color = yellow>12</font></td> <<elseif $myBet eq 2>><td><font color = yellow>12</font></td> <<else>><td>12</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Flush">> <td style="background-color:blue"> <font color = yellow>18</font></td> <<elseif $myBet eq 3>><td><font color = yellow>18</font></td> <<else>><td>18</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Flush">> <td style="background-color:blue"> <font color = yellow>24</font></td> <<elseif $myBet eq 4>><td><font color = yellow>24</font></td> <<else>><td>24</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Flush">> <td style="background-color:blue"> <font color = yellow>30</font></td> <<elseif $myBet eq 5>><td><font color = yellow>30</font></td> <<else>><td>30</td><</if>> </tr> <tr> <th>Straight</th> <<if $myBet eq 1 and $myFinalHand eq "Straight">> <td style="background-color:blue"> <font color = yellow>4</font></td> <<elseif $myBet eq 1>><td><font color = yellow>4</font></td> <<else>><td>4</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Straight">> <td style="background-color:blue"> <font color = yellow>8</font></td> <<elseif $myBet eq 2>><td><font color = yellow>8</font></td> <<else>><td>8</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Straight">> <td style="background-color:blue"> <font color = yellow>12</font></td> <<elseif $myBet eq 3>><td><font color = yellow>12</font></td> <<else>><td>12</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Straight">> <td style="background-color:blue"> <font color = yellow>16</font></td> <<elseif $myBet eq 4>><td><font color = yellow>16</font></td> <<else>><td>16</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Straight">> <td style="background-color:blue"> <font color = yellow>20</font></td> <<elseif $myBet eq 5>><td><font color = yellow>20</font></td> <<else>><td>20</td><</if>> </tr> <tr> <th>Three of a kind</th> <<if $myBet eq 1 and $myFinalHand eq "Three of a kind">> <td style="background-color:blue"> <font color = yellow>3</font></td> <<elseif $myBet eq 1>><td><font color = yellow>3</font></td> <<else>><td>3</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Three of a kind">> <td style="background-color:blue"> <font color = yellow>6</font></td> <<elseif $myBet eq 2>><td><font color = yellow>6</font></td> <<else>><td>6</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Three of a kind">> <td style="background-color:blue"> <font color = yellow>9</font></td> <<elseif $myBet eq 3>><td><font color = yellow>9</font></td> <<else>><td>9</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Three of a kind">> <td style="background-color:blue"> <font color = yellow>12</font></td> <<elseif $myBet eq 4>><td><font color = yellow>12</font></td> <<else>><td>12</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Three of a kind">> <td style="background-color:blue"> <font color = yellow>15</font></td> <<elseif $myBet eq 5>><td><font color = yellow>15</font></td> <<else>><td>15</td><</if>> </tr> <tr> <th>Two Pair</th> <<if $myBet eq 1 and $myFinalHand eq "Two Pair">> <td style="background-color:blue"> <font color = yellow>2</font></td> <<elseif $myBet eq 1>><td><font color = yellow>2</font></td> <<else>><td>2</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "Two Pair">> <td style="background-color:blue"> <font color = yellow>4</font></td> <<elseif $myBet eq 2>><td><font color = yellow>4</font></td> <<else>><td>4</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "Two Pair">> <td style="background-color:blue"> <font color = yellow>6</font></td> <<elseif $myBet eq 3>><td><font color = yellow>6</font></td> <<else>><td>6</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "Two Pair">> <td style="background-color:blue"> <font color = yellow>8</font></td> <<elseif $myBet eq 4>><td><font color = yellow>8</font></td> <<else>><td>8</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "Two Pair">> <td style="background-color:blue"> <font color = yellow>10</font></td> <<elseif $myBet eq 5>><td><font color = yellow>10</font></td> <<else>><td>10</td><</if>> </tr> <tr> <th>Jacks or Better</th> <<if $myBet eq 1 and $myFinalHand eq "One pair of Jacks or better">> <td style="background-color:blue"> <font color = yellow>1</font></td> <<elseif $myBet eq 1>><td><font color = yellow>1</font></td> <<else>><td>1</td><</if>> <<if $myBet eq 2 and $myFinalHand eq "One pair of Jacks or better">> <td style="background-color:blue"> <font color = yellow>2</font></td> <<elseif $myBet eq 2>><td><font color = yellow>2</font></td> <<else>><td>2</td><</if>> <<if $myBet eq 3 and $myFinalHand eq "One pair of Jacks or better">> <td style="background-color:blue"> <font color = yellow>3</font></td> <<elseif $myBet eq 3>><td><font color = yellow>3</font></td> <<else>><td>3</td><</if>> <<if $myBet eq 4 and $myFinalHand eq "One pair of Jacks or better">> <td style="background-color:blue"> <font color = yellow>4</font></td> <<elseif $myBet eq 4>><td><font color = yellow>4</font></td> <<else>><td>4</td><</if>> <<if $myBet eq 5 and $myFinalHand eq "One pair of Jacks or better">> <td style="background-color:blue"> <font color = yellow>5</font></td> <<elseif $myBet eq 5>><td><font color = yellow>5</font></td> <<else>><td>5</td><</if>> </tr> </table> <<if $cardPhase eq "bet">> <br>You have $<<print $myMoney.toFixed(2)>><br><br> <<set $myCashWin = 0>> <<shufflecards>> <<updatesuitcolors>> <<if $myMoney gte .25>> <<link "Bet 25¢">> <<set $myBet = 1>><<set $cardPhase = "draw">> <<set $myMoney -= .25>><<goto "Play J or B">><</link>><br> <<else>> You don't have enough money to play Jacks or Better at this time. <br> <</if>> <<if $myMoney gte .5>> <<link "Bet 50¢">> <<set $myBet = 2>><<set $cardPhase = "draw">> <<set $myMoney -= .5>><<goto "Play J or B">><</link>><br> <</if>> <<if $myMoney gte .75>> <<link "Bet 75¢">> <<set $myBet = 3>><<set $cardPhase = "draw">> <<set $myMoney -= .75>><<goto "Play J or B">><</link>><br> <</if>> <<if $myMoney gte 1>> <<link "Bet $1.00">><<set $myBet = 4>><<set $cardPhase = "draw">> <<set $myMoney -= 1>><<goto "Play J or B">><</link>><br> <</if>> <<if $myMoney gte 1.25>> <<link "Bet $1.25">><<set $myBet = 5>><<set $cardPhase = "draw">> <<set $myMoney -= 1.25>><<goto "Play J or B">><</link>><br> <</if>> <<else>> <<if $cardPhase eq "draw">> <<set $replaceCard1 = true>> <<set $replaceCard2 = true>> <<set $replaceCard3 = true>> <<set $replaceCard4 = true>> <<set $replaceCard5 = true>> /% TESTING HANDS <<set $myCardHand[0] = $cardIndex[$cardIndex.indexOf(44)]>> <<set $myCardHand[1] = $cardIndex[$cardIndex.indexOf(2)]>> <<set $myCardHand[2] = $cardIndex[$cardIndex.indexOf(27)]>> <<set $myCardHand[3] = $cardIndex[$cardIndex.indexOf(29)]>> <<set $myCardHand[4] = $cardIndex[$cardIndex.indexOf(43)]>> %/ <<set $myCardHand[0] = $cardIndex[0]>> <<set $myCardHand[1] = $cardIndex[1]>> <<set $myCardHand[2] = $cardIndex[2]>> <<set $myCardHand[3] = $cardIndex[3]>> <<set $myCardHand[4] = $cardIndex[4]>> <</if>> <br> <<if $cardPhase eq "results" and $replaceCard1 eq true>> <<set $myCardHand[0] = $cardIndex[5]>> <</if>> <<if $cardPhase eq "results" and $replaceCard2 eq true>> <<set $myCardHand[1] = $cardIndex[6]>> <</if>> <<if $cardPhase eq "results" and $replaceCard3 eq true>> <<set $myCardHand[2] = $cardIndex[7]>> <</if>> <<if $cardPhase eq "results" and $replaceCard4 eq true>> <<set $myCardHand[3] = $cardIndex[8]>> <</if>> <<if $cardPhase eq "results" and $replaceCard5 eq true>> <<set $myCardHand[4] = $cardIndex[9]>> <</if>> <table id="jackcards"> <tr> <th>Cards</th> <td> <<if $replaceCard1 eq false or $cardPhase eq "draw">> <span @style='"color: "+$cardSuitColor[0]'> <font size = 6> <<print $cardName[$myCardHand[0]]>></font><br> <<showsuit 0>> /%<<print $cardSuit[$myCardHand[0]]>>%/</span> <<elseif $replaceCard1 eq true>> <span @style='"color: "+$cardSuitColor[5]'> <font size = 6> <<print $cardName[$myCardHand[0]]>></font><br> <<showsuit 0>> /%<<print $cardSuit[$myCardHand[0]]>>%/</span> <</if>> </td> <td> <<if $replaceCard2 eq false or $cardPhase eq "draw">> <span @style='"color: "+$cardSuitColor[1]'> <font size = 6> <<print $cardName[$myCardHand[1]]>></font><br> <<showsuit 1>> /%<<print $cardSuit[$myCardHand[1]]>>%/</span> <<elseif $replaceCard2 eq true>> <span @style='"color: "+$cardSuitColor[6]'> <font size = 6> <<print $cardName[$myCardHand[1]]>></font><br> <<showsuit 1>> /%<<print $cardSuit[$myCardHand[1]]>>%/</span> <</if>> </td> <td> <<if $replaceCard3 eq false or $cardPhase eq "draw">> <span @style='"color: "+$cardSuitColor[2]'> <font size = 6> <<print $cardName[$myCardHand[2]]>></font><br> <<showsuit 2>> /%<<print $cardSuit[$myCardHand[2]]>>%/</span> <<elseif $replaceCard3 eq true>> <span @style='"color: "+$cardSuitColor[7]'> <font size = 6> <<print $cardName[$myCardHand[2]]>></font><br> <<showsuit 2>> /%<<print $cardSuit[$myCardHand[2]]>>%/</span> <</if>> </td> <td> <<if $replaceCard4 eq false or $cardPhase eq "draw">> <span @style='"color: "+$cardSuitColor[3]'> <font size = 6> <<print $cardName[$myCardHand[3]]>></font><br> <<showsuit 3>> /%<<print $cardSuit[$myCardHand[3]]>>%/</span> <<elseif $replaceCard4 eq true>> <span @style='"color: "+$cardSuitColor[8]'> <font size = 6> <<print $cardName[$myCardHand[3]]>></font><br> <<showsuit 3>> /%<<print $cardSuit[$myCardHand[3]]>>%/</span> <</if>> </td> <td> <<if $replaceCard5 eq false or $cardPhase eq "draw">> <span @style='"color: "+$cardSuitColor[4]'> <font size = 6> <<print $cardName[$myCardHand[4]]>></font><br> <<showsuit 4>> /%<<print $cardSuit[$myCardHand[4]]>>%/</span> <<elseif $replaceCard5 eq true>> <span @style='"color: "+$cardSuitColor[9]'> <font size = 6> <<print $cardName[$myCardHand[4]]>></font><br> <<showsuit 4>> /%<<print $cardSuit[$myCardHand[4]]>>%/</span> <</if>> </td> </tr> <tr> <th><<if $cardPhase eq "draw">>Keep Card?<<else>>Decision<</if>></th> <th><<if $cardPhase eq "draw">><<linkreplace "Click to Keep">>Keeping Card<<set $replaceCard1 = false>><</linkreplace>><<elseif $replaceCard1 eq false>>---- kept ----<<else>><font color = orange>---- drew ----</font><</if>></th> <th><<if $cardPhase eq "draw">><<linkreplace "Click to Keep">>Keeping Card<<set $replaceCard2 = false>><</linkreplace>><<elseif $replaceCard2 eq false>>---- kept ----<<else>><font color = orange>---- drew ----</font><</if>></th> <th><<if $cardPhase eq "draw">><<linkreplace "Click to Keep">>Keeping Card<<set $replaceCard3 = false>><</linkreplace>><<elseif $replaceCard3 eq false>>---- kept ----<<else>><font color = orange>---- drew ----</font><</if>></th> <th><<if $cardPhase eq "draw">><<linkreplace "Click to Keep">>Keeping Card<<set $replaceCard4 = false>><</linkreplace>><<elseif $replaceCard4 eq false>>---- kept ----<<else>><font color = orange>---- drew ----</font><</if>></th> <th><<if $cardPhase eq "draw">><<linkreplace "Click to Keep">>Keeping Card<<set $replaceCard5 = false>><</linkreplace>><<elseif $replaceCard5 eq false>>---- kept ----<<else>><font color = orange>---- drew ----</font><</if>></th> </tr> </table> <<if $cardPhase eq "final">> <<set $myValueHand[0] = $cardValue[$myCardHand[0]]>> <<set $myValueHand[1] = $cardValue[$myCardHand[1]]>> <<set $myValueHand[2] = $cardValue[$myCardHand[2]]>> <<set $myValueHand[3] = $cardValue[$myCardHand[3]]>> <<set $myValueHand[4] = $cardValue[$myCardHand[4]]>> <<set $unsortedCardHand = [$myCardHand[0], $myCardHand[1], $myCardHand[2], $myCardHand[3], $myCardHand[4]]>> <<sortmycardhand>> <<set $unsortedValueHand = [$myValueHand[0], $myValueHand[1], $myValueHand[2], $myValueHand[3], $myValueHand[4]]>> <<sortmyvaluehand>> <<set $isFlush = false>><<set $isStraight = false>> <<if ($myCardHand[0] lte 12 and $myCardHand[4] lte 12) or ($myCardHand[0] lte 25 and $myCardHand[0] gte 13 and $myCardHand[4] lte 25 and $myCardHand[4] gte 13) or ($myCardHand[0] lte 38 and $myCardHand[0] gte 26 and $myCardHand[4] lte 38 and $myCardHand[4] gte 26) or ($myCardHand[0] lte 51 and $myCardHand[0] gte 39 and $myCardHand[4] lte 51 and $myCardHand[4] gte 39)>> <<set $isFlush = true>> <</if>> <<if $myValueHand[4] eq ($myValueHand[3]+1) and $myValueHand[3] eq ($myValueHand[2]+1) and $myValueHand[2] eq ($myValueHand[1]+1) and $myValueHand[1] eq ($myValueHand[0]+1)>> <<set $isStraight = true>> <</if>> <<if $myValueHand[4] eq ($myValueHand[3]+1) and $myValueHand[3] eq ($myValueHand[2]+1) and $myValueHand[2] eq ($myValueHand[1]+1) and ($myValueHand[0] eq 1 and $myValueHand[4] eq 13)>> <<set $isStraight = true>> <</if>> <<set $quads = 0>><<set $trips = 0>><<set $pairs = 0>> <<set $jacksOrBetter = false>> <<set $myFinalHand = "No winner">> <<for $i = 1; $i < 14; $i++>> <<if $myValueHand.count($i) eq 4>> <<set $quads += 1>> <<elseif $myValueHand.count($i) eq 3>> <<set $trips += 1>> <<elseif $myValueHand.count($i) eq 2>> <<set $pairs += 1>> <<if $i eq 11 or $i eq 12 or $i eq 13 or $i eq 1>> <<set $jacksOrBetter = true>> <</if>> <</if>> <</for>> <<if $isFlush eq true and $isStraight eq true and $myValueHand[4] eq 13 and $myValueHand[0] eq 1>> <<set $myFinalHand = "Royal Flush">> <<set $myCashWin = $royalFlushPay[$myBet-1]>> <<elseif $isFlush eq true and $isStraight eq true>> <<set $myFinalHand = "Straight Flush">> <<set $myCashWin = $straightFlushPay[$myBet-1]>> <<elseif $quads eq 1>> <<set $myFinalHand = "Four of a kind">> <<set $myCashWin = $fourOfKindPay[$myBet-1]>> <<elseif $trips eq 1 and $pairs eq 1>> <<set $myFinalHand = "Full House">> <<set $myCashWin = $fullHousePay[$myBet-1]>> <<elseif $isFlush eq true>> <<set $myFinalHand = "Flush">> <<set $myCashWin = $flushPay[$myBet-1]>> <<elseif $isStraight eq true>> <<set $myFinalHand = "Straight">> <<set $myCashWin = $straightPay[$myBet-1]>> <<elseif $trips eq 1>> <<set $myFinalHand = "Three of a kind">> <<set $myCashWin = $threeOfKindPay[$myBet-1]>> <<elseif $pairs eq 2>> <<set $myFinalHand = "Two Pair">> <<set $myCashWin = $twoPairPay[$myBet-1]>> <<elseif $jacksOrBetter eq true>> <<set $myFinalHand = "One pair of Jacks or better">> <<set $myCashWin = $onePairPay[$myBet-1]>> <</if>> <<for $i = 0; $i < 5; $i++>> <<set $myCardHand[$i] = $unsortedCardHand[$i]>> <<set $myValueHand[$i] = $unsortedValueHand[$i]>> <</for>> <</if>> <<if $cardPhase eq "draw">> <br> <<link "Happy with my decisions, Draw Cards">> <<set $cardPhase = "results">> <<goto "Play J or B">><</link>> <br><br> <<link "Changed my mind, reset all cards">> <<goto "Play J or B">><</link>> <<elseif $cardPhase neq "final">> <<if $cardPhase neq "refresh">> <<set $cardPhase = "final">> <<goto "Play J or B">> <<else>> <<print $myFinalHand>> <<if $myFinalHand eq "No winner">> - <<print "You Lost $"+ (.25*$myBet).toFixed(2)>> <<else>> - <<print "You win "+$myCashWin+" credits ($"+($myCashWin*.25).toFixed(2)+")">> <<set $myFinalHand = "No winner">> <</if>> <br> <<link "Play another hand">><<set $cardPhase = "bet">> <<set $myBet = 0>><<goto "Play J or B">><</link>> <br><br> [[Quit for now|Casino]] <</if>> <<elseif $cardPhase eq "final">> <<set $cardPhase = "refresh">> <<set $myMoney += ($myCashWin*.25)>> <<set $playJacks += 1>> <<goto "Play J or B">> <</if>> <</if>> <</nobr>> /%[[View my surroundings|Casino]]%/
<<nobr>> <table <table id="keno40"> <th colspan = "10">KENO</th> <<for $i = 0; $i < 8; $i++>> <tr> <<for $j = 1; $j < 11; $j++>> <<set $kenoNum = ($j+($i*10))>> <<if $mySpots lt $myMaxSpots and $myPicked.count($kenoNum) eq 0>> <td><<kenoCard $kenoNum>></td> <<elseif $kenoPicked.count($kenoNum) eq 1 and $showWinners eq true and $myPicked.count($kenoNum) eq 1>> <td style="background-color:red"> <font color = yellow>$kenoNum</font></td> <<elseif $showWinners eq true and $kenoPicked.count($kenoNum) eq 1>> <td style="background-color:blue"> <font color = white>$kenoNum</font></td> <<elseif $myPicked.count($kenoNum) eq 1>> <td><b><font color = yellow>$kenoNum</font></b></td> <<else>> <td>$kenoNum</td> <</if>> <</for>> </tr> <</for>> </table> <<if $mySpots eq $myMaxSpots and $showWinners eq false>> <<link "Click to see winning numbers">> <<set $showWinners = true>><<goto "Play KENO">><</link>> <<elseif $showWinners eq false>> Numbers remaining to pick: <<print $myMaxSpots-$mySpots>> <</if>> <<if $showWinners eq true>> Blue backgrounds are Keno results, Red backgrounds are matches <br><br>The winning numbers... <<fadein 1s>><<print $kenoPicked[19]>>,<</fadein>> <<fadein 1s 100ms>><<print $kenoPicked[18]>>,<</fadein>> <<fadein 1s 150ms>><<print $kenoPicked[17]>>,<</fadein>> <<fadein 1s 200ms>><<print $kenoPicked[16]>>,<</fadein>> <<fadein 1s 250ms>><<print $kenoPicked[15]>>,<</fadein>> <<fadein 1s 300ms>><<print $kenoPicked[14]>>,<</fadein>> <<fadein 1s 350ms>><<print $kenoPicked[13]>>,<</fadein>> <<fadein 1s 400ms>><<print $kenoPicked[12]>>,<</fadein>> <<fadein 1s 450ms>><<print $kenoPicked[11]>>,<</fadein>> <<fadein 1s 500ms>><<print $kenoPicked[10]>>,<</fadein>> <<fadein 1s 550ms>><<print $kenoPicked[9]>>,<</fadein>> <<fadein 1s 600ms>><<print $kenoPicked[8]>>,<</fadein>> <<fadein 1s 650ms>><<print $kenoPicked[7]>>,<</fadein>> <<fadein 1s 700ms>><<print $kenoPicked[6]>>,<</fadein>> <<fadein 1s 750ms>><<print $kenoPicked[5]>>,<</fadein>> <<fadein 1s 800ms>><<print $kenoPicked[4]>>,<</fadein>> <<fadein 1s 850ms>><<print $kenoPicked[3]>>,<</fadein>> <<fadein 1s 900ms>><<print $kenoPicked[2]>>,<</fadein>> <<fadein 1s 950ms>><<print $kenoPicked[1]>>,<</fadein>> <<fadein 1s 1000ms>><<print $kenoPicked[0]>><</fadein>> <br> <<set $myKenoMatches = 0>> <<for $i = 0; $i < $myPicked.length; $i++>> <<if $kenoPicked.count($myPicked[$i]) eq 1>> <<set $myKenoMatches += 1>> <</if>> <</for>> <br> <<fadein 2s 1s>>You had <<print $myKenoMatches>> <<if $myKenoMatches eq 1>>match.<<else>>matches. <</if>><</fadein>> <<if $myMaxSpots eq 1>> <<set $kenoPayout = $spot1Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 2>> <<set $kenoPayout = $spot2Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 3>> <<set $kenoPayout = $spot3Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 4>> <<set $kenoPayout = $spot4Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 5>> <<set $kenoPayout = $spot5Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 6>> <<set $kenoPayout = $spot6Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 7>> <<set $kenoPayout = $spot7Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 8>> <<set $kenoPayout = $spot8Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 9>> <<set $kenoPayout = $spot9Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 10>> <<set $kenoPayout = $spot10Prize[$myKenoMatches]>> <<elseif $myMaxSpots eq 20>> <<set $kenoPayout = $spot20Prize[$myKenoMatches]>> <<else>> <<set $kenoPayout = 0>> <</if>> <<set $myMoney += $kenoPayout>> <<set $playKeno += 1>> <<fadein 2s 2s>>Your Keno card pays: $<<print $kenoPayout.toFixed(2)>> <</fadein>> <br> <<if $myMoney gte 1>> <<fadein 1s 3s>>[[Play Again|KENO]] or<</fadein>> <<else>> <<fadein 1s 3s>> You don't have enough money to play KENO again. <</fadein>> <br> <</if>> <<fadein 1s 3s>>[[Quit for now|Casino]]<</fadein>> <</if>> <</nobr>>
<<nobr>> <<set $mySpots = 0>> <<set $myMaxSpots = 2>> <<set $myPicked = []>> <<set $kenoNumbers = []>> <<set $kenoPicked = []>> <<set $kenoPayout = 0>> <<set $spot1Prize = [0,2]>> <<set $spot2Prize = [0,1,5]>> <<set $spot3Prize = [0,0,2,30]>> <<set $spot4Prize = [0,0,1,4,100]>> <<set $spot5Prize = [0,0,0,2,20,450]>> <<set $spot6Prize = [0,0,0,1,7,50,1500]>> <<set $spot7Prize = [0,0,0,1,3,20,100,5000]>> <<set $spot8Prize = [0,0,0,0,2,10,50,1000,15000]>> <<set $spot9Prize = [0,0,0,0,1,5,25,200,4000,40000]>> <<set $spot10Prize = [2,0,0,0,0,2,20,80,500,10000,100000]>> <<set $spot20Prize = [100,2,1,1,0,0,0,1,2,4,10,40,200,1000,2500,500,7500,10000,15000,20000,25000]>> <<set $showWinners = false>> <<for $i = 1; $i < 81; $i++>> <<set $kenoNumbers[$i-1] = $i>> <</for>> <<set $kenoNumbers.shuffle()>> <<for $i = 0; $i < 20; $i++>> <<set $kenoPicked[$i] = $kenoNumbers[$i]>> <</for>> Play KENO for $1. <br><br> Pick how many spots you want to play. <br> <table id ="kenoPayouts" border> <tr> <th></th> <th colspan = 2> <<link "Play 1 spot">> <<set $myMoney -= 1>> <<set $myMaxSpots = 1>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 3> <<link "Play 2 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 2>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 4> <<link "Play 3 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 3>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 5> <<link "Play 4 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 4>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 6> <<link "Play 5 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 5>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 7> <<link "Play 6 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 6>><<goto "Play KENO">> <</link>></th> <th></th> </tr> <tr> <th>Match</th> <td>0</td> <td>1</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <th></th> </tr> <tr> <th>Prize $</th> <td>0</td> <td>2</td> <th></th> <td>0</td> <td>1</td> <td>5</td> <th></th> <td>0</td> <td>0</td> <td>2</td> <td>30</td> <th></th> <td>0</td> <td>0</td> <td>1</td> <td>4</td> <td>100</td> <th></th> <td>0</td> <td>0</td> <td>0</td> <td>2</td> <td>20</td> <td>450</td> <th></th> <td>0</td> <td>0</td> <td>0</td> <td>1</td> <td>7</td> <td>50</td> <td>1500</td> <th></th> </tr> <tr> <th colspan = 34></th> </tr> </table> <table id ="kenoPayouts" border> <tr> <th></th> <th colspan = 8> <<link "Play 7 spot">> <<set $myMoney -= 1>> <<set $myMaxSpots = 7>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 9> <<link "Play 8 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 8>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 10> <<link "Play 9 spots">> <<set $myMoney -= 1>> <<set $myMaxSpots = 9>><<goto "Play KENO">> <</link>></th> <th></th> </tr> <tr> <th>Match</th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <td>7</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <td>7</td> <td>8</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <td>7</td> <td>8</td> <td>9</td> <th></th> </tr> <tr> <th>Prize $</th> <td>0</td> <td>0</td> <td>0</td> <td>1</td> <td>3</td> <td>20</td> <td>100</td> <td>5000</td> <th></th> <td>0</td> <td>0</td> <td>0</td> <td>0</td> <td>2</td> <td>10</td> <td>50</td> <td>1000</td> <td>15000</td> <th></th> <td>0</td> <td>0</td> <td>0</td> <td>0</td> <td>1</td> <td>5</td> <td>25</td> <td>200</td> <td>4000</td> <td>40000</td> <th></th> </tr> <tr> <th colspan = 31></th> </tr> </table> <table id ="kenoPayouts" border> <tr> <th></th> <th colspan = 11> <<link "Play 10 spot">> <<set $myMoney -= 1>>> <<set $myMaxSpots = 10>><<goto "Play KENO">> <</link>></th> <th></th> <th colspan = 21> <<link "Play special 20 spot">> <<set $myMoney -= 1>> <<set $myMaxSpots = 20>><<goto "Play KENO">> <</link>></th> <th></th> </tr> <tr> <th>Match</th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <td>7</td> <td>8</td> <td>9</td> <td>10</td> <th></th> <td>0</td> <td>1</td> <td>2</td> <td>3</td> <td>4</td> <td>5</td> <td>6</td> <td>7</td> <td>8</td> <td>9</td> <td>10</td> <td>11</td> <td>12</td> <td>13</td> <td>14</td> <td>15</td> <td>16</td> <td>17</td> <td>18</td> <td>19</td> <td>20</td> <th></th> </tr> <tr> <th>Prize $</th> <td>2</td> <td>0</td> <td>0</td> <td>0</td> <td>0</td> <td>2</td> <td>20</td> <td>80</td> <td>500</td> <td>10000</td> <td>100000</td> <th></th> <td>100</td> <td>2</td> <td>1</td> <td>1</td> <td>0</td> <td>0</td> <td>0</td> <td>1</td> <td>2</td> <td>4</td> <td>10</td> <td>40</td> <td>200</td> <td>1000</td> <td>2500</td> <td>5000</td> <td>7500</td> <td>10000</td> <td>15000</td> <td>20000</td> <td>25000</td> <th></th> </tr> <tr> <th colspan = 35></th> </tr> </table> <</nobr>> [[View my surroundings|Casino]]
<<nobr>> Win first $ amount you match!<br> /%<<print $matchAmount>><br>%/ <<set $mgTurn += 1>> <<if $mgPicked.length gt 0>> <<if $mgPicked.count($mgLastPick) eq 2>> <<if $mgNewMult eq false and ($mgLastPick eq "2x" or $mgLastPick eq "3x" or $mgLastPick eq "4x")>> You have a new multiplier! It can't be changed!<br> <<set $mgMultLast = $mgSquare[$mgTurn-1]>> <<set $mgMultFirst =$mgSquare[$mgPicked.indexOf($mgLastPick)]>> <<set $mgNewMult = true>> <<set $mgMult = $mgLastPick>> <<elseif $mgLastPick lte 50>> <<set $mgWin = true>> <<if $mgMult eq "1x">> <<set _temp = 1>> <<elseif $mgMult eq "2x">> <<set _temp = 2>> <<elseif $mgMult eq "3x">> <<set _temp = 3>> <<else>> <<set _temp = 4>> <</if>> <font color = yellow>You matched on <<print $mgLastPick>>!<br> $<<print $mgLastPick>> with a multiplier of <<print $mgMult>> is $<<print $mgLastPick * _temp>><br><br></font> <<set $mgWinAmt = $mgLastPick * _temp>> <<set $myMoney += $mgWinAmt>> <<if $mgWinAmt eq 0>>Sorry, you didn't win anything!<</if>> <</if>> <<elseif $mgNewMult eq false and ($mgLastPick eq "2x" or $mgLastPick eq "3x" or $mgLastPick eq "4x")>><font color = yellow>You found a multiplier! Find a match to lock in that multipler.</font> <<else>> No $ matches yet. Choose another. <</if>> <</if>> <<if $mgWin eq false>> <br>Current Multiple is <<print $mgMult>> <<if $mgNewMult eq true>> (locked in)<</if>><br> <</if>> <table id="matchgame"> <tr> <th><font color = red>Column 1</font></th> <th><font color = red>Column 2</font></th> <th><font color = red>Column 3</font></th> <th><font color = red>Column 4</font></th> <th><font color = red>Column 5</font></th> <th><font color = red>Column 6</font></th> <th><font color = red>Column 7</font></th> </tr> <<for $i = 0; $i < 7; $i++>> <tr> <<for $j = 0; $j < 7; $j++>> <<set $bonusNum = ($j+($i*7))>> <<if ($mgSquare.count($bonusNum) eq 1 and $mgWin eq true and $mgLastPick eq $matchAmount[$bonusNum] and $mgLastPick lte 50) or ($mgMultFirst eq $bonusNum or $mgMultLast eq $bonusNum)>> <td style="background-color:red"> <<mgBonus1 $bonusNum>></td> <<else>> <td><<mgBonus1 $bonusNum>></td> <</if>> <</for>> </tr> <</for>> </table> <br> <<if $mgWin eq true>> [[Back to slot machine|3 Fruit Slot Machine]] <</if>> <</nobr>>
<<nobr>> <<set $playSlots += 1>> <<set $myMoney -= .75>> <<set $matchAmount = ["2x","2x","2x","2x","3x","3x","3x","4x","4x", 0,0,0,0,0,0,0,0,0,0, 0,0,5,5,5,5,5,5,5,5, 10,10,10,10,10,10,15,15,15,15, 15,20,20,20,20,25,25,25,50,50]>> <<set $matchAmount.shuffle()>> <<set $mgLastPick = -1>> <<set $mgPicked = []>> <<set $mgTurn = -1>> <<set $mgSquare = []>> <<set $mgWin = false>> <<set $mgMult = "1x">> <<set $mgNewMult = false>> <<set $mgWinAmt = 0>> <<set $mgMultLast = -1>> <<set $mgMultFirst = -1>> <<set $slotBonus = 0>> <<set $lemonPay = [0,.25,2,20,240]>> <<set $watermelonPay = [0,.5,4,40,480]>> <<set $cherryPay = [0,.75,6,60,720]>> <<set $spinValue = ["cherry", "cherry", "cherry", "cherry", "cherry", "watermelon", "watermelon", "watermelon", "watermelon", "watermelon", "watermelon", "lemon", "lemon", "lemon", "lemon", "lemon", "lemon", "lemon", "bonus", "bonus"]>> <<set $spinValue.shuffle()>> <table id = "slot1"> <tr> <th colspan=5><font size = 6>75¢ Slot Machine</font></th> </tr> <tr> <td><font size = 6>Result 1</font></td> <td><font size = 6>Result 2</font></td> <td><font size = 6>Result 3</font></td> <td><font size = 6>Result 4</font></td> <td><font size = 6>Result 5</font></td> </tr> <tr> <td><<fadein 2s>><<slotresult $spinValue[0]>><</fadein>></td> <td><<fadein 2s 500ms>><<slotresult $spinValue[1]>><</fadein>></td> <td><<fadein 2s 1s>><<slotresult $spinValue[2]>><</fadein>></td> <td><<fadein 2s 1500ms>><<slotresult $spinValue[3]>><</fadein>></td> <td><<fadein 2s 2s>><<slotresult $spinValue[4]>><</fadein>></td> </tr> </table> <<set $spinWin = 0>> <<for $i=4; $i>0; $i-->> <<if $spinValue[$i] eq $spinValue[$i-1] and $spinValue[$i-1] neq "bonus">> <<set $spinWin += 1>> <<else>> <<set $spinWin = 0>> <</if>> <</for>> <<if $spinValue[0] eq "lemon">> <<set $mgWinAmt = $lemonPay[$spinWin]>> <<elseif $spinValue[0] eq "watermelon">> <<set $mgWinAmt = $watermelonPay[$spinWin]>> <<elseif $spinValue[0] eq "cherry">> <<set $mgWinAmt = $cherryPay[$spinWin]>> <<else>> <<set $mgWinAmt = 0>> <</if>> You pull the handle. <<fadein 2s 2s>>The slot machine pays $ <<print $mgWinAmt.toFixed(2)>><</fadein>> <<set $myMoney += $mgWinAmt>> <<set $mgWinAmt = 0>> <</nobr>> <<if $slotBonus lt 2>><<fadein 1s 3s>> <<if $myMoney gte .75>> <<link "Pull handle for 75¢">><<goto "3 Fruit Results">> <</link>> <<else>> You don't have enough money to play the slot machine at this time. <</if>> /%[[Pull Handle|3 Fruit Results]]%/ [[See Payouts|Slot1 Payouts]] [[Walk away from slot machine|Casino]] <</fadein>> <<else>> <<fadein 1s 3s>> Your spin triggers a Bonus game!<br> [[Go to Bonus Game|Play Match Game]] <</fadein>> <</if>>
<<nobr>> <<set $playRace += 1>> <table id="slot1payouts"> <tr> <th colspan = 4><font color = black size = 5>SLOT PAYOUTS</font></th> </tr> <tr> <td>FRUITS</td> <td><font color = yellow>🍋</font></td> <td><font color = pink>🍉</font></td> <td><font color = red>🍒</font></td> </tr> <tr> <td><font color = pink>1st two match</font></td> <td>25¢</td> <td>50¢</td> <td>75¢</td> </tr> <tr> <td><font color = pink>1st three match</font></td> <td>$2</td> <td>$4</td> <td>$6</td> </tr> <tr> <td><font color = pink>1st four match</font></td> <td>$20</td> <td>$40</td> <td>$60</td> </tr> <tr> <td><font color = pink>All five match</font></td> <td>$240</td> <td>$480</td> <td>$720</td> </tr> <tr> <td><font color = orange>Any 2 💰</font></td> <td colspan =3><font color = orange> Bonus Match Game Screen</font></td> </tr> </table> <</nobr>> [[Back to slot machine|3 Fruit Slot Machine]]
This is the casino area. It's a very large casino, full of all sorts of ways to gamble. There are a couple of slot machines that catch your eye. There is a newer digital 75¢ three fruit [[Slot Machine|3 Fruit Slot Machine]] next to you and there is also a [[Jacks or Better draw poker|Jacks or Better]] quarter video machine nearby. Also not too far away is a $1 [[KENO|CheckforDollar]] area and a Sports betting area where you can bet on a [[Horse Race|Sports Betting]]. Down a long wide hallway is the [[Convention room]] for RetroCON 2021. The hotel [[Lobby]] is not too far away either.
A 75¢ digital three fruit slot machine.<br> <<if $myMoney gte .75>> <<link "Pull handle for 75¢">><<goto "3 Fruit Results">> <</link>> <<else>> You don't have enough money to play the slot machine at this time. <</if>> [[See Slot Payouts|Slot1 Payouts]] [[View surroundings|Casino]]
A big sign that says <font color = yellow>"Welcome to RetroCON 2021"</font> hangs above a large entrance in front of you. This is the convention where all the old computer games from the 20th century are on display. The lines seem quite long at most booths. A few games catch your eye that you haven't seen in quite some time and wouldn't mind playing again if given the chance. <<link "Two Minute Drill">><<goto "Two Minute Drill">> <<set $playDrill += 1>><<set $fbClock = 120>><</link>>, a text-based football game, is an old favorite you used to play on an old Apple IIe that you had. [[Dozen Dead Zed]], a fun zombie killing card game. [[Last Will and Testament|Crappy Parser]], a parser game written in Crappy Parser v1.01. This is pre-Zork days, so it isn't the best, but you recall it being a good time and wouldn't mind trying it again. There's even an old arcade section along with some old pinball machines. Those all seem quite popular as they all seem occupied at the moment. <<nobr>> /%<<linkreplace "Elementary Friends">>LOADING.....<<goto "RPG Setup">><</linkreplace>>, an old school RPG game that you never played, but used to be a popular hit. %/ <</nobr>> ------------------------------------ [[Walk back towards Casino|Casino]] [[Walk back to hotel Lobby|Lobby]]
<<nobr>> <<set $fbYdLine = $ydLine>> <<set $fbTenYds = $fbYdLine - $fbYdLine%10>> <<set $fbSingleYds = $fbYdLine - $fbTenYds>> <<if $fbSingleYds eq 0>><<set $fbOnMain = true>> <<else>><<set $fbOnMain = false>><</if>> <<set $fbMain = $fbTenYds/10>> <table id="retrofb" border> <tr> <td style="background-color: #654321">┏</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <<for $i = 0; $i < 10; $i++>> <td style="background-color:#654321">┬</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <td style="background-color:#654321">┳</td> <</for>> <td style="background-color:#654321">┬</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">╍</td> <td style="background-color:#654321">┓</td> </tr> <<set $lastYd = true>><<set $startYd = 1>> <<set $ydUp = true>> <<for $i = 1; $i < 10; $i++>> <tr> <<if $i eq 4 or $i eq 6>> <td style="background-color: #654321">╋</td> <<else>> <td style="background-color: #654321">┃</td> <</if>> <td style="background-color:silver"></td> <<if $i eq 2 or $i eq 8>> <td style="background-color:silver"> <font color = red size = 4>E</font></td> <<elseif $i eq 3 or $i eq 7>> <td style="background-color:silver"> <font color = red size = 4>N</font></td> <<elseif $i eq 4>> <td style="background-color:silver"> <font color = red size = 4>D</font></td> <<elseif $i eq 5>> <td style="background-color:silver"> <font color = red size = 4>Z</font></td> <<elseif $i eq 6>> <td style="background-color:silver"> <font color = red size = 4>O</font></td> <<else>> <td style="background-color:silver"></td> <</if>> <td style="background-color:silver"></td> <td style="background-color:silver"></td> <td style="background-color:green">│</td> <<for $j = 0; $j < 10; $j++>> <<if $i eq 2 or $i eq 8>> <<if $lastYd eq false>> <<if $j eq 0>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">0</td> <</if>> <td style="background-color:green"></td> <td style="background-color:green"></td> <<if $j eq 9>> <td style="background-color:green"></td> <<set $startYd = 0>> <<else>> <td style="background-color:green">$startYd</td> <</if>> <<if $ydUp eq true>> <<set $startYd += 1>> <<if $startYd eq 6>> <<set $startYd = 4>> <<set $ydUp = false>> <</if>> <<else>> <<set $startYd -= 1>> <<if $startYd eq 0>> <<set $startYd = 1>> <<set $ydUp = true>> <</if>> <</if>> <<set $lastYd = true>> <<else>> <<if $j eq 0>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">0</td> <</if>> <td style="background-color:green"></td> <td style="background-color:green"></td> <<if $j eq 9>> <td style="background-color:green"></td> <<else>> <td style="background-color:green">$startYd</td> <</if>> <<if $ydUp eq true>> <<set $startYd += 1>> <<if $startYd eq 6>> <<set $startYd = 4>> <<set $ydUp = false>> <</if>> <<else>> <<set $startYd -= 1>> <<if $startYd eq 0>> <<set $startYd = 1>> <<set $ydUp = true>> <</if>> <</if>> <<set $lastYd = false>> <</if>> <<elseif $i eq 4 or $i eq 6>> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <td style="background-color:green">╹</td> <<elseif $i eq 5 and $fbOnMain eq false and $j eq $fbMain>> <<if $fbSingleYds lte 3>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 5 and $fbSingleYds gt 3>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 7 and $fbSingleYds gt 5>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<if $fbSingleYds lte 9 and $fbSingleYds gt 7>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green"></td> <</if>> <<else>> <td style="background-color:green"></td> <td style="background-color:green"></td> <td style="background-color:green"></td> <td style="background-color:green"></td> <</if>> <<if $fbOnMain eq true and $j eq $fbMain-1 and $i eq 5>> <td style="background-color:green"> <font size = 2>🏈</font></td> <<else>> <td style="background-color:green">│</td> <</if>> <</for>> <td style="background-color:silver"></td> <td style="background-color:silver"></td> <<if $i eq 2 or $i eq 8>> <td style="background-color:silver"> <font color = red size = 4>E</font></td> <<elseif $i eq 3 or $i eq 7>> <td style="background-color:silver"> <font color = red size = 4>N</font></td> <<elseif $i eq 4>> <td style="background-color:silver"> <font color = red size = 4>D</font></td> <<elseif $i eq 5>> <td style="background-color:silver"> <font color = red size = 4>Z</font></td> <<elseif $i eq 6>> <td style="background-color:silver"> <font color = red size = 4>O</font></td> <<else>> <td style="background-color:silver"></td> <</if>> <td style="background-color:silver"></td> <<if $i eq 4 or $i eq 6>> <td style="background-color: #654321">╋</td> <<else>> <td style="background-color: #654321">┃</td> <</if>> </tr> <</for>> <tr> <td style="background-color: #654321">┗</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <<for $i = 0; $i < 10; $i++>> <td style="background-color: #654321">┴</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <td style="background-color: #654321">┻</td> <</for>> <td style="background-color: #654321">┴</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">╍</td> <td style="background-color: #654321">┛</td> </tr> </table> <</nobr>> [[Look at Scoreboard|Two Minute Drill]]
<<nobr>> <<set $playRace += 1>> <<set $horseOne = 0>> <table><td>Jockey 1</td><tr></tr><td>2:1</td> <<fadein 0s>><<fadeout 1500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 1500ms>> <<set _temp1a = random(1,5)+6>> <<set $horseOne += _temp1a>> <<for _i = 0; _i < _temp1a; _i++>> <</for>> <<fadeout 1s 2s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 3s>> <<set _temp1b = random(5,10)>> <<set $horseOne += _temp1b>> <<for _i = 0; _i < _temp1b; _i++>> <</for>> <<fadeout 1s 3500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 4500ms>> <<set _temp1c = random(5,10)>> <<set $horseOne += _temp1c>> <<for _i = 0; _i < _temp1c; _i++>> <</for>> <<fadeout 1s 5s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 6s>> <<set _temp1d = random(5,15)>> <<set $horseOne += _temp1d>> <<for _i = 0; _i < _temp1d; _i++>> <</for>> <<fadeout 1s 6500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 7500ms>> <<set _temp1e = random(5,15)>> <<set $horseOne += _temp1e>> <<for _i = 0; _i < _temp1e; _i++>> <</for>> <<fadeout 1s 8s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 9s>> <<set _temp1f = random(5,15)>> <<set $horseOne += _temp1f>> <<for _i = 0; _i < _temp1f; _i++>> <</for>> <<fadeout 1s 9500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 10500ms>> <<set _temp1g = random(10,20)>> <<set $horseOne += _temp1g>> <<for _i = 0; _i < _temp1g; _i++>> <</for>> <div class="flipped"><font size = 8>🏇 </font></div><</fadein>> </table> <table><td>Jockey 2</td><tr></tr><td>5:2</td> <<set $horseTwo = 0>> <<fadein 0s>><<fadeout 1500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 1500ms>> <<set _temp2a = random(1,5)+4>> <<set $horseTwo += _temp2a>> <<for _j = 0; _j < _temp2a; _j++>> <</for>> <<fadeout 1s 2s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 3s>> <<set _temp2b = random(5,10)>> <<set $horseTwo += _temp2b>> <<for _j = 0; _j < _temp2b; _j++>> <</for>> <<fadeout 1s 3500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 4500ms>> <<set _temp2c = random(5,10)>> <<set $horseTwo += _temp2c>> <<for _j = 0; _j < _temp2c; _j++>> <</for>> <<fadeout 1s 5s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 6s>> <<set _temp2d = random(5,15)>> <<set $horseTwo += _temp2d>> <<for _j = 0; _j < _temp2d; _j++>> <</for>> <<fadeout 1s 6500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 7500ms>> <<set _temp2e = random(5,15)>> <<set $horseTwo += _temp2e>> <<for _j = 0; _j < _temp2e; _j++>> <</for>> <<fadeout 1s 8s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 9s>> <<set _temp2f = random(5,15)>> <<set $horseTwo += _temp2f>> <<for _j = 0; _j < _temp2f; _j++>> <</for>> <<fadeout 1s 9500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 10500ms>> <<set _temp2g = random(10,20)>> <<set $horseTwo += _temp2g>> <<for _j = 0; _j < _temp2g; _j++>> <</for>> <div class="flipped"><font size = 8>🏇 </font></div><</fadein>> </table> <table><td>Jockey 3</td><tr></tr><td>10:1</td> <<set $horseThree = 0>> <<fadein 0s>><<fadeout 1500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 1500ms>> <<set _temp3a = random(1,5)+1>> <<set $horseThree += _temp3a>> <<for _k = 0; _k < _temp3a; _k++>> <</for>> <<fadeout 1s 2s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 3s>> <<set _temp3b = random(5,10)>> <<set $horseThree += _temp3b>> <<for _k = 0; _k < _temp3b; _k++>> <</for>> <<fadeout 1s 3500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 4500ms>> <<set _temp3c = random(5,10)>> <<set $horseThree += _temp3c>> <<for _k = 0; _k < _temp3c; _k++>> <</for>> <<fadeout 1s 5s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 6s>> <<set _temp3d = random(5,15)>> <<set $horseThree += _temp3d>> <<for _k = 0; _k < _temp3d; _k++>> <</for>> <<fadeout 1s 6500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 7500ms>> <<set _temp3e = random(5,15)>> <<set $horseThree += _temp3e>> <<for _k = 0; _k < _temp3e; _k++>> <</for>> <<fadeout 1s 8s>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 9s>> <<set _temp3f = random(5,15)>> <<set $horseThree += _temp3f>> <<for _k = 0; _k < _temp3f; _k++>> <</for>> <<fadeout 1s 9500ms>> <div class="flipped"><font size = 8>🏇 </font></div><</fadeout>><</fadein>> <<fadein 1s 10500ms>> <<set _temp3g = random(10,20)>> <<set $horseThree += _temp3g>> <<for _k = 0; _k < _temp3g; _k++>> <</for>> <div class="flipped"><font size = 8>🏇 </font></div><</fadein>> </table> <br> <<fadein 1s >>"And they're off..."<</fadein>> <<fadein 1s 3s>>"They're rounding the first corner..."<</fadein>> <br> <<fadein 1s 6s>>"Getting ready to come down the final stretch..."<</fadein>> <<fadein 1s 9s>>"Here's the finsh..."<</fadein>> <br> <<fadein 1s 11s>> <<if $horseOne gt $horseTwo>> <<if $horseOne gt $horseThree>> <<set $horseWinner = 1>> <<elseif $horseOne eq $horseThree>> <<set $horseWinner = 13>> <<else>> <<set $horseWinner = 3>> <</if>> <<elseif $horseTwo gt $horseThree>> <<if $horseTwo gt $horseOne>> <<set $horseWinner = 2>> <<elseif $horseTwo eq $horseOne>> <<set $horseWinner = 21>> <<else>> <<set $horseWinner = 1>> <</if>> <<elseif $horseThree gt $horseOne>> <<if $horseThree gt $horseTwo>> <<set $horseWinner = 3>> <<elseif $horseThree eq $horseTwo>> <<set $horseWinner = 23>> <<else>> <<set $horseWinner = 2>> <</if>> <<elseif $horseOne eq $horseTwo and $horseTwo eq $horseThree>> <<set $horseWinner = 123>> <</if>> <<if $horseWinner lt 4>> The winner is Jockey #<<print $horseWinner>>!<br> <<else>> We have a photo finish!<br> <<if $horseWinner eq 13>> <<if random(0,1) eq 1>> <<set $horseWinner = 1>> <<else>> <<set $horseWinner = 3>> <</if>> <<elseif $horseWinner eq 21>> <<set $horseWinner = random(1,2)>> <<elseif $horseWinner eq 23>> <<set $horseWinner = random(2,3)>> <<else>> <<set $horseWinner = random(1,3)>> <</if>> It looks like Jockey #<<print $horseWinner>> won by the thinnest of margins! <</if>> <br> <<if $myHorse eq $horseWinner>> <<if $horseWinner eq 1>> <<set $horseWinnings = 10>> <<elseif $horseWinner eq 2>> <<set $horseWinnings = 12.50>> <<else>> <<set $horseWinnings = 50>> <</if>> Congrats! You won $<<print $horseWinnings.toFixed(2)>><br><br> <<linkreplace "Collect winnings and bet on another horse race">> <<set $myMoney += $horseWinnings>> <<goto "Sports Betting">><</linkreplace>> <br><br> <<linkreplace "Collect winnings and leave sports betting area">> <<set $myMoney += $horseWinnings>> <<goto "Casino">><</linkreplace>> <<else>> Sorry, your horse didn't win. Better luck next time! <br><br> [[Bet on another horse race|Sports Betting]] <br> <br> [[Back to casino area|Casino]] <</if>> <</fadein>> /% <<fadein 1s 11s>> Horse 1: <<print $horseOne>> Horse 2: <<print $horseTwo>> Horse 3: <<print $horseThree>> <</fadein>> %/ <</nobr>>
<<nobr>> <<set $enableArrowKeys = true>> <<set $newLine = 0>> <table id="rpg" style="border: 1px solid;"> <th colspan = 2><font color = pink>Elementary Friends - the Ultimate ASCII RPG</font></th> <tr><<set _me = 0>> <<for $y = $rpgY; $y < $rpgY+11; $y++>> <tr> <<for $x = $rpgX; $x < $rpgX+11; $x++>> <<set _me += 1>> <<set _temp = $x+($y*36)>> /%<<if _temp eq $rpgMap[$rpgY*36+$rpgX+185]>>%/ <<if _me eq 61>> <td><font size = 4>$rpgPlayer1.icon</font></td> <<elseif $rpgY lte 4 and _temp lt 176>> /%<td style="background-color:blue"> %/ <td><<print $rpgMap[_temp]>></td> <<elseif $rpgY gte 21 and _temp gt 1084>> /%<td style="background-color:blue"> %/ <td><<print $rpgMap[_temp]>></td> <<elseif $rpgX lte 4 and _temp lt ($y*36)+5>> /%<td style="background-color:blue">%/ <td><font color = blue><<print $rpgMap[_temp]>></font></td> <<elseif $rpgX gte 21 and _temp gt ($y*36)+30>> /%<td style="background-color:blue">%/ <td><font color = blue><<print $rpgMap[_temp]>></font></td> <<else>> <td><<print $rpgMap[_temp]>></td> <</if>> <</for>> <<set $newLine += 1>> <td></td> <<if $newLine eq 1>><th colspan = 5>Me and my Friends</th><</if>> <<if $newLine eq 2>> <th>        Character        </th> <th>    Rank    </th> <th>    AC    </th> <th>    HLTH    </th> <th>    In Hand     </th> <</if>> <<if $newLine eq 3>> <th style="text-align:left;"> 1)   <<link $rpgPlayer1.nick>> <<goto "Party Info">><</link>></th> <th>$rpgPlayer1.rankabr</th> <th>$rpgPlayer1.ac</th> <th>(<<print $rpgPlayer1.hlth+"/" +$rpgPlayer1.hlthmax+")">></th> <th>$rpgPlayer1.weaponicon</th> <</if>> <<if $newLine eq 4 and $rpgPartyNum gte 2>> <th style="text-align:left;"> 2)   <<link $rpgPlayer2.nick>> <<goto "Party Info">><</link>></th> <th>$rpgPlayer2.rankabr</th> <th>$rpgPlayer2.ac</th> <th>(<<print $rpgPlayer2.hlth+"/" +$rpgPlayer2.hlthmax+")">></th> <th>$rpgPlayer2.weaponicon</th> <<elseif $newLine eq 4>> <th style="text-align:left;"> 2)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 5>> <th style="text-align:left;"> 3)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 6>> <th style="text-align:left;"> 4)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 7>> <th style="text-align:left;"> 5)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 8>> <th style="text-align:left;"> 6)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 9>> <th style="text-align:left;"> 7)  -- Empty --  </th> <th></th> <th></th> <th></th> <th></th> <</if>> <<if $newLine eq 10>> <th>Pooled Cash</th> <th colspan = 3>[[View Inventory|RPG Inv]]</th> <th colspan = 2>Location</th> <</if>> <<if $newLine eq 11>> <th>$<<print$rpgMoney.toFixed(2)>></th> <th colspan =3>[[Game Settings|RPG Settings]]</th> <th colspan = 2><<print $rpgStreet[$rpgY]>> & <<print $rpgAvenue[$rpgX]>></th> <</if>> </tr> <</for>> </tr> </table> <<if $badMove eq true>> You can't move any further that way! <<set $badMove = false>> <<elseif $rpgMapMain[$rpgY*36+$rpgX+185] eq "snake">> You encounter a <font size = 36> <<print $rpgMap[$rpgY*36+$rpgX+185]>>! <<set $enableArrowKeys = false>> <<link "Click Here">><<goto "RPG Battle">><</link>> </font> <<elseif $rpgMapMain[$rpgY*36+$rpgX+185] eq "Steve" and $rpgPartyNames.count("Steve") eq 0>> Here's your friend <<link "Steve">> <<set $rpgPlayer.name = "Steve">> <<set $rpgPlayer.nick = "Steve">> <<set $rpgPlayer.rank = "Sargeant">> <<set $rpgPlayer.rankabr = "SGT">> <<set $rpgPlayer.str = 6>> <<set $rpgPlayer.dex = 6>> <<set $rpgPlayer.hlth = 18>> <<set $rpgPlayer.hlthmax = 18>> <<set $rpgPlayer.int = 4>> <<set $rpgPlayer.lck = 4>> <<set $rpgPlayer.ac = 0>> <<set $rpgPlayer.weapon = "Magic 8-Ball">> <<set $rpgPlayer.weaponicon = "🎱">> <<set $rpgPlayer.dmgmin = 0>> <<set $rpgPlayer.dmgmax = 8>> <<set $rpgPlayer.icon = "👦">> <<goto "Add Friend">> <</link>> <</if>> <br> My Location is X:<<print $rpgX>>, Y:<<print $rpgY>> /%<<print $rpgMap.indexOf($rpgY*36+$rpgX+185)>>%/ <br> /%<<print $rpgMap>>%/ <<if $rpgX gt $rpgOldX>> You moved east. <<elseif $rpgX lt $rpgOldX>> You moved west. <<elseif $rpgY lt $rpgOldY>> You moved north. <<elseif $rpgY gt $rpgOldY>> You moved south. <</if>> <<set $rpgOldX = $rpgX>> <<set $rpgOldY = $rpgY>> <</nobr>>
<<nobr>> <<set $myHorse = 0>> <table><td>Jockey 1</td><tr></tr><td>2:1</td> <<fadein 0s>> <div class="flipped"><font size = 8>🏇 </font></div> <</fadein>> </table> <table><td>Jockey 2</td><tr></tr><td>5:2</td> <<fadein 0s>> <div class="flipped"><font size = 8>🏇 </font></div> <</fadein>> </table> <table><td>Jockey 3</td><tr></tr><td>10:1</td> <<fadein 0s>> <div class="flipped"><font size = 8>🏇 </font></div> <</fadein>> </table> <</nobr>>On one of the many flickering monitors before you is a horse race that is about to start. One particular horse race only has three horses racing against each other. It seems to be your best bet. You can place a $5 bet on any one of the horses if you wish. The 2:1 horse will pay $10.00 on a win. He normally wins 50% of the time. The 5:2 horse will pay $12.50 on a win. He normally wins 40% of the time. The 10:1 horse will pay $50.00 on a win. He normally wins 10% of the time. @@#horselinks; <<link "Leave Sports Betting area">> <<replace "#horselinks">>\ <<goto "Casino">> <</replace>> <</link>> <<link "Place a $5 bet on the 2:1 horse">> <<moneyspent 5>> <<replace "#horselinks">>\ <<if $canAfford eq true>> You placed a $5 bet on the 2:1 horse. <<set $myHorse = 1>> [[Watch the Horse Race|Horse Race]] <<else>> You don't have $5! [[Leave Sports Betting area|Casino]] <</if>> <</replace>> <</link>> <<link "Place a $5 bet on the 5:2 horse">> <<moneyspent 5>> <<replace "#horselinks">>\ <<if $canAfford eq true>> You placed a $5 bet on the 5:2 horse. <<set $myHorse = 2>> [[Watch the Horse Race|Horse Race]] <<else>> You don't have $5! [[Leave Sports Betting area|Casino]] <</if>> <</replace>> <</link>> <<link "Place a $5 bet on the 10:1 horse">> <<moneyspent 5>> <<replace "#horselinks">>\ <<if $canAfford eq true>> You placed a $5 bet on the 10:1 horse. <<set $myHorse = 3>> [[Watch the Horse Race|Horse Race]] <<else>> You don't have $5! [[Leave Sports Betting area|Casino]] <</if>> <</replace>> <</link>> @@
<<nobr>> <<set $rpgPartyNum = 1>> <<set $rpgPartyNames = []>> <<set $rpgMapMain = []>> <<set $rpgMoney = 10>> <<set $rpgX = 7>> <<set $rpgY = 7>> <<set $rpgOldX = $rpgX>> <<set $rpgOldY = $rpgY>> <<set $badMove = false>> <<set $rpgPlayer = { name: "", nick: "", rank: "", rankabr: "", str: 0, dex: 0, hlth: 0, hlthmax: 0, int: 0, lck: 0, ac: 0, weapon: "", weaponicon: "", dmgmin: 0, dmgmax: 0, icon: "" }>> <<set $rpgPlayer1 = {}>> <<set $rpgPlayer2 = {}>> <<set $rpgPlayer3 = {}>> <<set $rpgPlayer4 = {}>> <<set $rpgPlayer5 = {}>> <<set $rpgPlayer6 = {}>> <<set $rpgPlayer7 = {}>> <<set $rpgMap = []>> <<set $rpgStreet = ["1st", "2nd", "3rd", "4th", "5th", "6th", "7th", "8th", "9th", "10th", "11th", "12th", "13th", "14th", "15th", "16th", "17th", "18th", "19th", "20th", "21st", "22nd", "23rd", "24th", "25th", "26th"]>> <<set $rpgAvenue = ["Apple", "Boxcar", "Cedar", "Dice", "Elm", "Fir", "Green", "Hick", "Idaho", "Joker", "Karn", "Libby", "Mason", "Newton", "Oak", "Plum", "Quail", "Rodeo", "Stone", "Tower", "Ultra", "Velvet", "Walter", "Xaiver", "Yule", "Zodiac"]>> <<for $i = 0; $i < 31; $i++>> <<for $j = 0; $j < 36; $j++>> <<set $rpgMap[($i*36)+$j] = ($i*36)+$j>> <</for>> <</for>> <<for $i = 144; $i < 180; $i++>> <<set $rpgMap[$i] ="🚧">> <</for>> <<for $i = 0; $i < 36; $i++>> <<for $j = 0; $j < 36; $j++>> <<set $rpgMapMain[($i*36)+$j] = 0>> <</for>> <</for>> <<set $rpgMap[310] ="🐍">> <<set $rpgMapMain[310] = "snake">> <<set $rpgMap[412] = "👦">> <<set $rpgMapMain[412] = "Steve">> <<set $rpgMap[185] = "╔">> <<for _i = 186; _i < 210; _i++>> <<set $rpgMap[_i] = "═">> <</for>> <<set $rpgMap[210] = "╗">> <<set $rpgMap[188] = "╦">> <</nobr>> Welcome to <font color = yellow>Elementary Friends</font>, the ultimate ASCII Role playing game. You: a 11 year old elementary kid Time: Summer vacation! Year: 1986 You just finished 4th grade and you're about to enter 5th grade, but not before you fully enjoy this summer vacation you're on. On this day, you decide to call up some friends and run around town, potentially getting into a little mischief along the way. As a natural born leader, you give yourself the rank of 'General' in your band of friends. Please choose your starting character from below: <table id ="kenoPayouts"> <tr> <th>Starting Character</th> <th>Strength</th> <th>Dexterity</th> <th>Health</th> <th>Intelligence</th> <th>Luck</th> <th>Comes With Weapon</th> </tr> <tr> <td><<link "Billy">> <<set $rpgPlayer1.name = "Billy">> <<set $rpgPlayer1.nick = "You (Billy)">> <<set $rpgPlayer1.rank = "General">> <<set $rpgPlayer1.rankabr = "GEN">> <<set $rpgPlayer1.str = 4>> <<set $rpgPlayer1.dex = 5>> <<set $rpgPlayer1.hlth = 21>> <<set $rpgPlayer1.hlthmax = 21>> <<set $rpgPlayer1.int = 5>> <<set $rpgPlayer1.lck = 6>> <<set $rpgPlayer1.ac = 0>> <<set $rpgPlayer1.weapon = "Squirt Gun">> <<set $rpgPlayer1.weaponicon = "🔫">> <<set $rpgPlayer1.dmgmin = 1>> <<set $rpgPlayer1.dmgmax = 4>> <<set $rpgPlayer1.icon = "🤴">> <<goto "RPG">> <</link>></td> <td>Average</td> <td>Above Avg</td> <td>Outstanding</td> <td>Above Avg</td> <td>Superior</td> <td>🔫 Squirt Gun (1,4 dmg)</td> </tr> <tr> <td><<link "Sally">> <<set $rpgPlayer1.name = "Sally">> <<set $rpgPlayer1.nick = "You (Sally)">> <<set $rpgPlayer1.rank = "General">> <<set $rpgPlayer1.rankabr = "GEN">> <<set $rpgPlayer1.str = 4>> <<set $rpgPlayer1.dex = 5>> <<set $rpgPlayer1.hlth = 18>> <<set $rpgPlayer1.hlthmax = 18>> <<set $rpgPlayer1.int = 6>> <<set $rpgPlayer1.lck = 5>> <<set $rpgPlayer1.ac = 0>> <<set $rpgPlayer1.weapon = "Umbrella">> <<set $rpgPlayer1.weaponicon = "🌂">> <<set $rpgPlayer1.dmgmin = 3>> <<set $rpgPlayer1.dmgmax = 6>> <<set $rpgPlayer1.icon = "👸">> <<goto "RPG">> <</link>></td> <td>Average</td> <td>Above Avg</td> <td>Superior</td> <td>Superior</td> <td>Above Avg</td> <td>🌂 Umbrella (3,6 dmg)</td> </tr> <tr> <td><<link "Tommy">> <<set $rpgPlayer1.name = "Tommy">> <<set $rpgPlayer1.nick = "You (Tommy)">> <<set $rpgPlayer1.rank = "General">> <<set $rpgPlayer1.rankabr = "GEN">> <<set $rpgPlayer1.str = 5>> <<set $rpgPlayer1.dex = 5>> <<set $rpgPlayer1.hlth = 15>> <<set $rpgPlayer1.hlthmax = 15>> <<set $rpgPlayer1.int = 7>> <<set $rpgPlayer1.lck = 4>> <<set $rpgPlayer1.ac = 0>> <<set $rpgPlayer1.weapon = "Ruler">> <<set $rpgPlayer1.weaponicon = "📏">> <<set $rpgPlayer1.dmgmin = 2>> <<set $rpgPlayer1.dmgmax = 6>> <<set $rpgPlayer1.icon = "🤴">> <<goto "RPG">> <</link>></td> <td>Above Avg</td> <td>Above Avg</td> <td>Above Avg </td> <td>Outstanding</td> <td>Average</td> <td>📏 Ruler (2,6 dmg)</td> </tr> <tr> <td><<link "Susie">> <<set $rpgPlayer1.name = "Susie">> <<set $rpgPlayer1.nick = "You (Susie)">> <<set $rpgPlayer1.rank = "General">> <<set $rpgPlayer1.rankabr = "GEN">> <<set $rpgPlayer1.str = 5>> <<set $rpgPlayer1.dex = 7>> <<set $rpgPlayer1.hlth = 18>> <<set $rpgPlayer1.hlthmax = 18>> <<set $rpgPlayer1.int = 4>> <<set $rpgPlayer1.lck = 4>> <<set $rpgPlayer1.ac = 0>> <<set $rpgPlayer1.weapon = "Volleyball">> <<set $rpgPlayer1.weaponicon = "🏐">> <<set $rpgPlayer1.dmgmin = 3>> <<set $rpgPlayer1.dmgmax = 5>> <<set $rpgPlayer1.icon = "👸">> <<goto "RPG">> <</link>></td> <td>Above Avg</td> <td>Outstanding</td> <td>Superior</td> <td>Average</td> <td>Average</td> <td>🏐 Volleyball (3,5 dmg)</td> </tr> </table>
[[Back to Game|RPG]]
[[Back to Game|RPG]] [[Quit Game|Convention room]]
<<nobr>> <<set _temp = 0>> <<set _players = [$rpgPlayer1, $rpgPlayer2, $rpgPlayer3, $rpgPlayer4, $rpgPlayer5, $rpgPlayer6, $rpgPlayer7]>> <table> <tr> <td>Player #</td> <td>Icon</td> <td>Name</td> <td>Nick Name</td> <td>Rank</td> <td>Str</td> <td>Dex</td> <td>Hlth</td> <td>Int</td> <td>Lck</td> <td>AC</td> <td>Weapon</td> </tr> <<for _i = 0; _i < $rpgPartyNum; _i++>> <tr> <td><<print (_temp+1)+")">></td> <td>_players[_temp].icon</td> <td>_players[_temp].name</td> <td>_players[_temp].nick</td> <td>_players[_temp].rank</td> <td>_players[_temp].str</td> <td>_players[_temp].dex</td> <td><<print "("+_players[_temp].hlth+"/"+_players[_temp].hlthmax+")">></td> <td>_players[_temp].int</td> <td>_players[_temp].lck</td> <td>_players[_temp].ac</td> <td><<print _players[_temp].weapon+" " +_players[_temp].weaponicon+ " ("+_players[_temp].dmgmin+ ","+_players[_temp].dmgmax+")">></td> </tr> <<set _temp += 1>> <</for>> </table> <</nobr>> [[Back to Game|RPG]]
$rpgPlayer.name asks to join with you today. <<link "Yeah sure, grab your bike">> <<set $rpgPartyNum += 1>> <<set $rpgPlayer2 = $rpgPlayer>> <<set $rpgPartyNames.push("Steve")>> <<if $rpgMapMain[$rpgY*36+$rpgX+185] eq "Steve">> <<set $rpgMap[412] = "🏠">> <<set $rpgMapMain[412] = "House">> <</if>> <<goto "RPG">> <</link>> [[Sorry, maybe later|RPG]]
Last Will and Testament, the text-adventure game. (written in Crappy Parser v1.01) Input your name below and press ENTER to begin <<textbox "$input" "" "Parser Welcome" autofocus>> <<errormsg>> <<nobr>> <<set $meParser = { name: "", synonym: "me", desc: "A handsome young fellow you are...at least as far as what you can see of yourself.", prev: "", container: "room", space: 26, weight: 175, current: "", loc: 50, score: 0, bonus: false, state: "standing" }>> <<set $parserInv = {}>> /%<<set $parserInv = {"thing" : { name: "a thing", desc: "It's something. It is <<statusof thing>>", synonym: ["something", "anything"], moveable: true, openable: true, status: "closed", container: "inventory", parent: "room", weight: 0, space: 0 }}>> %/ <<set $invArray = []>> <<for _i = 0; _i < Object.keys($parserInv).length; _i++>> <<set $invArray.push(Object.keys($parserInv)[_i])>> <</for>> <<set $parserVerb = ["n", "north", "e", "east", "s", "south", "w", "west", "nw", "northwest", "ne", "northeast", "sw", "southwest", "se", "southeast", "up", "u", "down", "d", "take", "get", "drop", "x", "examine", "l", "look", "open", "close", "shut", "put", "give", "i", "inv", "inventory", "talk", "ask", "quit", "score", "g", "again", "use", "pick", "help", "hint", "wait", "stats", "unlock", "eat", "verbose", "brief", "read", "z", "search", "show", "credits", "dig", "sit", "stand", "pet", "move", "push", "toss", "throw"]>> <<set $parserArt = ["a", "an", "the"]>> <<set $parserNoun = []>> <<set $parserPrep = ["on", "off", "in", "out", "onto", "through", "about", "to", "from", "at", "about", "over", "with"]>> <<set $parserDir = ["north", "east", "south", "west", "northwest", "northeast", "southwest", "southeast", "up", "down"]>> <<set $parserExits = []>> <<set $parserScore = 0>> <<set $parserStart = false>> <<set $maxSpace = 1000>> <<set $maxWeight = 1000>> <<set $uniqueRooms = 0>> <<set $inputFail = 0>> <<set $inputTotal = 0>> <<set $seenArray = []>> <<set $seenObjects = {}>> <<set $unseenArray = []>> <<set $unseenObjects = {}>> <<set $parserWarning = 60>> <<set $parserBag = {}>> <<set $bagArray = []>> <<set $parserVerbose = true>> <<set $parserCommands = []>> <<set $parserShovel = false>> <<set $moveDoghouse = 0>> <<set $parserWin = false>> <</nobr>> <<set UIBar.stow()>> <<set $playParser += 1>>
<<nobr>><<emptycheck>> <font color = pink> <<if $input.toLowerCase() eq "steve">> Steve? What sort of name is that? I'm going to call you James. <br> <<set $parserName = "James">> <<else>> <<set $parserName = "Steve">> You don't look like a $input. I'm going to call you <<print $parserName>>. <br> <</if>> </font> <<set $meParser.name = $parserName.toLowerCase()>> <br><br> Welcome to the text adventure game, <font color = yellow>"Last Will and Testament"</font>. <br><br> <font color = pink>Setting:</font> Late 20th century <br><br> <font color = pink>You:</font> A young man in his early 30's with little assets and working a dead-end job that you dream about quitting daily. <br><br> <font color = pink>Scenario:</font> Your eccentric Uncle just passed away due to an unfortunate illness. He worked hard the majority of his life and managed to save a large sum of money. Your uncle had assets in the form of stocks, bonds, and cash locked away in a safety deposit box at the local bank just before his untimely death. <br><br> <font color = pink>Your Mission:</font> Attend the reading of the Last Will and Testament with your mother and see if your Uncle left you anything. <br><br> Good Luck! <br><br><br> [[Continue|Parser Commands]] <</nobr>> <<set $parserStart = false>>
<<nobr>> /% -------------- SHOW PREVIOUS INPUT -------------- %/ <<set $meParser.prev = previous()>> /%visited prev: <<print $visitedPrev>><br>%/ {{{>}}}$input <br> /% ----------- PARSE PREVIOUS INPUT AND RETURN RESULTS ----------- %/ <<parseinput>> <br> <<if $parserWin eq false>> /% -------------- SET CONTAINER NAME & DESC -------------- %/ <<set $containerName = $parserRoom[$roomArray [$roomArray.indexOf($meParser.container)]].name>> <<set $containerDesc = $parserRoom[$roomArray [$roomArray.indexOf($meParser.container)]].desc>> /% -------------- DISPLAY BRIEF OR VERBOSE DESC-------------- %/ <<set $meParser.current = passage()>> <<if $visitedPrev eq 1 or $parserVerbose eq true>> <<print $containerName>> <br><br> <<print $containerDesc>> <<else>> <<print $containerName>> <br><br><<containedby room>> <</if>> <br> /% -------------- SET EXITS -------------- %/ <<set $parserExits = $parserRoom[$roomArray [$roomArray.indexOf($meParser.container)]].exits>> /% -------------- DISPLAY EXITS -------------- %/ <br> <<if $parserExits.length eq 0>> There seems to be no obvious exits. <<else>> The only <<if $parserExits.length eq 1>>exit seems<<else>>exits seem<</if>> to be: <<print $parserExits>>. <</if>> /% -------------- ASK FOR NEW INPUT -------------- %/ <br><br> <<textbox "$input" $input "Parser Destination" autofocus>> <br> <font color = pink>Patiently awaiting your command.....</font> <<set _temp = 0>> <<repeat `$parserWarning+"s"`>> <<set _temp += 1>> <<checkinput _temp>> <</repeat>> <<else>> [[Back to the Convention Room|Convention room]] <</if>> <</nobr>>
[[Back to Game|RPG]]
<<set $parserCommands.push($input)>> <<set $inputTotal += 1>> <<if $input eq "n">><<set $input = "north">> <<elseif $input eq "e">><<set $input = "east">> <<elseif $input eq "s">><<set $input = "south">> <<elseif $input eq "w">><<set $input = "west">> <<elseif $input eq "nw">><<set $input = "northwest">> <<elseif $input eq "ne">><<set $input = "northeast">> <<elseif $input eq "sw">><<set $input = "southwest">> <<elseif $input eq "se">><<set $input = "southeast">> <<elseif $input eq "x">><<set $input = "examine">> <<elseif $input eq "l">><<set $input = "look">> <<elseif $input eq "i">><<set $input = "inventory">> <<elseif $input eq "inv">><<set $input = "inventory">> <<elseif $input eq "g">><<set $input = "again">> <<elseif $input eq "z">><<set $input = "wait">> <<elseif $input eq "u">><<set $input = "up">> <<elseif $input eq "d">><<set $input = "down">> <</if>> <<checkfordoor>> <<if $parserExits.includes($input) and $canExit eq true>> <<set $exitMsg = $parserRoom[$roomArray [$roomArray.indexOf($meParser.container)]].exitmsg>> <<if $input eq "north">> <<set $meParser.loc += 100>> <<elseif $input eq "south">> <<set $meParser.loc -= 100>> <<elseif $input eq "east">> <<set $meParser.loc += 1>> <<elseif $input eq "west">> <<set $meParser.loc -= 1>> <<elseif $input eq "northwest">> <<set $meParser.loc += 99>> <<elseif $input eq "northeast">> <<set $meParser.loc += 101>> <<elseif $input eq "southwest">> <<set $meParser.loc -= 101>> <<elseif $input eq "southeast">> <<set $meParser.loc -= 99>> <<elseif $input eq "up">> <<set $meParser.loc += 500>> <<elseif $input eq "down">> <<set $meParser.loc -= 500>> <</if>> <<goto `"Parser "+$meParser.loc`>> <<else>> <<goto $meParser.prev>> <</if>>
{{{>}}}quit game I hope you enjoyed Last Will and Testament interpreted by Crappy Parser v1.01 Here is your score and some game stats.... Score: $meParser.score <<parserstats>> <<link "View Surroundings">><<goto "Convention room">><</link>> <<set UIBar.unstow()>>
<<nobr>><font color = white> Here's a list of essential commands which just about every text-based adventure has, along with the abbreviations which can be used: </font><br><br> <font color = pink>North (n), South (s), East (e), West (w)</font> - allow the player to move in this direction if possible. The same goes for the other compass points, which can be shortened to ne, nw, se and sw.<br><br> <font color = pink>Up (u), Down (d)</font> - for climbing up and down structures.<br><br> <font color = pink>Look (l)</font> - provides a description of the player's surroundings.<br><br> <font color = pink>Examine (x)</font> - provides a specific description of something present in the room or that the player is carrying.<br><br> <font color = pink>Get/Take, Drop</font> - allows the player to pick up and drop items.<br><br> <font color = pink>Inventory (i)</font> - shows the contents of the player's inventory.<br><br> <font color = pink>Wait (z)</font> - waits for a turn without doing anything.<br><br> <font color = pink>Again (g)</font> - does the last command again. <br><br> <font color = pink>Help</font> - additional helpful information. <br><br> <font color = pink>Quit</font> - quit game at any time. <br><br> <<set $input = "begin game">> [[Begin Parser Game|Parser 50]] <</nobr>>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom50 = { "room": { name: "Study", desc: "You are standing in Uncle Jim's Study which has a small window on the east wall and a narrow desk that sits along the west wall. A comfy looking chair sits near the desk. An oversized bookcase lines the entire south wall. There is a large wooden <<statusof door>> door on the north wall.\n<<containedby room>>", synonym: ["office"], container: "world", moveable: false, space: $maxSpace, exits: ["north"], unique: "study50" }, "door": { name: "door", desc: "A large wooden door. The door is <<statusof door>> at the moment.", synonym: ["wooden door"], container: "room", moveable: false, space: 0, openable: true, status: "open", unique: "door50", door2: 150, dir: "north" }, "desk": { name: "desk", desc: "An expensive looking desk, however it only has one small drawer. The drawer is <<statusof drawer>>\n<<containedby desk>>", synonym: ["expensive desk"], container: "room", moveable: false, space: 0, unique: "desk50", ison: "on top of the desk" }, "window": { name: "window", desc: "A double-pane glass window that looks outside into the back yard. You also see a doghouse in the far backyard from here. It appears as if the lawn needs mowed.", synonym: ["glass", "glass window"], container: "room", moveable: false, space: 0, openable: false, unique: "window50" }, "drawer": { name: "drawer", desc: "A small drawer for storing stuff. It currently is <<statusof drawer>>\n<<containedby drawer>>", synonym: ["small drawer"], container: "desk", parent: "room", moveable: false, space: 3, openable: true, status: "closed", unique: "drawer50", lock: "locked", openwith: "key", openid: "bronzekey" }, "note": { name: "note", desc: "A hand written message left for you from your Uncle Jim.", synonym: ["message"], container: "room", parent: "world", moveable: true, space: 0, weight: 0, unique: "note50", onobject: "desk" }, "chair": { name: "chair", desc: "A very expensive and very comfortable high back black leather chair.", synonym: ["leather chair", "comfortable chair", "comfy chair"], container: "room", moveable: false, space: 0, openable: false, unique: "chair50", sit: "in the chair. It was as comfortable as it looks.", stand: "on the chair, but then jump back down." }, "bookcase": { name: "bookcase", desc: "A highly decorative bookcase which is probably holding somewhere around 300 books from the looks of it.", synonym: ["decorative bookcase"], container: "room", moveable: false, space: 0, openable: false, unique: "bookcase50" }, "books": { name: "books", desc: "A wide variety of books fill the bookcase. Many seem history related, while others are of a fictional nature.", synonym: ["book"], container: "room", moveable: false, space: 0, openable: false, unique: "books50" }, "map": { name: "map", desc: "It appears to be a hand drawn map of some sort.<<parsermap>>", synonym: ["treasure map"], container: "drawer", parent: "desk", moveable: true, space: 0, weight: 0, unique: "map50" }, }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom150 = { "room": { name: "Living Room", desc: "You are standing in Uncle Jim's Living Room. It's a large open space area with some nice furniture and a large screen television at one end of the room. Your mother is sitting on the couch nearby. To the north is the Kitchen. There is a large wooden <<statusof door>> door on the south wall that leads into the Study. To the west is the bottom of a staircase that lead upstairs.\n<<containedby room>>", synonym: ["office"], container: "world", moveable: false, space: $maxSpace, exits: ["north", "south", "west"], unique: "livingroom150" }, "door": { name: "door", synonym: ["wooden door"], desc: "A large wooden door that leads into the Study. The door is <<statusof door>> at the moment.", container: "room", moveable: false, space: 0, openable: true, status: $parserRoom50["door"].status, unique: "door150", door2: 50, dir: "south" }, "mother": { name: "mother", synonym: ["mom", "irene"], desc: "This is your Uncle's sister, better known as your mother. She currently seems to be still mourning your Uncle's death as you notice tears forming in her eyes.", container: "room", moveable: false, space: 0, alive: true, unique: "mother150", pronoun1: "she", pronoun2: "her" }, "television": { name: "television", synonym: ["tv", "telly", "large screen"], desc: "It looks to be a high-def 65 inch TV. Where the remote is for it, is anyone's guess.", container: "room", moveable: false, space: 0, unique: "television150", ison: "on top of the TV" }, "furniture": { name: "furniture", synonym: ["nice furniture", "couch"], desc: "Some very high end furniture, including a very nice leather couch. It's almost too nice to sit on.", container: "room", moveable: false, space: 0, unique: "furniture150", ison: "on top of the furniture", sit: "on the furniture. It was very comfortable." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom250 to { "room": { name: "Kitchen", synonym: ["kitchen"], desc: "You are inside the Kitchen. There is a large window on the north wall and a good sized island countertop in the middle of the kitchen here. To the south is the Living Room and to the west is the Dining Room area.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["west", "south"], unique: "kitchen250" }, "countertop": { name: "countertop", synonym: ["island countertop", "counter"], desc: "A nice tile island countertop in the middle of the kitchen.", container: "room", moveable: false, space: 0, unique: "countertop250", ison: "on top of the counter" }, "window": { name: "window", synonym: ["glass"], desc: "A window that looks outside to the north. You can see part of the house's side yard from here. There is also a fence that runs along the property line between this house and the next.", container: "room", moveable: false, space: 0, unique: "window250" }, "toaster": { name: "toaster", synonym: ["black toaster"], desc: "A black toaster that can toast two pieces of bread at a time.\n<<containedby toaster>>", container: "room", parent: "world", moveable: true, space: 2, weight: 5, unique: "toaster250", onobject: "countertop" }, "toast": { name: "toast", synonym: ["cold toast"], desc: "A cold, but edible piece of toast.", container: "toaster", parent: "room", moveable: true, space: 0, weight: 0, unique: "toast250", onobject: false, preinv: "a piece of ", edible: true } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom249 to { "room": { name: "Dining Room", synonym: ["dining"], desc: "You are in the Dining Room area. There is a large table with 6 chairs around it, though it appears as if though only one chair has ever been used. To the east is the Kitchen and to the west is the Front Door area.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "west"], unique: "dining249" }, "chair": { name: "chair", desc: "A worn dining room chair at the head of the table that Uncle Jim apparently used quite a bit.", synonym: ["dining chair", "chairs"], container: "room", moveable: false, space: 0, openable: false, unique: "chair249", sit: "in the chair. It wasn't very comfortable." }, "table": { name: "table", desc: "An expensive looking table that Uncle Jim used for eating his dinners on. <<containedby table>>", synonym: ["expensive table", "dinner table", "dining table"], container: "room", moveable: false, space: 0, unique: "table249", ison: "on top of the table" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom149 to { "room": { name: "Stairs", synonym: ["stairs"], desc: "You are standing at the base of a staircase that leads upwards. There is a <<statusof door>> door here that leads into the garage. There is a key holder here mounted on the wall next to the door also. To the east is the Living Room area.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "west", "up"], unique: "room149" }, "door": { name: "door", desc: "A white door that leads west into the garage. The door is <<statusof door>> at the moment.", synonym: ["white door"], container: "room", moveable: false, space: 0, openable: true, status: "closed", unique: "door149", door2: 148, dir: "west" }, "holder": { name: "holder", desc: "A place where Uncle Jim used to hang keys at when he came in from the garage. Currently there are no keys hanging here though.", synonym: ["key holder"], container: "room", moveable: false, space: 0, openable: false, unique: "holder149" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom148 to { "room": { name: "Garage", synonym: ["car garage"], desc: "You are standing inside Uncle Jim's garage. A fancy red sportscar sits here in the middle of the garage. There is a container labeled 'dog treats' here. You notice a large toolbox here as well. There is a <<statusof door>> door here that leads east into the house.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east"], unique: "garage148" }, "door": { name: "door", desc: "A white door that leads into the house. The door is <<statusof door>> at the moment.", synonym: ["white door"], container: "room", moveable: false, space: 0, openable: true, status: $parserRoom149["door"].status, unique: "door148", door2: 149, dir: "east" }, "treats": { name: "treats", synonym: ["dog treats", "treat", "container"], desc: "A container which was once full of dog treats, but now appears to be empty. That's too bad, the dog would probably love a treat about now too.", container: "room", moveable: false, space: 0, unique: "treats148" }, "toolbox": { name: "toolbox", synonym: ["tools", "box"], desc: "A large red tool box with many drawers. There isn't anything that interests you in the toolbox.", container: "room", moveable: false, space: 0, unique: "toolbox148" }, "car": { name: "car", synonym: ["sportscar", "red car"], desc: "An extremely fast looking car. This thing looks like it could do 0-60 in under 3 seconds. It's all locked up.", container: "room", moveable: false, space: 0, unique: "car148" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom350 to { "room": { name: "Side Yard", synonym: ["yard"], desc: "You are standing along side Uncle Jim's house. This is the north side of the house, where there seems to be more moss in the yard than grass, but it all needs mowed nonetheless. The side yard continues to the west. To both the east and southeast is the backyard.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "southeast", "west"], unique: "yard350" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom349 to { "room": { name: "Side Yard", synonym: ["yard"], desc: "You are standing along side Uncle Jim's house. This is the north side of the house, where the lawn is just as tall as everywhere else. There is a door on a small utility shed here up against the house that is <<statusof shed>> More of the yard continues to both the east and to the west from here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "west"], unique: "room349" }, "shed": { name: "shed", desc: "A small utility shed that probably holds some yard equipment. The door on the small utility shed is <<statusof shed>>\n<<containedby shed>>", synonym: ["utility shed", "door"], container: "room", moveable: false, space: 10, openable: true, status: "closed", unique: "shed349", lock: "locked", openwith: "key", openid: "bronzekey" }, "spade": { name: "spade", desc: "A retangular shovel that can be used for digging.", synonym: ["shovel"], container: "shed", parent: "room", moveable: true, space: 0, weight: 3, unique: "spade349" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom348 to { "room": { name: "Side Yard", synonym: ["yard"], desc: "You are standing along side Uncle Jim's house. This is the north side of the house, where it appears the lawn is in a desperate need of mowing. The side yard continues to the east and the front yard is to the west through a gate that is currently <<statusof gate>>.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "west"], unique: "yard348" }, "gate": { name: "gate", desc: "A wooden gate that leads to the north side of the house. The gate is <<statusof gate>> at the moment.", synonym: ["wooden gate", "door"], container: "room", moveable: false, space: 0, openable: true, status: $parserRoom347["gate"].status, unique: "gate348", door2: 347, dir: "west" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom248 to { "room": { name: "Front Door Area", synonym: ["front door"], desc: "You are standing near the front door. Pictures of family members and even pictures of his dog sit throughout the room. There is a chair and a couch that sits here as well. To the east is the Dining Room area and to the west is a front door that is <<statusof door>> and leads out to the front yard.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "west"], unique: "dining248" }, "couch": { name: "couch", desc: "A nice couch near the front door entryway.", synonym: ["entryway couch"], container: "room", moveable: false, space: 0, openable: false, unique: "couch248", sit: "on the couch. It was very comfortable." }, "chair": { name: "chair", desc: "A nice chair near the front door entryway.", synonym: ["entryway chair"], container: "room", moveable: false, space: 0, openable: false, unique: "chair248", sit: "in the chair. It was fairly comfortable." }, "pictures": { name: "pictures", desc: "A variety of pictures. There are even a few of yourself here. Most of the pictures however are of Uncle Jim and his dog Rex.", synonym: ["picture"], container: "room", moveable: false, space: 0, unique: "pictures248" }, "door": { name: "door", desc: "A red door that leads out of the house. The door is <<statusof door>> at the moment.", synonym: ["red door"], container: "room", moveable: false, space: 0, openable: true, status: "closed", unique: "door248", door2: 247, dir: "west" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom247 to { "room": { name: "Front Yard", synonym: ["yard"], desc: "You are standing in the front yard near the front door entrance. The driveway is to your south from here. The front door of the house, which is <<statusof door>> at the moment, is to your east. To the north is more of the front yard and a gate that enters the backyard.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "east", "south"], unique: "front247" }, "door": { name: "door", desc: "A red door that leads into the house. The door is <<statusof door>> at the moment.", synonym: ["red door"], container: "room", moveable: false, space: 0, openable: true, status: $parserRoom248["door"].status, unique: "door247", door2: 248, dir: "east" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom147 to { "room": { name: "Driveway", synonym: ["car driveway"], desc: "You are standing in the driveway of Uncle Jim's house. You rode with your mother here and her car sits here in the driveway right where she parked it. The front yard is to your north from here. To the west is the neighbor's house. The neighbor himself is currently out front of his house doing what appears to be some yardwork.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "west"], unique: "driveay147" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom146 to { "room": { name: "Neighbor's House", synonym: ["house"], desc: "You are standing in front of the neightbor's house. The neighbor was doing some yardwork, but stoppped when he saw you approaching. The neighbor smiles at you. You can move east back towards the driveway from here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east"], unique: "room146" }, "neighbor": { name: "neighbor", synonym: ["neighbor", "jack"], desc: "This is your Uncle's neighbor Jack. He was doing some yardwork right before you walked up.", container: "room", moveable: false, space: 0, alive: true, unique: "neighbor146", pronoun1: "he", pronoun2: "his" }, "shovel": { name: "shovel", desc: "A nice wooden handled shovel that has some dried dirt on it.", synonym: ["wooden shovel"], container: "neighbor", parent: "room", moveable: true, space: 0, weight: 3, unique: "shovel146" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom347 to { "room": { name: "Front Yard", synonym: ["yard"], desc: "You are standing in the most northern part of the front yard. More of the front yard is to your south from here. To the east is a gate that enters the backyard and it is currently <<statusof gate>>.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "south"], unique: "front347" }, "gate": { name: "gate", desc: "A wooden gate that leads to the north side of the house. The gate is <<statusof gate>> at the moment.", synonym: ["wooden gate", "door"], container: "room", moveable: false, space: 0, openable: true, status: "closed", unique: "gate347", door2: 348, dir: "east" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom351 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east", "southeast", "south", "west"], unique: "room351" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard351", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom352 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["south", "southwest", "west"], unique: "room352" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard352", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom251 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "northeast", "east", "southeast", "south"], unique: "room251" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard251", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom252 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "south", "southwest", "west", "northwest"], unique: "room252" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard252", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom152 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "south", "southwest", "west", "northwest"], unique: "room152" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard152", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom151 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "northeast", "east", "southeast", "south"], unique: "room151" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard151", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." }, "ball": { name: "ball", synonym: ["tennis ball"], desc: "A fairly new yellow tennis ball.", container: "hidden", parent: "yard", moveable: true, space: 0, weight: 1, unique: "ball351", id: "tennisball", onobject: false, preinv: "a yellow tennis " } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom52 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here. There is a doghouse here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "west", "northwest"], unique: "room52" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard52", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." }, "doghouse": { name: "doghouse", synonym: ["house"], desc: "A nicely painted wooden doghouse with the name 'ReX' on it. The paint seems fairly new on the doghouse.", container: "room", moveable: false, space: 0, unique: "doghouse52", ison: "near the doghouse" }, "dog": { name: "dog", desc: "Your Uncle's dog Rex is here. He's a very good guard dog. He's friendly, but not so sure about you as he stares at you intently. He looks hungry.", synonym: ["rex", "guard dog"], container: "room", parent: "world", moveable: true, alive: true, space: 0, weight: 80, unique: "dog52" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom51 to { "room": { name: "Back Yard", synonym: [""], desc: "You are standing in the backyard. The grass is very tall here.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["north", "northeast", "east"], unique: "room51" }, "yard": { name: "yard", synonym: ["back yard", "grass"], desc: "Tall thick green grass everywhere you look.", container: "room", moveable: false, space: 0, unique: "yard51", ison: "on top of the grass", sit: "on the grass. It was a little damp, so you stood back up." } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom649 to { "room": { name: "Upstairs", synonym: ["stairs"], desc: "You are standing on the second level of Uncle Jim's house, also better known as the upstairs. To your west is a <<statusof door>> door to Uncle Jim's bedroom.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["west", "down"], unique: "room649" }, "door": { name: "door", desc: "A white painted wooden bedroom door. The door is <<statusof door>> at the moment.", synonym: ["wooden door"], container: "room", moveable: false, space: 0, openable: true, status: "open", unique: "door649", door2: 648, dir: "west" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
/% -------------- INITIALIZE ROOM ARRAY WITH OBJECTS -------------- %/ <<if visited() eq 1>> <<set $uniqueRooms += 1>> <<set $parserRoom648 to { "room": { name: "Bedroom", synonym: [""], desc: "You are standing inside Uncle Jim's bedroom. You glance around the room and notice a few things. A large king-sized bed sits up against the southern wall. A nightstand sits near the right side of the bed. A large dresser sits across the room against the western wall. A television stand with a 40 inch TV sits opposite of the bed. To your east is a <<statusof door>> door that leads out to the upstairs landing.\n<<containedby room>>", container: "world", moveable: false, space: $maxSpace, exits: ["east"], unique: "room648" }, "bed": { name: "bed", synonym: ["king bed"], desc: "A very large and very soft looking bed.", container: "room", moveable: false, space: 0, unique: "bed648", ison: "on top of the bed", sit: "on the bed. It was very comfortable." }, "nightstand": { name: "nightstand", synonym: ["stand", "night stand"], desc: "A medium sized wooden nightstand.", container: "room", moveable: false, space: 0, unique: "nightstand648", ison: "on top of the nightstand" }, "key": { name: "key", synonym: ["bronze key"], desc: "A small bronze key. You're not sure exactly what it's for, but you do know it's not a safety deposit box key.", container: "hidden", parent: "nightstand", moveable: true, space: 0, weight: 1, unique: "key648", id: "bronzekey", onobject: false, preinv: "a bronze " }, "door": { name: "door", synonym: ["wooden door"], desc: "A white painted wooden door that leads out to the upstairs landing. The door is <<statusof door>> at the moment.", container: "room", moveable: false, space: 0, openable: true, status: $parserRoom649["door"].status, unique: "door648", door2: 649, dir: "east" }, "dresser": { name: "dresser", synonym: ["clothes dresser"], desc: "A dresser containing many of Uncle Jim's clothes. Nothing in it seems to be your size though.", container: "room", moveable: false, space: 0, unique: "dresser648", ison: "on top of the dresser" }, "television": { name: "television", synonym: ["tv", "tv stand"], desc: "A television stand holding a 40 inch TV on it. The TV seems to be anchored to the wall so as to prevent it from falling.", container: "room", moveable: false, space: 0, unique: "television648" } }>> <</if>> <<set $visitedPrev = visited()>> <<parserroom>> <<if visited() eq 1>> <<unseenobjects>> <</if>> <<goto "Parser Main">>
A fairly large KENO area. You can pick as few as 1 number or as many as 10 numbers. There is even a special 20 spot ticket you can play. <<if $myMoney lt 1>> Unfortunately you don't have enough money to play KENO at this time. <<else>> <<link "Play KENO for $1">><<goto "KENO">><</link>> <</if>> [[View Surroundings|Casino]]
<<nobr>> <<if $myRoom eq 0>> Ahh, after a nice smooth flight and a quick cab ride, you finally made it to your hotel room here in Las Vegas.<br><br> You were here a few years ago for a weekend trip with some friends and everything was great, other than that seedy Lucky Slots Casino you stayed at. This hotel is much nicer; a king-sized bed, giant flat screen TV, couch, desk, and a fabulous marble bathroom.<br><br> This year however you're in town for the RetroCON 2021 convention and to maybe do a little gambling. You have $100 for gambling and the rest of your time you're hoping to spend at the convention checking out the retro games. Unfortunately this is another weekend trip and it goes by fast.<br><br> Since you have an evening flight back home tomorrow already, you quickly unpack and get ready to go downstairs.<br><br> You only plan on coming back to the room to sleep and then maybe tomorrow there will be enough time to check out anything you missed before catching your flight back home.<br><br> <<elseif $myRoom eq 1>> You are in your hotel room.<br><br> Seems like you just got here, but now you're already trying to decide between getting some sleep or going back downstairs to either gamble or check out the convention.<br><br> <</if>> [[Go to the hotel lobby|Lobby]] <br><br> <<if $myRoom eq 1>> [[Get some sleep for the night|Hotel room - Day 2]] <</if>> <</nobr>> <<set $myRoom = 1>>
This is the hotel lobby. The lobby is quite grand as everything seems to be made out of some sort of imported marble and stone. A large check-in/registration area is near you. There is also a large bank of elevators not too far away. The hotel's casino area is adjacent to the lobby and the RetroCON 2021 convention is just down the hall. [[Let's go gambling|Casino]] [[Let's check out the convention|Convention room]] <<if $myRoom eq 1>> [[Let's go back to my room|My room]] <<else>> [[Let's go back to my room|Hotel room - Day 2]] <</if>>
<<nobr>> <<if $myRoom eq 1>> You awake after a good night's sleep.<br><br> You open the curtains and flood the room with bright light.<br><br> After a long hot shower, you get dressed and pack your bag.<br><br> <</if>> <<if $myRoom eq 2>> You are back in your hotel room.<br><br> <</if>> You are trying to decide if there is enough time to go back downstairs and see if there was anything you missed or call it a weekend and head to the airport.<br><br> [[Go to the hotel lobby|Lobby]] <br><br> [[I've had enough fun, time to go home|Airport]] <<set $myRoom = 2>> <</nobr>>
You take a cab to the airport and catch your flight home. On the flight home, you decide to jot down some memories of your trip: ------------- <<if $myMoney lt 100>> I lost $<<print (100-$myMoney).toFixed(2)>> gambling. <<elseif $myMoney gt 100>> I won $<<print ($myMoney-100).toFixed(2)>> gambling. <<else>> I didn't lose any money gambling. <</if>> I played Jacks or Better <<print $playJacks>> <<if $playJacks eq 1>>time.<<else>>times.<</if>> I played Keno <<print $playKeno>> <<if $playKeno eq 1>>time.<<else>>times.<</if>> I played the Slot Machines <<print $playSlots>> <<if $playSlots eq 1>>time.<<else>>times.<</if>> I bet on the Horse Races <<print $playRace>> <<if $playRace eq 1>>time.<<else>>times.<</if>> I enjoyed my time at the convention. I played Two Minute Drill <<print $playDrill>> <<if $playDrill eq 1>>time.<<else>>times.<</if>> I played Dozen Dead Zed <<print $playZed>> <<if $playZed eq 1>>time.<<else>>times.<</if>> I played Last Will and Testament <<print $playParser>> <<if $playParser eq 1>>time.<<else>>times.<</if>> ------------- I hope you enjoyed my game. Thanks for playing!
Welcome to RetroCON 2021. Some of the games within will not display correctly unless using Google Chrome as your browser. I hope you enjoy RetroCON 2021! [[Begin Game|My room]]