QB64.org Forum

Active Forums => Programs => Topic started by: justsomeguy on April 23, 2021, 05:29:54 pm

Title: Cellular Automata Game Mechanic
Post by: justsomeguy on April 23, 2021, 05:29:54 pm

Hello

Before I started working on the 2D physics engine, I was fleshing out a cellular automata game mechanic for a later project. I have since abandoned this approach in favor of another, but it made for an entertaining program.

The idea is similar oeCake, you just draw random stuff and flood it with water or set it on fire. Different materials behave in different ways. So experiment. Be aware this is not intended to be an accurate simulation of these materials. Its just for fun.

Like I said, I abandoned this approach because the 'if' 'then' 'else' 'end if' was getting was out of hand. So, its not entirely finished (Example: oil is not flammable.)
 
Anyways maybe you guys would also enjoy it and you are welcome to use it for your project.

Code: QB64: [Select]

1. $Resize:Off
2. Type tVECTOR2D
3.     x As Long
4.     y As Long
5. End Type
6.  
7. Type tMATERIAL
8.     material As Integer
9.     behavior As Integer
10.     flammable As Integer
11.     sleeptime As Long
12.     update_ticks As Integer
13.     c As Long ' color
14.     update As Integer
15.     lifetime As Integer
16.     n As String * 20
17. End Type
18.  
19. Type tMOUSE
20.     position As tVECTOR2D
21.     button1 As Integer
22.     button2 As Integer
23.     button3 As Integer
24.     wheel As Integer
25. End Type
26.  
27. Const SIZE_X = 200
28. Const SIZE_Y = 150
29. Const SCALE = 4
30.  
31. Const cSLEEPTIME = 5 'iterations until cell goes to sleep
32.  
33. Const cNUMOFMATERIALS = 15 ' one more than # of actual materials
34. Const matNOTHING = 0
35. Const matSAND = 1
36. Const matLIQUID = 2
37. Const matSOLID = 3
38. Const matFOAM = 4 'floats on liquids
39. Const matACID = 5
40. Const matRESIDUE = 6
41. Const matGAS = 7
42. Const matFIRE = 8
43. Const matASH = 9
44. Const matACIDWATER = 10
45. Const matDRAIN = 11
46. Const matWATERSOURCE = 12
47. Const matSTONE = 13
48. Const matOIL = 14
49.  
50. Const reactNOTHING = 0
51. Const reactAIR = 0
52. Const reactSAND = 1
53. Const reactWATER = 2
54. Const reactWOOD = 3
55. Const reactFOAM = 4 'floats on liquids
56. Const reactACID = 5
57. Const reactRESIDUE = 6
58. Const reactGAS = 7
59. Const reactFIRE = 8
60. Const reactASH = 9
61. Const reactACIDWATER = 10
62. Const reactDRAIN = 11
63. Const reactWATERSOURCE = 12
64. Const reactSTONE = 13
65. Const reactOIL = 14
66.  
67. 'Dim reaction_matrix(cNUMOFMATERIALS, cNUMOFMATERIALS, 8) As Integer
68.  
69. _Title "Cellular Automata"
70. Screen _NewImage(SIZE_X * SCALE + 200, SIZE_Y * SCALE, 32)
71.  
72.  
73. Dim World(SIZE_X, SIZE_Y) As tMATERIAL
74.  
75. Dim mouse As tMOUSE
76. Dim material_prop(20) As tMATERIAL
77. Dim Shared freeze, quit As Integer
78.  
79. Dim timerOne As Integer
80. Dim Shared fps As Integer
81. Dim Shared fpsLast As Integer
82. timerOne = _FreeTimer
83. On Timer(timerOne, 1) renderFPS
84. Timer(timerOne) On
85.  
86.  
87. Call material_init(material_prop())
88.  
89. Do: fps = fps + 1
90.     Cls
91.  
92.     If Not freeze Then Call run_sim(World(), material_prop())
93.     Call render(World())
94.     Call render_menu(material_prop(), mouse)
95.     Call handle_kepress(World(), material_prop())
96.     Call handle_mouse(World(), mouse, material_prop())
97.     _Limit 240
98.     _Display
99.  
100. Loop Until quit = 1
101. System
102.  
103. Sub render_menu (mat_prop() As tMATERIAL, mouse As tMOUSE)
104.     Dim i As Integer
105.     Locate 1, 50: Print "FPS:"; fpsLast
106.     Line (0, 0)-(SIZE_X * SCALE - 1, SIZE_Y * SCALE - 1), _RGB(50, 67, 127), B
107.  
108.     For i = 0 To cNUMOFMATERIALS
109.         Locate i + 1 * 10, 104
110.         Print mat_prop(i).n
111.         If i = Abs(mouse.wheel) Then
112.             Line (102 * 8, i * 16 + 143)-(116 * 8, i * 16 + 158), , B
113.         End If
114.     Next
115.     Locate 2, 104
116.     Print "Use Mousewheel to"
117.     Locate 3, 104
118.     Print "select material."
119.     Locate 4, 104
120.     Print "c - Clear screen"
121.     Locate 5, 104
122.     Print "s - Save Map"
123.     Locate 6, 104
124.     Print "l - Load Map"
125.     Locate 7, 104
126.     Print "Left Mouse Button"
127.     Locate 8, 104
128.     Print "to Deposit material"
129. End Sub
130. Sub renderFPS
131.     fpsLast = fps
132.     fps = 0
133. End Sub
134.  
135. Sub handle_kepress (world() As tMATERIAL, mat_prop() As tMATERIAL)
136.     Dim keys As Long
137.     keys = _KeyHit
138.     If keys = 27 Then quit = 1
139.     If keys = 32 Then freeze = Not freeze
140.  
141.     If keys > 0 And keys < 256 Then
142.         If LCase$(Chr$(keys)) = "c" Then
143.             Call clear_world(world(), mat_prop())
144.         End If
145.         If LCase$(Chr$(keys)) = "s" Then
146.             Call save_world(world(), "CellAuto.ca")
147.         End If
148.         If LCase$(Chr$(keys)) = "l" Then
149.             Call load_world(world(), "CellAuto.ca")
150.         End If
151.  
152.  
153.     End If
154. End Sub
155.  
156. Sub save_world (world() As tMATERIAL, filename As String)
157.     Dim i, j As Integer
158.  
159.     Open filename For Output As #1
160.     Print #1, SIZE_X
161.     Print #1, SIZE_Y
162.     For j = 0 To SIZE_Y
163.         For i = 0 To SIZE_X
164.             Print #1, world(i, j).material
165.             Print #1, world(i, j).behavior
166.             Print #1, world(i, j).flammable
167.             Print #1, world(i, j).sleeptime
168.             Print #1, world(i, j).update_ticks
169.             Print #1, world(i, j).c
170.             Print #1, world(i, j).update
171.             Print #1, world(i, j).lifetime
172.             Print #1, world(i, j).n
173.         Next
174.     Next
175.     Close #1
176. End Sub
177.  
178. Sub load_world (world() As tMATERIAL, filename As String)
179.     Dim i, j, Sx, Sy As Integer
180.     If _FileExists(filename) Then
181.         Open filename For Input As #1
182.         Input #1, Sx
183.         Input #1, Sy
184.         For j = 0 To Sy
185.             For i = 0 To Sx
186.                 Input #1, world(i, j).material
187.                 Input #1, world(i, j).behavior
188.                 Input #1, world(i, j).flammable
189.                 Input #1, world(i, j).sleeptime
190.                 Input #1, world(i, j).update_ticks
191.                 Input #1, world(i, j).c
192.                 Input #1, world(i, j).update
193.                 Input #1, world(i, j).lifetime
194.                 Input #1, world(i, j).n
195.             Next
196.         Next
197.         Close #1
198.     End If
199. End Sub
200.  
201.  
202. Sub clear_world (world() As tMATERIAL, mat_prop() As tMATERIAL)
203.     Dim j, i As Integer
204.     For j = 0 To SIZE_Y
205.         For i = 0 To SIZE_X
206.             world(i, j) = mat_prop(matNOTHING)
207.         Next
208.     Next
209. End Sub
210.  
211. Sub run_sim (world() As tMATERIAL, mat_prop() As tMATERIAL)
212.     Dim i, j As Long
213.     Dim UP, DOWN, LEFT, RIGHT As Integer
214.     Dim process_direction_x, process_direction_y, active_flag As Integer
215.  
216.     process_direction_y = 1 - Int((Rnd > .5) * 2)
217.     start_y = 1: finish_y = SIZE_Y - 1
218.  
219.     If process_direction_y < 0 Then
220.         Swap start_y, finish_y
221.     End If
222.  
223.     For j = start_y To finish_y Step process_direction_y
224.  
225.         start_x = 1: finish_x = SIZE_X - 1
226.         process_direction_x = 1 - Int((Rnd > .5) * 2)
227.  
228.         If process_direction_x < 0 Then
229.             Swap start_x, finish_x
230.         End If
231.  
232.         For i = start_x To finish_x Step process_direction_x
233.  
234.             If world(i, j).behavior Then
235.                 If world(i, j).update = 0 Then ' update tick are used to slow certain materials down
236.                     If world(i, j).sleeptime > 0 Then ' make sure cell is still active and not sleeping
237.                         UP = j - 1
238.                         DOWN = j + 1
239.                         LEFT = i - 1
240.                         RIGHT = i + 1
241.                         ' reaction behavior
242.                         Select Case world(i, j).material
243.                             Case reactNOTHING:
244.                             Case reactSAND:
245.                             Case reactWATER:
246.                                 If world(LEFT, UP).material = matACID Then
247.                                     Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
248.  
249.                                 Else
250.                                     If world(i, UP).material = matACID Then
251.                                         Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
252.  
253.                                     Else
254.                                         If world(RIGHT, UP).material = matACID Then
255.                                             Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
256.  
257.                                         Else
258.                                             If world(LEFT, j).material = matACID Then
259.                                                 Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
260.  
261.                                             Else
262.                                                 If world(RIGHT, j).material = matACID Then
263.                                                     Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
264.  
265.                                                 Else
266.                                                     If world(LEFT, DOWN).material = matACID Then
267.                                                         Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
268.  
269.                                                     Else
270.                                                         If world(i, DOWN).material = matACID Then
271.                                                             Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
272.  
273.                                                         Else
274.                                                             If world(RIGHT, DOWN).material = matACID Then
275.                                                                 Call set_mat(world(), mat_prop(), mat_prop(matACIDWATER).material, i, j)
276.  
277.                                                             End If
278.                                                         End If
279.                                                     End If
280.                                                 End If
281.                                             End If
282.                                         End If
283.                                     End If
284.                                 End If
285.  
286.                             Case reactWOOD:
287.                                 If world(LEFT, UP).material = matACID Then
288.                                     Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
289.                                     Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, LEFT, UP)
290.                                 Else
291.                                     If world(i, UP).material = matACID Then
292.                                         Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
293.                                         Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, UP)
294.                                     Else
295.                                         If world(RIGHT, UP).material = matACID Then
296.                                             Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
297.                                             Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, RIGHT, UP)
298.                                         Else
299.                                             If world(LEFT, j).material = matACID Then
300.                                                 Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
301.                                                 Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, LEFT, j)
302.                                             Else
303.                                                 If world(RIGHT, j).material = matACID Then
304.                                                     Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
305.                                                     Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, RIGHT, j)
306.                                                 Else
307.                                                     If world(LEFT, DOWN).material = matACID Then
308.                                                         Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
309.                                                         Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, LEFT, DOWN)
310.                                                     Else
311.                                                         If world(i, DOWN).material = matACID Then
312.                                                             Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
313.                                                             Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, DOWN)
314.                                                         Else
315.                                                             If world(RIGHT, DOWN).material = matACID Then
316.                                                                 Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, i, j)
317.                                                                 Call set_mat(world(), mat_prop(), mat_prop(matRESIDUE).material, RIGHT, DOWN)
318.                                                             End If
319.                                                         End If
320.                                                     End If
321.                                                 End If
322.                                             End If
323.                                         End If
324.                                     End If
325.                                 End If
326.  
327.                             Case reactFOAM:
328.                                 If world(LEFT, UP).material = matACID Then
329.                                     Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
330.                                     Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, LEFT, UP)
331.                                 Else
332.                                     If world(i, UP).material = matACID Then
333.                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
334.                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, UP)
335.                                     Else
336.                                         If world(RIGHT, UP).material = matACID Then
337.                                             Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
338.                                             Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, RIGHT, UP)
339.                                         Else
340.                                             If world(LEFT, j).material = matACID Then
341.                                                 Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
342.                                                 Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, LEFT, j)
343.                                             Else
344.                                                 If world(RIGHT, j).material = matACID Then
345.                                                     Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
346.                                                     Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, RIGHT, j)
347.                                                 Else
348.                                                     If world(LEFT, DOWN).material = matACID Then
349.                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
350.                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, LEFT, DOWN)
351.                                                     Else
352.                                                         If world(i, DOWN).material = matACID Then
353.                                                             Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
354.                                                             Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, DOWN)
355.                                                         Else
356.                                                             If world(RIGHT, DOWN).material = matACID Then
357.                                                                 Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
358.                                                                 Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, RIGHT, DOWN)
359.                                                             End If
360.                                                         End If
361.                                                     End If
362.                                                 End If
363.                                             End If
364.                                         End If
365.                                     End If
366.                                 End If
367.                             Case reactACID:
368.                             Case reactRESIDUE:
369.                             Case reactGAS:
370.                             Case reactFIRE:
371.                                 active_flag = 0
372.  
373.                                 If world(LEFT, UP).material = reactWATER Then
374.                                     Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
375.  
376.                                 Else
377.                                     If world(i, UP).material = reactWATER Then
378.                                         Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
379.  
380.                                     Else
381.                                         If world(RIGHT, UP).material = reactWATER Then
382.                                             Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
383.  
384.                                         Else
385.                                             If world(LEFT, j).material = reactWATER Then
386.                                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
387.  
388.                                             Else
389.                                                 If world(RIGHT, j).material = reactWATER Then
390.                                                     Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
391.  
392.                                                 Else
393.                                                     If world(LEFT, DOWN).material = reactWATER Then
394.                                                         Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
395.  
396.                                                     Else
397.                                                         If world(i, DOWN).material = reactWATER Then
398.                                                             Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
399.  
400.                                                         Else
401.                                                             If world(RIGHT, DOWN).material = reactWATER Then
402.                                                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, j)
403.                                                             Else
404.                                                                 If world(i, DOWN).material = matSOLID Or world(i, DOWN).material = matFOAM Then
405.                                                                     If Rnd > .5 Then
406.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
407.                                                                     Else
408.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matASH).material, i, j)
409.                                                                     End If
410.                                                                     active_flag = 1
411.                                                                     Call set_mat(world(), mat_prop(), mat_prop(matFIRE).material, i, DOWN)
412.                                                                 End If
413.                                                                 If world(i, UP).material = reactWOOD Or world(i, UP).material = reactFOAM Then
414.                                                                     Call set_mat(world(), mat_prop(), mat_prop(reactFIRE).material, i, UP)
415.                                                                     If Rnd > .5 Then
416.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
417.                                                                     Else
418.                                                                         Call set_mat(world(), mat_prop(), mat_prop(reactASH).material, i, j)
419.                                                                     End If
420.                                                                     active_flag = 1
421.                                                                 End If
422.  
423.                                                                 If world(LEFT, j).material = matSOLID Or world(LEFT, j).material = matFOAM Then
424.                                                                     If Rnd > .5 Then
425.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
426.                                                                     Else
427.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matASH).material, i, j)
428.                                                                     End If
429.                                                                     Call set_mat(world(), mat_prop(), mat_prop(matFIRE).material, LEFT, j)
430.                                                                     active_flag = 1
431.                                                                 End If
432.                                                                 If world(RIGHT, j).material = matSOLID Or world(RIGHT, j).material = matFOAM Then
433.                                                                     If Rnd > .5 Then
434.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matGAS).material, i, j)
435.                                                                     Else
436.                                                                         Call set_mat(world(), mat_prop(), mat_prop(matASH).material, i, j)
437.                                                                     End If
438.  
439.                                                                     Call set_mat(world(), mat_prop(), mat_prop(matFIRE).material, RIGHT, j)
440.                                                                     active_flag = 1
441.                                                                 End If
442.  
443.                                                             End If
444.                                                         End If
445.                                                     End If
446.                                                 End If
447.                                             End If
448.                                         End If
449.                                     End If
450.                                 End If
451.  
452.                                 If active_flag = 0 Then
453.                                     world(i, j).lifetime = world(i, j).lifetime - 1
454.                                     If world(i, j).lifetime < 1 Then Call set_mat(world(), mat_prop(), mat_prop(matNOTHING).material, i, j)
455.                                 Else
456.                                     world(i, j).sleeptime = 50
457.                                     world(i, j).update = 0
458.                                 End If
459.                             Case reactASH:
460.                             Case reactACIDWATER:
461.                                 If world(LEFT, DOWN).material = matACID Or world(LEFT, DOWN).material = reactWATER Then
462.  
463.                                     Call set_mat(world(), mat_prop(), mat_prop(reactACIDWATER).material, LEFT, DOWN)
464.                                 Else
465.                                     If world(i, DOWN).material = matACID Or world(i, DOWN).material = reactWATER Then
466.  
467.                                         Call set_mat(world(), mat_prop(), mat_prop(reactACIDWATER).material, i, DOWN)
468.                                     Else
469.                                         If world(RIGHT, DOWN).material = matACID Or world(RIGHT, DOWN).material = reactWATER Then
470.                                             Call set_mat(world(), mat_prop(), mat_prop(reactACIDWATER).material, RIGHT, DOWN)
471.                                         End If
472.                                     End If
473.                                 End If
474.                             Case reactDRAIN:
475.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, LEFT, UP)
476.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, UP)
477.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, RIGHT, UP)
478.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, LEFT, j)
479.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, RIGHT, j)
480.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, LEFT, DOWN)
481.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, i, DOWN)
482.                                 Call set_mat(world(), mat_prop(), mat_prop(reactAIR).material, RIGHT, DOWN)
483.                             Case reactWATERSOURCE:
484.                                 If world(LEFT, UP).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, LEFT, UP)
485.                                 If world(i, UP).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, i, UP)
486.                                 If world(RIGHT, UP).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, RIGHT, UP)
487.                                 If world(LEFT, j).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, LEFT, j)
488.                                 If world(RIGHT, j).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, RIGHT, j)
489.                                 If world(LEFT, DOWN).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, LEFT, DOWN)
490.                                 If world(i, DOWN).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, i, DOWN)
491.                                 If world(RIGHT, DOWN).material = reactNOTHING Then Call set_mat(world(), mat_prop(), mat_prop(reactWATER).material, RIGHT, DOWN)
492.  
493.                         End Select
494.                         'movement behavior below
495.                         Select Case world(i, j).behavior
496.                             Case matSAND:
497.                                 'Check DOWN
498.                                 If world(i, DOWN).behavior = matNOTHING Or world(i, DOWN).behavior = matLIQUID Or world(i, DOWN).behavior = matGAS Or world(i, DOWN).material = reactOIL Then
499.                                     Call move_mat(world(), mat_prop(), i, j, i, DOWN)
500.                                 Else
501.                                     'Check LEFT DOWN
502.                                     If world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matLIQUID Or world(LEFT, DOWN).behavior = matGAS Or world(LEFT, DOWN).material = reactOIL Then
503.                                         Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
504.                                     Else
505.                                         'Check RIGHT DOWN
506.                                         If world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matLIQUID Or world(RIGHT, DOWN).behavior = matGAS Or world(RIGHT, DOWN).material = reactOIL Then
507.                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
508.                                         End If
509.                                     End If
510.                                 End If
511.                             Case matLIQUID:
512.                                 If world(i, DOWN).behavior = matNOTHING Or world(i, DOWN).behavior = matFOAM Or world(i, DOWN).behavior = matGAS Then
513.                                     Call move_mat(world(), mat_prop(), i, j, i, DOWN)
514.                                 Else
515.                                     ' if both left down and right down are available then RNG the direction
516.                                     If (world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matFOAM Or world(LEFT, DOWN).behavior = matGAS) And _
517.                                        (world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matFOAM Or world(RIGHT, DOWN).behavior = matGAS) Then
518.                                         If Rnd > .5 Then
519.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
520.                                         Else
521.                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
522.                                         End If
523.                                     Else
524.                                         'Check LEFT DOWN
525.                                         If world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matFOAM Or world(LEFT, DOWN).behavior = matGAS Then
526.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
527.                                         Else
528.                                             'Check RIGHT DOWN
529.                                             If world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matFOAM Or world(RIGHT, DOWN).behavior = matGAS Then
530.                                                 Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
531.                                             Else
532.                                                 If (world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matFOAM Or world(LEFT, j).behavior = matGAS) And _
533.                                                    (world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matFOAM Or world(RIGHT, j).behavior = matgas) Then
534.                                                     ' if both left  and right  are available then RNG the direction
535.                                                     If Rnd > .5 Then
536.                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
537.                                                     Else
538.                                                         Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
539.                                                     End If
540.                                                 Else
541.                                                     ' Check LEFT
542.                                                     If world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matFOAM Or world(LEFT, j).behavior = matGAS Then
543.                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
544.                                                     Else
545.                                                         'Check RIGHT
546.                                                         If world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matFOAM Or world(RIGHT, j).behavior = matGAS Then
547.                                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
548.                                                         End If
549.                                                     End If
550.                                                 End If
551.                                             End If
552.                                         End If
553.                                     End If
554.                                 End If
555.                             Case matSOLID:
556.                                 'Do Nothing no movement
557.  
558.                             Case matFOAM:
559.                                 'Check DOWN
560.                                 If world(i, DOWN).behavior = matNOTHING Or world(i, DOWN).behavior = matGAS Then
561.                                     Call move_mat(world(), mat_prop(), i, j, i, DOWN)
562.                                 Else
563.                                     If (world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matGAS) And (world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matGAS) Then
564.                                         If Rnd > .5 Then
565.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
566.                                         Else
567.                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
568.                                         End If
569.                                     Else
570.                                         'Check LEFT DOWN
571.                                         If world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matGAS Then
572.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
573.                                         Else
574.                                             'Check RIGHT DOWN
575.                                             If world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matGAS Then
576.                                                 Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
577.                                             Else
578.                                                 'Check UP
579.                                                 If world(i, UP).behavior = matLIQUID Then
580.                                                     Call move_mat(world(), mat_prop(), i, j, i, UP)
581.                                                 Else
582.                                                     If world(LEFT, UP).behavior = matLIQUID And world(RIGHT, UP).behavior = matLIQUID Then
583.                                                         If Rnd > .5 Then
584.                                                             Call move_mat(world(), mat_prop(), i, j, LEFT, UP)
585.                                                         Else
586.                                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, UP)
587.                                                         End If
588.                                                     Else
589.                                                         'Check LEFT UP
590.                                                         If world(LEFT, UP).behavior = matLIQUID Then
591.                                                             Call move_mat(world(), mat_prop(), i, j, LEFT, UP)
592.                                                         Else
593.                                                             'Check RIGHT UP
594.                                                             If world(RIGHT, UP).behavior = matLIQUID Then
595.                                                                 Call move_mat(world(), mat_prop(), i, j, RIGHT, UP)
596.                                                             Else
597.                                                                 If (world(LEFT, j).behavior = matLIQUID Or world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matGAS) And (world(RIGHT, j).behavior = matLIQUID Or world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matGAS) Then
598.                                                                     If Rnd > .5 Then
599.                                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
600.                                                                     Else
601.                                                                         Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
602.                                                                     End If
603.                                                                 Else
604.                                                                     'Check LEFT
605.                                                                     If world(LEFT, j).behavior = matLIQUID Or world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matGAS Then
606.                                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
607.                                                                     Else
608.                                                                         'Check RIGHT
609.                                                                         If world(RIGHT, j).behavior = matLIQUID Or world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matGAS Then
610.                                                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
611.                                                                         End If
612.                                                                     End If
613.                                                                 End If
614.                                                             End If
615.                                                         End If
616.                                                     End If
617.                                                 End If
618.                                             End If
619.                                         End If
620.                                     End If
621.                                 End If
622.  
623.                             Case matGAS:
624.                                 If world(i, UP).behavior = matNOTHING Then
625.                                     Call move_mat(world(), mat_prop(), i, j, i, UP)
626.                                 Else
627.                                     ' if both left up and right up are available then RNG the direction
628.                                     If (world(LEFT, UP).behavior = matNOTHING) And (world(RIGHT, UP).behavior = matNOTHING) Then
629.                                         If Rnd > .5 Then
630.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, UP)
631.                                         Else
632.                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, UP)
633.                                         End If
634.                                     Else
635.                                         'Check LEFT up
636.                                         If world(LEFT, UP).behavior = matNOTHING Then
637.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, UP)
638.                                         Else
639.                                             'Check RIGHT up
640.                                             If world(RIGHT, UP).behavior = matNOTHING Then
641.                                                 Call move_mat(world(), mat_prop(), i, j, RIGHT, UP)
642.                                             Else
643.                                                 If (world(LEFT, j).behavior = matNOTHING) And (world(RIGHT, j).behavior = matNOTHING) Then
644.                                                     ' if both left  and right  are available then RNG the direction
645.                                                     If Rnd > .5 Then
646.                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
647.                                                     Else
648.                                                         Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
649.                                                     End If
650.                                                 Else
651.                                                     ' Check LEFT
652.                                                     If world(LEFT, j).behavior = matNOTHING Then
653.                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, j)
654.                                                     Else
655.                                                         'Check RIGHT
656.                                                         If world(RIGHT, j).behavior = matNOTHING Then
657.                                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
658.                                                         End If
659.                                                     End If
660.                                                 End If
661.                                             End If
662.                                         End If
663.                                     End If
664.                                 End If
665.                             Case matFIRE:
666.                             Case matDRAIN:
667.                             Case matWATERSOURCE:
668.                             Case matSTONE:
669.                             Case matOIL:
670.                                 If world(i, DOWN).behavior = matNOTHING Or world(i, DOWN).behavior = matFOAM Or world(i, DOWN).behavior = matGAS Then
671.                                     Call move_mat(world(), mat_prop(), i, j, i, DOWN)
672.                                 Else
673.                                     ' if both left down and right down are available then RNG the direction
674.                                     If (world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matFOAM Or world(LEFT, DOWN).behavior = matGAS) and _
675.                                        (world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matFOAM Or world(RIGHT, DOWN).behavior = matGAS) Then
676.                                         If Rnd > .5 Then
677.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
678.                                         Else
679.                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
680.                                         End If
681.                                     Else
682.                                         'Check LEFT DOWN
683.                                         If world(LEFT, DOWN).behavior = matNOTHING Or world(LEFT, DOWN).behavior = matFOAM Or world(LEFT, DOWN).behavior = matGAS Then
684.                                             Call move_mat(world(), mat_prop(), i, j, LEFT, DOWN)
685.                                         Else
686.                                             'Check RIGHT DOWN
687.                                             If world(RIGHT, DOWN).behavior = matNOTHING Or world(RIGHT, DOWN).behavior = matFOAM Or world(RIGHT, DOWN).behavior = matGAS Then
688.                                                 Call move_mat(world(), mat_prop(), i, j, RIGHT, DOWN)
689.                                             Else
690.                                                 If world(i, UP).material = reactWATER Then
691.                                                     Call move_mat(world(), mat_prop(), i, j, i, UP)
692.                                                 Else
693.                                                     If world(LEFT, UP).material = reactWATER Then
694.                                                         Call move_mat(world(), mat_prop(), i, j, LEFT, UP)
695.                                                     Else
696.                                                         If world(RIGHT, UP).material = reactWATER Then
697.                                                             Call move_mat(world(), mat_prop(), i, j, RIGHT, UP)
698.                                                         Else
699.                                                             If (world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matFOAM Or world(LEFT, j).behavior = matGAS Or world(LEFT, j).material = reactWATER) And _
700.                                                                (world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matFOAM Or world(RIGHT, j).behavior = matGAS Or world(RIGHT, j).material = reactWATER) Then
701.                                                                 ' if both left  and right  are available then RNG the direction
702.                                                                 If Rnd > .5 Then
703.                                                                     Call move_mat(world(), mat_prop(), i, j, LEFT, j)
704.                                                                 Else
705.                                                                     Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
706.                                                                 End If
707.                                                             Else
708.                                                                 ' Check LEFT
709.                                                                 If world(LEFT, j).behavior = matNOTHING Or world(LEFT, j).behavior = matFOAM Or world(LEFT, j).behavior = matGAS Or world(LEFT, j).material = reactWATER Then
710.                                                                     Call move_mat(world(), mat_prop(), i, j, LEFT, j)
711.                                                                 Else
712.                                                                     'Check RIGHT
713.                                                                     If world(RIGHT, j).behavior = matNOTHING Or world(RIGHT, j).behavior = matFOAM Or world(RIGHT, j).behavior = matGAS Or world(RIGHT, j).material = reactWATER Then
714.                                                                         Call move_mat(world(), mat_prop(), i, j, RIGHT, j)
715.  
716.                                                                     End If
717.                                                                 End If
718.                                                             End If
719.                                                         End If
720.                                                     End If
721.                                                 End If
722.                                             End If
723.                                         End If
724.                                     End If
725.                                 End If
726.  
727.                         End Select
728.                         If world(LEFT, j).behavior <> matFIRE Then 'Never put fire to sleep
729.                             world(i, j).sleeptime = world(i, j).sleeptime - 1
730.                         End If
731.                     End If
732.                 End If
733.             End If
734.         Next
735.     Next
736.  
737. End Sub
738.  
739. Sub render (world() As tMATERIAL)
740.     Dim i, j As Integer
741.     For j = 1 To SIZE_Y - 1
742.         For i = 1 To SIZE_X - 1
743.             Line (i * SCALE, j * SCALE)-(i * SCALE + (SCALE - 1), j * SCALE + (SCALE - 1)), world(i, j).c, BF
744.             If world(i, j).update > 0 Then
745.                 world(i, j).update = world(i, j).update - 1 ' decrement tick count for next update
746.             End If
747.         Next
748.     Next
749. End Sub
750.  
751. Sub set_mat (world() As tMATERIAL, mat_prop() As tMATERIAL, material As Integer, x As Integer, y As Integer)
752.  
753.     world(x, y) = mat_prop(material)
754.     Call update_lifetime(world(), x, y, cSLEEPTIME) ' wake up neighboring cells
755.  
756. End Sub
757.  
758. Sub move_mat (world() As tMATERIAL, mat_prop() As tMATERIAL, x As Integer, y As Integer, xm As Integer, ym As Integer)
759.     Dim SWAPMat As tMATERIAL
760.     SWAPMat = world(xm, ym)
761.     world(xm, ym) = world(x, y)
762.     world(x, y) = SWAPMat
763.     world(x, y).update = mat_prop(world(x, y).material).update_ticks ' cell has been processed this cycle
764.     world(xm, ym).update = mat_prop(world(xm, ym).material).update_ticks ' cell has been processed this cycle
765.     Call update_lifetime(world(), x, y, cSLEEPTIME) ' wake up neighboring cells
766.     Call update_lifetime(world(), xm, ym, cSLEEPTIME) ' wake up neighboring cells
767. End Sub
768.  
769. Sub update_lifetime (world() As tMATERIAL, x As Integer, y As Integer, l As Integer)
770.     'wake up neighboring cells as they may be affected by nearby changes
771.     For j = -1 To 1
772.         For i = -1 To 1
773.             If x + i > 0 And y + j > 0 And x + i < SIZE_X And y + j < SIZE_Y Then
774.                 If world(i + x, j + y).material > matNOTHING Then
775.                     world(x + i, y + j).sleeptime = l
776.                 End If
777.             End If
778.         Next
779.     Next
780. End Sub
781.  
782. Sub material_init (ms() As tMATERIAL)
783.     Dim i, r, g, b, behavior, update, life As Integer
784.  
785.     Data "air",0,0,0,0,0,-1,"sand",1,1,166,172,127,-1,"water",2,1,67,72,183,-1,"wood",3,1,111,72,0,-1
786.     Data "foam",4,1,255,255,255,-1,"acid",2,4,17,216,22,-1,"residue",1,6,127,67,127,-1,"gas",7,10,128,127,127,-1
787.     Data "fire",8,20,255,64,0,10,"ash",1,4,32,32,32,-1,"acidwater",2,10,6,83,6,-1,"drain",11,4,44,28,28,-1
788.     Data "water source",12,1,44,28,28,-1,"stone",13,1,127,127,127,-1,"oil",14,2,20,20,20,-1
789.     For i = 0 To cNUMOFMATERIALS - 1
790.         Read ms(i).n
791.         Read behavior
792.         Read update
793.         Read r
794.         Read g
795.         Read b
796.         Read life
797.         ms(i).c = _RGB32(r, g, b)
798.         ms(i).behavior = behavior
799.         ms(i).material = i
800.         ms(i).sleeptime = cSLEEPTIME
801.         ms(i).update = update
802.         ms(i).update_ticks = update
803.         ms(i).lifetime = life
804.     Next i
805. End Sub
806.  
807.  
808. Sub handle_mouse (world() As tMATERIAL, mouse As tMOUSE, mat_prop() As tMATERIAL)
809.     Dim w, i, j As Integer
810.     If _MouseInput Then
811.         mouse.position.x = _MouseX: mouse.position.y = _MouseY
812.         mouse.button1 = _MouseButton(1)
813.         mouse.button2 = _MouseButton(2)
814.         mouse.button3 = _MouseButton(3)
815.         mouse.wheel = ((mouse.wheel + _MouseWheel) Mod cNUMOFMATERIALS)
816.     End If
817.     w = Abs(mouse.wheel)
818.     If mouse.button1 Then
819.         If mouse.position.x > 1 And mouse.position.x < SIZE_X * SCALE - 1 And mouse.position.y > 1 And mouse.position.y < SIZE_Y * SCALE - 1 Then
820.             For j = -1 To 1
821.                 For i = -1 To 1
822.                     Call set_mat(world(), mat_prop(), mat_prop(w).material, mouse.position.x / SCALE + i, mouse.position.y / SCALE + j)
823.                 Next
824.             Next
825.         End If
826.     End If
827. End Sub
828.  
829.  
830.  

