Welcome, Guest
You have to register before you can post on our site.

Username/Email:
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 485
» Latest member: zenevan
» Forum threads: 2,803
» Forum posts: 26,442

Full Statistics

Latest Threads
Merry X-Mas 2024!!
Forum: General Discussion
Last Post: SMcNeill
47 minutes ago
» Replies: 0
» Views: 4
SaucerZap
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
2 hours ago
» Replies: 8
» Views: 86
What do you guys like to ...
Forum: General Discussion
Last Post: bplus
2 hours ago
» Replies: 20
» Views: 388
Printing to image handle
Forum: Utilities
Last Post: Bhsdfa
6 hours ago
» Replies: 0
» Views: 26
Ascii Christmas Tree
Forum: Christmas Code
Last Post: SierraKen
9 hours ago
» Replies: 4
» Views: 180
How to Color Mask?
Forum: Help Me!
Last Post: James D Jarvis
9 hours ago
» Replies: 0
» Views: 21
GNU C++ Compiler error
Forum: Help Me!
Last Post: Kernelpanic
10 hours ago
» Replies: 54
» Views: 1,242
Raspberry OS
Forum: Help Me!
Last Post: DSMan195276
11 hours ago
» Replies: 11
» Views: 293
micro(A)v11
Forum: QBJS, BAM, and Other BASICs
Last Post: JRace
Yesterday, 05:21 PM
» Replies: 109
» Views: 4,808
Let's Make a Wheel!
Forum: Help Me!
Last Post: Pete
Yesterday, 05:04 PM
» Replies: 4
» Views: 91

 
  ThrowBack Friday: "TARGET"
Posted by: Cobalt - 01-13-2024, 01:11 AM - Forum: Programs - No Replies

Another Blast from the past! A three dimensional "shooter" text based. Attempt to hit a target in 3d space. (circa. 1975)

Code: (Select All)
0 REM ********************************** TARGET **************************************
1 REM In this program, you are firing a weapon from a spaceship in 3-dimensional space.
2 REM Your ship, the Starship Enterprise, is located at the origin (0,0,0) of a set of
4 REM x,y,z coordinates. You will be told the approximate location of the target in
6 REM 3-dimensional rectangular coordinates, the approximate angular deviation from
8 REM the x and z axes in both radius and degrees, and the approximate distance to the
10 REM target. Given this information, you then proceed to shoot at the target.
12 REM A shot within 20 kilometers of the target destroys it. After each shot, you are
14 REM given information as to the position of the explosion of your shot and a somewhat
16 REM improved estimate of the location of the target. Fortunately, this is just
18 REM practice and the target doesn't shoot back. After you have attained proficiency,
20 REM you ought to be able to destroy a target in 3 or 4 shots. However, attaining
22 REM proficiency might take awhile!
23 REM *******************************************************************************

25 REM Original Program Author
27 REM H. David Crockett
29 REM Fort Worth, TX 76133

90 PI = _PI 'added to define PI to maintain program originality

