用e语言玩象棋游戏
。组装？窗户组件1
。汇编变量？在棋盘的左边？整数
。汇编变量？棋盘的顶边？整数
。汇编变量？棋盘宽度，？整数
。汇编变量？棋盘高度，？整数
。汇编变量？棋盘，？整型，？,?"5,4"
。汇编变量？棋位，棋位，，？"5,4"
。汇编变量？当前玩家，？整数
。汇编变量？红色棋子的数量？整数
。汇编变量？绿色棋子的数量？整数
。汇编变量？选择棋子。逻辑式
。汇编变量？丢棋子？逻辑式
。汇编变量？选择一个孩子？位置
。汇编变量？动一动，？位置
。汇编变量？越狱次数？整数
。子程序？_ _开始窗口_已创建
棋盘的左边？=?30
棋盘的顶边？=?30
棋盘宽度？=?250
棋盘高度？=?322
初始化？()
画棋盘？()
。子程序？初始化，？,?,?初始化棋盘，确定棋子布局。
。局部变量？rq，？整数
。局部变量？rq1，？整数
。如果？(红色先走。入选？=?真实)
当前玩家？=?#红场
红棋。调水平？(#顶部)
否则。
当前玩家？=?#绿色广场
绿色象棋。调水平？(#顶部)
如果结束了
选个儿子。x？=?0
选个儿子。y？=?0
Luozi.x？=?0
Luozi.y？=?0
选棋子？=?真实的
丢棋子？=?走反面？(选择棋子)
越狱次数？=?0
？这是用来确定棋子的位置。
。先算周期？(5,?rq1)
。先算周期？(4,?rq)
棋盘？[rq1]？[rq]？=?#空白
棋位？[rq1]？[rq]。向左？=?(rq？-?1)?×?72?+?六
棋位？[rq1]？[rq]。顶边？=?(rq1？-?1)?×?72?+?六
棋位？[rq1]？[rq]。宽度？=?(rq？-?1)?×?72?+?54
棋位？[rq1]？[rq]。身高？=?(rq1？-?1)?×?72?+?54
算周期结束？()
算周期结束？()
？在这里决定棋子的布局。
？棋盘？[2]?[1]?=?#红场
？棋盘？[1]?[2]?=?#红场
？棋盘？[3]?[1]?=?#绿色广场
？棋盘？[5]?[1]?=?#绿色广场
棋盘？[1]?[1]?=?#红场
棋盘？[1]?[2]?=?#红场
棋盘？[1]?[3]?=?#红场
棋盘？[1]?[4]?=?#红场
棋盘？[2]?[1]?=?#红场
棋盘？[2]?[4]?=?#红场
棋盘？[4]?[1]?=?#绿色广场
棋盘？[4]?[4]?=?#绿色广场
棋盘？[5]?[1]?=?#绿色广场
棋盘？[5]?[2]?=?#绿色广场
棋盘？[5]?[3]?=?#绿色广场
棋盘？[5]?[4]?=?#绿色广场
。子程序？画一个棋盘。,?,?画一个棋盘
。局部变量？容器，？整数
处理事件？()
画板2。清楚了吗？(,?,?,?)
画板2。刷颜色？=?#灰色
画板2。画笔粗细？=?2
。可变循环头？(0,?4,?1,?容器)
画板2。画一条直线？(在棋盘的左边？集装箱？×?72?+?棋盘的顶边？棋盘宽度？-?4,?集装箱？×?72?+?棋盘的顶部边缘)
。可变循环尾？()
。可变循环头？(0,?3,?1,?容器)
画板2。画一条直线？(集装箱？×?72?+?在棋盘的左边？棋盘的顶边？集装箱？×?72?+?在棋盘的左边？棋盘高度？-?4)
。可变循环尾？()
画棋子？()
画板2。复制？(,?,?,?,?画板1，，？,?)
。子程序？画棋子。,?,?根据数组的值绘制棋子
。局部变量？ys，？整数
。局部变量？rq，？整数
。局部变量？rq1，？整数
红色的有几件？=?0
有多少绿色的棋子？=?0
。先算周期？(5,?rq1)
。先算周期？(4,?rq)
画板2。刷颜色？=?#灰色
如果是真的呢？(选棋子？=?假的？然后呢。选个儿子。x？=?rq？然后呢。选个儿子。y？=?rq1)
画板2。刷颜色？=?#白色
如果真的结束了。
ys？=?棋盘？[rq1]？[rq]
。审判开始了？(ys？=?#红色)
ys？=?#红色
红色的有几件？=?红色的有几件？+?1
法官？(ys？=?#绿色方块)
ys？=?#深绿色
有多少绿色的棋子？=?有多少绿色的棋子？+?1
。默认
到循环的尽头？()
审判结束
画板2。刷颜色？=?ys
画板2。画椭圆？(棋位？[rq1]？[rq]。左，？棋位？[rq1]？[rq]。顶边？棋位？[rq1]？[rq]。宽度，？棋位？[rq1]？[rq]。高度)
算周期结束？()
算周期结束？()
如果是真的呢？(红件数？>?6?还是？有多少绿色的棋子？>?6)
信息盒？(#你是不是搞错了？0,?“哎。有错误！”)
结束？()
如果真的结束了。
。子程序？_画板1_鼠标左键按下，？逻辑型？,?确定点击位置，移动棋子。
。参数？侧卧位，？整数
。参数？纵向位置？整数
。参数？功能键状态，？整数
。局部变量？rq，？整数
。局部变量？rq1，？整数
。先算周期？(5,?rq1)
。先算周期？(4,?rq)
如果是真的呢？(棋位？[rq1]？[rq]。向左？
如果是真的呢？(棋位？[rq1]？[rq]。顶边？
如果是真的呢？(棋盘？[rq1]？[rq]？=?当前玩家)
选个儿子。x？=?rq
选个儿子。y？=?rq1
选棋子？=?错误的
丢棋子？=?走反面？(选择棋子)
如果真的结束了。
如果是真的呢？(棋盘？[rq1]？[rq]？=?#空白？然后呢。丢棋子？=?真实)
Luozi.x？=?rq
Luozi.y？=?rq1
如果是真的呢？(取绝对值？(选儿子。x？-?Luozi.x)？=?1?还是？取一个绝对值？(选儿子。y？-?落子。y)？=?1)
如果是真的呢？(比特异或？(取绝对值？(选儿子。x？-?x)，？取一个绝对值？(选儿子。y？-?夏紫。y))？=?1)?？使用比特异或可以将棋子的移动范围限制在水平和垂直两个方向，避免斜向移动。
棋盘？【选择者。Y]？[紫萱。X]？=?#空白
棋盘？【罗子。Y]？【罗子。X]？=?当前玩家
处理事件？()
判断胜负？()
选棋子？=?真实的
丢棋子？=?走反面？(选择棋子)
如果真的结束了。
如果真的结束了。
如果真的结束了。
如果真的结束了。
如果真的结束了。
算周期结束？()
算周期结束？()
画棋盘？()
如果是真的呢？(红件数？=?0)
信息盒？(“绿色必胜！”,?0,?)
初始化？()
画棋盘？()
如果真的结束了。
如果是真的呢？(绿色件数？=?0)
信息盒？(“红胜！”,?0,?)
初始化？()
画棋盘？()
如果真的结束了。
。子程序？判断胜负，，？,?你赢了？还是我赢了？
。局部变量？rq，？整数
。局部变量？txt，？文本类型
。局部变量？num，？整数
。局部变量？在家吗？整数
。如果？(现任玩家？=?#红色)
在家吗？=?#绿色广场
绿色象棋。调水平？(#顶部)
否则。
在家吗？=?#红场
红棋。调水平？(#顶部)
如果结束了
txt？=?""
。先算周期？(4,?rq)
。审判开始了？(棋盘？【罗子。Y]？[rq]？=?当前玩家)
txt？=?txt？+?"1"
法官？(棋盘？【罗子。Y]？[rq]？=?右家)
txt？=?txt？+?"2"
法官？(棋盘？【罗子。Y]？[rq]？=?#空白)
txt？=?txt？+?"0"
。默认
审判结束
算周期结束？()
num？=?到值吗？(txt)
输出调试文本？(“X=？”？+?txt)
如果是真的呢？(num？=?112?还是？num？=?211?还是？num？=?1120?还是？num？=?2110)
。先算周期？(4,?rq)
如果是真的呢？(棋盘？【罗子。Y]？[rq]？=?右家)
棋盘？【罗子。Y]？[rq]？=?#空白
。如果？(对家？=?#红色)
红色的有几件？=?红色的有几件？-?1
否则。
有多少绿色的棋子？=?有多少绿色的棋子？-?1
如果结束了
如果真的结束了。
算周期结束？()
如果真的结束了。
txt？=?""
。先算周期？(5,?rq)
。审判开始了？(棋盘？[rq]？【罗子。X]？=?当前玩家)
txt？=?txt？+?"1"
法官？(棋盘？[rq]？【罗子。X]？=?右家)
txt？=?txt？+?"2"
法官？(棋盘？[rq]？【罗子。X]？=?#空白)
txt？=?txt？+?"0"
。默认
审判结束
算周期结束？()
num？=?到值吗？(txt)
输出调试文本？(“Y=？”？+?txt)
如果是真的呢？(num？=?112?还是？num？=?1120?还是？num？=?11200?还是？num？=?211?还是？num？=?2110?还是？num？=?21100)
。先算周期？(5,?rq)
如果是真的呢？(棋盘？[rq]？【罗子。X]？=?右家)
棋盘？[rq]？【罗子。X]？=?#空白
。如果？(对家？=?#红色)
红色的有几件？=?红色的有几件？-?1
否则。
有多少绿色的棋子？=?有多少绿色的棋子？-?1
如果结束了
如果真的结束了。
算周期结束？()
如果真的结束了。
如果是真的呢？(红件数？=?1?还是？有多少绿色的棋子？=?1)
如果是真的呢？(红件数？=?1?然后呢。有多少绿色的棋子？=?1)
信息盒？(#不可能，？0,?“不可能！”)
_重新开始_选定？()
回归？()
如果真的结束了。
如果是真的呢？(红件数？=?1?然后呢。当前玩家？=?#红色)
越狱次数？=?越狱次数？+?1
如果真的结束了。
如果是真的呢？(绿色件数？=?1?然后呢。当前玩家？=?#绿色方块)
越狱次数？=?越狱次数？+?1
如果真的结束了。
标签2。标题？=?“越狱次数”？+?发短信吗？(逃脱次数)
如果是真的呢？(逃跑次数？=?10)
奖励棋子？()
越狱次数？=?0
标签2。标题？=?""
如果真的结束了。
如果真的结束了。
当前玩家？=?坐在自己对面的一方
。子程序？奖励棋子，，？,?给你一个逃跑的机会。
。局部变量？wb，？文本类型
。局部变量？m，？整数
。局部变量？n，？整数
画棋盘？()
。如果？(现任玩家？=?#红色)
wb？=?“红方”
否则。
wb？=?“绿党”
如果结束了
信息盒？(“因为？”？+?wb？+?“我不断和对手周旋，获得了足够的时间。援军到了！”,?0,?)
设置一个随机数种子？()
m？=?取随机数？(1,?4)
n？=?取随机数？(1,?5)
判断周期的开始？(棋盘？[n]？[m]？≠?#空白)
m？=?取随机数？(1,?4)
n？=?取随机数？(1,?5)
判断周期结束？()
棋盘？[n]？[m]？=?当前玩家
。子程序？_重新启动_选定
初始化？()
画棋盘？()
。子程序？_撤消步骤_选定
回归？()
。子程序？_退出_选定
结束？()
。子程序？_红色优先_选定
红色先来。入选？=?真实的
绿色先走。入选？=?错误的
。子程序？_绿党优先_选中
红色先来。入选？=?错误的
绿色先走。入选？=?真实的
。子程序？_关于_选定的
加载？(关于窗户？,?真实)
。子程序？_ button 1_被点击。
画板1。获得焦点？()
_重新开始_选定？()
。子程序？_ Button 2_已被单击
画板1。获得焦点？()
_退出_选定？()
。子程序？_按钮3_点击
画板1。获得焦点？()
_关于_选定？()
控件具有