Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: FellippeHeitor on October 22, 2021, 07:44:36 pm

Title: [video] QB64 v2 - Stepping
Post by: FellippeHeitor on October 22, 2021, 07:44:36 pm
So you added the new $Debug metacommand in your program. Now what?

Title: Re: [video] QB64 v2 - Stepping
Post by: Pete on October 22, 2021, 08:13:47 pm
Ah, so F6 is really only for people who make mistakes. Well, no wooreis hear. Knot sumthiinng I sea myselph kneading.

Hey have you ever thought of getting an animated dog to do these spots? We could call him QB Doo 🐶

Just a thought...

Kidding aside, love it. Keep um coming. OH, and have you thought about a video library section for these?

Pete
Title: Re: [video] QB64 v2 - Stepping
Post by: FellippeHeitor on October 22, 2021, 11:17:05 pm
Thanks, Pete.

I don’t think an extra section is needed, since these are all grouped in the YouTube channel, but I’ll leave it to the librarians.
Title: Re: [video] QB64 v2 - Stepping
Post by: SMcNeill on October 23, 2021, 12:15:46 am
Quote from: Pete on October 22, 2021, 08:13:47 pm
Hey have you ever thought of getting an animated dog to do these spots? We could call him QB Doo 🐶

How about an animated paper clip?  Call him Qlippy-B64!
Title: Re: [video] QB64 v2 - Stepping
Post by: Pete on October 23, 2021, 12:57:09 am
Quote from: SMcNeill on October 23, 2021, 12:15:46 am
How about an animated paper clip?  Call him Qlippy-B64!

Nope! I'll stick with QB-Doo, for Version 2!

Code: QB64: [Select]
  1. title$ = "QB-Doo Version 2"
  2. _TITLE title$
  4. Screen0 = _NEWIMAGE(80, 25, 0)
  5. SCREEN Screen0
  6.  
  8.  
  9. COLOR 0, 7
  10. FOR x = 1 TO 25
  11.     LOCATE x, 1: PRINT STRING$(80, 176);
  13.  
  14. _DEST overlay
  15. COLOR MidnightBlue, 0
  16.  
  17. REDIM text$(6)
  18. i = 0
  20.     i = i + 1
  21.     DO
  22.         READ a
  23.         IF a = 0 THEN EXIT DO
  24.         text$(i) = text$(i) + CHR$(a)
  25.     LOOP
  26. LOOP UNTIL i = 6
  27.  
  28. font = _LOADFONT("lucon.ttf", 25, "monospace")
  29. IF font <= 0 THEN font = 16
  30. _FONT font
  32.  
  33. 'music$ = "L6n33n33n31n31L2n29L6n31n33L3n26P4L4n31L6n28L2n24L6n33n33L4n31L2n29"
  34. 'music$ = "MBO4" + music$ + music$
  35. music$ = "MBO4" + "L7n33n33n31n31L4n29 P8 L8n31L7n33L4n26 P6 L5n31L8n28L4n24L7n33n33n31L4n29"
  36. music$ = music$ + "P6 L7n33n33n31n31L4n29 P8 L6n31n33L4n34 P6 L5n31L8n28L4n24L7n33n33n31L4n29"
  37.  
  38. PLAY music$
  39.  
  40. startrow = 2
  41. FOR k = 1 TO 6
  42.     t$ = text$(k)
  43.     y = startrow + k * 2 - 1 ' Double space.
  44.  
  45.     pslc y, t$, overlay, Overlay_hardware
  46.  
  47.     _DELAY 1.9
  49.  
  50. _FONT 16 'select inbuilt 8x16 default font
  51. _FREEFONT font ' Must be placed after the font is changed.
  52.  
  53. COLOR Black, 0
  54. msg$ = "Press space bar to toggle overlay. Press Esc to end."
  55.  
  56. psl 25, 1, msg$, overlay, Overlay_hardware
  57.  
  58. _DELAY .75
  60.     _LIMIT 30
  61.     b$ = INKEY$
  62.     IF LEN(b$) THEN
  63.         IF b$ = CHR$(27) THEN EXIT DO
  64.         IF Show_Overlay THEN _PUTIMAGE (0, 0), Overlay_hardware
  65.         Show_Overlay = NOT Show_Overlay
  66.         _DISPLAY
  67.     END IF
  69.  
  70. _FREEIMAGE Overlay_hardware
  71. _DEST 0 'Reset dest back to the normal screen 0.
  73. COLOR 0, 7
  74. _DELAY .75
  76. COLOR 1, 7
  77. LOCATE 2, 2
  78. PRINT "Hi, back in SCREEN 0. Bye!"
  79. _DELAY 2.25
  81.  
  82. DATA 81,66,32,86,101,114,115,105,111,110,32,50,0
  83. DATA 89,111,117,39,114,101,32,98,114,97,110,100,32,110,101,119,0
  84. DATA 65,32,112,105,99,107,101,114,32,97,110,100,32,97,32,99,104,111,111,115,101,114,0
  85. DATA 65,110,100,32,119,101,32,97,108,108,32,119,97,110,116,32,116,111,32,117,115,101,0
  86. DATA 81,66,44,32,116,111,111,0
  87. DATA 39,67,97,117,115,101,32,70,66,39,115,32,115,117,99,104,32,97,32,108,111,115,101,114,0
  88.  
  89. SUB psl (y, x, t$, overlay, Overlay_hardware)
  90.     _PRINTSTRING ((x - 1) * _FONTWIDTH, (y - 1) * _FONTHEIGHT), t$
  91.     Overlay_hardware = _COPYIMAGE(overlay, 33)
  92.     _PUTIMAGE (0, 0), Overlay_hardware
  93.     _DISPLAY
  95.  
  96. SUB pslc (y, t$, overlay, Overlay_hardware)
  97.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(t$)) \ 2, (y - 1) * _FONTHEIGHT), t$
  98.     Overlay_hardware = _COPYIMAGE(overlay, 33)
  99.     _PUTIMAGE (0, 0), Overlay_hardware
  100.     _DISPLAY

Pete 🎶

Edit: We really need that QB45 PLAY(0) function implemented one of these versions.
Text Only | Text with Attachments