用画板写的一个围猫小游戏

.程序集 窗口程序集_启动窗口
.程序集变量 圆点状态, 整数型, , "121", 0空白1围墙2陷阱
.程序集变量 猫位置, 整数型
.程序集变量 游戏状态, 整数型, , , 0未开始1正在游戏2游戏结束
.程序集变量 移动路径, 整数型, , "0", 猫的逃跑路径
.程序集变量 圆点步数, 整数型, , "121", 计算逃跑路径时使用，猫到每一点位置的距离

.子程序 新建游戏
.局部变量 横向计次, 整数型
.局部变量 纵向计次, 整数型
.局部变量 位置顶边, 整数型
.局部变量 位置左边, 整数型
.局部变量 临时整数, 整数型
.局部变量 计次变量, 整数型
.局部变量 当前位置, 整数型

' 重置游戏状态
.计次循环首 (121, 临时整数)
圆点状态 [临时整数] ＝ 0
.计次循环尾 ()
游戏状态 ＝ 1
猫位置 ＝ 61
清除数组 (移动路径)
' 画出背景
临时整数 ＝ 载入图片 (#圆点白色)
.计次循环首 (11, 纵向计次)
.计次循环首 (11, 横向计次)
位置左边 ＝ (横向计次 － 1) × 48
.如果真 (纵向计次 ％ 2 ＝ 0)
位置左边 ＝ 位置左边 ＋ 24
.如果真结束
位置顶边 ＝ (纵向计次 － 1) × 40
画板1.画图片 (临时整数, 位置左边, 位置顶边, , , －取颜色值 (128, 128, 128))
.计次循环尾 ()
.计次循环尾 ()
卸载图片 (临时整数)
' 画出猫
临时整数 ＝ 载入图片 (#圆点猫)
纵向计次 ＝ (猫位置 － 1) ＼ 11
横向计次 ＝ 猫位置 － 纵向计次 × 11
位置左边 ＝ (横向计次 － 1) × 48
.如果真 (纵向计次 ％ 2 ＝ 1)
位置左边 ＝ 位置左边 ＋ 24
.如果真结束
位置顶边 ＝ 纵向计次 × 40
画板1.画图片 (临时整数, 位置左边, 位置顶边, , , －取颜色值 (128, 128, 128))
卸载图片 (临时整数)
' 画出随机9个×
临时整数 ＝ 载入图片 (#圆点叉)
.判断循环首 (计次变量 ＜ 9)
置随机数种子 ()
当前位置 ＝ 取随机数 (1, 121)
.如果真 (当前位置 ≠ 猫位置 且 圆点状态 [当前位置] ＝ 0)
计次变量 ＝ 计次变量 ＋ 1
圆点状态 [当前位置] ＝ 2
纵向计次 ＝ (当前位置 － 1) ＼ 11
横向计次 ＝ 当前位置 － 纵向计次 × 11
位置左边 ＝ (横向计次 － 1) × 48
.如果真 (纵向计次 ％ 2 ＝ 1)
位置左边 ＝ 位置左边 ＋ 24
.如果真结束
位置顶边 ＝ 纵向计次 × 40
画板1.画图片 (临时整数, 位置左边, 位置顶边, , , －取颜色值 (128, 128, 128))
.如果真结束

.判断循环尾 ()
卸载图片 (临时整数)