.版本 2
---------------------------------------------------
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
运动方向_变量 = 1
动作_变量 = 2
.判断开始 (横向_变量 > 880)
横向_变量 = -100
.默认
横向_变量 = 横向_变量 + 3
.判断结束
.判断 (键代码 = #上光标键)
动作_变量 = 2
.判断开始 (纵向_变量 < -30)
纵向_变量 = 550
.默认
纵向_变量 = 纵向_变量 - 2
.判断结束
.判断 (键代码 = #下光标键)
动作_变量 = 2
.判断开始 (纵向_变量 > 550)
纵向_变量 = -30
.默认
纵向_变量 = 纵向_变量 + 2
.判断结束
.判断 (键代码 = #左光标键)
动作_变量 = 2
运动方向_变量 = 0
.判断开始 (横向_变量 < -100)
横向_变量 = 880
.默认
横向_变量 = 横向_变量 - 3
.判断结束
.默认
.判断结束
' 判断 (功能键状态 = 位与 (#Ctrl键, #右光标键))
--------------------------------------------------
.子程序 __启动窗口_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
动作_变量 = 0
.判断 (键代码 = #上光标键)
动作_变量 = 0
.判断 (键代码 = #下光标键)
动作_变量 = 0
.判断 (键代码 = #左光标键)
动作_变量 = 0
---------------------------------------------------
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
运动方向_变量 = 1
动作_变量 = 2
.判断开始 (横向_变量 > 880)
横向_变量 = -100
.默认
横向_变量 = 横向_变量 + 3
.判断结束
.判断 (键代码 = #上光标键)
动作_变量 = 2
.判断开始 (纵向_变量 < -30)
纵向_变量 = 550
.默认
纵向_变量 = 纵向_变量 - 2
.判断结束
.判断 (键代码 = #下光标键)
动作_变量 = 2
.判断开始 (纵向_变量 > 550)
纵向_变量 = -30
.默认
纵向_变量 = 纵向_变量 + 2
.判断结束
.判断 (键代码 = #左光标键)
动作_变量 = 2
运动方向_变量 = 0
.判断开始 (横向_变量 < -100)
横向_变量 = 880
.默认
横向_变量 = 横向_变量 - 3
.判断结束
.默认
.判断结束
' 判断 (功能键状态 = 位与 (#Ctrl键, #右光标键))
--------------------------------------------------
.子程序 __启动窗口_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
动作_变量 = 0
.判断 (键代码 = #上光标键)
动作_变量 = 0
.判断 (键代码 = #下光标键)
动作_变量 = 0
.判断 (键代码 = #左光标键)
动作_变量 = 0