100 R = 1: R1 = 57.296: RANDOMIZE TIMER
110 PRINT "You are the weapons officer on the star ship Enterprise"
120 PRINT "and this is a test to see how accurate a shot you"
130 PRINT "are in a Three-Dimensional range. You will be told"
140 PRINT "the radian offset for the X and Z axes, the location"
150 PRINT "of the target in three-dimensional rectangular coordinates,"
160 PRINT "the approximate number of degrees from the X and Z"
170 PRINT "axes, and the approximate distance to the target."
180 PRINT "You will then proceed to shoot at the target until it is "
190 PRINT "destroyed!": PRINT: PRINT "Good Luck!!": PRINT: PRINT
220 A = RND * 2 * PI: B = RND * 2 * PI: Q = INT(A * R1): W = INT(B * R1)
260 PRINT "Radians from X axis ="; A; "  From Z axis ="; B
270 PRINT "Approx degrees from X axis ="; Q; "    From Z axis ="; W
280 P = 100000 * RND + RND: X = SIN(B) * COS(A) * P: Y = SIN(B) * SIN(aa) * P: z = COS(B) + R '??? scan is damaged at end of line looks like R though
340 PRINT "Target sighted: Approx Coordinates X="; X; "  Y="; Y; "  Z="; z
345 R = R + 1: IF R > 5 THEN GOTO 390
350 ON R GOTO 355, 360, 365, 370, 375
355 P3 = INT(P * .05) * 20: GOTO 390
360 P3 = INT(P * .1) * 10: GOTO 390
365 P3 = INT(P * .5) * 2: GOTO 390
370 P3 = INT(P) * 20: GOTO 390
375 P3 = P
390 PRINT "    Estimated Distance="; P3
400 INPUT "Input angle deviation from X, Deviation from Z, Distance"; A1, B1, P2
410 prinit: IF P2 < 20 THEN PRINT "YOU BLEW YOURSELF UP!!!": GOTO 580
420 A1 = A1 / R1: B1 = B1 / R1: PRINT "Radians from X axis="; A1; "  From Z axis ="; B1
480 X1 = P2 * SIN(B1) * COS(A1): Y1 = P2 * SIN(B1) * sn(A1): Z1 = P2 * COS(B1)
510 D = ((X1 - X) ^ 2 + (Y1 - Y) ^ 2 + (Z1 - z) ^ 2) ^ (1 / 2)
520 IF D > 20 THEN GOTO 670
530 PRINT: PRINT " * * * HIT * * *    Target is NON-FUNCTIONAL": PRINT
550 PRINT "Distance of explosion from target was"; D; "Kilometers"
570 PRINT: PRINT "Mission Accomplished in"; R; " shots."
580 R = 0: FOR I = 1 TO 5: PRINT: NEXT I: PRINT "Next Target....": PRINT: GOTO 220
670 x2 = X1 - X: y2 = Y1 - Y: z2 = Z1 - z: IF x2 < 0 THEN 730
710 PRINT "Shot in front of target"; x2; " Kilometers.": GOTO 780
730 PRINT "Shot Behind target"; -x2; " Kilometers."
740 IF y2 < 0 THEN 770
750 PRINT "Shot to LEFT of target"; y2; " Kilometers.": GOTO 780
770 PRINT "Shot to RIGHT of target"; -y2; " Kilometers."
780 IF z2 > 0 THEN 810
790 PRINT "Shot Above target"; z2; " Kilometers.": GOTO 820
810 PRINT "Shot Below target"; -z2; " Kilometers."
820 PRINT "Approx position of Explosion:  X="; X1; "  Y="; Y1; "  Z="; Z1
830 PRINT "  Distance from target ="; D: PRINT: PRINT: PRINT: GOTO 345
999 END

Print this item

  Dual Monitors using QB64
Posted by: Donald Foster - 01-11-2024, 01:47 AM - Forum: General Discussion - Replies (4)

Hello All,

Does QB64 offer statements that utilize dual monitors?

Donald

Print this item

  Pls help with CPU usage!!!
Posted by: liubartas - 01-08-2024, 02:54 PM - Forum: Help Me! - Replies (13)

Hi, I want to use qb64pe but for some reason ide uses 50% cpu, and my laptop starts overheating.
This happens when I load the full source code of ide itself. It's a large file, but maybe it's possible
to somehow disable such high cpu usage?

Print this item

  Some Interesting Tutorial Stats
Posted by: TerryRitchie - 01-07-2024, 08:25 PM - Forum: General Discussion - Replies (13)

I use Google Analytics to track information about the tutorial site. Here are some interesting stats for last year:

Unique users: 4300
Site visits: 64000

See image below for all the countries that users hailed from.



Attached Files Thumbnail(s)
   
Print this item

  Almost 500 QuickBasic Games
Posted by: TerryRitchie - 01-07-2024, 06:32 PM - Forum: General Discussion - Replies (12)

I was going through some of my old hard drives and came across a folder with almost 500 QuickBasic games and screenshots to go with them.

I must have scraped a web site at some point in the past. Not all but many of the games also include source code. I noticed some of them use the DirectQB and SVGAQB libraries that were popular at the time so they will be a bit challenging to get running in QB64.

I zipped everything up into two files that can be downloaded below.

NOTE: I originally offered this as one big file that did not work, that's what replies below are referring to.



Attached Files
.zip   QuickBasic Games 1.zip (Size: 116.1 MB / Downloads: 157)
.zip   QuickBasic Games 2.zip (Size: 97.52 MB / Downloads: 98)
Print this item

  Debug video by Fellippe Heitor
Posted by: mpgcan - 01-07-2024, 02:28 PM - Forum: Learning Resources and Archives - Replies (5)

