**TI92P*mainProgram file 05/15/05, 15:21Rdungeonx ¥Z () Prgm Local x,y,z 0z ClrIO Disp "" ClrIO Dialog Title "DUNGEONMAN" Text "Samco Productions" Text "Tweeked by Aidan" Request "name?",name EndDlog Text "you find yeself in yon dungeon" Text "there is a flask bolted to the wall" Text "obvious exits are north south and dennis" PopUp {"north","south","dennis","get ye flask"},x If x=4 Then Text "ye cant get ye flask" PopUp {"north","south","dennis"},x EndIf Text "you pass out" Text "..." Text "you wake up in a pile of your own vomit" Text "next to you is a 400lb russian named duke" PopUp {"kick","punch","seduce"},x If x=3 Then z+1z EndIf Text "no dice. youre tied up" Text "duke winks" PopUp {"yell","scream","spit"},x Text "dukes mad" Text "he punches you" Text "you go unconcious" Text "..." Text "you wake up in a small moist room" Text "you have a tattoo that says 'i heart duke'" Text "there is a sword on the wall" Text "obvious exits are north south and left" PopUp {"sword","north","south","left"},x Text "you get ye sword" PopUp {"north","south","left"},x Text "bad choice" Text "theres a dragon" PopUp {"run"},x Text "the doors locked" PopUp {"throw sword","charge","wet yeself"},x Text "no dice. the dragon breathes flames on you" Text "youre on fire" PopUp {"stop","drop","roll","wet yeself"},x Text "whew. the fire goes out" Text "the dragon makes suggestive hand motions" PopUp {"give in"},x Text "eww" Text "..." Text "you wake up next to the dragon" Text "hes sleeping" PopUp {"scream","bite","snuggle"},x If x=3 Then z+1z EndIf Text "nothing happens" Text "theres a pile of treasure in the corner" PopUp {"snuggle","get ye treasure"},x If x=1 Then z+1z EndIf Text "greed overcomes you" Text "you get ye treasure" Text "you pass out" Text "..." Text "you wake up in a pile of your own vomit" Text "youre in the forest" Text "theres mexicans everywhere" PopUp {"chat","threaten","complain"},x Text "no dice. you dont speak mexican" PopUp {"kill","seduce"},x If x=2 Then z+1z EndIf Text "no way" Text "theres way too many of them" PopUp {"run away","sneak away","prance away"},x Text "they notice" Text "they stuff you in a sack" Text "you pass out" Text "..." Text "you wake up in someone elses vomit" Text "you smell" Text "you see youre in a jail cell" Text "theres a midget sitting next to you" Text "what do you do?" PopUp {"ask about jail","ask about vomit","ask about midgets","seduce"},x If x=4 Then z+1z EndIf Text "no dice. you dont speak midget" PopUp {"tunnel out","kill midget","wimper"},x Text "the midget headbutts you" Text "you pass out" Text "..." Text "you wake up in a jail cell" Text "...next to a midget" Text "...in some vomit." PopUp {"attack","tunnel out","bathe","wimper"},x Text "the midget has a heart attack and dies" PopUp {"have funeral","check for wallet","seduce"},x If x=3 Then z+1z EndIf Text "poor midget" Text "you pass out from your own stench" If z=6 Then Dialog Text "ye find yourself out of yon dungeon" Text "unfortunatly ye got olde aids from yon" Text "dragon ye are so low hookers wont do you" Text "ye eventully become a pirate" EndDlog pirates() EndIf If zœ5 Then Text "..." Text "you wake up dead" EndIf Text "buy yon sequel DUNGEONMAN2" Text "BUY ALL THE DUNGEONMAN GAMES" Text "thanks to samco + UberStuberSoft" Text "an Aidan Ink Production" Disp "SCORE" Disp z Disp name Disp "stubs" Disp "ass" Pause DispHome EndPrgm ÆäåÜp]