Title: Re: Cellular Automata Game Mechanic
Post by: NOVARSEG on April 24, 2021, 12:24:08 am

Quote

'if' 'then' 'else' 'end if'

I used to code with ELSE  but found myself thinking in terms of ELSE as if the logic depended on it.  Then when I discovered assembler I found out that ELSE does not really exist.   In assembler it is either one condition or the other you got to be very specific.  The same thing goes for high level languages.

ELSE is strictly implied logic.  It might save some code, but code using ELSE  is harder to read and sometimes creates unintended bugs example:

if var > 100 then
do this

else do that

end if

The ELSE implies   if var <= 100 then do that

but lets say the intention was

if var = 100 then do that

so that is a classic bug created by ELSE.

The proper way to code it is:

if var > 100 then
do this
end if

if var <= 100 then
do that
end if

The code in it's proper form is much easier to read and debug.

Title: Re: Cellular Automata Game Mechanic
Post by: justsomeguy on April 24, 2021, 09:12:22 am

This part of the reason I abandoned this approach.

Cellular automata is scanning your cells and each cell would make a decision on how to move or react based upon its neighbors.

Issues arise when you want to add some randomness to it behavior. For instance you have a sand pile. You drop a grain of sand directly on the very apex of the pile. Which side will it roll down? 'IF THEN ELSE'  it will roll down the side that meets the criteria first. Its difficult to add randomness.

Another issue is when you have multiple criteria that is true and you want to prioritize certain behaviors over others. As build your behavior tree it get more and more tedious modify all the 'IF THEN ELSE' statements.

I've moved to the idea of a look up table that has a priorities of conditions and reactions and if it has multiple criteria that is true and at the same priority, it will pick an action at random. This approach adds flexibility and easy modification. However as you add new materials the table grows exponentially.

Thanks for your feedback!

Text Only | Text with Attachments