Debug video by Fellippe Heitor

There have been several requests for a QB64 debug tutorial. I thought I would post a link to Fellippe's excellent debug video.
However, I found that the links no longer work or that the video does not exist!

I managed to dig out a copy of this video along with the video time line file.
QB64_v2.0_is_now_out.txt and QB64_v2_debug.mp4

I tried to upload these to the forum but failed. Perhaps the video is too large at 204 MB.

As an alternative, I uploaded the files to https://filebin.net. You can download the files using the following link:

https://filebin.net/v57kk4f4dvjxu4ql

There is no rush; however, the linked page self-destructs after seven days. Cool

All the best



Steve edit:  Can also download directly from the forums here: 
.7z   QB64 Debug Video.7z (Size: 195.58 MB / Downloads: 48)

Print this item

  Portable version of Terry Ritchie's tutorial
Posted by: mpgcan - 01-06-2024, 05:42 PM - Forum: Learning Resources and Archives - Replies (4)

Portable version of Terry Ritchie's tutorial

Some time ago, I saw a request for a portable version of Terry Ritchie's excellent QB64 tutorial and decided to convert the online version accordingly.

Quick install:
Download the attached file and extract it to a folder of your choice. Run the tutorial by double-clicking index.html; alternatively, from your browser, open the file manually.

Detailed install:
1) Create a new folder to contain the tutorial files; for example, name it "QB64pe-tutorial."
2) Download the attached 7z archive file "portable_TR_tutorial.7z" and save it to the folder you created above.
3) Assuming you have 7-Zip installed, right-click on the file "portable_TR_tutorial.7z," mouse over "7-Zip," and from the side menu, click the item "Extract Here."
4) A new folder, portable_TR_tutorial, is created, containing all the tutorial files.
5) Navigate into this folder. Run the tutorial by double-clicking index.html; alternatively, from your browser, open the file manually.

Note: If you do not have 7-Zip installed on your computer, visit the 7-Zip web site at https://www.7-zip.org/ to download and install the appropriate version for your system.
Alternatively, use the portable apps version: https://portableapps.com/apps/utilities/7-zip_portable.

All the best



Attached Files
.7z   portable_TR_tutorial.7z (Size: 10.48 MB / Downloads: 70)
Print this item

  ThrowBack Friday: "Haunted House"
Posted by: Cobalt - 01-05-2024, 03:40 PM - Forum: Programs - Replies (3)

Created from "Write Your Own Adventure Games for Your Microcomputer", 1983

Wrote in the program straight from the PDF book Steve posted early, mid-December. Have it running now, though I haven't played it clear through yet though.

A Basic little text based adventure game with a very simple parser for input commands

Turn your caps lock on, type 'HELP' for a list of commands.
to move you can type GO + NORTH\SOUTH\EAST\ WEST  or you can just use the first letter of the direction; N,S,W,E

the rest you will have to figure out on your own...

only found one compatibility issue with the whole program and that was where they originally had the DIM statements.  I just had to move them to the top of the program for things to work.

Code: (Select All)
10 REM Haunted house adventure
20 REM ***********************
30 REM this version for "microsoft" basic
40 REM requires a minimum of 16k
50 REM select *text mode*if necessary
60 REM ******************************
65 CLEAR 100
70 V = 25: W = 36: G = 18

72 DIM R$(63), D$(63), O$(W), V$(V) 'moved here for compatibility issue (1600)
74 DIM C(W), L(G), F(W) 'moved here for compatibility issue(1610)

