# 绵阳九艾斯科技有限公司 版权所有 (c) 2026
# 功能: 待办清单 - 原生 9S 中文软件示例
# 运行: 九S虚拟机.exe 待办清单.9s
# 说明: 不是游戏。列表、选择、完成状态、绘制与按键，全部由中文源码实现。

变量 画布 = 空
变量 窗口 = 空
变量 选中 = 0
变量 事项 = []
变量 已完成 = []

函数 初始化() {
    事项 = []
    已完成 = []
    列表追加(事项, "08:00  高等数学")
    列表追加(事项, "10:00  大学英语")
    列表追加(事项, "14:00  程序设计")
    列表追加(事项, "16:00  社团例会")
    列表追加(事项, "19:00  自习 / 复盘")
    变量 序号 = 0
    当 (序号 < 5) {
        列表追加(已完成, 假)
        序号 = 序号 + 1
    }
    选中 = 0
}

函数 绘制界面() {
    画布.清屏()
    画布.画矩形(0, 0, 480, 620, 深灰, 深灰)
    画布.画矩形(0, 0, 480, 96, 黑色, 黑色)
    画布.画文本(24, 20, "今日待办", 白色, 26)
    画布.画文本(24, 58, "中文 9S · 原生窗口软件", 青色, 14)
    变量 序号 = 0
    当 (序号 < 5) {
        变量 纵坐标 = 120 + 序号 * 82
        如果 (序号 == 选中) {
            画布.画矩形(16, 纵坐标 - 8, 448, 68, 蓝色, 蓝色)
        } 否则 {
            画布.画矩形(16, 纵坐标 - 8, 448, 68, 黑色, 黑色)
        }
        变量 标记 = "[ ]"
        如果 (列表查询(已完成, 序号) == 真) {
            标记 = "[x]"
        }
        画布.画文本(30, 纵坐标, 标记, 黄色, 22)
        变量 文字颜色 = 白色
        如果 (列表查询(已完成, 序号) == 真) {
            文字颜色 = 绿色
        }
        画布.画文本(92, 纵坐标 + 2, 列表查询(事项, 序号), 文字颜色, 20)
        序号 = 序号 + 1
    }
    画布.画文本(20, 562, "↑↓ 选择　空格 完成　R 重置　ESC 退出", 白色, 13)
}

函数 按键处理(键码) {
    如果 (键码 == 键_上) {
        选中 = 选中 - 1
        如果 (选中 < 0) {
            选中 = 4
        }
    }
    如果 (键码 == 键_下) {
        选中 = 选中 + 1
        如果 (选中 > 4) {
            选中 = 0
        }
    }
    如果 (键码 == 键_空格) {
        如果 (列表查询(已完成, 选中) == 真) {
            已完成[选中] = 假
        } 否则 {
            已完成[选中] = 真
        }
    }
    如果 (键码 == 键_R) {
        初始化()
    }
    如果 (键码 == 键_退出) {
        关闭窗口()
        返回
    }
    请求重绘()
}

初始化()
窗口 = 创建窗口("九艾斯待办 · 中文软件示例", 480, 620)
画布 = 九S画布(窗口)
设置绘制函数(绘制界面)
设置按键函数(按键处理)
显示窗口()
请求重绘()
启动消息循环()