# 1. Cтворення й відображення вікна програми

require 'ruby2d'
w=800  # ширина вікна програми
h=450  # висота вікна програми
dh=20  # висота смуги з з елементами керування
r0=4   # радіус зображення ядра
r1=4   # радіус зображення цілі
sf="/usr/share/fonts/truetype/ubuntu/Ubuntu-R.ttf" # адреса використаного шрифту
set title:"Гра «Постріл гармати»",                 # параметри вікна ігрового поля
    background:"#96C8FF",
    width:  w,
    height: h

# 2. Cтворення й відображення написів, "полів введення" й "кнопки" з написом "Fire!"
te = [] # список текстів у "полях введення" (спочатку порожній)
r  = Rectangle.new(x: 0, y: 0, width: w, height: dh, z: 0, color: "#DDDDDD")
tc = Text.new("Target coordinates", x:5, y:1, z:1, size: 16, font: sf, color:"black")

bx = Rectangle.new(x: 150, y: 0, width: 35, height: dh,   z: 1, color: "#999999")
fx = Rectangle.new(x: 151, y: 1, width: 33, height: dh-2, z: 1, color: "#FFFFFF")
te[0] = Text.new("|",x: 151, y: 1, z:1, size: 16, font: sf, color:"black")

by = Rectangle.new(x: 195, y: 0, width: 35, height: dh,   z: 1, color: "#999999")
fy = Rectangle.new(x: 196, y: 1, width: 33, height: dh-2, z: 1, color: "#FFFFFF")
te[1] = Text.new("",x: 196, y: 1, z:1, size: 16, font: sf, color:"black")

ta = Text.new("Angle", x:300, y:1, z:1, size: 16, font: sf, color:"black")
ba = Rectangle.new(x: 350, y: 0, width: 35, height: dh,   z: 1, color: "#999999")
fa = Rectangle.new(x: 351, y: 1, width: 33, height: dh-2, z: 1, color: "#FFFFFF")
te[2] = Text.new("",x: 351, y: 1, z:1, size: 16, font: sf, color:"black")

tv = Text.new("Velosity", x:430, y:1, z:1, size: 16, font: sf, color:"black")
bv = Rectangle.new(x: 495, y: 0, width: 40, height: dh,   z: 1, color: "#999999")
fv = Rectangle.new(x: 496, y: 1, width: 38, height: dh-2, z: 1, color: "#FFFFFF")
te[3] = Text.new("",x: 496, y: 1, z:1, size: 16, font: sf, color:"black")

bb = Rectangle.new(x: 655, y: 0, width: 45, height: dh,   z: 1, color: "#999999")
b1 = Rectangle.new(x: 656, y: 1, width: 43, height: dh-2, z: 1, color: "#FFFFFF")
b2 = Rectangle.new(x: 658, y: 3, width: 39, height: dh-6, z: 1, color: "#F0F0F0")
tv = Text.new("Fire!", x:660, y:1, z:1, size: 16, font: sf, color:"black")

# 3. Початкові значення і зображення ядра, цілі й вибуху за межами ігрового поля
f = 0 # номер області клацання лівою кнопкою миші:
      # 0 - «поле введення» абсциси цілі
      # 1 - «поле введення» ординати цілі
      # 2 - «поле введення» кута нахилу ствола гармати
      # 3 - «поле введення» початкової швидкості
      # 4 - "кнопка" з написом "Fire!"
      # 5 - поза межами елементів керування
i = 0 # стан гри:
      # 0 - введення значень параметрів і підготовка до відображення руху
      # 1 - відображення руху
      # 2 - пауза перед новим введенням параметрів    
c = ['0','1',"2","3","4","5","6","7","8","9","."] # список цифр і десяткової крапки
g   =9.8  # прискорення земного тяжіння
a   =  0  # кут нахилу гармати
v0  =  0  # абсолютна величина (модуль) початкової швидкості
v0x =  0  # складова початкової швидкості по горизонталі
v0y =  0  # складова початкової швидкості по вертикалі
x0  =  0  # початкова  абсциса центра ядра
y0  =  h  # початкова ордината центра ядра
x1  =  0  # абсциса  центра цілі
y1  =  0  # ордината центра цілі
x   =  0  # поточна абсциса  центра ядра
y   =  h  # поточна ордината центра ядра
t   =  0  # поточний час моделі
dt  =0.01666666666666666667 # приріст часу у секундах при оновленні 60 разів на секунду
tend=100 # верхня межа часу демонстрації руху в секундах 


