Rosetta Code

Hunt the Wumpus: Difference between revisions

Page Discussion

Hunt the Wumpus (view source)

Revision as of 08:06, 16 April 2019

4 bytes added ,  5 years ago
→‎{{header|IS-BASIC}}
(Added data comment)
Line 93:
580 LET L=RND(19)+1
590 LOOP UNTIL I<>L
600 CASE 4,5ELSE
610 END SELECT
610620 IF LO(L)=4 OR LO(L)=5 THEN PRINT "You fall into a bottomless pit.":EXIT DO
620 CASE ELSE
630 END SELECTLOOP
660640 DEF CHKMON(X)=X=LO(RO(L,1)) OR X=LO(RO(L,2)) OR X=LO(RO(L,3))▼
640 LOOP
650 DEF MONCHK(X)=X=LO(RO(L,1)) OR X=LO(RO(L,2)) OR X=LO(RO(L,3))
670660 DEF INIT▼
▲660 DEF CHK(X)=X=RO(L,1) OR X=RO(L,2) OR X=RO(L,3)
670 TEXT 40:PRINT "Hunt the Wumpus";CHR$(241)
▲670 DEF INIT
680 FOR I=1 TO 20 ! Create the cave
680 TEXT 40
690 PRINT "Hunt theLET Wumpus";CHR$LO(241I)=0
700 FOR IJ=1 TO 20 ! Create the cave3
710 LET LO READ RO(I,J)=0
720 FORNEXT J=1 TO 3
730 NEXT READ RO(I,J)
740 LET WPOS=RND(19)+2:LET NEXT LO(WPOS)=1
750 NEXTFOR I=2 TO 5
760 LET WPOS=RND(19)+2:LET LO(WPOS)=1DO
770 FOR I=2 TO 5 LET T=RND(19)+2
780 DOLOOP UNTIL LO(T)=0
790 LET LO(T)=RND(19)+2I
800 NEXT LOOP UNTIL LO(T)=0
810 END DEF LET LO(T)=I
840820 DATA 2,6,5,3,8,1,4,10,2,5,2,3,1,14,4,15,1,7,17,6,8,7,2,9,18,8,10,9,3,11▼
820 NEXT
850830 DATA 19,10,12,11,4,13,20,12,14,5,11,13,6,16,14,20,15,17,16,7,18,17,9,19,18,11,20,19,13,16</lang>▼
830 END DEF
▲840 DATA 2,6,5,3,8,1,4,10,2,5,2,3,1,14,4,15,1,7,17,6,8,7,2,9,18,8,10,9,3,11
▲850 DATA 19,10,12,11,4,13,20,12,14,5,11,13,6,16,14,20,15,17,16,7,18,17,9,19,18,11,20,19,13,16</lang>
 
=={{header|Java}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/257896"