Trip down memory lane (modern style)

[xra7en]

I plan on making a book like David Ahl used to to. What worked then can still work today. To learn to program, I used to always refer back to these books and either copy the code, or translate it to a new language in order to better understand.

I think I will call it "QB64 COMPUTER GAMES" Yes?
The book will not be just a direct copy or style of DAVID H AHL, but more of a compliment. Something that teaches modular programing and sterring way from the spaghetti code.  All of the games will circle around some type of algebra, trig or calculus to make games fun. All will be short to code in a few hours to a day or two at best.

If you guys have any suggestions for SIMPLE games... post here.

This one is not done, but definitely playable. Sadly there is not formula for computing x,y. So it's more of a guessing game. There are some cosmetic touches left, and a few bugs.

INCLUDE FILE (REQUIRED)

Code: QB64: [Select]

1. '// DEC(X) -1 TO X
2. '// INC(X) +1 TO X
3. '// DISTANCE: DISTANCE BETWEEN 2 X,Y COORDS
4.  
5. FUNCTION DEC (X AS INTEGER)
6.     '============================================================================
7.     '--- PASCAL FUNCTION: DECREASES X BY 1)
8.     '============================================================================
9.     DEC = X - 1
10. END FUNCTION
11.  
12. FUNCTION INC (X AS INTEGER)
13.     '============================================================================
14.     '--- PASCAL FUNCTION: INCREASE X BY 1)
15.     '============================================================================
16.     INC = X + 1
17. END FUNCTION
18.  
19. FUNCTION DISTANCE (X1, Y1, X2, Y2 AS INTEGER)
20.     '============================================================================
21.     '--- DIST BETWEEN 2 POINTS
22.     '============================================================================
23.     DISTANCE = SQR((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
24. END FUNCTION
25.  
26.  
27. FUNCTION yesNo (default AS STRING)
28.     '// @default = when ENTER is pressed what will be the default answer
29.  
30.     DIM ans AS STRING
31.  
32.     DO
33.         ans = INKEY$
34.         ans = LCASE$(ans)
35.     LOOP UNTIL ans = "y" OR ans = "n" OR ans = CHR$(13)
36.     IF ans = CHR$(13) THEN ans = default
37.  
38.     IF ans = "y" THEN
39.         yesNo = 1
40.     ELSE
41.         yesNo = 0
42.     END IF
43.  
44. END SUB
45.  
46. FUNCTION COUNT_TAGS (TEXT AS STRING)
47.     '//
48.     '// RETURNS THE NUMBER OF LORD TAGS IN A STRING
49.     '//
50.     DIM I AS INTEGER
51.     IF LEN(TEXT) = 0 THEN COUNT_TAGS = 0
52.     DIM COUNT AS INTEGER
53.     DIM LENGTH AS INTEGER
54.     LENGTH = LEN(TEXT)
55.     COUNT = 0
56.  
57.     FOR I = 1 TO LENGTH
58.         IF MID$(TEXT, I, 1) = "`" THEN COUNT = COUNT + 1
59.  
60.     NEXT
61.     COUNT_TAGS = COUNT
62.  
63.  
64. END FUNCTION
65.  
66.  
67. SUB CENTER (text AS STRING, row AS INTEGER)
68.     '//
69.     '// CENTER TEXT AS A SPECIFIED ROW
70.     '//
71.     DIM textLen, col AS INTEGER
72.     DIM TAGS AS INTEGER
73.  
74.     IF INSTR(text, "`") >= 1 THEN ' There is a tag
75.  
76.         TAGS = COUNT_TAGS(text) * 2
77.         textLen = INT((LEN(text) - TAGS) / 2)
78.     ELSE
79.         textLen = INT(LEN(text) / 2)
80.  
81.     END IF
82.  
83.     col = 40 - textLen
84.     LOCATE row, col
85.     IF TAGS > 0 THEN
86.         LWRITE text
87.     ELSE
88.         PRINT text
89.     END IF
90.  
91.  
92. END SUB
93.  
94. SUB LWRITE (TXT AS STRING)
95.     DIM i AS INTEGER
96.     '======================================================
97.     '--- THIS IS A POPULAR COLOR ROUTINE BASED ON THE
98.     '--- SETH ABLE L.O.R.D. BBS GAME COLOR FORMATTING
99.     '=====================================================
100.     COLOR 7 ' DEFAULT COLOR
101.     FOR i = 1 TO LEN(TXT$)
102.         ' CHECK FOR A COLOR CHANGE
103.         IF MID$(TXT$, i, 1) = "`" THEN
104.             i = i + 1
105.             SELECT CASE MID$(TXT, i, 1)
106.                 CASE "0": COLOR 10
107.                 CASE "1": COLOR 1
108.                 CASE "2": COLOR 2
109.                 CASE "3": COLOR 3
110.                 CASE "4": COLOR 4
111.                 CASE "5": COLOR 5
112.                 CASE "6": COLOR 6
113.                 CASE "7": COLOR 7
114.                 CASE "8": COLOR 8
115.                 CASE "9": COLOR 9
116.                 CASE "!": COLOR 11
117.                 CASE "@": COLOR 12
118.                 CASE "#": COLOR 13
119.                 CASE "$": COLOR 14
120.                 CASE "%": COLOR 15
121.                 CASE "n": PRINT '           new line
122.                 CASE "t": PRINT , ; '       TAB
123.             END SELECT
124.             i = i + 1
125.  
126.         END IF
127.         PRINT MID$(TXT$, i, 1);
128.     NEXT
129.     PRINT ;
130. END SUB
131.  
132. SUB LWRITELN (TXT AS STRING)
133.     LWRITE (TXT$)
134.     PRINT
135. END SUB
136.  

ACTUAL GAME

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. '// MINE: SENTRY DRONE
4. '// DESC: USE DRONES TO DETONATE TOXIC ROX TO PREP SECTOR FOR MINING
5. '//
6.  
7. DIM SHARED TURN AS INTEGER '                    TURN COUNTER. STARTING 3 TURNS PER ROX*
8. DIM SHARED ROX_CNT AS INTEGER '                 TOTAL ROX IN THIS SECTOR
9. DIM SHARED ROX_TOTAL AS INTEGER '               TOTAL NUMBER OF ROX TO FIND
10. DIM SHARED I, J AS INTEGER '                    LOOP COUNTERS
11. DIM SHARED GAMEOVER AS INTEGER
12. DIM SHARED SECTOR(20, 20) AS INTEGER '           AREA WHERE ROX ARE HIDDEN
13. DIM SHARED ROX_TIMER(20, 20) AS INTEGER '        IF PLAYER IS WITHIN 3 SQUARES, ROX CAN EXPLODE AFTER 3 TURNS*
14.  
15. CONST TRUE = 1
16. CONST FALSE = 0
17.  
18. TITLE
19. INSTRUCTIONS
20.  
21. DO
22.     GAME_INIT
23.     GAME_RUN
24.  
25. LOOP UNTIL GAMEOVER = TRUE
26. END
27.  
28. '$include: 'utils.bi'
29.  
30.  
31. SUB GAME_INIT
32.     GAMEOVER = FALSE
33.     ROX_TOTAL = 15
34.     DIM X, Y AS INTEGER
35.  
36.     TURN = 0
37.     FOR I = 1 TO ROX_TOTAL: FOR J = 1 TO 2: SECTOR(I, J) = 0: ROX_TIMER(I, J) = 0: NEXT: NEXT
38.     FOR I = 1 TO ROX_TOTAL
39.         FOR J = 1 TO 2
40.             SECTOR(I, J) = INT(RND * ROX_TOTAL) + 1
41.         NEXT J
42.     NEXT I
43.  
44.  
45. END SUB
46.  
47. SUB GAME_RUN
48.     DIM M, N AS INTEGER
49.     DIM D AS DOUBLE '                                                       DISTANCE VAR
50.     DIM ACTIVE AS INTEGER '                                                 IS A ROX STILL ACTIVE
51.  
52.  
53.     DO
54.         LWRITELN ("`7TURN `$" + STR$(TURN)) '                               DISPLAY TURN
55.         LWRITELN ("`% 99,0 `8= `7Quit,  `%99,1 = `7Help") '                 OTHER PLAYER OPTIONS
56.         LWRITE ("`7Guess X,Y location: `#") '                               ASK FOR GUESS
57.         INPUT M, N '                                                        X,Y = M,N
58.  
59.         IF M = 99 AND N = 0 THEN
60.             GAME_END
61.             EXIT SUB
62.         END IF
63.  
64.         '//TODO ADD HELP HERE
65.         FOR I = 1 TO ROX_TOTAL '                                                   START LOOP OF #OF ROX
66.             IF SECTOR(I, 1) <> -1 THEN '                                    ROX NOT DESTROYED?
67.                 IF M = SECTOR(I, 1) AND N = SECTOR(I, 2) THEN '             M & n = X,Y?
68.                     LWRITELN ("`2TARGET `4" + STR$(I) + " `0MARKED FOR DESTRUCTION!") '        YES!!
69.                     SECTOR(I, 1) = -1 '                                     MARK IT AS DESTROYED (-1)
70.  
71.                 ELSE '                                                      OTHERWISE.....
72.                     D = DISTANCE(SECTOR(I, 1), SECTOR(I, 2), M, N) '        CALC DISTANCE FROM 0,0
73.                     LWRITELN ("`7TARGET `$" + STR$(I) + " `7DISTANCE: `$" + STR$((INT(D * 10) / 10))) ' DISPLAY TO PLAYER
74.  
75.                 END IF
76.             END IF '                                                        CHECK DONE PLAYER GUESS=ROX X,Y
77.         NEXT I '                                                            LOOP TO NEXT ROX LOCATION
78.  
79.         '//
80.         '// CHECK TO SEE IF THEY ALL HAVE BEEN FOUND (-1)
81.         '//
82.         ACTIVE = FALSE '                                                    DEFAULT CHECK TO FALSE
83.  
84.         FOR I = 1 TO ROX_TOTAL '                                                   GO THROUGH ALL ROX LOCATIONS
85.             IF SECTOR(I, 1) > 0 THEN ACTIVE = TRUE '                        IF ANY ARE NOT -1 ACTIVE = TRUE
86.         NEXT
87.  
88.         IF ACTIVE = FALSE THEN GAME_END_WIN '                               IF ALL FOUND, END GAME
89.  
90.         TURN = INC(TURN) '                                                  INC TURN (CONT.. GAME)
91.  
92.  
93.         IF TURN > 40 THEN GAME_END_LOSE '                                   DID THEY RUN OUT OF TIME?
94.     LOOP UNTIL ACTIVE = FALSE '                                             CONT.. UNTIL ALL ACTIVE ARE FALSE
95.  
96.  
97. END SUB
98.  
99. SUB GAME_END
100.     DIM ANS AS INTEGER
101.     COLOR 3
102.     PRINT
103.     PRINT "SINCE YOU ARE THE ONLY 'QUALIFIED' PERSON OUT HERE,"
104.     PRINT "WOULD YOU LIKE TO WORK ON ANOTHER SECTOR? Y/n: ";
105.     COLOR 13
106.     ANS = yesNo("N")
107.     GAMEOVER = FALSE
108.     IF ANS = FALSE THEN GAMEOVER = TRUE
109. END SUB
110.  
111. SUB GAME_END_WIN
112.     CLS
113.     PRINT "YOU FOUND THEM ALL!"
114.     PRINT "CONT.. END GAME STORY"
115.     ACCURACY
116.  
117.     PRINT
118.     GAME_END
119. END SUB
120.  
121. SUB ACCURACY
122.     PRINT "Your accuracy = ";
123.     PRINT USING "###.##"; ABS(100 - ((ROX_TOTAL / TURN) * 100)); "% !"
124.  
125. END SUB
126.  
127. SUB GAME_END_LOSE
128.     CLS
129.     COLOR 4
130.     PRINT "TIMES UP. YOU WERE NOT ABLE TO GET THEM ALL :"
131.     PRINT
132.     PRINT "AFTER THE MASSIVE EXPLOSIONS, THE SATILITE WAS ABLE TO RESOLVE"
133.     PRINT "THE REMAINING LOCATIONS:"
134.     PRINT
135.     COLOR 7
136.     FOR I = 1 TO ROX_TOTAL
137.         IF SECTOR(I, 1) <> -1 THEN PRINT "ROX "; I; " LOCATED AT "; SECTOR(I, 1); ","; SECTOR(I, 2)
138.     NEXT I
139.     PRINT
140.     ACCURACY
141.     PRINT
142.  
143.     GAME_END
144. END SUB
145.  
146.  
147. SUB TITLE
148.     CLS
149.     CALL CENTER("`#ROX SENTRY", 2)
150.  
151.     CALL CENTER("`8Press `7ENTER `8 to start", 20)
152.  
153.     I = yesNo("y")
154.     CLS
155.  
156. END SUB
157.  
158. SUB INSTRUCTIONS
159.     DIM ans AS INTEGER
160.  
161.     COLOR 7
162.     PRINT "A mining company wants to mine a new planet. However  toxic and explosive"
163.     PRINT "pockets line the surface. Your job: Find these pockets and mark them for"
164.     PRINT "drones to hone in and safely destroy them. Problem: The satilites are"
165.     PRINT "malfunctioning, and therefore cannot relay their information to the drones.!"
166.     PRINT "This is where you come in, guess x,y coords and in return the satilite will"
167.     PRINT "tell you how far you are off. Why the satilites cannot inform you directly is"
168.     PRINT "another 'bug' in the system"
169.     PRINT
170.     LWRITELN ("`7When asked, input and x,y coord like: `#X`8,`#Y `7include the 'comma'")
171.     PRINT "in your answer"
172.     PRINT
173.     PRINT "Good Luck (Note: You have 40 tries to eliminate all the ROX pockets)"
174.     PRINT
175.     PRINT
176.     PRINT "Press ENTER to continue...."
177.     ans = yesNo("Y")
178.  
179. END SUB
180.  

[bplus]

I made a few modifications:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. RANDOMIZE TIMER
3. _TITLE "Rox Proximity" '  by bplus started 2019-06-04"
4.  
5. CONST xmax = 800
6. CONST ymax = 600
7. CONST nSquaresPerSide = 10
8. CONST squareSize = 40
9. CONST nRox = 15
10.  
11. SCREEN _NEWIMAGE(xmax, ymax, 32)
12. _SCREENMOVE 360, 60
13.  
14. DIM SHARED xOffSet AS INTEGER, yOffSet AS INTEGER, escape AS INTEGER, missionComplete AS INTEGER
15. DIM SHARED turn AS INTEGER, ClickedCol AS INTEGER, clickedRow AS INTEGER
16. xOffSet = (xmax - squareSize * nSquaresPerSide) / 2
17. yOffSet = (ymax - squareSize * nSquaresPerSide) / 2
18. DIM SHARED board(1 TO nSquaresPerSide, 1 TO nSquaresPerSide) AS INTEGER
19. DIM SHARED report(1 TO nRox) AS STRING
20.  
21. help
22. initGame
23. ClickedCol = 1: clickedRow = 1
24. DO
25.     updateScreen
26.     getClick
27.     IF escape THEN CLS: END
28.     SELECT CASE board(ClickedCol, clickedRow)
29.         CASE 0: board(ClickedCol, clickedRow) = 1 'now explored no Rox
30.         CASE -1: board(ClickedCol, clickedRow) = -10 'Rox now marked
31.     END SELECT
32.     _LIMIT 60
33. LOOP UNTIL missionComplete
34.  
35. SUB initGame 'assign rox positions  on board
36.     DIM i AS INTEGER, rx AS INTEGER, ry AS INTEGER
37.     FOR i = 1 TO nRox
38.         rx = INT(RND * nSquaresPerSide) + 1
39.         ry = INT(RND * nSquaresPerSide) + 1
40.         WHILE board(rx, ry) = -1
41.             rx = INT(RND * nSquaresPerSide) + 1
42.             ry = INT(RND * nSquaresPerSide) + 1
43.         WEND
44.         board(rx, ry) = -1
45.     NEXT
46. END SUB
47.  
48. SUB getClick
49.     DIM test AS STRING
50.     DIM m AS INTEGER, mb AS INTEGER, mx AS INTEGER, my AS INTEGER, row AS SINGLE, col AS SINGLE
51.     ClickedCol = 0: clickedRow = 0
52.     WHILE 1
53.         test$ = INKEY$
54.         IF LEN(test$) THEN
55.             IF ASC(test$) = 27 THEN escape = -1: EXIT SUB
56.         END IF
57.         m = _MOUSEINPUT: mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
58.         IF mb THEN 'get last place mouse button was down
59.             mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
60.             WHILE mb 'left button down, wait for mouse button release before doing anything as a "click"
61.                 m = _MOUSEINPUT: mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
62.             WEND
63.             row = (my - yOffSet) / squareSize
64.             IF row > 0 AND row < nSquaresPerSide THEN
65.                 clickedRow = INT(row) + 1
66.                 col = (mx - xOffSet) / squareSize
67.                 IF col > 0 AND col < nSquaresPerSide THEN
68.                     ClickedCol = INT(col) + 1
69.                     EXIT WHILE
70.                 ELSE
71.                     IF mx <> -1 AND my <> -1 THEN BEEP
72.                 END IF
73.             ELSE
74.                 IF mx <> -1 AND my <> -1 THEN BEEP
75.             END IF
76.         END IF
77.         _LIMIT 1000 'STOP THE FAN !
78.     WEND
79.     turn = turn + 1
80. END SUB
81.  
82. SUB updateScreen
83.     DIM r AS INTEGER, c AS INTEGER, reportI AS INTEGER, marked AS INTEGER
84.     DIM s AS STRING
85.     DIM colr AS _UNSIGNED LONG
86.     CLS
87.     'LOCATE 1, 1: PRINT ClickedCol, clickedRow
88.     LOCATE 2, 60: PRINT "Red for Rox"
89.     LOCATE 3, 60: PRINT "Green for clear"
90.     FOR r = 1 TO nSquaresPerSide
91.         FOR c = 1 TO nSquaresPerSide
92.             SELECT CASE board(c, r)
93.                 CASE -1, 0
94.                     s = _TRIM$(STR$(ABS(ClickedCol - c) + ABS(clickedRow - r)))
95.                     colr = &HFF888888
96.                     IF board(c, r) = -1 THEN
97.                         reportI = reportI + 1
98.                         report(reportI) = s
99.                     END IF
100.                 CASE 1
101.                     s = ""
102.                     colr = &HFF008800
103.                 CASE -10 'mark Rox
104.                     s = ""
105.                     colr = &HFFFF0000
106.                     reportI = reportI + 1
107.                     report(reportI) = "Marked"
108.                     marked = marked + 1
109.             END SELECT
110.             LINE (xOffSet + (c - 1) * squareSize, yOffSet + (r - 1) * squareSize)-STEP(squareSize, squareSize), colr, BF
111.             IF s <> "" THEN
112.                 COLOR &HFFFFFFFF, colr
113.                 _PRINTSTRING (xOffSet + (c - 1) * squareSize + (squareSize - LEN(s) * 8) / 2, yOffSet + (r - 1) * squareSize + (squareSize - 16) / 2), s
114.                 COLOR &HFFFFFFFF, &HFF000000
115.             END IF
116.         NEXT
117.     NEXT
118.  
119.     LOCATE 2, 5: PRINT "Satellite Report for turn #"; turn; " location ("; RTRIM$(STR$(ClickedCol)); ","; RTRIM$(STR$(clickedRow)); ")"
120.     LOCATE 3, 5: PRINT "Rox #", "Prox:"
121.     FOR r = 1 TO 15
122.         LOCATE r + 3, 5: PRINT r, report$(r)
123.     NEXT
124.     IF marked = nRox THEN
125.         missionComplete = -1
126.         s = "Congratulations! All Rox are marked."
127.         LOCATE 34, (xmax / 8 - LEN(s)) \ 2: PRINT s
128.     END IF
129. END SUB
130.  
131. SUB help
132.     PRINT
133.     PRINT "        A mining company wants to mine a new planet. However toxic and explosive"
134.     PRINT "   pockets line the surface."
135.     PRINT
136.     PRINT "        Your job: Find these pockets and mark them for drones to safely destroy."
137.     PRINT
138.     PRINT "        Problem: The satellites are malfunctioning, and therefore cannot relay"
139.     PRINT "   their information to the drones!"
140.     PRINT
141.     PRINT "        This is where you come in, click an x, y coordinate and the satilite will"
142.     PRINT "   tell you how far off you are."
143.     PRINT
144.     PRINT "        Why the satilites cannot do this directly is another 'bug' in the system."
145.     PRINT
146.     PRINT "        You will start the survey at the top left corner of the map."
147.     PRINT
148.     PRINT "        Proximity units are the number of squares away from your last click."
149.     PRINT
150.     PRINT "                                                       Press any to continue... "
151.     SLEEP
152. END SUB
153.  
154.  

 

[xra7en]

very nice!!!

[xra7en]

OK, I played the modified version, doesn't seem to work for solving. My original (a HURKLE remake) base is 0,0. The distances shown is computed from that point. Using a compass you can get close to find the ROX.
The version seems like a minesweep version. How do you find a location?

[bplus]

OK, I played the modified version, doesn't seem to work for solving. My original (a HURKLE remake) base is 0,0. The distances shown is computed from that point. Using a compass you can get close to find the ROX.
The version seems like a minesweep version. How do you find a location?

Yes I skipped the distance formula, you just count the x and y squares away. The satellite reports says the same thing, say 3, look on the map for all the 3's around the last clicked item, look for a 3 following the click point on the map, as the Rox are counted from top top bottom, left to right. A diagonal will count as 2 = 1 x move + 1 y move.

[xra7en]

ahhh, I kinda thought that was how it worked. I had fun playing it. Much easier than mine hahaha

The easiest way to solve SENTRY DRONE, is to either get fancy calculus, or cheat and use a compass LOL.

There are several favs of mine from that BASIC COMPUTER GAMES trilogy that D.A. created that I will be remaking

and of course - can't remake it without a WUMPUS game LOL!!

I have a few other mods to the SENTRY DONE that I want to clean up. Mostly the display.

[bplus]

Very simple to modify it with the distance formula, but it makes it really easy to decide what to click next:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. RANDOMIZE TIMER
3. _TITLE "Rox Proximity" '  by bplus started 2019-06-04 modified for distance formula
4.  
5. CONST xmax = 800
6. CONST ymax = 600
7. CONST nSquaresPerSide = 10
8. CONST squareSize = 40
9. CONST nRox = 15
10.  
11. SCREEN _NEWIMAGE(xmax, ymax, 32)
12. _SCREENMOVE 360, 60
13.  
14. DIM SHARED xOffSet AS INTEGER, yOffSet AS INTEGER, escape AS INTEGER, missionComplete AS INTEGER
15. DIM SHARED turn AS INTEGER, ClickedCol AS INTEGER, clickedRow AS INTEGER
16. xOffSet = (xmax - squareSize * nSquaresPerSide) / 2
17. yOffSet = (ymax - squareSize * nSquaresPerSide) / 2
18. DIM SHARED board(1 TO nSquaresPerSide, 1 TO nSquaresPerSide) AS INTEGER
19. DIM SHARED report(1 TO nRox) AS STRING
20.  
21. help
22. initGame
23. ClickedCol = 1: clickedRow = 1
24. DO
25.     updateScreen
26.     getClick
27.     IF escape THEN CLS: END
28.     SELECT CASE board(ClickedCol, clickedRow)
29.         CASE 0: board(ClickedCol, clickedRow) = 1 'now explored no Rox
30.         CASE -1: board(ClickedCol, clickedRow) = -10 'Rox now marked
31.     END SELECT
32.     _LIMIT 60
33. LOOP UNTIL missionComplete
34.  
35. SUB initGame 'assign rox positions  on board
36.     DIM i AS INTEGER, rx AS INTEGER, ry AS INTEGER
37.     FOR i = 1 TO nRox
38.         rx = INT(RND * nSquaresPerSide) + 1
39.         ry = INT(RND * nSquaresPerSide) + 1
40.         WHILE board(rx, ry) = -1
41.             rx = INT(RND * nSquaresPerSide) + 1
42.             ry = INT(RND * nSquaresPerSide) + 1
43.         WEND
44.         board(rx, ry) = -1
45.     NEXT
46. END SUB
47.  
48. SUB getClick
49.     DIM test AS STRING
50.     DIM m AS INTEGER, mb AS INTEGER, mx AS INTEGER, my AS INTEGER, row AS SINGLE, col AS SINGLE
51.     ClickedCol = 0: clickedRow = 0
52.     WHILE 1
53.         test$ = INKEY$
54.         IF LEN(test$) THEN
55.             IF ASC(test$) = 27 THEN escape = -1: EXIT SUB
56.         END IF
57.         m = _MOUSEINPUT: mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
58.         IF mb THEN 'get last place mouse button was down
59.             mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
60.             WHILE mb 'left button down, wait for mouse button release before doing anything as a "click"
61.                 m = _MOUSEINPUT: mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
62.             WEND
63.             row = (my - yOffSet) / squareSize
64.             IF row > 0 AND row < nSquaresPerSide THEN
65.                 clickedRow = INT(row) + 1
66.                 col = (mx - xOffSet) / squareSize
67.                 IF col > 0 AND col < nSquaresPerSide THEN
68.                     ClickedCol = INT(col) + 1
69.                     EXIT WHILE
70.                 ELSE
71.                     IF mx <> -1 AND my <> -1 THEN BEEP
72.                 END IF
73.             ELSE
74.                 IF mx <> -1 AND my <> -1 THEN BEEP
75.             END IF
76.         END IF
77.         _LIMIT 1000 'STOP THE FAN !
78.     WEND
79.     turn = turn + 1
80. END SUB
81.  
82. SUB updateScreen
83.     DIM r AS INTEGER, c AS INTEGER, reportI AS INTEGER, marked AS INTEGER
84.     DIM d AS SINGLE
85.     DIM s AS STRING
86.     DIM colr AS _UNSIGNED LONG
87.     CLS
88.     'LOCATE 1, 1: PRINT ClickedCol, clickedRow
89.     LOCATE 2, 60: PRINT "Red for Rox"
90.     LOCATE 3, 60: PRINT "Green for clear"
91.     FOR r = 1 TO nSquaresPerSide
92.         FOR c = 1 TO nSquaresPerSide
93.             SELECT CASE board(c, r)
94.                 CASE -1, 0
95.                     d = INT(10 * SQR((ClickedCol - c) ^ 2 + (clickedRow - r) ^ 2))
96.                     s = _TRIM$(STR$(d / 10))
97.                     colr = &HFF888888
98.                     IF board(c, r) = -1 THEN
99.                         reportI = reportI + 1
100.                         report(reportI) = s
101.                     END IF
102.                 CASE 1
103.                     s = ""
104.                     colr = &HFF008800
105.                 CASE -10 'mark Rox
106.                     s = ""
107.                     colr = &HFFFF0000
108.                     reportI = reportI + 1
109.                     report(reportI) = "Marked"
110.                     marked = marked + 1
111.             END SELECT
112.             LINE (xOffSet + (c - 1) * squareSize, yOffSet + (r - 1) * squareSize)-STEP(squareSize, squareSize), colr, BF
113.             IF s <> "" THEN
114.                 COLOR &HFFFFFFFF, colr
115.                 _PRINTSTRING (xOffSet + (c - 1) * squareSize + (squareSize - LEN(s) * 8) / 2, yOffSet + (r - 1) * squareSize + (squareSize - 16) / 2), s
116.                 COLOR &HFFFFFFFF, &HFF000000
117.             END IF
118.         NEXT
119.     NEXT
120.  
121.     LOCATE 2, 5: PRINT "Satellite Report for turn #"; turn; " location ("; RTRIM$(STR$(ClickedCol)); ","; RTRIM$(STR$(clickedRow)); ")"
122.     LOCATE 3, 5: PRINT "Rox #", "Prox:"
123.     FOR r = 1 TO 15
124.         LOCATE r + 3, 5: PRINT r, report$(r)
125.     NEXT
126.     IF marked = nRox THEN
127.         missionComplete = -1
128.         s = "Congratulations! All Rox are marked."
129.         LOCATE 34, (xmax / 8 - LEN(s)) \ 2: PRINT s
130.     END IF
131. END SUB
132.  
133. SUB help
134.     PRINT
135.     PRINT "        A mining company wants to mine a new planet. However toxic and explosive"
136.     PRINT "   pockets line the surface."
137.     PRINT
138.     PRINT "        Your job: Find these pockets and mark them for drones to safely destroy."
139.     PRINT
140.     PRINT "        Problem: The satellites are malfunctioning, and therefore cannot relay"
141.     PRINT "   their information to the drones!"
142.     PRINT
143.     PRINT "        This is where you come in, click an x, y coordinate and the satilite will"
144.     PRINT "   tell you how far off you are."
145.     PRINT
146.     PRINT "        Why the satilites cannot do this directly is another 'bug' in the system."
147.     PRINT
148.     PRINT "        You will start the survey at the top left corner of the map."
149.     PRINT
150.     PRINT "        Proximity units are the number of squares away from your last click."
151.     PRINT
152.     PRINT "                                                       Press any to continue... "
153.     SLEEP
154. END SUB
155.  
156.  

[bplus]

ahhh, I kinda thought that was how it worked. I had fun playing it. Much easier than mine hahaha

The easiest way to solve SENTRY DRONE, is to either get fancy calculus, or cheat and use a compass LOL.

There are several favs of mine from that BASIC COMPUTER GAMES trilogy that D.A. created that I will be remaking

and of course - can't remake it without a WUMPUS game LOL!!

I have a few other mods to the SENTRY DONE that I want to clean up. Mostly the display.

I found WUMPUS in the QB64 samples.

[xra7en]

Interesting, the game does not appear in the search results. The only search results with the word WUMPUS  is in fact just my post recently

Can you shoot me a link please, I'd be interested in seeing what the code looks like.

[bplus]

From your downloaded QB64 folder > programs\samples\misc\wumpus.bas

In case you still can't find it :)

Code: QB64: [Select]

1. REM *** HUNT THE WUMPUS **
2. DIM p(5)
3. PRINT "INSTRUCTIONS (Y-N)";
4. INPUT i$
5. i$ = UCASE$(i$)
6. IF (i$ = "Y") OR (i$ = "YES") THEN GOSUB 375
7. REM *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***
8. DIM s(20, 3)
9. FOR j = 1 TO 20
10.     FOR k = 1 TO 3
11.         READ s(j, k)
12.     NEXT k
13. NEXT j
14. DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6
15. DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11
16. DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16
17. DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19
18. REM *** LOCATE L ARRAY ITEMS ***
19. REM *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS ***
20. DIM l(6)
21. DIM m(6)
22. 170 FOR j = 1 TO 6
23.     l(j) = INT(20 * RND(1)) + 1
24.     m(j) = l(j)
25. NEXT j
26. REM *** CHECK FOR CROSSOVERS (IE l(1)=l(2), ETC) ***
27. FOR j = 1 TO 6
28.     FOR k = 1 TO 6
29.         IF j = k THEN GOTO 215
30.         IF l(j) = l(k) THEN GOTO 170
31.    215 NEXT k
32. NEXT j
33. REM *** SET NO. OF ARROWS ***
34. 230 a = 5
35. l = l(1)
36. REM *** RUN THE GAME ***
37. PRINT "HUNT THE WUMPUS"
38. REM *** HAZARD WARNING AND LOCATION ***
39. 255 GOSUB 585
40. REM *** MOVE OR SHOOT ***
41. GOSUB 670
42. IF o = 1 THEN GOTO 280
43. IF o = 2 THEN GOTO 300
44. REM *** SHOOT ***
45. 280 GOSUB 715
46. IF f = 0 THEN GOTO 255
47. GOTO 310
48. REM *** MOVE ***
49. 300 GOSUB 975
50. IF f = 0 THEN GOTO 255
51. 310 IF f > 0 THEN GOTO 335
52. REM *** LOSE ***
53. PRINT "HA HA HA - YOU LOSE!"
54. GOTO 340
55. REM *** WIN ***
56. 335 PRINT "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!"
57. 340 FOR j = 1 TO 6
58.     l(j) = m(j)
59. NEXT j
60. PRINT "SAME SETUP (Y-N)";
61. INPUT i$
62. IF (i$ <> "Y") AND (i$ <> "y") THEN GOTO 170
63. GOTO 230
64. 375 REM *** INSTRUCTIONS ***
65. PRINT "WELCOME TO 'HUNT THE WUMPUS'"
66. PRINT " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM"
67. PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"
68. PRINT "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"
69. PRINT "WHAT A DODECAHEDRON IS, ASK SOMEONE)"
70. PRINT
71. PRINT " HAZARDS:"
72. PRINT " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM"
73. PRINT " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"
74. PRINT " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"
75. PRINT " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER"
76. PRINT " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)"
77. INPUT "HIT RETURN TO CONTINUE"; a$
78. PRINT " WUMPUS:"
79. PRINT " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER"
80. PRINT " FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY"
81. PRINT " HE IS ASLEEP. TWO THINGS WAKE HIM UP: YOU SHOOTING AN"
82. PRINT "ARROW OR YOU ENTERING HIS ROOM."
83. PRINT " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM"
84. PRINT " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU"
85. PRINT " ARE, HE EATS YOU UP AND YOU LOSE!"
86. PRINT
87. PRINT " YOU:"
88. PRINT " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW"
89. PRINT " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)"
90. PRINT " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT"
91. PRINT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING"
92. PRINT " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO."
93. PRINT " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES"
94. PRINT " AT RANDOM TO THE NEXT ROOM."
95. PRINT " IF THE ARROW HITS THE WUMPUS, YOU WIN."
96. PRINT " IF THE ARROW HITS YOU, YOU LOSE."
97. INPUT "HIT RETURN TO CONTINUE"; a$
98. PRINT " WARNINGS:"
99. PRINT " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD,"
100. PRINT " THE COMPUTER SAYS:"
101. PRINT " WUMPUS: 'I SMELL A WUMPUS'"
102. PRINT " BAT : 'BATS NEARBY'"
103. PRINT " PIT : 'I FEEL A DRAFT'"
104. PRINT
105. RETURN
106. 585 REM *** PRINT LOCATION & HAZARD WARNINGS ***
107. PRINT
108. FOR j = 2 TO 6
109.     FOR k = 1 TO 3
110.         IF s(l(1), k) <> l(j) THEN GOTO 640
111.         SELECT CASE j - 1
112.             CASE 1
113.                 GOTO 615
114.             CASE 2
115.                 GOTO 625
116.             CASE 3
117.                 GOTO 625
118.             CASE 4
119.                 GOTO 635
120.             CASE 5
121.                 GOTO 635
122.         END SELECT
123.        615 PRINT "I SMELL A WUMPUS!"
124.         GOTO 640
125.        625 PRINT "I FEEL A DRAFT"
126.         GOTO 640
127.        635 PRINT "BATS NEARBY!"
128.    640 NEXT k
129. NEXT j
130. PRINT "YOU ARE IN ROOM "; l(1)
131. PRINT "TUNNELS LEAD TO "; s(l, 1); " "; s(l, 2); " "; s(l, 3)
132. PRINT
133. RETURN
134. 670 REM *** CHOOSE OPTION ***
135. 675 PRINT "SHOOT OR MOVE (S-M)";
136. INPUT i$
137. IF (i$ <> "S") AND (i$ <> "s") THEN GOTO 700
138. o = 1
139. RETURN
140. 700 IF (i$ <> "M") AND (i$ <> "m") THEN GOTO 675
141. o = 2
142. RETURN
143. 715 REM *** ARROW ROUTINE ***
144. f = 0
145. REM *** PATH OF ARROW ***
146. 735 PRINT "NO. OF ROOMS (1-5)";
147. INPUT j9
148. IF j9 < 1 THEN GOTO 735
149. IF j9 > 5 THEN GOTO 735
150. FOR k = 1 TO j9
151.    760 PRINT "ROOM #";
152.     INPUT p(k)
153.     IF k <= 2 THEN 790
154.     IF p(k) <> p(k - 2) THEN GOTO 790
155.     PRINT "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM"
156.     GOTO 760
157. 790 NEXT k
158. REM *** SHOOT ARROW ***
159. l = l(1)
160. FOR k = 1 TO j9
161.     FOR k1 = 1 TO 3
162.         IF s(l, k1) = p(k) THEN GOTO 895
163.     NEXT k1
164.     REM *** NO TUNNEL FOR ARROW ***
165.     l = s(l, INT(3 * RND(1)) + 1)
166.     GOTO 900
167. 840 NEXT k
168. PRINT "MISSED"
169. l = l(1)
170. REM *** MOVE WUMPUS ***
171. GOSUB 935
172. REM *** AMMO CHECK ***
173. a = a - 1
174. IF a > 0 THEN 885
175. 880 f = -1
176. 885 RETURN
177. REM *** SEE IF ARROW IS AT l(1) OR AT l(2)
178. 895 l = p(k)
179. 900 IF l <> l(2) THEN 920
180. PRINT "AHA! YOU GOT THE WUMPUS!"
181. f = 1
182. RETURN
183. 920 IF l <> l(1) THEN GOTO 840
184. PRINT "OUCH! ARROW GOT YOU!"
185. GOTO 880
186. 935 REM *** MOVE WUMPUS ROUTINE ***
187. 940 k = INT(4 * RND(1)) + 1
188. IF k = 4 THEN GOTO 955
189. l(2) = s(l(2), k)
190. 955 IF l(2) <> l THEN GOTO 970
191. PRINT "TSK TSK TSK - WUMPUS GOT YOU!"
192. f = -1
193. 970 RETURN
194. 975 REM *** MOVE ROUTINE ***
195. f = 0
196. 985 PRINT "WHERE TO";
197. INPUT l
198. IF l < 1 THEN GOTO 985
199. IF l > 20 THEN GOTO 985
200. FOR k = 1 TO 3
201.     REM *** CHECK IF LEGAL MOVE ***
202.     IF s(l(1), k) = l THEN GOTO 1045
203. NEXT k
204. IF l = l(1) THEN GOTO 1045
205. PRINT "NOT POSSIBLE -";
206. GOTO 985
207. REM *** CHECK FOR HAZARDS ***
208. 1045 l(1) = l
209. REM *** WUMPUS ***
210. IF l <> l(2) THEN GOTO 1090
211. PRINT "... OOPS! BUMPED A WUMPUS!"
212. REM *** MOVE WUMPUS ***
213. GOSUB 940
214. IF f = 0 THEN GOTO 1090
215. RETURN
216. REM *** PIT ***
217. 1090 IF l = l(3) THEN GOTO 1100
218. IF l <> l(4) THEN GOTO 1120
219. 1100 PRINT "YYYYIIIIEEEE . . . FELL IN PIT"
220. f = -1
221. RETURN
222. REM *** BATS ***
223. 1120 IF l = l(5) THEN GOTO 1130
224. IF l <> l(6) THEN GOTO 1145
225. 1130 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"
226. l = INT(20 * RND(1)) + 1
227. GOTO 1045
228. 1145 RETURN
229. END
230.  

There are lot's of \programs begging to be updated.
1100 PRINT "YYYYIIIIEEEE . . . FEeL the lines numbers"