# 4. Зображення ядра, цілі, вибуху й оголошення про некоректність значень параметрів за межами ігрового поля
i0   = Image.new("ball.png", x: w, y: h, z:0, width: 2*r0, height: 2*r0, color:"black")
i1   = Image.new("ball.png", x: w, y: h, z:0, width: 2*r1, height: 2*r1, color:"red")
boom = Image.new("boom.png", x: w, y: h, z:0, width: 155,  height: 140,  color:"white")
ba   = Rectangle.new(x: w, y: h/2, width: w, height: 32, z: 0, color: "white")
ta   = Text.new("Input valid values: x in (1, 800), y in (0, 430), a in (0, 90), v in (0, 900).",
            x:w, y:h/2, z:1, size: 26, font: sf, color:"red")

# 5. Обробник події натискання лівої кнопки миші ігровому полі
on :mouse_down do |e|
  f0=f
  k = e.x
  j = e.y
  if    (j<dh) && (fx.x.to_i < k) && (k < fx.x.to_i + fx.width.to_i) then f = 0
  elsif (j<dh) && (fy.x.to_i < k) && (k < fy.x.to_i + fy.width.to_i) then f = 1 
  elsif (j<dh) && (fa.x.to_i < k) && (k < fa.x.to_i + fa.width.to_i) then f = 2
  elsif (j<dh) && (fv.x.to_i < k) && (k < fv.x.to_i + fv.width.to_i) then f = 3
  elsif (j<dh) && (bb.x.to_i < k) && (k < bb.x.to_i + bb.width.to_i) then f = 4
                                                                     else f = 5
  end
  if i==0 
    if (f0<4) then te[f0].text=te[f0].text[0,te[f0].text.size-1] end
    if (f <4) then te[f].text+="|" end
  end
end

# 6. Обробник події натискання клавіші клавіатури на етапі введення чи зміни значень параметрів:
on :key_down do |e|
  if i==0
    k=e.key
    if (f<4) && (c.index(k) != nil) # якщо у "полі" менше 3 цифр і натиснуто клавішу з цифрою
      if (te[f].text.size<4) then te[f].text=te[f].text[0,te[f].text.size-1]+k.to_s+"|" end
    elsif (k=="backspace") && ((1<te[f].text.size)) # якщо натиснуто клавішу backspace
      te[f].text=te[f].text[0,te[f].text.size-2]+"|"
    elsif k=="tab"                                  # якщо натиснуто клавішу табуляції
      f0=f
      f=(f+1)%4
      if (f0<4) then  te[f0].text=te[f0].text[0,te[f0].text.size-1] end
      if (f <4) then  te[f].text+="|" end
    end
  end
end

update do
  case i  # 7. Підготовка до відображення руху ядра
    when 0
      if (f==4)
        x1=te[0].text.to_f
        y1=te[1].text.to_f
        a =te[2].text.to_f
        v0=te[3].text.to_f
        if !((0<x1) && (x1<800) && (0<y1) && (y1<430) &&
             (0<a)  &&  (a<90)  && (0<v0) && (v0<900))
          ta.x = 5
          ba.x = 0
        else
          ta.x = w
          ba.x = w
          tv.text = "New"
          t=0
          a=a*3.14159265358979323846/180 # перехід до радіанної міри кута нахилу
          v0x= v0*Math.cos(a)
          v0y=-v0*Math.sin(a)
          i0.x=x0
          i0.y=y0
          i1.x=x1
          i1.y=y1
          f=5
          i=1
        end
      end
 
# 8. Відображення руху ядра
    when 1
      x = x0 + v0x*t           # обчислення поточних координат центра ядра
      y = y0 + v0y*t + g*t*t/2
      i0.x = x-r0
      i0.y = y-r0
      if ((x-x1)*(x-x1)+(y-y1)*(y-y1) < (r0+r1)*(r0+r1))
        boom.x=(x+x1)/2-76
        boom.y=(y+y1)/2-70
        i=2
      end
      if ((w<x) || (y<0))
        i=2
      end

# 9. Перемикання на нову гру
    when 2
      if (f == 4)
        i0.x=w
        i0.y=h
        i1.x=w
        i1.y=w
        boom.x=w
        boom.y=h
        tv.text = "Fire!"
        f=0
        te[0].text+="|"
        i=0
      end
  end
  t+=dt
end
show # показ вікна програми