Help with my program

[Patrick_coots]

 https://qb64.org/basbin/A3CA/bas (code)

when 5-10 seconds pass i'm trying to make more fire appear moving in different directions,

[TerryRitchie]

need fire.png

[Patrick_coots]

https://imgur.com/a/peSVZeE sorry, keep forgetting

[_vince]

This doesn't answer your question but I notice this:

Code: QB64: [Select]

1.     FOR i = 1 TO numfire
2.  
3.         test1(i) = _LOADIMAGE("./fire.png")
4.         _PUTIMAGE (test1.x, test1.y), test1(i)
5.     NEXT
6.  

Wouldn't this load multiple copies of the same image? Seems inefficient, I think this would have the same result:

Code: QB64: [Select]

1. dim zzz as long
2. zzz = _loadimage("fire.png")
3.     FOR i = 1 TO numfire
4.         test1(i) = zzz
5.         _PUTIMAGE (test1.x, test1.y), test1(i)
6.     NEXT
7.  

Also, I believe all loadimage handles should be LONGs.  I may answer your actual question later

[Patrick_coots]

its jsut a placeholder, and if you check test1 type, you can see test1.fire is a long

[TerryRitchie]

https://imgur.com/a/peSVZeE sorry, keep forgetting

No problem. I'll take a look at it in a bit. Working on another program right now.

Oh, by the way, welcome to the forum! :-)

[_vince]

You're almost there! Just need to fill in the FOR loops, here goes:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(640, 480, 32)
2. RANDOMIZE TIMER
3. TYPE test
4.     x AS INTEGER
5.     y AS INTEGER
6. END TYPE
7.  
8. TYPE test2
9.     x AS INTEGER
10.     y AS INTEGER
11.     xdest AS INTEGER
12.     ydest AS INTEGER
13.     number AS INTEGER
14.     fire AS LONG
15. END TYPE
16.  
17. DIM SHARED spider AS test
18. reDIM SHARED test1(100) AS test2
19. dim shared n as integer
20. n = 1
21. test1(n).x = 50
22. test1(n).y = 100
23.  
24. test1(n).xdest = 1
25. test1(n).ydest = 0
26. test1(n).fire = _LOADIMAGE("./fire.png")
27.  
28. dim timer1 as single
29. timer1 = timer
30. DO
31.         if timer - timer1 > 3 then
32.                 'add fire
33.                 if n<100 then
34.                 n = n + 1
35.  
36.                 test1(n).x = rnd*640
37.                 test1(n).y = rnd*480
38.  
39.                 test1(n).xdest = 1
40.                 test1(n).ydest = 1
41.                 test1(n).fire = _LOADIMAGE("./fire.png")
42.  
43.                 timer1 = timer
44.                 end if
45.         end if
46.  
47.     bounce
48.     border
49.     check
50.     IF _KEYDOWN(105) THEN adfire
51.     PCOPY 1, _DISPLAY
52.     CLS
53.     IF _KEYDOWN(18432) THEN spider.y = spider.y - 5
54.     IF _KEYDOWN(20480) THEN spider.y = spider.y + 5
55.  
56.     IF _KEYDOWN(19200) THEN spider.x = spider.x - 5
57.     IF _KEYDOWN(19712) THEN spider.x = spider.x + 5
58.     CIRCLE (spider.x, spider.y), 5, _RGB(177, 83, 127)
59.  
60.         for i=1 to n
61.                 _PUTIMAGE (test1(i).x, test1(i).y), test1(i).fire
62.  
63.                 IF test1(i).xdest = 1 THEN test1(i).x = test1(i).x + 5
64.                 IF test1(i).xdest = 0 THEN test1(i).x = test1(i).x - 5
65.  
66.                 IF test1(i).ydest = 1 THEN test1(i).y = test1(i).y - 5
67.                 IF test1(i).ydest = 0 THEN test1(i).y = test1(i).y + 5
68.         next
69.  
70.  
71.     WAIT &H3DA, &H3DA
72.     WAIT &H3DA, &H3DA, 8
73.     _DISPLAY
74.     PCOPY _DISPLAY, 1
75. LOOP
76. 'lazy teacher!
77. 'these fill in the code templates are not teaching
78. 'make us write our own code!
79. SUB fired
80.     FOR i = 1 TO n
81.  
82.         test1(i).fire = _LOADIMAGE("./fire.png")
83.         _PUTIMAGE (test1(i).x, test1(i).y), test1(i).fire
84.     NEXT
85. END SUB
86. SUB bounce 'makes the fire bounce
87.         for i=1 to n
88.                 IF test1(i).x >= 628 THEN
89.                         test1(i).xdest = 0
90.                 END IF
91.                 IF test1(i).x <= 1 THEN
92.                         test1(i).xdest = 1
93.                 END IF
94.                 IF test1(i).y >= 468 THEN
95.                         test1(i).ydest = 1
96.                 END IF
97.                 IF test1(i).y <= 1 THEN
98.                         test1(i).ydest = 0
99.                 END IF
100.         next
101. END SUB
102. SUB border 'prevents palyer from going OOB
103.     IF spider.x > 630 THEN spider.x = spider.x - 5
104.     IF spider.x < 0 THEN spider.x = spider.x + 5
105.     IF spider.y > 470 THEN spider.y = spider.y - 5
106.     IF spider.y < 0 THEN spider.y = spider.y + 5
107. END SUB
108. SUB check
109.         for i=1 to n
110.                 IF (spider.x - test1(i).x) ^ 2 + (spider.y - test1(i).y) ^ 2 <= 2 ^ 3 THEN END
111.         next
112. END SUB
113. SUB hit
114.     _PRINTSTRING (300, 240), "GAME OVER: PRESS ENTER TO RESTART"
115.     SLEEP
116.     STOP
117. END SUB
118. SUB adfire
119.     fired
120. END SUB
121.  
122.  

[Patrick_coots]

hey man, thanks! this kind of stuff isnt my forte, i appreciate it

[TerryRitchie]

Looks like _vince took care of you. :-)