Anonymous user
Hunt the Wumpus: Difference between revisions
→{{header|IS-BASIC}}
(Added data comment) |
|||
Line 93:
580 LET L=RND(19)+1
590 LOOP UNTIL I<>L
600 CASE
610 END SELECT
630
650 DEF
▲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
690
700 FOR
710
720
730 NEXT
740 LET WPOS=RND(19)+2:LET
750
760
770
780
790
800 NEXT
810 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}}==
|