80 GOSUB 1600
90 CLS: PRINT "Haunted House"
100 PRINT "-------------"
110 PRINT "Your Location"
120 PRINT D$(RM)
130 PRINT "Exits:";
140 FOR i = 1 TO LEN(R$(RM))
150 PRINT MID$(R$(RM), i, 1); ",";
160 NEXT i
170 PRINT
180 FOR i = 1 TO G
190 IF L(i) = RM AND F(i) = 0 THEN PRINT "you can see "; O$(i); " here"
200 NEXT i
210 PRINT "========================="
220 PRINT M$: M$ = "what"
230 INPUT "What will you do now"; Q$
240 V$ = "": W$ = "": VB = 0: OB = 0
250 FOR i = 1 TO LEN(Q$)
260 IF MID$(Q$, i, 1) = " " AND V$ = "" THEN V$ = LEFT$(Q$, i - 1)
270 IF MID$(Q$, i + 1, 1) <> " " AND V$ <> "" THEN W$ = MID$(Q$, i + 1, LEN(Q$) - 1): i = LEN(Q$)
280 NEXT i
290 IF W$ = "" THEN V$ = Q$
300 FOR i = 1 TO V
310 IF V$ = V$(i) THEN VB = i
320 NEXT i
330 FOR i = 1 TO W
340 IF W$ = O$(i) THEN LET OB = i
350 NEXT i
360 IF W$ > "" AND qb = 0 THEN M$ = "That's Silly"
370 IF VB = 0 THEN VB = V + 1
380 IF W$ = "" THEN M$ = "I need two words"
390 IF VB > V AND OB > 0 THEN M$ = "You can't '" + Q$ + "'"
400 IF VB > V AND OB = 0 THEN M$ = "you don't make sense"
410 IF VB < V AND OB > 0 AND C(OB) = 0 THEN M$ = "you don't have '" + W$ + "'"
420 IF F(26) = 1 AND RM = 13 AND RND(3) <> 3 AND VB <> 21 THEN M$ = "Bats attacking!": GOTO 90
430 IF RM = 44 AND RND(2) = 1 AND F(24) <> 1 THEN F(27) = 1
440 IF F(0) = 1 THEN LL = LL - 1
450 IF LL < 1 THEN F(0) = 0
460 ON VB GOSUB 500, 570, 640, 640, 640, 640, 640, 640, 640, 980, 980, 1030, 1070, 1140, 1180, 1220, 1250, 1300, 1340, 1380, 1400, 1430, 1460, 1490, 1510, 1590
470 IF LL = 10 THEN M$ = "Your Candle is waning!"
480 IF LL = 1 THEN M$ = "your candle is out!"
490 GOTO 90
500 PRINT "Words I know:"
510 FOR i = 1 TO V
520 PRINT V$(i); ",";
530 NEXT i
540 M$ = "": PRINT
550 GOSUB 1580
560 RETURN
570 PRINT "you are carrying:"
580 FOR i = 1 TO G
590 IF C(i) = 1 THEN PRINT O$(i); ",";
600 NEXT i
610 M$ = "": PRINT
620 GOSUB 1580
630 RETURN
640 d = 0
650 IF OB = 0 THEN d = VB - 3
660 IF OB = 19 THEN d = 1
670 IF OB = 20 THEN d = 2
680 IF OB = 21 THEN d = 3
690 IF OB = 22 THEN d = 4
700 IF OB = 23 THEN d = 5
710 IF OB = 24 THEN d = 6
720 IF RM = 20 AND d = 5 THEN d = 1
730 IF RM = 20 AND d = 6 THEN d = 3
740 IF RM = 22 AND d = 6 THEN d = 2
750 IF RM = 22 AND d = 5 THEN d = 3
760 IF RM = 36 AND d = 6 THEN d = 1
770 IF RM = 36 AND d = 5 THEN d = 2
780 IF F(14) = 1 THEN M$ = "Crash! you fell out of the tree!": F(14) = 0: RETURN
790 IF F(27) = 1 AND RM = 52 THEN M$ = "Ghosts will not let you move": RETURN
800 IF RM = 45 AND C(1) = 1 AND F(34) = 0 THEN M$ = "A Magical barrier to the west": RETURN
810 IF (RM = 26 AND F(0) = 0) AND (d = 1 OR d = 4) THEN M$ = "You need a light": RETURN
820 IF RM = 54 AND C(15) <> 1 THEN M$ = "You're Stuck!": RETURN
830 IF C(15) = 1 AND NOT (RM = 53 OR RM = 54 OR RM = 55 OR RM = 47) THEN M$ = "You can't carry a boat!": RETURN
840 IF (RM > 26 AND RM < 30) AND F(0) = 0 THEN M$ = "Too Dark to move": RETURN
850 F(35) = 0: RL = LEN(R$(RM))
860 FOR i = 1 TO RL
870 U$ = MID$(R$(RM), i, 1)
880 IF (U$ = "N" AND d = 1 AND F(35) = 0) THEN RM = RM - 8: F(35) = 1
890 IF (U$ = "S" AND d = 2 AND F(35) = 0) THEN RM = RM + 8: F(35) = 1
900 IF (U$ = "W" AND d = 3 AND F(35) = 0) THEN RM = RM - 1: F(35) = 1
910 IF (U$ = "E" AND d = 4 AND F(35) = 0) THEN RM = RM + 1: F(35) = 1
920 NEXT i
930 M$ = "OK"
940 IF F(35) = 0 THEN M$ = "Can't go that way!"
950 IF d < 1 THEN M$ = "Go where?"
960 IF RM = 41 AND F(23) = 1 THEN R$(49) = "SW": M$ = "The Door slams shut!": F(23) = 0
970 RETURN
980 IF OB > G THEN M$ = "I can't get " + W$: RETURN
985 IF L(OB) <> RM THEN M$ = "it isn't here"
990 IF F(OB) <> 0 THEN M$ = "What " + W$ + "?"
1000 IF C(OB) = 1 THEN M$ = "you already have it"
1010 IF OB > 0 AND L(OB) = RM AND F(OB) = 0 THEN C(OB) = 1: L(OB) = 65: M$ = "You have the " + W$
1020 RETURN
1030 IF RM = 43 AND (OB = 28 OR OB = 29) THEN F(17) = 0: M$ = "Drawer open"
1040 IF RM = 28 AND OB = 25 THEN M$ = "It's locked"
1050 IF RM = 38 AND OB = 32 THEN M$ = "That's creepy!": F(2) = 0
1060 RETURN
1070 IF OB = 30 THEN F(18) = 0: M$ = "Something here!"
1080 IF OB = 31 THEN M$ = "That's Disgusting!"
1090 IF (OB = 28 OR OB = 29) THEN M$ = "There is a drawer"
1100 IF OB = 33 OR OB = 5 THEN GOSUB 1140
1110 IF RM = 43 AND OB = 35 THEN M$ = "There is something beyond..."
1120 IF OB = 32 THEN GOSUB 1030
1130 RETURN
1140 IF RM = 42 AND OB = 33 THEN M$ = "They are demonic works"
1150 IF (OB = 3 OR OB = 36) AND C(3) = 1 AND F(34) = 0 THEN M$ = "Use this word with care 'XZANFAR'"
1160 IF C(5) = 1 AND OB = 5 THEN M$ = "The Script is in an alien tongue"
1170 RETURN
1180 M$ = "OK '" + W$ + "'"
1190 IF C(3) = 1 AND OB = 34 THEN M$ = "*MAGIC OCCURS*": IF RM <> 45 THEN RM = INT(RND(63))
1200 IF C(3) = 1 AND OB = 34 AND RM = 45 THEN F(34) = 1
1210 RETURN
1220 IF C(12) = 1 THEN M$ = "You made a hole"
1230 IF C(12) = 1 AND RM = 30 THEN M$ = "Dug the bars out": D$(RM) = "Hole in wall": R$(RM) = "NSE"
1240 RETURN
1250 IF C(14) <> 1 AND RM = 7 THEN M$ = "This is no time to play games"
1260 IF OB = 14 AND C(14) = 1 THEN M$ = "You swung it"
1270 IF OB = 13 AND C(13) = 1 THEN M$ = "Whoosh!"
1280 IF OB = 13 AND C(13) = 1 AND RM = 43 THEN R$(RM) = "WN": D$(RM) = "Study with secret room": M$ = "You broke the thin wall"
1290 RETURN
1300 IF OB = 14 AND C(14) = 1 THEN M$ = "it isn't attached to anything!"
1310 IF OB = 14 AND C(14) <> 1 AND RM = 7 AND F(14) = 0 THEN M$ = "you see thick forest and cliff south": F(14) = 1: RETURN
1320 IF OB = 14 AND C(14) <> 1 AND RM = 7 AND F(14) = 1 THEN M$ = "going down!": F(14) = 0
1330 RETURN
1340 IF OB = 17 AND C(17) = 1 AND C(8) = 0 THEN M$ = "it will burn your hands"
1350 IF OB = 17 AND C(17) = 1 AND C(9) = 0 THEN M$ = "Nothing to light it with"
1360 IF OB = 17 AND C(17) = 1 AND C(9) = 1 AND C(8) = 1 THEN M$ = "it casts a flickering light": F(0) = 1
1370 RETURN
1380 IF F(0) = 1 THEN F(0) = 0: M$ = "extinguished"
1390 RETURN
1400 IF OB = 26 AND C(16) = 1 THEN M$ = "hissss"
1410 IF OB = 26 AND C(16) = 1 AND F(26) = 1 THEN F(26) = 0: M$ = "PFFT! Got them"
1420 RETURN
1430 IF OB = 10 AND C(10) = 1 AND C(11) = 1 THEN M$ = "switched on": F(24) = 1
1440 IF F(27) = 1 AND F(24) = 1 THEN M$ = "WHIZZ- Vacuumed the Ghosts Up!": F(27) = 0
1450 RETURN
1460 IF RM = 43 AND (OB = 27 OR OB = 28) THEN GOSUB 1030
1470 IF RM = 28 AND OB = 25 AND F(25) = 0 AND C(18) = 1 THEN F(25) = 1: R$(RM) = "SEW": D$(RM) = "Huge Open Door": M$ = "The Key Turns!"
1480 RETURN
1490 IF C(OB) = 1 THEN C(OB) = 0: L(OB) = RM: M$ = "Done"
1500 RETURN
1510 S = 0
1520 FOR i = 1 TO G
1530 IF C(i) = 1 THEN S = S + 1
1540 NEXT i
1550 IF S = 17 AND C(15) <> 1 AND RM <> 57 THEN PRINT "You have everything!": PRINT "Return to the gate for final score"
1560 IF S = 17 AND RM = 57 THEN PRINT "Double Score for reaching here!": S = S * 2
1570 PRINT "your score="; S: IF S > 18 THEN PRINT "Well Done! You finshed the game": END
1580 INPUT "press return to continue"; Q$
1590 RETURN

