OC-HBM-Missile_it

local component = require("component")
local side = require("sides")
local term = require("term")

local red = {}
local C = 1
for add, n in component.list("redstone") do
  red[C] = component.proxy(add)
  C = C + 1
end
if (#red >= 1) then
  red = red[1]
else
  red = nil
end

local X, Y, W, H, Xt, Yt, D, x0, y0, r0
local matrix = {}
local siti = {}
local basi = {}
local b_missile, can_missile, gud_missile, des_missile, ful_missile
local b_launch
local lati = {}

lati.check = side.top
lati.wait = side.north
lati.silo = side.east
lati.launch = side.west

local n1 = {"Alpha", "Bravo", "Charlie", "Delta", "Echo"}
local n2 = {"Romeo", "Tango", "Golf", "Oscar", "Foxtrot"}

W, H = term.getViewport()


-- Disegno del Cerchio
local function Cerchio(mat, r, x, y, v)
  mat[r+x][r+y] = v
  mat[r-x][r+y] = v
  mat[r+x][r-y] = v
  mat[r-x][r-y] = v
  mat[r+y][r+x] = v
  mat[r-y][r+x] = v
  mat[r+y][r-x] = v
  mat[r-y][r-x] = v
end

-- Genera un punto casuale nella circonferenza
local function Bomba(mat, r, v)
  local x, y

  repeat
    x = math.random(2*r+1)
    y = math.random(2*r+1)
  until ((x-r-1)^2 + (y-r-1)^2 < r^2-1 and mat[y][x] ~= v)

  mat[y][x] = v

  return x, y
end


-- Reset della redstone
if (red ~= nil) then
  for i=0,#side-1,1 do
    red.setOutput(side[side[i]], 0)
  end
end

-- Componenti
C = 1
for add, n in component.list("ntm_launch_pad") do
  basi[C] = component.proxy(add)
  C = C + 1
end
for add, n in component.list("ntm_custom_launch_pad") do
  basi[C] = component.proxy(add)
  C = C + 1
end

local boom = #basi
local lunghezza = math.floor(W / 7)
local raggio = math.floor(lunghezza / 2)

if (boom <= 0) then
  error("cacati in culo")
end

-- Inserimento coordinate e raggio bersaglio
repeat
  term.clear()
  term.setCursor(1, 1)
  term.write("> Inserire la coordinata X(X): ")
  x0 = tonumber(io.read())
  term.write("> Inserire la coordinata Y(Z): ")
  y0 = tonumber(io.read())
  term.write("> Inserire il raggio: ")
  r0 = tonumber(io.read())
until (x0 ~= nil and y0 ~= nil and r0 ~= nil)
r0 = math.abs(r0)
print()
Xt, Yt = term.getCursor()

-- Creazione delle righe
for i=1,lunghezza+1,1 do
  matrix[i] = {}
end

-- Impostazione e reset della matrix
for y=1,lunghezza+1,1 do
  for x=1,lunghezza+1,1 do
    matrix[y][x] = 0
  end
end

-- Calcolo della circonferenza
X = 0
Y = raggio
D = 3 - 2 * raggio
Cerchio(matrix, raggio+1, X, Y, -1)
while (Y >= X) do
  if (D > 0) then
    Y = Y - 1
    D = D + 4 * (X - Y) + 10
  else
    D = D + 4 * X + 6
  end
  X = X + 1
  Cerchio(matrix, raggio+1, X, Y, -1)
end

math.randomseed(os.time())
-- Bombardé!
for i=1,boom,1 do
  siti[i] = {Bomba(matrix, raggio+1, 1)}
  siti[i][1] = math.floor(x0 + (siti[i][1] - raggio - 1) / raggio * r0)
  siti[i][2] = math.floor(y0 + (siti[i][2] - raggio - 1) / raggio * r0)
end

-- Stampa la matrix
for y=1,lunghezza+1,1 do
  for x=1,lunghezza+1,1 do
    if (matrix[y][x] == -1) then
      C = "@"
    elseif (matrix[y][x] == 1) then
      C = "X"
    else
      C = " "
    end
    term.write(C .. " ")
  end
  print()
end
X, Y = term.getCursor()

-- Stampa i siti
print()
for i=1,#siti,1 do
  term.setCursor((lunghezza+1)*2+1, i+Yt)
  print(("> Sito n. %2d [%15s] -> (X: %5d, Y: %5d)"):format(i, n1[math.random(#n1)].." "..n2[math.random(#n2)], siti[i][1], siti[i][2]))
end

-- Settaggio delle coordinate (basi custom)
for i=1,#basi,1 do
  if (basi[i].type == "ntm_custom_launch_pad") then basi[i].setCoords(siti[i][1], siti[i][2]) end
end

-- Stampa le basi ed attende che siano tutte disponibili
if (red ~= nil) then
  red.setOutput(lati.check, 15)
end
repeat
  b_launch = true
  for i=1,#basi,1 do
    if (basi[i].type == "ntm_custom_launch_pad") then
      can_missile, gud_missile, des_missile, ful_missile = basi[i].getLaunchInfo()
      b_missile = can_missile and gud_missile and des_missile and ful_missile
      b_launch = b_launch and b_missile
    else
      b_missile = basi[i].canLaunch()
      b_launch = b_launch and b_missile
    end

    term.setCursor((lunghezza+1)*2+1, i+#siti+Yt+1)
    print(("> Base n. %2d -> %s     "):format(i, (b_missile) and "Pronto" or "Attesa"))
  end
  os.sleep(1.0)
until (b_launch)

-- Fase finale
if (red ~= nil) then
  red.setOutput(lati.check, 0)
  red.setOutput(lati.wait, 15)
end
term.setCursor(X, Y)
term.write("\n> Apertura silos... ")
if (red ~= nil) then
  red.setOutput(lati.silo, 15)
end
Xt, Yt = term.getCursor()
for i=5.0,0.0,-0.1 do
  term.setCursor(Xt, Yt)
  print(("%.1fs  "):format(i))
  os.sleep(0.1)
end
print("> Tutto pronto!")
term.write("> Decollo? (y/n): ")

if (io.read() ~= "y")  then
  if (red ~= nil) then
    red.setOutput(lati.silo, 0)
    red.setOutput(lati.wait, 0)
  end
  error("uscita")
end

if (red ~= nil) then
  red.setOutput(lati.wait, 0)
  red.setOutput(lati.launch, 15)
end
print("\n> SEQUENZA DI LANCIO INIZIATA")
term.write("> TESTATE LANCIATE IN T-")
Xt, Yt = term.getCursor()
for i=10,0,-1 do
  term.setCursor(Xt, Yt)
  print(i .. "   ")
  os.sleep(1.0)
end

for i=1,#basi,1 do
  b_launch = (basi[i].type == "ntm_custom_launch_pad") and basi[i].launch() or basi[i].launch(siti[i][1], siti[i][2])
  print(("> Base n. %d -> %s"):format(i, (b_launch) and "Successo" or "Errore"))
  os.sleep(1.0)
end