Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - MidnightOwl

Pages: [1]
1
Programs / Re: lancio di due dadi
« on: November 21, 2020, 07:46:24 pm »
The ideal in programming is to avoid reinventing the wheel ie. reusable code.  The function returns dice total and shows just how complicated a function can be.  It can also be adapted to many uses with little alteration (reused) . Which was why I brought  it up in the  first place. Isn't that why there are code libraries?

2
Programs / Re: lancio di due dadi
« on: November 21, 2020, 09:33:37 am »
There is an excellent dice rolling routine in 'mboard.bas' in the samples directory in your qb64 directory. It even simulates rolling dice.

3
Programs / Re: Guess the Animal
« on: November 09, 2020, 07:06:37 am »
Here is a version that saves a data file so that the program doesn't forget what it learned
Code: QB64: [Select]
  1. DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  2.  
  3. PRINT TAB(32); "ANIMAL"
  4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  6. PRINT "PLAY 'GUESS THE ANIMAL'"
  8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  10. DIM SHARED A$(200), K, N, T$
  11. ON ERROR GOTO NOFILE
  12. OPEN "ANIMAL.DAT" FOR INPUT AS #3
  13. FOR I = 0 TO 200
  14.     INPUT #3, A$(I)
  17. NOFILE:
  18. FOR I = 0 TO 3
  19.     READ A$(I)
  22.  
  23. N = VAL(A$(0))
  24.  
  25. MAIN
  27.  
  28. '         MAIN CONTROL SECTION
  29. SUB MAIN ()
  30.     DO
  31.         DO
  32.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
  33.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
  34.         IF A$ = "LIST" THEN SHOWLIST: MAIN
  35.         IF LEFT$(A$, 1) = "N" THEN KEEPDATA: SYSTEM
  36.         K = 1
  37.         DO
  38.             SHOWQUESTION
  39.             IF LEN(A$(K)) = 0 THEN KEEPDATA: SYSTEM
  40.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
  41.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  42.         INPUT A$
  43.         A$ = LEFT$(A$, 1)
  44.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
  45.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  46.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  47.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  48.         INPUT X$
  49.         DO
  50.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  51.             INPUT A$
  52.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
  53.         IF A$ = "Y" THEN B$ = "N"
  54.         IF A$ = "N" THEN B$ = "Y"
  55.         Z1 = VAL(A$(0))
  56.         A$(0) = STR$(Z1 + 2)
  57.         A$(Z1) = A$(K)
  58.         A$(Z1 + 1) = "\A" + V$
  59.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  60.     LOOP
  62.  
  63. '  SUBROUTINE TO PRINT QUESTIONS
  64. SUB SHOWQUESTION ()
  65.     Q$ = A$(K)
  66.     DO
  67.         FOR Z = 3 TO LEN(Q$)
  68.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
  69.         NEXT Z
  70.         INPUT C$: C$ = UCASE$(C$)
  71.         C$ = LEFT$(C$, 1)
  72.     LOOP UNTIL C$ = "Y" OR C$ = "N"
  73.     T$ = "\" + C$
  74.     FOR X = 3 TO LEN(Q$) - 1
  75.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
  76.     NEXT X
  77.     FOR Y = X + 1 TO LEN(Q$)
  78.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
  79.     NEXT Y
  80.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
  82.  
  83. SUB SHOWLIST ()
  84.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  85.     X = 0
  86.     FOR I = 1 TO 200
  87.         IF LEFT$(A$(I), 2) = "\A" THEN
  88.             PRINT TAB(15 * X);
  89.             FOR Z = 3 TO LEN(A$(I))
  90.                 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  91.             NEXT Z
  92.             X = X + 1: IF X = 4 THEN X = 0: PRINT
  93.         END IF
  94.     NEXT I
  95.     PRINT
  96.     PRINT
  98.  
  99. '        SUBROUTINE TO SAVE DATA FILE
  100. SUB KEEPDATA ()
  101.     OPEN "ANIMAL.DAT" FOR OUTPUT AS #2
  102.     FOR I = 0 TO 200
  103.         WRITE #2, A$(I)
  104.     NEXT I
  105.     CLOSE #2