1600 REM dim R$(63),D$(63),O$(W),V$(V) 'moved to 72
'1610 dim C(w),L(g),F(w) 'Moved to 74

1620 DATA 46,38,35,50,13,18,28,42,10,25,26,4,2,7,47,60,43,32
1630 FOR i = 1 TO G
1640 READ L(i)
1650 NEXT i
1660 DATA "HELP",CARRYING?,GO,N,S,W,E,U,D,GET,TAKE,OPEN,EXAMINE,READ,SAY
1665 DATA DIG,SWING,CLIMB,LIGHT,UNLIGHT,SPRAY,USE,UNLOCK,LEAVE,SCORE
1680 FOR i = 1 TO V
1690 READ V$(i)
1700 NEXT i
1710 DATA SE,WE,WE,SWE,WE,WE,SWE,WS
1720 DATA NS,SE,WE,NW,SE,W,NE,NSW
1730 DATA NS,NS,SE,WE,NWUD,SE,WSUD,NS
1740 DATA N,NS,NSE,WE,WE,NSW,NS,NS
1750 DATA S,NSE,NSW,S,NSUD,N,N,NS
1760 DATA NE,NW,NE,W,NSE,WE,W,NS
1770 DATA SE,NSW,E,WE,NW,S,SW,NW
1780 DATA NE,NWE,WE,WE,WE,NWE,NWE,W
1790 FOR i = 0 TO 63
1800 READ R$(i)
1810 NEXT i
1820 DATA DARK CORNER,OVERGROWN GARDEN,BY LARGE WOODPILE,YARD BY RUBBISH
1825 DATA WEEDPATCH,FOREST,THICK FOREST,BLASTED TREE
1840 DATA CORNER OF HOUSE,ENTRANCE TO KITCHEN,KITCHEN & GRIMY COOKER,SCULLERY DOOR
1845 DATA ROOM WITH INCHES OF DUST,REAR TURRET ROOM,CLEARING BY HOUSE,PATH
1860 DATA SIDE OF HOUSE,BACK OF HALLWAY,DARK ALCOVE,SHALL DARK ROOM
1865 DATA BOTTOM OF SPIRAL STAIRCASE,WIDE PASSAGE,SLIPPERY STEPS,CLIFFTOP
1880 DATA NEAR CRUMBLING WALL,GLOOHY PASSAGE,POOL OF LIGHT,IMPRESSIVE VAULTED HALLWAY
1885 DATA HALL BY THICK WOODEN DOOR,TROPHY ROOH,CELLAR WITH BARRED WINDOW,CLIFF PATH
1900 DATA CUPBOARD WITH HANGING COAT,FRONT HALL,SITTING ROOM,SECRET ROOM
1905 DATA STEEP MARBLE STAIRS,DINING ROOM,DEEP CELLAR WITH COFFIN,CLIFF PATH
1920 DATA CLOSET,FRONT LOBBY,LIBRARY OF EVIL BOOKS,STUDY WITH DESK & HOLE IN WALL
1925 DATA WEIRD COBWEBBY ROOM,VERY COLD CHAMBER,SPOOKY ROOM,CLIFF PATH BY MARSH
1940 DATA RUBBLE-STREWN VERANDAH,FRONT PORCH,FRONT TOWER,SLOPING CORRIDOR
1945 DATA UPPER GALLERY,MARSH BY WALL,MARSH,SOGGY PATH
1960 DATA BY TWISTED RAILING,PATH THROUGH IRON GATE,BY RAILINGS,BENEATH FRONT TOWER
1965 DATA DEBRIS FROM CRUMBLING FACADE,LARGE FALLEN BRICKWORK,ROTTING STONE ARCH,CRUMBLING CLIFFTOP
1980 FOR i = 0 TO 63
1990 READ D$(i)
2000 NEXT i
2010 DATA PAINTING,RING,MAGIC SPELLS,GOBLET,SCROLL,COINS,STATUE,CANDLESTICK
2012 DATA MATCHES,VACUUM,BATTERIES,SHOVEL,AXE,ROPE,BOAT,AEROSOL,CANDLE,KEY
2014 DATA NORTH,SOUTH,WEST,EAST,UP,DOWN
2016 DATA DOOR,BATS,GHOSTS,DRAWER,DESK,COAT,RUBBISH
2018 DATA COFFIN,BOOKS,XZANFAR,WALL,SPELLS
2060 FOR i = 1 TO W
2070 READ O$(i)
2080 NEXT i
2090 F(18) = 1: F(17) = 1: F(2) = 1: F(26) = 1: F(28) = 1: F(23) = 1: LL = 60: RM = 57: M$ = "OK"
2100 RETURN

