-- horizontal burn alt (memory bug fixed)
-- alexthescott
-- 9/2/21
--p={8,136,130,11,139,131,12,140,129}
p={7,134,133,14,136,141,13,141,1}
pal(p,1)
-- set btn delay
poke(0x5f5d, 30)
function new_screen()
s={}
for i=0,128 do
add(s,i)
end
return s
end
function new_beam(c)
if #screen<1 then
screen=new_screen()
global_index+=3
global_index%=9
end
point=screen[1+rnd(#screen)\1]
del(screen,point)
b={}
b.c=c
b.d=rnd(2)\1
-- left, right
if b.d==0 then
b.x=127
b.y=point
b.dx=-2
else
b.x=0
b.y=point
b.dx=2
end
b.draw=function(self)
pset(self.x,self.y,self.c)
pset(self.x-1,self.y,self.c)
end
b.update=function(self)
self.x+=self.dx
end
b.destroy=function(self)
if self.x<0 or self.x>129 then
del(beams,self)
end
end
add(beams,b)
end
function burn()
for p=0,256 do
x=rnd(128)\1
y=rnd(128)\1
pc=pget(x,y)
if pc!=0 and pc%3!=0 then
if rnd(2)\1==0 then
pset(x,y,pc+1)
else
pset(x,y+1,pc+1)
pset(x,y-1,pc+1)
end
elseif rnd(3)\1==0 then
pset(x,y,0)
end
end
end
screen=new_screen()
beams={}
global_index=1
cls()
::♥::
if t()<2 then
print("horizontal burn alt",26,64,1)
else
burn()
if t()%0.125==0 then
for i=1,2 do
new_beam(global_index)
end
end
-- diy beam
if btnp(4) or btnp(5) then
for i=1,4 do
new_beam(global_index)
end
end
for b in all(beams) do
b:draw()
b:update()
b:destroy()
end
flip()
end
goto ♥
