I:::::I *** HUNT THE WUMPUS ***I P()I "DO YOU WANT INSTRUCTIONS" J "(Type 0 for NO)";IJ::&J I #0J w:J# PmJP *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***{JU S(,)JZ J J_ K Jd S(J,K)Ji KJn JJs 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6Kx 5,7,15,6,8,17,1,7,9,8,10,18,2,9,115K} 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16fK 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19K A(X)(())K B(X)(())K C(X)(())K *** LOCATE L ARRAY ITEMS *** L *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS ***L L() L M().L J =LL(J)A()KLM(J)L(J)SL JL *** CHECK FOR CROSSOVERS (IE L(1)=L(2), ETC) ***L J L K L JK L L(J)L(K) L KL JL *** SET NO. OF ARROWS ***MAMLL()*M *** RUN THE GAME ***FM:: "HUNT THE WUMPUS"pM *** HAZARD WARNING AND LOCATION ***zM IM *** MOVE OR SHOOT ***M  M O ,,M *** SHOOT ***M M F M" 6M' *** MOVE ***N, N1 F 'N6 F O:N; *** LOSE ***YN@: "HA HA HA - YOU LOSE!"cNE TvNJ *** MOVE ***NO: "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!"NT J NYL(J)M(J)N^ JNc:: "DO YOU WANT TO PLAY AGAIN"Oe "(Type 1 for YES)";F&Og F ~KOh: "DO YOU WANT THE SAME SETUP"fOj "(Type 1 for YES)";IwOm I Or Ow *** INSTRUCTIONS ***O| "WELCOME TO 'HUNT THE WUMPUS'"O " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM"6P "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"sP "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"P "WHAT A DODECAHEDRON IS, ASK SOMEONE)"PP " HAZARDS:"P " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM;Q " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"yQ " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"Q " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER"Q " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)"R "TYPE TO CONTINUE ";W9/R " WUMPUS:"mR " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER"R " FEET AND IS TOO BIG FOR A BAT TOO LIFT). USUALLY"R " HE IS ASLEEP. TWO THINGS WAKE HIM UP:YOU SHOOTING AN"S " ARROW OR YOU ENTERING HIS ROOM."KS " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM"S " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU"S " ARE, HE EATS YOU UP AND YOU LOSE!"SS " YOU:"T " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW"DT " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)"T " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUTT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLINU " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO."HU " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES"oU  " AT RANDOM TO THE NEXT ROOM."U " IF THE ARROW HITS THE WUMPUS, YOU WIN."U " IF THE ARROW HITS YOU, YOU LOSE."U "TYPE TO CONTINUE ";W9 V! " WARNINGS:"NV& " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD,"nV+ " THE COMPUTER SAYS:"V0 " WUMPUS: 'I SMELL A WUMPUS'"V5 " BAT : 'BATS NEARBY'"V: " PIT : 'I FEEL A DRAFT'"V?VDWI *** PRINT LOCATION & HAZARD WARNINGS ***WN%WS J 3WX K OW] S(L(),K)L(J) oWb J g,q,q,{,{Wg "I SMELL A WUMPUS!"Wl Wq "I FEEL A DRAFT"Wv W{ "BATS NEARBY!"W KW JW "YOU ARE IN ROOM "L()#X "TUNNELS LEAD TO "S(L,);S(L,);S(L,))X/XKX *** CHOOSE OPTION ***dX: "SHOOT OR MOVE "X "(Type 0 for SHOOT or 1 for MOVE)";IX I XOXX I XOXX *** ARROW ROUTINE ***XF Y *** PATH OF ARROW ***)Y "NO. OF ROOMS (1-5)";2Y J9CY J9 TY J9 cY K J9sY "ROOM #";~Y P(K)Y K Y P(K)P(K) Y  "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM"Y Y K Z *** SHOOT ARROW ***Z LL()$Z% K J93Z* K1 LZ/ S(L,K1)P(K) UZ4 K1wZ9 *** NO TUNNEL FOR ARROW ***Z>LS(L,B())ZC ZH KZM "MISSED"ZRLL()ZW *** MOVE WUMPUS ***Z\ Za *** AMMO CHECK ***ZfAA [k A u[pF[uG[z *** SEE IF ARROW IS AT L(1) OR AT L(2)R[LP(K)f[ LL() [: "AHA! YOU GOT THE WUMPUS!"[F[[ LL() H[: "OUCH! ARROW GOT YOU!"[ p[ *** MOVE WUMPUS ROUTINE ***\KC()\ K %\L()S(L(),K)9\ L()L a\: "TSK TSK TSK - WUMPUS GOT YOU!"j\Fp\\ *** MOVE ROUTINE ***\F\ "WHERE TO";\ L\ L \ L \ K \ *** CHECK IF LEGAL MOVE ***] S(L(),K)L ] K1] LL() I] "NOT POSSIBLE -";S]  s] *** CHECK FOR HAZARDS ***~]L()L] *** WUMPUS ***] LL() B]$: "... OOPS! BUMPED A WUMPUS!"]) *** MOVE WUMPUS ***]. ^3 F B^8^= *** PIT ***+^B LL() L?^G LL() `h^L: "YYYYIIIIEEEE . . . FELL IN PIT"q^QFw^V^[ *** BATS ***^` LL() j^e LL() y^j: "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"^oLA()_t _y _~ LL()