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 - TrialAndTerror

Pages: [1]
1
Programs / Re: Helicopter game from previous forum
« on: August 12, 2021, 08:57:58 pm »
Hi. Latest version. It's still eating stack, must be the GOTO and GOSUB spaghetti. I give up. :(
A few changes though, ver2.23.

Greets, T&T

2
Programs / Re: Drum Machine Prototype
« on: April 14, 2020, 10:27:14 pm »
Great program! Thank you Dav. It helps me out when recording some musical ideas.
Very inspiring.

I haven't looked into the code but I have a question:
Can you make it run 3/4 too?
It's an essential feature for a drum machine.

T&T

3
Programs / Re: Simple Piano
« on: April 01, 2020, 10:06:55 pm »
Love it!

One thing: Why doesn't it accept the Csus chord? (On the computer keyboard "d"+"h"+"j")
This piece of code is useful to me, thanks Terry. :)

T&T

4
Programs / Re: Convert pictures to 256-colour embedded sprites
« on: October 29, 2019, 10:08:24 pm »
I'm new to GitHub but I'll surely have a look at it, SMcNeill, thanks!
I'm specially interested in the 'embedding' part of it, also looking for
a way to embed .WAV or .OGG data in a program.

Is this the good place to ask simple questions BTW?

T&T

5
Programs / Convert pictures to 256-colour embedded sprites
« on: October 29, 2019, 08:51:26 pm »
Hi, here's a piece of code I use to embed sprites in a program when I don'r want to use original PNG, JPG or BMP files.
I'm sure there's a better way to embed graphics. Anyone?

T&T

P.S. it outputs "Data.bas" containing sprite and colour data.

Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  3. SCREEN _NEWIMAGE(640, 480, 32)
  4.  
  5. LOCATE 10, 18: INPUT "Afbeelding plus extensie (JPG,BMP,PNG) "; I$
  6.  
  7. IF _FILEEXISTS(I$) = 0 THEN LOCATE 22, 1: PRINT "Bestandsfout. Druk een toets...": SLEEP: SYSTEM
  8.  
  9. Stam$ = LEFT$(I$, LEN(I$) - 4)
  10.  
  12.  
  13. Afbeelding& = _LOADIMAGE(I$)
  14.  
  15. Breedte = _WIDTH(Afbeelding&)
  16. Hoogte = _HEIGHT(Afbeelding&)
  17.  
  18. Volgorde$ = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@"
  19.  
  20. IF Breedte < 1 OR Hoogte < 1 OR Breedte > 320 OR Hoogte > 320 THEN LOCATE 22, 1: PRINT "Foute afmetingen. Druk een toets...": SLEEP: SYSTEM
  21.  
  22. DIM ch(0 TO 63 + 256 * 63 + 65536 * 63)
  23. DIM w&(1 TO Breedte * Hoogte)
  24. DIM v&(1 TO Breedte * Hoogte)
  25. DIM p&(32 TO Breedte * Hoogte)
  26. DIM b$(1 TO LEN(Volgorde$))
  27. DIM Kleur(0 TO Breedte - 1, 0 TO Hoogte - 1)
  28.  
  29. FOR p = 1 TO LEN(Volgorde$)
  30.     b$(p) = MID$(Volgorde$, p, 1)
  32.  
  33. LINE (320, 0)-(320, 320)
  34. LINE (0, 320)-(320, 320)
  35.  
  36. _PUTIMAGE (0, 0), Afbeelding&
  37.  
  38. FOR y = 0 TO Hoogte - 1
  39.     FOR x = 0 TO Breedte - 1
  40.         t = t + 1
  41.         w&(t) = POINT(x, y)
  42.         v&(t) = (_RED32(w&(t)) \ 4) + 256 * (_GREEN32(w&(t)) \ 4) + 65536 * (_BLUE32(w&(t)) \ 4)
  43.     NEXT
  45.  
  46. FOR j = 1 TO t
  47.     Uniek = 1
  48.     FOR m = 1 TO j - 1
  49.         IF v&(j) = v&(m) THEN Uniek = 0
  50.     NEXT
  51.     IF Uniek = 1 THEN
  52.         AantalKleuren = AantalKleuren + 1
  53.         p&(AantalKleuren + 31) = v&(j)
  54.     END IF
  56.  
  57. LOCATE 22, 1: PRINT "Aantal gedetecteerde Kleuren:"; AantalKleuren
  58.  
  59. IF AantalKleuren > LEN(Volgorde$) THEN: LOCATE 22, 1: PRINT "Sorry, maximaal"; LEN(Volgorde$); " verschillende Kleuren per afbeelding. Druk een toets...": SLEEP: SYSTEM
  60.  
  61. SCREEN _NEWIMAGE(640, 480, 256)
  62.  
  63. LINE (320, 0)-(320, 320)
  64. LINE (0, 320)-(320, 320)
  65.  
  66. OPEN Stam$ + "Data.bas" FOR OUTPUT AS #1
  67.  
  68. PRINT #1, "DATA " + LTRIM$(STR$(AantalKleuren))
  69. PRINT #1, "DATA " + LEFT$(Volgorde$, AantalKleuren)
  70.  
  71. WHILE k < AantalKleuren
  72.     k = k + 1
  73.     t$ = t$ + LTRIM$(RTRIM$(STR$(p&(k + 31))))
  74.     t$ = t$ + ","
  76. t$ = LEFT$(t$, LEN(t$) - 1)
  77. t$ = "DATA " + t$
  78. PRINT #1, t$
  79.  
  80. FOR Kleurkanaal = 32 TO 32 + AantalKleuren - 1
  81.     PALETTE Kleurkanaal, p&(Kleurkanaal)
  82.     ch(p&(Kleurkanaal)) = Kleurkanaal
  84.  
  85. FOR y = 0 TO Hoogte - 1
  86.     FOR x = 0 TO Breedte - 1
  87.         Teller = Teller + 1
  88.         Kleur(x, y) = ch(v&(Teller))
  89.         PSET (x, y), Kleur(x, y)
  90.     NEXT
  92.  
  93. FOR y = 0 TO Hoogte - 1
  94.     a$ = "DATA "
  95.     FOR x = 0 TO Breedte - 1
  96.         a$ = a$ + b$(POINT(x, y) - 31)
  97.     NEXT
  98.     PRINT #1, a$
  100. PRINT #1, "DATA $$$"
  101.  
  103.  
  104. LOCATE 22, 1: PRINT Stam$ + "Data.bas weggeschreven."
  105. LOCATE 24, 1: PRINT "Druk een toets om af te sluiten.";: SLEEP: SYSTEM
  106.  