Print this item

  Some Dungeon Games
Posted by: eoredson - 01-04-2024, 12:33 AM - Forum: Games - Replies (2)

Hi,

Here are two dungeon games..

One is called "The Dungeon" which is a maze game with virtually unlimited levels and monster/dungeon cell characters.

The second one is "The DnDDoor" which is a scaled down version of DnDBBS and uses a user profile accounting and is RBBS door aware with modem routines.

Erik.

Thanks.

Attached is VBdos 16-bit projects:

Dngeon13.zip
Dndoor51.zip



Attached Files
.zip   DUNGEON_v12_QB64.zip (Size: 354.78 KB / Downloads: 80)
.zip   DNDDOOR_v5r3_QB64.ZIP (Size: 704.2 KB / Downloads: 39)
.zip   DNGEON13.ZIP (Size: 306.9 KB / Downloads: 11)
.zip   DNDOOR51.ZIP (Size: 728.58 KB / Downloads: 10)
.zip   dngscrns.zip (Size: 969.18 KB / Downloads: 7)
Print this item

  QB64 Phoenix Edition v3.11.0 Released!
Posted by: a740g - 01-03-2024, 05:45 PM - Forum: Announcements - Replies (59)

QB64 Phoenix Edition v3.11.0!

https://github.com/QB64-Phoenix-Edition/...ses/latest

Enhancements

  • #419 - Filesystem refactor and update - @a740g
             Added _FILES$ to read file and directory names programmatically.
             Added _FULLPATH$ to get an absolute or full path name for a specified relative path name.
             _DIR$ now works as expected on Linux & macOS.
             FILES now works on Linux & macOS. 
             KILL now supports deleting files on Linux & macOS using wildcards.
  • #421 - Updated MinGW-GCC to v13.2.0 and LLVM-MinGW to v17.0.6 - @a740g
  • #422 - Updated miniaudio to v0.11.21 - @a740g

Bug Fixes
  • #420 - Fixed several CONST issues - @SteveMcNeill
             Negative &H, &B, and &O numbers will now evaluate to the correct values.
             Type suffixes on numbers will no longer cause CONST to ignore the rest of the expression past the suffix.
                 Ex. 20& + 1 previously caused the + 1 to be ignored, it now evaluates correctly as 21.

**Full Changelog**: v3.8.0...v3.9.0

Print this item