#include "../../../Lib/r/vml_ui.r"
# 接方块 —— 用 **R** 写的手机游戏
# Catch -- a mobile game written in **R**
#
# 玩法：左右方向键移动底部挡板，把落下来的球弹回去；没接住就结束。每接住一次 +10 分。
# Gameplay: the left/right arrow keys move the paddle at the bottom and bounce the falling ball back; missing it ends the round. Each catch = +10 points.
#
# ◆ 手机那套 UI
# ◆ The mobile UI set
#
# 开窗 / 绘图 / 输入 / 定时器是 C 写的（`Lib/shared/src/vmlui.c` → `vmlui.vml`），
# Window opening / drawing / input / timers are written in C (`Lib/shared/src/vmlui.c` -> `vmlui.vml`),
# 由 `vmltool.config.xml` 的 `<Language Name="r" Libs="vmlui.vml">` 挂上来。
# pulled in by `<Language Name="r" Libs="vmlui.vml">` in `vmltool.config.xml`.
#
# ◆ 修掉的那条前端缺陷（2026-09-17）
# ◆ The frontend defect that was fixed (2026-09-17)
#
# `GenerateFuncDef` 此前是**写死的 `EmitPrologueWithFrame(64)`** —— 每个函数只给 64 字节帧，
# `GenerateFuncDef` used to be a **hard-coded `EmitPrologueWithFrame(64)`** -- every function got only a 64-byte frame,
# 而局部量按 `[R12-4]、[R12-8]…` 分配、`R12 == R13`，**超出的部分直接写进调用方的帧**。
# while locals were allocated as `[R12-4]`, `[R12-8]`, ... with `R12 == R13`, so **anything beyond that was written straight into the caller's frame**.
# 有意思的是同一个文件里，**顶层**（`GenerateCode`）早就改成了「序言占位 + 生成完回填」，
# Interestingly, in the same file the **top level** (`GenerateCode`) had already been changed to "reserve a prologue placeholder + backfill when done",
# 只有函数那条路还留着写死的 64 —— 两个口径并存。
# and only the function path still kept the hard-coded 64 -- two conventions coexisting.
# 现已统一成回填式；判据是一个含 20 个局部量（80 字节 > 64）的函数：修前崩、修后得 210 ✓。
# It is now unified to the backfill form; the criterion is a function with 20 locals (80 bytes > 64): it crashed before the fix and returns 210 after it.
# 骨架照不出来，因为骨架的函数都极小。
# The skeleton cannot show this, because all of its functions are tiny.
# ↳ 2026-10-04 复验仍成立：20 个局部量（80 字节 > 64）的函数实测得 `LOCAL20=210`（与判据一致）。
# ↳ Still holds, re-checked 2026-10-04: a function with 20 locals (80 bytes > 64) measures `LOCAL20=210` (matches the criterion).
#
# ◆ 写法要求（沿用 corpus/r/skel.r）
# ◆ Style requirements (following corpus/r/skel.r)
#
#   · 循环**不写** `for (i in 1:4)`：`:` 被解析成 `CallNode(":")`、GenerateCall 无此分支
#   · Do **not** write `for (i in 1:4)`: `:` is parsed into `CallNode(":")` and GenerateCall has no branch for it
#     ⇒ 编出 `CALL func_:`（带冒号的标签，永不解析）。用 `c(1,2,3,4)`，循环变量拿到元素值。
#     => it compiles to `CALL func_:` (a label with a colon, which never resolves). Use `c(1,2,3,4)`; the loop variable takes the element value.
#   · R 向量 **1 基**，下标写 1..n。
#   · R vectors are **1-based**; subscripts are written 1..n.
#   · `cat` / `print` 只打印**第一个实参** ⇒ 分数画成图形，不走控制台。
#   · `cat` / `print` print only the **first argument** => the score is drawn as a graphic instead of going to the console.
#   · 颜色写负数十进制（词法器不认 0x）。
#   · Colors are written as negative decimals (the lexer does not accept 0x).

# 状态：1=挡板x 2=球x 3=球y 4=球dx 5=球dy 6=分数 7=最高 8=存活 9=屏宽 10=屏高
# State: 1=paddle x 2=ball x 3=ball y 4=ball dx 5=ball dy 6=score 7=best 8=alive 9=screen w 10=screen h
lang <- ui_scr_get_language()
A <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

resetGame <- function() {
  A[1] <<- A[9] / 2 - 40
  A[2] <<- A[9] / 2
  A[3] <<- 70
  A[4] <<- 3
  A[5] <<- 5
  A[6] <<- 0
  A[8] <<- 1
}

