Universal Videogame List - www.uvlist.net

Awaiting 5 votes.
Click stars to vote this game

Tags

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

2006-12-18 22:02:12