6
Programs / Re: Helicopter game from previous forum
« on: February 10, 2019, 09:02:37 pm »
Quote from: johnno56 on February 10, 2019, 07:11:25 am
This is a VERY cool game. I think I have seen this before. I don't think I survived for very long then either... I must see if I can get the joystick out of storage and try again tomorrow after I have had a good night's sleep and a morning coffee.

Well done!

Thank you!

Mentioning the joystick: I connected mine after a year or so and I noticed the throttle doesn't function properly. Could be in the software or in the hardware. I will look into it. (Or maybe buy a controller)
Note that it is intended to be a mouse game, joystick support is an extra and you cannot replay your flight when using a joystick.

T&T


7
Programs / Re: Helicopter game from previous forum
« on: February 10, 2019, 01:04:50 am »
Quote from: Richard Frost on February 05, 2019, 08:54:02 pm
I haven't started playing with it yet, but I can already tell it's great.   Better than sliced cheese.
Reminds me of PLATO's 0airfight.   Carry on, Master of the Green Screen.

Thank you. I checked out Airfight, looks familiar indeed. It has the correct math, Helicopter Rescue doesn't, I'm afraid...
My programs are always WIP: I'll try to improve the gameplay too, for example: more then one airfield to create somewhat of a storyline.
Also planning on different routes for the enemy vehicles instead of having them all heading for the base.

T&T

8
Programs / Re: Tetris
« on: September 24, 2018, 07:12:36 pm »
Beautiful. The preset speed is a little to high for me though.
T&T

9
Programs / Re: Helicopter game from previous forum
« on: September 22, 2018, 06:57:06 pm »
Quote from: TerryRitchie on September 22, 2018, 06:09:31 pm
Welcome! TrialAndTerror, LOL  I could have swore you used to go by TrialAndError.

I am aware of my shortcomings Terry, that's why I chose this name. I also prefer improvised music, LOL.

10
Programs / Re: Helicopter game from previous forum
« on: September 22, 2018, 06:07:01 pm »
Oops, There is some serious trouble with the program flow -what was I thinking?-, with as result Menu.exe eating memory. No problem, just don't let it run for hours. I will try to fix that.
Greets, T&T

11
Programs / Helicopter game from previous forum
« on: August 02, 2018, 02:06:46 am »
Hi there. Here's the latest version of Helicopter Rescue, code included in .zip.
T&T

Pages: [1]