LaserBlast Repository

MKDIR laserblast
MKFIL laserblast/laserblast
WRITE 395
--[[
	Laser Blast

	Inspired by Space Invaders, Astro Smash and a bit of Arkanoid
	Destroy falling asteroids and collect powerups

	Written by: Nitrogen Fingers
]]--

local version = 1.0
local reponame = "Laser Blast"
local requiresColour = false
if requiresColour then
	print("This game can only be played on an Advanced Computer.")
end

local function displayNitrosoftTitle()
	shell.run("clear")
	local _w,_h = term.getSize()
	for i=1,math.random(1,10)+10 do
		term.setCursorPos(math.random(1,_w), math.random(1,_h))
		term.setTextColour(colours.yellow)
		term.write(".")
	end
	local _t1,_t2 = "nitrosoft", "games"
	term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2))
	if term.isColour() then term.setTextColour(colours.blue) end
	term.write(_t1)
	term.setCursorPos(math.floor(_w/2-#_t2/2),math.floor(_h/2)+1)
	term.setTextColour(colours.white)
	term.write(_t2)
	term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2)+2)
	if term.isColour() then term.setTextColour(colours.red) end
	term.write(string.rep("-",#_t1*2))
	if term.isColour() then
		term.setBackgroundColour(colours.green)
		term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-2)
		term.write("  ")
		term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-1)
		term.write("  ")
		term.setBackgroundColour(colours.lime)
		term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2)-1)
		term.write("  ")
		term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2))
		term.write("  ")
	end
	term.setBackgroundColour(colours.black)
	term.setTextColour(colours.white)
	term.setCursorPos(1,_h)
	term.write("v"..version)
	os.pullEvent("key")
end
displayNitrosoftTitle()

local w,h = term.getSize()
local plpos = math.floor(w/2)

--music stuff
local minterval = 1
local mtimer = 1
local left = false

local level = 1
local score = 0
local gameover=false
local killc = 0

--x,y,dir
local projlist = {}
--x,y,intvspeed,dtimer
local baddylist = {}
local btimer = 0
local bintv = 1
local utime = 0.05
local bsmp = 6
local powerup = 0

--Landscape and stars
local stars = {}
for i=1,math.random()*10+10 do
  stars[i] = { x = math.ceil(math.random()*w),
    y = math.ceil(math.random() * h-8) }
end
local landscape = {
  [6]="                       _____________              ";
  [5]="          _______     /             \\_____        ";
  [4]="         /       \\___/____                \\_________";
  [3]="        /                 \\                      ";
  [2]="       /                   \\_________               ";
  [1]="______/                              \\______________";
}

