-- random walk -- alexthescott -- 9/21/21 -- https://w.wiki/46ny

p={8,136,130,11,139,131,12,140,129} pal(p,1)

function new_walk(col) w={} w.c=col w.x=64 w.y=64

w.draw=function(self)		
	pset(self.x,self.y,self.c+1)
end

w.update=function(self)
	local d=rnd(4)\1
	if d==0 then
		self.x+=2
	elseif d==1 then
		self.y+=1
	elseif d==2 then
		self.x-=2
	else
		self.y-=1
	end
	
	if self.x<=0 then
		self.x=126
	elseif self.x>=128 then
		self.x=0
	end
	
	if self.y<=0 then
		self.y=126
	elseif self.y>=128 then
		self.y=0
	end
end

add(walks,w)

end

function burn() for p=0,1200 do x=rnd(128)\1 y=rnd(128)\1 pc=pget(x,y) coin=rnd(2)\1 if pc!=0 and pc%3!=0 then if rnd(2)\1==0 then pset(x,y+1,pc+coin) pset(x,y+coin+1,pc+coin) end end if rnd(1)<0.25 then pset(x,y,0) end end end

fc=0 global_color=1+3*(rnd(3)\1) walks={} for i=1,80 do new_walk(global_color) end

cls() ::♥:: if t()<2 then print("random walk",42,64,global_color) else burn()

fc+=1

if fc%800==0 then
	global_color+=3
	global_color%=9	
	for w in all(walks) do
		w.c=global_color
	end
	fc=0
end

for w in all(walks) do
	w:draw()
	w:update()
end

end flip() goto ♥