bad portal

-- bad portal -- alexthescott -- 9/8/20

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

function dist(x1,y1,x2,y2) return sqrt((x1-x2)^2+(y1-y2)^2) end

function new_particle(c) p={} p.x=64 p.y=64 p.xt=64 p.yt=64 p.a=rnd(1) p.oc=c p.c=c p.dx=cos(p.a)/3 p.dy=sin(p.a)/3

p.update=function(self)
	self.x+=self.dx
	self.y+=self.dy
	
	self.xt+=self.dx*0.8
	self.yt+=self.dy*0.8
	
	self.dx*=1.05
	self.dy*=1.05
	
	d=dist(self.x,self.y,64,64)
	
	if d>52 then
		self.c=self.oc+2
	elseif d>=32 then
		self.c=self.oc+1
	end 
end

p.draw=function(self)
	line(self.x,self.y,self.xt,self.yt,self.c)
end

p.destroy=function(self)
	return self.xt<=0 or self.xt>=128 or
		self.yt<=0 or self.yt>=128
end

p.debug=function(self)
	rectfill(0,0,10,10,0)
	print(self.d,0,0,7)
end

return p

end

function new_orbit(c) o={} o.s=1 o.show=90+rnd(20)\1 o.r=100 o.a=rnd(1) o.ac=rnd(1) o.av=0.005 o.c=c o.x=64+cos(o.a)*o.r/2 o.y=64+sin(o.a)*o.r/2

o.update=function(self)
	self.a+=sin(self.ac)/200
	self.ac+=self.av
	
	if self.ac>=1 then
		self.tc=0
	end
	
	self.x=64+cos(self.a)*self.r/2
	self.y=64+sin(self.a)*self.r/2
end

o.draw=function(self)
	circfill(self.x,self.y,self.s,self.c)
end

o.new_c=function(self,c)
	self.c=c
end

return o

end

function burn() for i=1,1200 do x=rnd(128)\1 y=rnd(128)\1 pc=pget(x,y) if pc%3!=0 then nc=rnd(2)\1 pset(x,y,pc+nc) pset(x,y-2,pc+nc) pset(x,y+2,pc+nc) pset(x-2,y,pc+nc) pset(x+2,y,pc+nc) end pset(x,y,0) end end

global_color=7 fc=0

particles={}

orbits={} for i=1,10 do add(orbits,new_orbit(global_color)) end

-- expanding lines, expanding circle ring_r=50 border_r=10

cls() ::♥:: if t()<2 then print("bad portal",44,64,7) else burn()

if fc>=2000 then
	fc=0
end

fc+=1

if fc%2==0 then
	for i=1,8 do
		add(particles,new_particle(global_color))
	end
end

if fc%500==0 then
	global_color+=3
	global_color%=9
	for o in all(orbits) do
		o:new_c(global_color)
	end
end

for p in all(particles) do
	p:update()
	p:draw()
	if p:destroy() then
		del(particles,p)
	end
end

for o in all(orbits) do
	o:update()
	if fc%o.show<=80 then
		o:draw()
	end
end

if fc%500>400 and fc%500<425 then
	circ(64,64,ring_r,global_color)
	ring_r+=0.25
else
	ring_r=50
end

if fc%500>300 and fc%500<350 then
	-- top left
	line(4,4,4+border_r,4)
	line(4,4,4,4+border_r)
	
	-- top right
	line(124,4,124-border_r,4)
	line(124,4,124,4+border_r)
	
	-- bottom right
	line(124,124,124-border_r,124)
	line(124,124,124,124-border_r)
		
	-- bottom left
	line(4,124,4+border_r,124)
	line(4,124,4,124-border_r)
	
	border_r+=0.75
else
	border_r=10
end

circfill(64,64,2,0)

end flip() goto ♥