Visual Basic Syntax - Hunt the Wumpus (Was Re: Just a thought)

Author

Hunt the Wumpus (Was Re: Just a thought)

Michael Cole

2005-03-23, 4:01 am

Rick Rothstein wrote:
>
> Although you probably have an adventure style game in mind, you
> recollection reminds me of a game I used to enjoy on my first computer
> (a Texas Instruments TI-99/4). It was called "Hunt the Wumpus". Every
> move took you to another cavern in a large maze of caverns. The cavern
> wall were colored (as I remember) to give you a clue about its
> proximity to dangers in other caverns. In one of the caverns was a
> Wumpus, which would kill you if you stumbled into its cavern. You
> were to deduce which cavern the Wumpus was in and shoot an arrow into
> his cavern in order to kill him first. A very simple game, but my
> (then) young son and I passed many an enjoyable hour engaged in that
> game. Thanks for bringing that memory out in me.

You're not the only one who remembers it.

-- Wumpus Code Follows --

5 Rem *** HUNT THE WUMPUS ***
10 Dim p(5)
15 Print "INSTRUCTIONS (Y-N)";
20 input i$
25 If (i$ = "N") Or (i$ = "n") Then GoTo 35
30 GoSub 375
35 GoTo 80
80 Rem *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***
85 Dim s(20, 3)
90 For j = 1 To 20
95 For k = 1 To 3
100 read s(j, k)
105 Next k
110 Next j
115 Data 2, 5, 8, 1, 3, 10, 2, 4, 12, 3, 5, 14, 1, 4, 6
120 Data 5, 7, 15, 6, 8, 17, 1, 7, 9, 8, 10, 18, 2, 9, 11
125 Data 10, 12, 19, 3, 11, 13, 12, 14, 20, 4, 13, 15, 6, 14, 16
130 Data 15, 17, 20, 7, 16, 18, 9, 17, 19, 11, 18, 20, 13, 16, 19
135 def fna(X) = Int(20 * Rnd(1)) + 1
140 def fnb(X) = Int(3 * Rnd(1)) + 1
145 def fnc(X) = Int(4 * Rnd(1)) + 1
150 Rem *** LOCATE L ARRAY ITEMS ***
155 Rem *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS ***
160 Dim l(6)
165 Dim m(6)
170 For j = 1 To 6
175 l(j) = fna(0)
180 m(j) = l(j)
185 Next j
190 Rem *** CHECK FOR CROSSOVERS (IE l(1)=l(2), ETC) ***
195 For j = 1 To 6
200 For k = 1 To 6
205 If j = k Then GoTo 215
210 If l(j) = l(k) Then GoTo 170
215 Next k
220 Next j
225 Rem *** SET NO. OF ARROWS ***
230 a = 5
235 l = l(1)
240 Rem *** RUN THE GAME ***
245 Print "HUNT THE WUMPUS"
250 Rem *** HAZARD WARNING AND LOCATION ***
255 GoSub 585
260 Rem *** MOVE OR SHOOT ***
265 GoSub 670
270 On o GoTo 280, 300
275 Rem *** SHOOT ***
280 GoSub 715
285 If f = 0 Then GoTo 255
290 GoTo 310
295 Rem *** MOVE ***
300 GoSub 975
305 If f = 0 Then GoTo 255
310 If f > 0 Then GoTo 335
315 Rem *** LOSE ***
320 Print "HA HA HA - YOU LOSE!"
325 GoTo 340
330 Rem *** WIN ***
335 Print "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!"
340 For j = 1 To 6
345 l(j) = m(j)
350 Next j
355 Print "SAME SETUP (Y-N)";
360 input i$
365 If (i$ <> "Y") And (i$ <> "y") Then GoTo 170
370 GoTo 230
375 Rem *** INSTRUCTIONS ***
380 Print "WELCOME TO 'HUNT THE WUMPUS'"
385 Print " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM"
390 Print "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"
395 Print "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"
400 Print "WHAT A DODECAHEDRON IS, ASK SOMEONE)"
405 Print
410 Print " HAZARDS:"
415 Print " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM"
420 Print " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"
425 Print " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"
430 Print " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER"
435 Print " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)"
440 input "HIT RETURN TO CONTINUE";a$
445 Print " WUMPUS:"
450 Print " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER"
455 Print " FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY"
460 Print " HE IS ASLEEP. TWO THINGS WAKE HIM UP: YOU SHOOTING AN"
465 Print "ARROW OR YOU ENTERING HIS ROOM."
470 Print " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM"
475 Print " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU"
480 Print " ARE, HE EATS YOU UP AND YOU LOSE!"
485 Print
490 Print " YOU:"
495 Print " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW"
500 Print " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)"
505 Print " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT"
510 Print " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING"
515 Print " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO."
520 Print " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES"
525 Print " AT RANDOM TO THE NEXT ROOM."
530 Print " IF THE ARROW HITS THE WUMPUS, YOU WIN."
535 Print " IF THE ARROW HITS YOU, YOU LOSE."
540 input "HIT RETURN TO CONTINUE";a$
545 Print " WARNINGS:"
550 Print " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD,"
555 Print " THE COMPUTER SAYS:"
560 Print " WUMPUS: 'I SMELL A WUMPUS'"
565 Print " BAT : 'BATS NEARBY'"
570 Print " PIT : 'I FEEL A DRAFT'"
575 Print
580 Return
585 Rem *** PRINT LOCATION & HAZARD WARNINGS ***
590 Print
595 For j = 2 To 6
600 For k = 1 To 3
605 If s(l(1), k) <> l(j) Then GoTo 640
610 On j - 1 GoTo 615, 625, 625, 635, 635
615 Print "I SMELL A WUMPUS!"
620 GoTo 640
625 Print "I FEEL A DRAFT"
630 GoTo 640
635 Print "BATS NEARBY!"
640 Next k
645 Next j
650 Print "YOU ARE IN ROOM "; l(1)
655 Print "TUNNELS LEAD TO "; s(l, 1); " "; s(l, 2); " "; s(l, 3)
660 Print
665 Return
670 Rem *** CHOOSE OPTION ***
675 Print "SHOOT OR MOVE (S-M)";
680 input i$
685 If (i$ <> "S") And (i$ <> "s") Then GoTo 700
690 o = 1
695 Return
700 If (i$ <> "M") And (i$ <> "m") Then GoTo 675
705 o = 2
710 Return
715 Rem *** ARROW ROUTINE ***
720 f = 0
725 Rem *** PATH OF ARROW ***
735 Print "NO. OF ROOMS (1-5)";
740 input j9
745 If j9 < 1 Then GoTo 735
750 If j9 > 5 Then GoTo 735
755 For k = 1 To j9
760 Print "ROOM #";
765 input p(k)
770 If k <= 2 Then GoTo 790
775 If p(k) <> p(k - 2) Then GoTo 790
780 Print "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM"
785 GoTo 760
790 Next k
795 Rem *** SHOOT ARROW ***
800 l = l(1)
805 For k = 1 To j9
810 For k1 = 1 To 3
815 If s(l, k1) = p(k) Then GoTo 895
820 Next k1
825 Rem *** NO TUNNEL FOR ARROW ***
830 l = s(l, fnb(1))
835 GoTo 900
840 Next k
845 Print "MISSED"
850 l = l(1)
855 Rem *** MOVE WUMPUS ***
860 GoSub 935
865 Rem *** AMMO CHECK ***
870 a = a - 1
875 If a > 0 Then GoTo 885
880 f = -1
885 Return
890 Rem *** SEE IF ARROW IS AT l(1) OR AT l(2)
895 l = p(k)
900 If l <> l(2) Then GoTo 920
905 Print "AHA! YOU GOT THE WUMPUS!"
910 f = 1
915 Return
920 If l <> l(1) Then GoTo 840
925 Print "OUCH! ARROW GOT YOU!"
930 GoTo 880
935 Rem *** MOVE WUMPUS ROUTINE ***
940 k = fnc(0)
945 If k = 4 Then GoTo 955
950 l(2) = s(l(2), k)
955 If l(2) <> l Then GoTo 970
960 Print "TSK TSK TSK - WUMPUS GOT YOU!"
965 f = -1
970 Return
975 Rem *** MOVE ROUTINE ***
980 f = 0
985 Print "WHERE TO";
990 input l
995 If l < 1 Then GoTo 985
1000 If l > 20 Then GoTo 985
1005 For k = 1 To 3
1010 Rem *** CHECK IF LEGAL MOVE ***
1015 If s(l(1), k) = l Then GoTo 1045
1020 Next k
1025 If l = l(1) Then GoTo 1045
1030 Print "NOT POSSIBLE -";
1035 GoTo 985
1040 Rem *** CHECK FOR HAZARDS ***
1045 l(1) = l
1050 Rem *** WUMPUS ***
1055 If l <> l(2) Then GoTo 1090
1060 Print "... OOPS! BUMPED A WUMPUS!"
1065 Rem *** MOVE WUMPUS ***
1070 GoSub 940
1075 If f = 0 Then GoTo 1090
1080 Return
1085 Rem *** PIT ***
1090 If l = l(3) Then GoTo 1100
1095 If l <> l(4) Then GoTo 1120
1100 Print "YYYYIIIIEEEE . . . FELL IN PIT"
1105 f = -1
1110 Return
1115 Rem *** BATS ***
1120 If l = l(5) Then GoTo 1130
1125 If l <> l(6) Then GoTo 1145
1130 Print "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"
1135 l = fna(1)
1140 GoTo 1045
1145 Return
1150 End

