basic/app/hammurabi.bas · 32072 字节 · 下载原文
' 汉谟拉比（HAMMURABI）—— 用 **BASIC** 写的手机游戏
' Hammurabi -- a mobile game written in **BASIC**
'
' 出处与版权：原型是 1968 年 Doug Dyment 写的那份资源管理游戏（后来收进
' Origin and copyright: the prototype is the resource-management game Doug Dyment
' David Ahl 的《BASIC Computer Games》，是 1970 年代流传最广的 BASIC 程序之一）。
' wrote in 1968 (later collected in David Ahl's "BASIC Computer Games", one of the most widely played BASIC programs of the 1970s).
' **这份是照玩法规则重写的**：结构、变量名、注释、绘制方式都是自己的，
' **This one is rewritten from the rules of play**: the structure, the variable names, the
' 没有抄原件的一行代码 —— 与 `gorilla.bas` 同一条规矩（`Examples/` 会随 APK 分发）。
' comments and the drawing are all our own -- not one line of the original was copied, same rule as `gorilla.bas` (`Examples/` ships inside the APK).
'
' 玩法：你统治苏美尔 10 年。每年按顺序做四件事 ——
' Gameplay: you rule Sumeria for 10 years. Each year, four things in order --
' ① 买地 ② 卖地 ③ 喂粮（每人 20 蒲式耳，喂不够就饿死人）④ 播种（每英亩 1 蒲式耳，
' 1) buy land 2) sell land 3) feed the people (20 bushels each; feed too little and
' 每人最多种 10 英亩）。年底收成 + 老鼠偷粮，然后进入下一年。
' they starve) 4) sow seed (1 bushel per acre, at most 10 acres each). Year end: harvest
' **饿死超过 45% 就被推翻**，游戏提前结束；撑满 10 年则按人均土地给总评。
' plus rats stealing grain, then the next year. **Starving over 45% means overthrow**; a full 10 years earns a verdict by land per person.
'
' ◆ 手机上怎么玩
' ◆ How to play on a phone
'
' 原版是打字输入的（"要买多少英亩？"），手机上没法那么问。这里改成**分阶段的加减条**：
' The original took typed input ("How many acres to buy?"), which you cannot ask on a phone. Here it becomes a **staged plus/minus bar**:
' 一屏只问一件事，一个大号 −、一个大号 +，一个「确定」。点「确定」进入下一件事。
' one question per screen, a big minus, a big plus, one "OK". Tap OK to go to the next question.
' —— 回合制文字游戏在手机上就该这么处理：**别让玩家调键盘**。
' -- this is how a turn-based text game should be handled on a phone: **never make the player raise the keyboard**.
'
' ◆ 这份用到的语言特性（都是本轮刚确认可用的，别再照 gorilla 那套绕）
' ◆ Language features used here (all confirmed working this round; stop working around them the way gorilla did)
'
' · `SELECT CASE` 做阶段分派（`gorilla.bas` 头部说它不能用 —— **已过期**）
' · `SELECT CASE` for phase dispatch (`gorilla.bas`'s header says it does not work -- **that is outdated**)
' · `FUNCTION` 抽纯规则（喂粮需求量、收成、总评）
' · `FUNCTION` for the pure rules (feed requirement, harvest, verdict)
' · 字符串 `+` 拼接拼报告（从前会得到空串，v0.96.330 已修）
' · string `+` concatenation to build the report (it used to return an empty string; fixed in v0.96.330)
' · `STR$` 数字上屏
' · `STR$` to put numbers on screen
' · `AND` / `OR`、带括号的子表达式、CONST 参与算术 —— 都正常
' · `AND` / `OR`, parenthesised sub-expressions, CONST in arithmetic -- all fine
'
' ◆ 写法要求（本前端的硬性要求）
' ◆ Coding requirements (hard requirements of this frontend)
'
' · 外部过程写 `NATIVE SUB` / `NATIVE FUNCTION` + **空体**（这份照旧这么写）。⚠ 当年是**必须**的、
' · external routines are written `NATIVE SUB` / `NATIVE FUNCTION` + an **empty body** (this file still writes it that way). ⚠ Back then it was **required**
' **2026-10-04 复验已不必** —— 链接期会认领库侧符号（实测不写 `NATIVE` 的 `FUNCTION ui_scr_get_w()`
' and **re-checked 2026-10-04: no longer needed** — the linker claims the library-side symbol (measured: `FUNCTION ui_scr_get_w()`
' 照样拿到真值 480）。
' without `NATIVE` still returns the real value 480).
' · 模块级变量必须在赋值前 `DIM`。
' · module-level variables must be `DIM`ed before assignment.
' · ~~赋值语句不能写在 SUB 定义之后~~（会被当成函数调用）—— ✅ **2026-10-04 复验已修好**：
' · ~~an assignment statement must not follow a SUB definition~~ (it gets taken as a function call) — ✅ **re-checked fixed on 2026-10-04**:
' 实测 `SUB t() / END SUB` 之后写 `q = 1` 打出 `q=1`。这份**照旧**把赋值放前面（能跑就别动）。
' measured: writing `q = 1` after `SUB t() / END SUB` prints `q=1`. This file **still** keeps assignments first (if it runs, leave it alone).
' · 颜色写 `&HFFrrggbb`。
' · colours are written `&HFFrrggbb`.
' ── UI 接口：引用**库侧**的声明文件（原先这里是一屏 NATIVE 声明）────────────────
' ── UI interface: include the **library-side** declaration file (this used to be a screenful of NATIVE declarations)
'$INCLUDE: 'vml_ui.bas'
' ⚠ 形参名不能叫 on —— BASIC 关键字，会把 NATIVE 声明弄坏（当年实测；**2026-10-04 复验已修好**：
' ⚠ a parameter must not be named on -- it is a BASIC keyword and breaks the NATIVE declaration (measured back then; **re-checked fixed on 2026-10-04**:
' 实测 `NATIVE SUB ui_grid_set(i AS INTEGER, on AS INTEGER)` 声明与调用都对）。这份**照旧**避开它。
' measured: `NATIVE SUB ui_grid_set(i AS INTEGER, on AS INTEGER)` declares and calls correctly). This file **still** avoids it.
' ══════════════════════════════════════════════════════════════════════════
' 规则常量（改手感只动这一段）
' Rule constants (to change the feel, touch only this block)
' ══════════════════════════════════════════════════════════════════════════
CONST YEARS = 10 ' 统治年数
' number of years you rule
CONST P0 = 100 ' 起始人口
' starting population
CONST A0 = 1000 ' 起始土地（英亩）
' starting land (acres)
CONST G0 = 3000 ' 起始粮食（蒲式耳）
' starting grain (bushels)
CONST FEED_PER = 20 ' 每人每年要吃的（蒲式耳）
' bushels each person eats per year
CONST SEED_PER = 1 ' 每英亩要播的种子（蒲式耳）
' seed to sow per acre (bushels)
CONST ACRES_PER_PERSON = 10 ' 每人最多能种多少英亩
' most acres one person can sow
CONST PRICE_MIN = 17 ' 地价下限（蒲式耳/英亩）
' floor price of land (bushels per acre)
CONST PRICE_SPAN = 10 ' 地价浮动范围（17..26）
' price range (17..26)
CONST RAT_MAX = 3 ' 老鼠最多吃掉几分之一（1/(1..3)）
' largest fraction the rats can eat (1/(1..3))
CONST REVOLT_PCT = 45 ' 饿死超过这个百分比就被推翻
' starve more than this percent and you are overthrown
CONST HUDH = 104 ' 顶部数据带
' top data band
CONST CTRLH = 210 ' 底部操作区
' bottom control area
CONST C_BG = &HFF1A1428
CONST C_HUD = &HFF241C3A
CONST C_LINE = &HFF3A3060
CONST C_TEXT = &HFFEDEDF2
CONST C_DIM = &HFF9AA0B0
CONST C_GOLD = &HFFE8C468
CONST C_OK = &HFF4ADE80
CONST C_WARN = &HFFFF8A5C
CONST C_BTN = &HFF3A3260
CONST C_BTN_D = &HFF251E45
CONST C_ACCENT = &HFF6FD3FF
CONST C_FIRE = &HFFD8443C
' 阶段
' phases
CONST PH_BUY = 0
CONST PH_SELL = 1
CONST PH_FEED = 2
CONST PH_PLANT = 3
CONST PH_DONE = 4
' ══════════════════════════════════════════════════════════════════════════
' 状态
' state
' ══════════════════════════════════════════════════════════════════════════
DIM sw AS INTEGER
DIM sh AS INTEGER
DIM year AS INTEGER
DIM people AS INTEGER
DIM acres AS INTEGER
DIM grain AS INTEGER
DIM price AS INTEGER
DIM harvest AS INTEGER
DIM rats AS INTEGER
DIM starved AS INTEGER
DIM arrived AS INTEGER
DIM fed AS INTEGER
DIM planted AS INTEGER
DIM land AS INTEGER
DIM phase AS INTEGER
DIM amount AS INTEGER
DIM stepSize AS INTEGER
DIM over AS INTEGER
DIM quit AS INTEGER
DIM LANG AS INTEGER ' 界面语言：0 中文 / 1 英文（开局查一次）
' UI language: 0 Chinese / 1 English (queried once at startup)
DIM msg1 AS STRING
DIM msg2 AS STRING
DIM msg3 AS STRING
DIM msg4 AS STRING
DIM prompt AS STRING
DIM verdict AS STRING
DIM lb AS STRING ' 按语言取值的临时串（画文字用；别在调用的实参里写 IF）
' temp string chosen by language (for drawing text; do not write IF in a call argument)
' 几何
' geometry
DIM ctlY AS INTEGER
DIM minusX AS INTEGER
DIM plusX AS INTEGER
DIM stepX AS INTEGER
DIM okY AS INTEGER
DIM valY AS INTEGER
' 临时量
' temporaries
DIM i AS INTEGER
DIM n AS INTEGER
DIM t AS INTEGER
DIM mt AS INTEGER
DIM rx AS INTEGER
DIM ry AS INTEGER
DIM need AS INTEGER
DIM canPlant AS INTEGER
' ══════════════════════════════════════════════════════════════════════════
' 纯规则（自检直接打它们的返回值，所以必须是纯函数）
' pure rules (the self-check prints their return values, so they must be pure functions)
' ══════════════════════════════════════════════════════════════════════════
' 这么多人一年要吃多少蒲式耳
' how many bushels this many people eat in a year
FUNCTION feedNeed(p AS INTEGER) AS INTEGER
feedNeed = p * FEED_PER
END FUNCTION
' 这点粮食最多能种多少英亩（受"每人 10 英亩"与粮食双重限制）
' most acres this much grain can sow (limited by both 10 acres per person and the grain)
FUNCTION plantLimit(p AS INTEGER, g AS INTEGER) AS INTEGER
DIM byPeople AS INTEGER
byPeople = p * ACRES_PER_PERSON
IF g < byPeople THEN
plantLimit = g
ELSE
plantLimit = byPeople
END IF
END FUNCTION
' 饿死比例（百分比，整数）—— 45% 那道线就是拿它比的
' starvation ratio (percent, integer) -- the 45% line is compared against it
FUNCTION starvePct(died AS INTEGER, total AS INTEGER) AS INTEGER
IF total <= 0 THEN
starvePct = 0
ELSE
starvePct = died * 100 / total
END IF
END FUNCTION
' 总评：按人均土地给一句话
' verdict: one line based on land per person
FUNCTION rate(ac AS INTEGER, pp AS INTEGER) AS INTEGER
DIM per AS INTEGER
IF pp <= 0 THEN
rate = 0
ELSE
per = ac / pp
rate = per
END IF
END FUNCTION
' ══════════════════════════════════════════════════════════════════════════
' 局面
' state of the game
' ══════════════════════════════════════════════════════════════════════════
SUB layout()
ctlY = sh - CTRLH
valY = ctlY + 66
minusX = 40
plusX = sw - 40
stepX = sw / 2
okY = sh - 74
msg1 = ""
msg2 = ""
msg3 = ""
msg4 = ""
END SUB
SUB newGame()
year = 1
people = P0
acres = A0
grain = G0
starved = 0
arrived = 0
over = 0
quit = 0
verdict = ""
IF LANG = 0 THEN msg1 = "你统治苏美尔 10 年。" ELSE msg1 = "You rule Sumeria for 10 years."
IF LANG = 0 THEN msg2 = "买地、喂饱百姓、播种。" ELSE msg2 = "Buy land, feed the people, sow seed."
IF LANG = 0 THEN msg3 = "饿死超过 45% 就会被推翻。" ELSE msg3 = "Starve over 45% and you are overthrown."
msg4 = ""
beginYear()
END SUB
' 新一年：掷地价、进入"买地"阶段
' new year: roll the land price, enter the "buy land" phase
SUB beginYear()
price = PRICE_MIN + ui_math_rand(PRICE_SPAN)
phase = PH_BUY
amount = 0
IF LANG = 0 THEN msg4 = "地价 " + STR$(price) + " 蒲式耳/英亩" ELSE msg4 = "Land " + STR$(price) + " bushels/acre"
END SUB
' 非负且不超过上限 —— 加减条要夹住
' non-negative and within the cap -- the plus/minus bar must clamp
SUB clampAmount()
IF amount < 0 THEN
amount = 0
END IF
IF phase = PH_BUY THEN
IF amount * price > grain THEN
DIM cap AS INTEGER
cap = grain / price
amount = cap
END IF
END IF
IF phase = PH_SELL THEN
IF amount > acres THEN
amount = acres
END IF
END IF
IF phase = PH_FEED THEN
IF amount > grain THEN
amount = grain
END IF
END IF
IF phase = PH_PLANT THEN
IF amount > plantLimit(people, grain) THEN
amount = plantLimit(people, grain)
END IF
END IF
END SUB
SUB confirmPhase()
IF phase = PH_BUY THEN
acres = acres + amount
grain = grain - amount * price
phase = PH_SELL
amount = 0
ELSE
IF phase = PH_SELL THEN
acres = acres - amount
grain = grain + amount * price
phase = PH_FEED
amount = feedNeed(people)
clampAmount()
ELSE
IF phase = PH_FEED THEN
fed = amount
grain = grain - amount
phase = PH_PLANT
amount = plantLimit(people, grain)
clampAmount()
ELSE
IF phase = PH_PLANT THEN
planted = amount
grain = grain - amount
endYear()
END IF
END IF
END IF
END IF
END SUB
' 年底结算：饿死 / 收成 / 老鼠 / 移民 / 是否被推翻
' year-end settlement: starvation / harvest / rats / migration / whether you are overthrown
SUB endYear()
DIM need AS INTEGER
DIM ratio AS INTEGER
need = feedNeed(people)
IF fed >= need THEN
starved = 0
ELSE
DIM short AS INTEGER
short = need - fed
starved = short / FEED_PER
IF starved > people THEN
starved = people
END IF
END IF
' 收成：每英亩 1..6 蒲式耳
' harvest: 1..6 bushels per acre
harvest = 0
IF planted > 0 THEN
DIM y AS INTEGER
DIM a AS INTEGER
a = 0
WHILE a < planted
harvest = harvest + 1 + ui_math_rand(6)
a = a + 1
WEND
END IF
grain = grain + harvest
' 老鼠：吃掉 1/(1..RAT_MAX)
' rats: eat 1/(1..RAT_MAX)
DIM divisor AS INTEGER
divisor = 1 + ui_math_rand(RAT_MAX)
rats = grain / divisor
grain = grain - rats
' 人口变化：饿死 + 新迁入（按"地多人少就有人来"给一个朴素模型）
' population change: starvation + new arrivals (a naive "plenty of land and few people brings people in" model)
people = people - starved
IF people < 0 THEN
people = 0
END IF
ratio = starvePct(starved, people + starved)
IF ratio > REVOLT_PCT THEN
over = 2
IF LANG = 0 THEN verdict = "饿死 " + STR$(ratio) + "%，你被推翻了。" ELSE verdict = "Starved " + STR$(ratio) + "% - you were overthrown."
IF LANG = 0 THEN msg1 = "第 " + STR$(year) + " 年，饿死 " + STR$(starved) + " 人。" ELSE msg1 = "Year " + STR$(year) + ", starved " + STR$(starved) + "."
IF LANG = 0 THEN msg2 = "超过 " + STR$(REVOLT_PCT) + "%，暴民推翻了王座。" ELSE msg2 = "Over " + STR$(REVOLT_PCT) + "% - the mob toppled the throne."
msg3 = ""
msg4 = ""
phase = PH_DONE
ui_sfx_add 2, 48, 0, 6, 85, 2 ' 一年收尾：低沉
' year wrap-up: low tone
ui_vibrate_simple(200, 255)
EXIT SUB
END IF
IF people <= 0 THEN
over = 2
IF LANG = 0 THEN verdict = "一个人都不剩了。" ELSE verdict = "Not a single person is left."
phase = PH_DONE
EXIT SUB
END IF
arrived = ui_math_rand(people / 4 + 1)
people = people + arrived
IF LANG = 0 THEN msg1 = "第 " + STR$(year) + " 年：收成 " + STR$(harvest) + " 蒲式耳" ELSE msg1 = "Year " + STR$(year) + ": harvest " + STR$(harvest) + " bushels"
IF LANG = 0 THEN msg2 = "老鼠吃掉 " + STR$(rats) + "，饿死 " + STR$(starved) + " 人" ELSE msg2 = "Rats ate " + STR$(rats) + ", starved " + STR$(starved)
IF LANG = 0 THEN msg3 = "新迁入 " + STR$(arrived) + " 人" ELSE msg3 = "New arrivals " + STR$(arrived)
msg4 = ""
year = year + 1
IF year > YEARS THEN
over = 1
DIM per AS INTEGER
per = rate(acres, people)
IF per >= 10 THEN
IF LANG = 0 THEN verdict = "人均 " + STR$(per) + " 英亩 —— 盛世。" ELSE verdict = "Per capita " + STR$(per) + " acres - a golden age."
ELSE
IF per >= 7 THEN
IF LANG = 0 THEN verdict = "人均 " + STR$(per) + " 英亩 —— 尚可。" ELSE verdict = "Per capita " + STR$(per) + " acres - fair."
ELSE
IF LANG = 0 THEN verdict = "人均 " + STR$(per) + " 英亩 —— 民不聊生。" ELSE verdict = "Per capita " + STR$(per) + " acres - the people suffer."
END IF
END IF
phase = PH_DONE
ELSE
beginYear()
END IF
END SUB
' 当前阶段该问什么
' what the current phase should ask
SUB setPrompt()
SELECT CASE phase
CASE PH_BUY
IF LANG = 0 THEN prompt = "买地：还能买 " + STR$(grain / price) + " 英亩" ELSE prompt = "Buy: up to " + STR$(grain / price) + " acres"
CASE PH_SELL
IF LANG = 0 THEN prompt = "卖地：最多卖 " + STR$(acres) + " 英亩" ELSE prompt = "Sell: up to " + STR$(acres) + " acres"
CASE PH_FEED
IF LANG = 0 THEN prompt = "喂粮：需要 " + STR$(feedNeed(people)) + " 蒲式耳" ELSE prompt = "Feed: need " + STR$(feedNeed(people)) + " bushels"
CASE PH_PLANT
IF LANG = 0 THEN prompt = "播种：最多种 " + STR$(plantLimit(people, grain)) + " 英亩" ELSE prompt = "Sow: up to " + STR$(plantLimit(people, grain)) + " acres"
CASE PH_DONE
IF LANG = 0 THEN prompt = "本局结束" ELSE prompt = "Game Over"
CASE ELSE
prompt = ""
END SELECT
END SUB
SUB setStep()
IF phase = PH_FEED THEN
stepSize = 100
ELSE
stepSize = 10
END IF
END SUB
' ══════════════════════════════════════════════════════════════════════════
' 绘制
' drawing
' ══════════════════════════════════════════════════════════════════════════
SUB drawStat(x AS INTEGER, y AS INTEGER, label AS STRING, value AS INTEGER, col AS INTEGER)
ui_2d_text(x, y, label, C_DIM, 12, VML_ANCHOR_LEFT)
ui_2d_text(x, y + 16, STR$(value), col, 20, VML_ANCHOR_LEFT)
END SUB
SUB drawHud()
ui_2d_rect(0, 0, sw, HUDH, C_HUD, 1, 0, 0)
DIM half AS INTEGER
half = sw / 2
IF LANG = 0 THEN lb = "第几年" ELSE lb = "Year"
drawStat(16, 12, lb, year, C_ACCENT)
IF LANG = 0 THEN lb = "人口" ELSE lb = "People"
drawStat(half + 12, 12, lb, people, C_TEXT)
IF LANG = 0 THEN lb = "土地(英亩)" ELSE lb = "Land (acres)"
drawStat(16, 60, lb, acres, C_GOLD)
IF LANG = 0 THEN lb = "粮食(蒲式耳)" ELSE lb = "Grain (bu)"
drawStat(half + 12, 60, lb, grain, C_GOLD)
ui_2d_rect(0, HUDH - 2, sw, 2, C_LINE, 1, 0, 0)
END SUB
SUB drawReport()
IF msg1 <> "" THEN ui_2d_text(16, HUDH + 16, msg1, C_TEXT, 14, VML_ANCHOR_LEFT)
IF msg2 <> "" THEN ui_2d_text(16, HUDH + 40, msg2, C_TEXT, 14, VML_ANCHOR_LEFT)
IF msg3 <> "" THEN ui_2d_text(16, HUDH + 64, msg3, C_DIM, 14, VML_ANCHOR_LEFT)
IF msg4 <> "" THEN ui_2d_text(16, HUDH + 88, msg4, C_WARN, 14, VML_ANCHOR_LEFT)
END SUB
SUB drawRoundButton(cx AS INTEGER, cy AS INTEGER, r AS INTEGER, plus AS INTEGER, enabled AS INTEGER)
IF enabled = 1 THEN
ui_2d_circle(cx, cy, r, C_BTN, 1, 0)
ELSE
ui_2d_circle(cx, cy, r, C_BTN_D, 1, 0)
END IF
DIM bar AS INTEGER
bar = r - 13
ui_2d_rect(cx - bar, cy - 3, bar * 2, 6, C_TEXT, 1, 0, 3)
IF plus = 1 THEN
ui_2d_rect(cx - 3, cy - bar, 6, bar * 2, C_TEXT, 1, 0, 3)
END IF
END SUB
SUB drawControls()
ui_2d_rect(0, ctlY, sw, CTRLH, C_HUD, 1, 0, 0)
ui_2d_rect(0, ctlY, sw, 2, C_LINE, 1, 0, 0)
IF phase = PH_DONE THEN
ui_2d_text(sw / 2, ctlY + 60, verdict, C_GOLD, 16, VML_ANCHOR_CENTER)
ui_2d_rect(24, okY, sw - 48, 52, C_FIRE, 1, 0, 12)
IF LANG = 0 THEN lb = "再来一局" ELSE lb = "Play again"
ui_2d_text(sw / 2, okY + 14, lb, &HFFFFF0EC, 18, VML_ANCHOR_CENTER)
RETURN
END IF
ui_2d_text(sw / 2, ctlY + 16, prompt, C_ACCENT, 15, VML_ANCHOR_CENTER)
DIM canMinus AS INTEGER
DIM canPlus AS INTEGER
canMinus = 0
canPlus = 0
IF amount > 0 THEN
canMinus = 1
END IF
drawRoundButton(minusX, valY, 34, 0, canMinus)
drawRoundButton(plusX, valY, 34, 1, 1)
ui_2d_text(stepX, valY - 22, STR$(amount), C_GOLD, 34, VML_ANCHOR_CENTER)
IF LANG = 0 THEN lb = "(每按一次 " + STR$(stepSize) + ")" ELSE lb = "(step " + STR$(stepSize) + " per tap)"
ui_2d_text(stepX, valY + 22, lb, C_DIM, 12, VML_ANCHOR_CENTER)
ui_2d_rect(24, okY, sw - 48, 52, C_FIRE, 1, 0, 12)
IF LANG = 0 THEN lb = "确 定" ELSE lb = "OK"
ui_2d_text(sw / 2, okY + 14, lb, &HFFFFF0EC, 18, VML_ANCHOR_CENTER)
END SUB
SUB drawScene()
ui_2d_clear(C_BG)
drawHud()
drawReport()
drawControls()
ui_2d_present()
END SUB
' ══════════════════════════════════════════════════════════════════════════
' 输入
' input
' ══════════════════════════════════════════════════════════════════════════
' 落在按钮里没有 —— 用方形盒判（圆按钮用"到圆心的距离 ≤ r"更准，但这里按方形框住即可）
' did it land inside the button -- judged with a square box (distance to the centre <= r is more exact for a round button, but bounding it with a square is enough here)
' ⚠ 有返回值的必须是 `FUNCTION`：写成 `SUB … AS INTEGER` 时那个 `AS INTEGER`
' ⚠ anything with a return value must be a `FUNCTION`: written as `SUB ... AS INTEGER`, that `AS INTEGER`
' 会被当成一次函数调用去链接，报 `未定义的函数 'func_integer'`（实测踩过）。
' gets linked as a function call and reports the error `undefined function 'func_integer'` (measured).
FUNCTION onButton(cx AS INTEGER, cy AS INTEGER, r AS INTEGER, px AS INTEGER, py AS INTEGER) AS INTEGER
DIM dx AS INTEGER
DIM dy AS INTEGER
dx = px - cx
IF dx < 0 THEN
dx = 0 - dx
END IF
dy = py - cy
IF dy < 0 THEN
dy = 0 - dy
END IF
IF dx <= r THEN
IF dy <= r THEN
onButton = 1
EXIT FUNCTION
END IF
END IF
onButton = 0
END FUNCTION
SUB handlePoint(isDown AS INTEGER)
IF isDown = 0 THEN
RETURN
END IF
rx = ui_msg_get_a()
ry = ui_msg_get_b()
IF phase = PH_DONE THEN
IF ry >= okY THEN
newGame()
END IF
RETURN
END IF
IF onButton(minusX, valY, 34, rx, ry) = 1 THEN
amount = amount - stepSize
clampAmount()
ui_sfx_add 0, 60, 0, 1, 40, 3
RETURN
END IF
IF onButton(plusX, valY, 34, rx, ry) = 1 THEN
amount = amount + stepSize
clampAmount()
ui_sfx_add 0, 67, 0, 1, 40, 3
RETURN
END IF
IF ry >= okY THEN
confirmPhase()
ui_sfx_add 1, 79, 0, 2, 65, 1 ' 确认'
' confirm
END IF
END SUB
SUB handleKey()
DIM k AS INTEGER
k = ui_msg_get_a()
IF k = 27 THEN
quit = 1
END IF
IF phase = PH_DONE THEN
IF k = 13 THEN
newGame()
END IF
RETURN
END IF
IF k = 37 THEN
amount = amount - stepSize
clampAmount()
END IF
IF k = 39 THEN
amount = amount + stepSize
clampAmount()
END IF
IF k = 13 THEN
confirmPhase()
END IF
END SUB
' ══════════════════════════════════════════════════════════════════════════
' 主循环
' main loop
' ══════════════════════════════════════════════════════════════════════════
SUB runGame()
ui_scr_set_keep_on(1)
layout()
newGame()
WHILE ui_win_is_closed() = 0
ui_sfx_tick
IF quit = 1 THEN
ui_sfx_panic
ui_win_close()
END IF
setPrompt()
setStep()
mt = ui_msg_fetch_wait(80)
n = 0
WHILE mt <> 0
IF mt = 10 THEN
quit = 1
END IF
IF mt = 1 THEN
handleKey()
END IF
IF mt = 6 THEN
handlePoint(1)
END IF
IF mt = 4 THEN
handlePoint(1)
END IF
n = n + 1
IF n >= 40 THEN
mt = 0
ELSE
mt = ui_msg_fetch()
END IF
WEND
drawScene()
WEND
END SUB
' ══════════════════════════════════════════════════════════════════════════
' 开机自检（无头，桌面脚手架就能跑）
' boot self-check (headless; runs fine on the desktop scaffold)
'
' 判的是**规则**，不是"编过了"：喂粮需求、播种上限、饿死比例、总评分档。
' What is judged is the **rules**, not "it compiled": feed requirement, sowing cap, starvation ratio, verdict bands.
' 这几条就是这个游戏全部的可玩性所在。
' These few are where all of this game's playability lives.
' ══════════════════════════════════════════════════════════════════════════
SUB simCheck()
IF LANG = 0 THEN PRINT "── 汉谟拉比 · 规则自检 ──" ELSE PRINT "-- Hammurabi - rule self-check --"
IF LANG = 0 THEN PRINT " 100 人一年要吃（应 2000）:"; feedNeed(100) ELSE PRINT " 100 people eat per year (want 2000):"; feedNeed(100)
IF LANG = 0 THEN PRINT " 100 人 / 3000 粮 播种上限（应 1000，受人数限）:"; plantLimit(100, 3000) ELSE PRINT " 100 people / 3000 grain sow limit (want 1000, people-bound):"; plantLimit(100, 3000)
IF LANG = 0 THEN PRINT " 100 人 / 500 粮 播种上限（应 500，受粮食限）:"; plantLimit(100, 500) ELSE PRINT " 100 people / 500 grain sow limit (want 500, grain-bound):"; plantLimit(100, 500)
IF LANG = 0 THEN PRINT " 饿死 30 / 总 100 的比例（应 30）:"; starvePct(30, 100) ELSE PRINT " starved 30 of 100 pct (want 30):"; starvePct(30, 100)
IF LANG = 0 THEN PRINT " 饿死 46 / 总 100 的比例（应 46，超过 45 那道线）:"; starvePct(46, 100) ELSE PRINT " starved 46 of 100 pct (want 46, over the 45 line):"; starvePct(46, 100)
IF LANG = 0 THEN PRINT " 人均 12 英亩（应 12）:"; rate(1200, 100) ELSE PRINT " per capita 12 acres (want 12):"; rate(1200, 100)
IF LANG = 0 THEN PRINT " 人均 5 英亩（应 5）:"; rate(500, 100) ELSE PRINT " per capita 5 acres (want 5):"; rate(500, 100)
' 阶段推进：买地 → 卖地 → 喂粮 → 播种，四步走完必须落到"结算"
' phase advance: buy land -> sell land -> feed -> sow, and four steps must land on "settle"
people = 100
acres = 1000
grain = 3000
over = 0
phase = PH_BUY
amount = 0
price = 20
confirmPhase()
IF LANG = 0 THEN PRINT " 买地后阶段（应 1=卖地）:"; phase ELSE PRINT " phase after buy (want 1=sell):"; phase
amount = 0
confirmPhase()
IF LANG = 0 THEN PRINT " 卖地后阶段（应 2=喂粮）且粮已备好（应 2000）:"; phase; amount ELSE PRINT " phase after sell (want 2=feed) and feed reserved (want 2000):"; phase; amount
amount = feedNeed(people)
confirmPhase()
IF LANG = 0 THEN PRINT " 喂粮后阶段（应 3=播种）:"; phase ELSE PRINT " phase after feed (want 3=sow):"; phase
END SUB
' ══════════════════════════════════════════════════════════════════════════
' 主程序
' main program
' ══════════════════════════════════════════════════════════════════════════
' 界面语言：**开局查一次**存进 LANG（ui_scr_get_language 是 syscall，别每帧调）
' UI language: **queried once at startup** into LANG (ui_scr_get_language is a syscall; do not call it every frame)
LANG = ui_scr_get_language()
simCheck()
' 锁竖屏 + 不要手柄区（全程触摸）
' lock portrait + no gamepad area (touch only throughout)
IF LANG = 0 THEN lb = "汉谟拉比" ELSE lb = "Hammurabi"
wh = ui_win_open_ex(lb, 0, 0, VML_WIN_PORTRAIT, VML_WIN_NO_GAMEPAD)
sw = ui_scr_get_w()
sh = ui_scr_get_h()
IF sw <= 0 THEN
sw = 390
END IF
IF sh <= 0 THEN
sh = 660
END IF
IF wh < 1 THEN
IF LANG = 0 THEN PRINT "（桌面脚手架：没有真窗口，规则自检打完就退出）" ELSE PRINT "(desktop scaffold: no real window; rule self-check done, exiting)"
ELSE
runGame()
END IF