Jump to content

Forest fire: Difference between revisions

m (→‎{{header|JavaScript}}: fix bogus markup)
Line 3,822:
len f[] 102 * 102
len p[] len f[]
set_backgroundbackground 100
clear
clear_screen
for r range 100
for c range 100
Line 3,832:
.
.
timer 0
set_timer 0
#
subr show
Line 3,840:
h = f[i]
if h <> p[i]
move_penmove c + 0.5 r + 0.5
if h = 0
set_colorcolor 100
draw_circlecircle 0.6
elif h = 1
set_colorcolor 151
draw_circlecircle 0.5
else
set_colorcolor 9 * 100 + (18 - 2 * h) * 10
draw_circlecircle 0.5
.
.
Line 3,884:
call show
call update
set_timertimer 0.2
.</lang>
 
2,083

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.