--
Regards,

Michael Cole

Bob Butler

2005-03-23, 4:01 am

"Michael Cole" <noone@hansen.com> wrote in message
news:%23kfRhN0LFHA.1300@TK2MSFTNGP10.phx.gbl
<cut>
> 35 GoTo 80
> 80 Rem *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***

Reason #425 to avoid using GoTo <g>

--
Reply to the group so all can participate
VB.Net: "Fool me once..."

Rick Rothstein

2005-03-23, 4:01 am

> >>> Rick, I would follow you into the darkest of caverns, expecting
computer[color=darkred]
Every[color=darkred]
cavern[color=darkred]
into[color=darkred]
>
> You're not the only one who remembers it.
>
> -- Wumpus Code Follows --
>
> .....<code snipped>....

Wow! Line numbers, GOTO, etc.... thanks for the additional memory lane
stuff.<g> However, the TI version had a completely graphical interface.
As a matter-of-fact, I still have a TI99/4A down in my basement and I
have the "Hunt the Wumpus" module, so I could resurrect it if I wanted.

Rick

Michael Cole

2005-03-23, 4:01 am

Rick Rothstein wrote:
>
> Wow! Line numbers, GOTO, etc.... thanks for the additional memory lane
> stuff.<g> However, the TI version had a completely graphical
> interface. As a matter-of-fact, I still have a TI99/4A down in my
> basement and I have the "Hunt the Wumpus" module, so I could
> resurrect it if I wanted.

Triggered some memories in me. I had to then go out and find a copy of
"Hunt the Hurkle" again. Don't know if you remember that one, but I am now
seriously considering writing a VB version of that in my spare time.

--
Regards,

Michael Cole

Sponsored Links