draw <- function() {
  ui_2d_clear(-15724520)
  if (lang == 0) ui_2d_text(8, 8, "得分", -6643536, 13, VML_ANCHOR_LEFT) else ui_2d_text(8, 8, "Score", -6643536, 13, VML_ANCHOR_LEFT)
  ui_2d_rect(58, 11, A[6], 10, -11409298, 1, 0, 0)
  if (lang == 0) ui_2d_text(A[9] / 2, 8, "最高", -6643536, 13, VML_ANCHOR_CENTER) else ui_2d_text(A[9] / 2, 8, "Best", -6643536, 13, VML_ANCHOR_CENTER)
  ui_2d_rect(A[9] / 2 + 46, 11, A[7], 10, -63488, 1, 0, 0)
  ui_2d_rect(A[1], A[10] - 40, 80, 12, -63488, 1, 0, 6)
  ui_2d_circle(A[2], A[3], 9, -131246, 1, 0)
  if (A[8] == 0) {
    if (lang == 0) ui_2d_text(A[9] / 2, A[10] / 2, "按回车重开", -131246, 16, VML_ANCHOR_CENTER) else ui_2d_text(A[9] / 2, A[10] / 2, "Press Enter to restart", -131246, 16, VML_ANCHOR_CENTER)
  }
  ui_2d_present()
}

tick <- function() {
  if (A[8] == 0) {
    return(0)
  }
  A[2] <<- A[2] + A[4]
  A[3] <<- A[3] + A[5]
  if (A[2] < 10) {
    A[2] <<- 10
    A[4] <<- 0 - A[4]
  }
  if (A[2] > A[9] - 10) {
    A[2] <<- A[9] - 10
    A[4] <<- 0 - A[4]
  }
  if (A[3] < 30) {
    A[3] <<- 30
    A[5] <<- 0 - A[5]
  }
  # 接住：球落到挡板带上、且横向落在挡板范围内（多条件用嵌套 if —— 本前端对 && 的支持未验证）
  # Catch: the ball lands on the paddle band and is horizontally within the paddle (multiple conditions use nested if -- this frontend's support for && is unverified)
  if (A[3] > A[10] - 52) {
    if (A[3] < A[10] - 30) {
      if (A[2] > A[1] - 9) {
        if (A[2] < A[1] + 89) {
          A[5] <<- 0 - A[5]
          A[3] <<- A[10] - 52
          A[6] <<- A[6] + 10
          if (A[6] > A[7]) {
            A[7] <<- A[6]
          }
          # 音效：单音 ui_audio_beep（v0.96.509 从音序器换回来 ——
          # Sound: single-tone ui_audio_beep (switched back from the sequencer in v0.96.509 --
          #   那一版多声部叠加 / 长音拖尾在真机上破音）
          #   that version's multi-voice layering / long-note tails crackled on the real device)
          ui_audio_beep(1047, 165)
        }
      }
    }
  }
  if (A[3] > A[10]) {
    A[8] <<- 0
    # 音效：单音 ui_audio_beep；**结局音取最低音**（接住 1047 / 没接住 131，差得开）
    # Sound: single-tone ui_audio_beep; **the ending tone takes the lowest pitch** (catch 1047 / miss 131, far enough apart)
    ui_audio_beep(131, 320)
    draw()
    if (lang == 0) ans <- ui_dlg_msg("接方块", "没接住，这一局结束。\n再来一局？（选「否」退出）", VML_DLG_INFO) else ans <- ui_dlg_msg("Catch", "Missed. Round over.\nPlay again? (choose 'No' to quit)", VML_DLG_INFO)
    if (ans != 0) { ui_win_close(); return(0) }
    resetGame()
  }
  return(0)
}

# ── 主流程 ──
# -- Main flow --
# ⚠ **先开窗、再问尺寸**：开窗前 `ui_scr_get_w/h` 只能按**默认 chrome**（假设要手柄）估算，
#   与真正开出来的画布对不上（见 E141）。⇒ 开窗尺寸传 0 交给宿主，**开完再问**真实可用绘图区。
# ⚠ **Open the window first, then ask for the size**: before the window exists `ui_scr_get_w/h`
#   can only estimate from the **default chrome** (which assumes a gamepad) and will not match the
#   real canvas (see E141). So pass 0 here and ask for the real usable area **after** opening.
if (lang == 0) ui_win_open("接方块", 0, 0) else ui_win_open("Catch", 0, 0)
A[9] <- ui_scr_get_w()
A[10] <- ui_scr_get_h()
if (A[9] <= 0) {
  A[9] <- 360
}
if (A[10] <= 0) {
  A[10] <- 620
}
ui_scr_set_keep_on(1)
resetGame()
tid <- ui_timer_set(40, 0)

while (ui_win_is_closed() == 0) {

  draw()
  t <- ui_msg_fetch_wait(0)
  if (t == 10) {
    break
  }
  if (t == 9) {
    tick()
  }
  if (t == 1) {
    k <- ui_msg_get_a()
    if (k == 27) {
      break
    }
    if (k == 37) {
      A[1] <- A[1] - 20
      if (A[1] < 4) {
        A[1] <- 4
      }
    }
    if (k == 39) {
      A[1] <- A[1] + 20
      if (A[1] > A[9] - 84) {
        A[1] <- A[9] - 84
      }
    }
    if (k == 13) {
      resetGame()
    }
  }
}

ui_timer_kill(tid)
ui_scr_set_keep_on(0)
ui_win_close()