function drawHeader()
  if term.isColour() then term.setTextColour(colours.white) end
  term.setCursorPos(5, 1)
  term.write("Score: "..score)
  if score~=0 then term.write("00") end
  local lstr = "Level: "..level
  term.setCursorPos(w-#lstr-5,1)
  term.write(lstr)

  if powerup > 0 then
    local pstr = "POWERUP"
	term.setCursorPos(w/2 - #pstr/2,1)
	if term.isColour() then term.setTextColour(colours.cyan) end
	term.write(pstr)
  end
end

function drawPlayer()
  if term.isColour() then term.setTextColour(colours.white) end
  term.setCursorPos(plpos-1, h-1)
  term.write("@@@")
end

function drawProjectile(proj)
  if term.isColour() then term.setTextColour(colours.red) end
  term.setCursorPos(proj.x, proj.y)
  term.write("|")
end

function drawVacance(x,y)
  term.setCursorPos(x, y)
  for _,baddy in pairs(baddylist) do
    if baddy.x == x and baddy.y == y and baddy.dtimer > 0 then
      drawBaddie(baddy)
   	  return
	end
  end

  if y >= h-8 and y <= h-3 then
    if term.isColour() then term.setTextColour(colours.lime) end
    term.write(string.sub(landscape[h - y - 2], x, x))
  elseif y < h-8 then
	for i=1,#stars do
	  if x == stars[i].x and y == stars[i].y then
	    if term.isColour() then term.setTextColour(colours.yellow) end
	    term.write(".")
		return
      end
	end
	term.write(" ")
  else
	term.write(" ")
  end
end

function drawBaddie(baddy)
  term.setCursorPos(baddy.x, baddy.y)
    if baddy.dtimer==0 then
      if baddy.pup then
        if term.isColour() then term.setTextColour(colours.blue) end
        term.write("P")
      elseif baddy.frag then
        if term.isColour() then term.setTextColour(colours.brown) end
        term.write("*")
      else
        if term.isColour() then term.setTextColour(colours.brown) end
        term.write("O")
      end
    else
      if term.isColour() then term.setTextColour(colours.orange) end
      term.write("#")
    end
end

--This now only needs to be called once. Awesome!
function drawWorld()
  drawLandscape()
  drawPlayer()
  drawHeader()
end

function drawLandscape()
  if term.isColour() then
    term.setTextColour(colours.yellow)
  end
  for i=1,#stars do
    term.setCursorPos(stars[i].x, stars[i].y)
    term.write(".")
  end

  term.setCursorPos(1,h)
  local land = string.rep("-", w)
  if term.isColour() then
    term.setTextColour(colours.green)
  end
  term.write(land)
  if term.isColour() then
    term.setTextColour(colours.lime)
  end

  for y,line in ipairs(landscape) do
	term.setCursorPos(1,h-y-2)
	term.write(line)
  end
end

function updateWorld()
  --The music stuff
  redstone.setOutput("back", false)
  mtimer=mtimer-utime
  if mtimer<=0 then
    mtimer = minterval
    if left then
      redstone.setOutput("left", true)
      redstone.setOutput("right", false)
    else
      redstone.setOutput("left", false)
      redstone.setOutput("right", true)
    end
    left = not left
  end

  local i=1
  while i<=#projlist do
	drawVacance(projlist[i].x, projlist[i].y)
    projlist[i].y = projlist[i].y+projlist[i].dir
	if projlist[i].y <= 1 or projlist[i].y > h-1 then
      table.remove(projlist,i)
      i=i-1
    else drawProjectile(projlist[i]) end
    i=i+1
  end
  i=1
  while i<=#baddylist do
    local baddy = baddylist[i]
    baddy.timer=baddy.timer+utime

    if baddy.y==h-1 and math.abs(baddy.x-plpos)<2 then
      if baddy.pup then
    	powerup = 10
		drawPlayer()
      else
        gameover = true
        redstone.setOutput("back", true)
      end
    end

    j=1
    while j<=#projlist do
      local proj = projlist[j]
      if baddy.x==proj.x and math.abs(baddy.y-proj.y)<2
      and baddy.dtimer==0 then
        baddy.dtimer = 0.5
		drawBaddie(baddy)
		drawVacance(projlist[j].x, projlist[j].y)
        table.remove(projlist,j)
        j=j-1
        score=score+5
        redstone.setOutput("back", true)
        killc=killc+1
        if killc>5+(level*5) and level<10 then levelUp() end
		drawHeader()

        --Adds fragments
        if math.random(1, 5) == 2 and not baddy.frag then
          table.insert(baddylist, {
            x = baddy.x-1,
            y = baddy.y,
            pup = false,
            frag = true,
            timer = 0,
            dtimer = 0,
            speed = baddy.speed/2
          })
		  drawBaddie(baddylist[#baddylist])
          table.insert(baddylist, {
            x = baddy.x+1,
            y = baddy.y,
            pup = false,
            frag = true,
            timer = 0,
            dtimer = 0,
            speed = baddy.speed/2
          })
		  drawBaddie(baddylist[#baddylist])
        end
      end
      j=j+1
    end

    if baddy.timer>baddy.speed and baddy.dtimer==0 then
	  drawVacance(baddy.x, baddy.y)
      baddy.y=baddy.y+1
      if baddy.y==h then
        table.remove(baddylist,i)
        i=i-1
        score=score-1
		drawHeader()
      else
	    drawBaddie(baddy)
        baddy.timer = 0
	  end
    elseif baddy.dtimer>0 then
      baddy.dtimer=baddy.dtimer-utime
      if baddy.dtimer<=0 then
        drawVacance(baddy.x, baddy.y)
		table.remove(baddylist,i)
        i=i-1
      end
    end
    i=i+1
  end
  btimer=btimer+utime
  if btimer > bintv then
    table.insert(baddylist, {
      x = math.random(w/4, 3*(w/4)),
      y = 2,
      speed = utime*bsmp,
      timer = 0,
      dtimer = 0,
      pup = math.random(1,20)==5,
      frag = false
    })
	drawBaddie(baddylist[#baddylist])
    btimer=0
  end
end

function levelUp()
  level=level+1
  bintv=bintv-0.10
  bsmp=bsmp-0.5
  killc=0
  minterval=minterval-0.10
end

function updatePlayer(key)
  if powerup>0 then
    powerup = powerup-utime
  end

  if key==203 and plpos>1 then
	term.setCursorPos(plpos+1,h-1)
	term.write(" ")
    plpos=plpos-1
	drawPlayer()
  elseif key==205 and plpos<w then
	term.setCursorPos(plpos-1,h-1)
	term.write(" ")
    plpos=plpos+1
	drawPlayer()
  elseif key==57 then
    if powerup>0 then
      table.insert(projlist, {
        dir = -1,
        x = plpos+1,
        y = h-2
      })
	  drawProjectile(projlist[#projlist])
      table.insert(projlist, {
        dir = -1,
        x = plpos-1,
        y = h-2
      })
	  drawProjectile(projlist[#projlist])
    else
      table.insert(projlist, {
        dir = -1,
        x = plpos,
        y = h-2
      })
	  drawProjectile(projlist[#projlist])
    end
  end
end

term.setBackgroundColour(colours.black)
term.clear()
drawWorld()
local wtimer os.startTimer(utime)
while not gameover do
  local e, v = os.pullEvent()

  if e=="timer" then
    updateWorld()
    wtimer = os.startTimer(utime)
  elseif e=="key" then
    if v==28 then break end
    updatePlayer(v)
  end
end

term.setCursorPos(plpos-1, h-1)
if term.isColour() then term.setTextColour(colours.red) end
term.write("###")
local go = "Game Over!"
term.setCursorPos(w/2 - #go/2, 10)
if term.isColour() then term.setTextColour(colours.white) end
term.write(go)
term.setCursorPos(1,h)
sleep(5)
redstone.setOutput("back", false)
term.clear()