4
Programs / Re: Guess the Animal
« on: November 09, 2020, 03:24:06 am »
here is the program converted to QB64 code. I have done things like this so much that it was a piece of cake.
Code: QB64: [Select]
  1. [DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
  2.  
  3. PRINT TAB(32); "ANIMAL"
  4. PRINT TAB(15); "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  6. PRINT "PLAY 'GUESS THE ANIMAL'"
  8. PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
  10. DIM SHARED A$(200), K, N, T$
  11. FOR I = 0 TO 3
  12.    90 READ A$(I)
  14. N = VAL(A$(0))
  15.  
  16. MAIN
  18.  
  19. '         MAIN CONTROL SECTION
  20. SUB MAIN ()
  21.     DO
  22.         DO
  23.             INPUT "ARE YOU THINKING OF AN ANIMAL (Y/N)"; A$: A$ = UCASE$(A$)
  24.         LOOP UNTIL A$ = "LIST" OR LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "N"
  25.         IF A$ = "LIST" THEN SHOWLIST: MAIN
  26.         IF LEFT$(A$, 1) = "N" THEN SYSTEM
  27.         K = 1
  28.         DO
  29.             SHOWQUESTION
  30.             IF LEN(A$(K)) = 0 THEN SYSTEM
  31.         LOOP WHILE LEFT$(A$(K), 2) = "\Q"
  32.         PRINT "IS IT A "; RIGHT$(A$(K), LEN(A$(K)) - 2);
  33.         INPUT A$
  34.         A$ = LEFT$(A$, 1)
  35.         IF LEFT$(A$, 1) = "Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": MAIN
  36.         INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "; V$
  37.         PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
  38.         PRINT V$; " FROM A "; RIGHT$(A$(K), LEN(A$(K)) - 2)
  39.         INPUT X$
  40.         DO
  41.             PRINT "FOR A "; V$; " THE ANSWER WOULD BE ";
  42.             INPUT A$
  43.         A$ = LEFT$(A$, 1): LOOP UNTIL A$ = "Y" OR A$ = "N"
  44.         IF A$ = "Y" THEN B$ = "N"
  45.         IF A$ = "N" THEN B$ = "Y"
  46.         Z1 = VAL(A$(0))
  47.         A$(0) = STR$(Z1 + 2)
  48.         A$(Z1) = A$(K)
  49.         A$(Z1 + 1) = "\A" + V$
  50.         A$(K) = "\Q" + X$ + "\" + A$ + STR$(Z1 + 1) + "\" + B$ + STR$(Z1) + "\"
  51.     LOOP
  53.  
  54. '  SUBROUTINE TO PRINT QUESTIONS
  55. SUB SHOWQUESTION ()
  56.     Q$ = A$(K)
  57.     DO
  58.         FOR Z = 3 TO LEN(Q$)
  59.             IF MID$(Q$, Z, 1) = "\" THEN EXIT FOR ELSE PRINT MID$(Q$, Z, 1);
  60.         NEXT Z
  61.         INPUT C$: C$ = UCASE$(C$)
  62.         C$ = LEFT$(C$, 1)
  63.     LOOP UNTIL C$ = "Y" OR C$ = "N"
  64.     T$ = "\" + C$
  65.     FOR X = 3 TO LEN(Q$) - 1
  66.         IF MID$(Q$, X, 2) = T$ THEN EXIT FOR
  67.     NEXT X
  68.     FOR Y = X + 1 TO LEN(Q$)
  69.         IF MID$(Q$, Y, 1) = "\" THEN EXIT FOR
  70.     NEXT Y
  71.     K = VAL(MID$(Q$, X + 2, Y - X - 2))
  73.  
  74. SUB SHOWLIST ()
  75.     PRINT: PRINT "ANIMALS I ALREADY KNOW ARE:"
  76.     X = 0
  77.     FOR I = 1 TO 200
  78.        620 IF LEFT$(A$(I), 2) = "\A" THEN
  79.            624 PRINT TAB(15 * X);
  80.            630 FOR Z = 3 TO LEN(A$(I))
  81.                640 IF MID$(A$(I), Z, 1) <> "\" THEN PRINT MID$(A$(I), Z, 1);
  82.            642 NEXT Z
  83.            645 X = X + 1: IF X = 4 THEN X = 0: PRINT
  84.         END IF
  85.     NEXT I
  86.     PRINT
  87.     PRINT
  89.  
  90.  
  91.  
  92. /code]

5
Programs / Re: The Phantom Temple Game
« on: September 23, 2020, 01:56:40 am »
To add my 2 cents. Everything should be in arrays, room descriptions, object  descriptions, object locations,etc. Then when the data is read from a file the code gets very small. For a complete discussion of this read 'Creating Basic Adventure Programs by Frank Decosta.

Pages: [1]