LÖVE

Code: Select all

function love.load()

	gr = love.graphics
	getW = gr.getWidth()
	getH = gr.getHeight()
	
	require "stars"
	require "comets"
end

function love.update(dt)

	stars:update()
	if comet.e then comet:update(dt) end
end

function love.draw()

	stars:draw()
	if comet.e then comet:draw() end
end

function love.keypressed(key)

	if key == "escape"
	or key == "return" then
	
		love.event.push("quit")
	end
	
	if key == "tab"
	or key == " " then
	
		comet:new()
	end
end

Code: Select all

stars = {}

for i = 1, 0x400 do

	stars[i] = {}
	
	stars[i].x, stars[i].y, stars[i].n =
	
		math.random(0, getW),
		math.random(0, getH),
		math.random(0, 0xff)
end

function stars:update(dt)

	for k, _ in ipairs(self) do
	
		local m = math.random(-0x08, 0x08)
	
		self[k].n = self[k].n + m
		
		if self[k].n < 0x10 then
		
			self[k].n = 0x10
			
		elseif self[k].n > 0xff then
		
			self[k].n = 0xff
		end
	end
end

function stars:draw()

	for k, _ in ipairs(self) do
	
		local c = self[k].n
		gr.setColor(0xff, 0xff, 0xff, c)
		gr.point(self[k].x, self[k].y)
	end
end

Code: Select all

comet = {}

for i = -10, 10, 4 do

	table.insert(comet, i)
end

function comet:new()

	self.e = true
	
	self.dx = self[math.random(#self)]
	self.dy = self[math.random(#self)]

	if math.random(2) > 1 then

		self.x = getW/2 - self.dx/math.abs(self.dx) * getW/2
		self.y = math.random(0, getH)
	else

		self.x = math.random(0, getW)
		self.y = getH/2 - self.dy/math.abs(self.dy) * getH/2
	end
end

function comet:update(dt)
	
	self.x = self.x + self.dx * dt * 0x40
	self.y = self.y + self.dy * dt * 0x40

	if self.x < - getW	or self.x > getW * 2
	or self.y < - getW	or self.y > getH * 2 then
	
		self.e = nil
	end
end

function comet:draw()

	for i = 16, 1, -1 do
	
		local c = 0x80/i
		
		gr.setColor(0xff, 0xff, 0xff, c)
		
		gr.line(
			self.x, self.y,
			self.x - i * self.dx, self.y - i * self.dy
		)
	end
end