- face=0
- 否则
- //右移
- 硬件模拟按住<Right>
- 延时500毫秒
- 硬件模拟弹起<Right>
- face=1
- 条件结束
- 延时100毫秒
- 条件结束
- 循环结束
- 子程序 拾取动作
- s=x-wx
- h=Abs(s)-30
- t=h/v
- 延时500毫秒
- 如果表达式 (h>=0) 为真,则
- 如果表达式 (s>0) 为真,则
- 硬件模拟按住<Left>
- 延时t毫秒
- 硬件模拟弹起<Left>
- face=0
- pt=pt-t
- 否则如果(s<0)为真,则
- 硬件模拟按住<Right>
- 延时t毫秒
- 硬件模拟弹起<Right>
- face=1
- pt=pt+t
- 条件结束
- 条件结束
- 延时100毫秒
- 按键<Space>
- 延时500毫秒
- 按键<Space>
- 延时100毫秒
- 子程序结束,回到调用处
- 子程序 挖矿
- s=x-wx
- h=Abs(s)-90
- t=h/v
- 延时100毫秒
- 如果表达式 (h>0) 为真,则
- 如果表达式 (s>0) 为真,则
- 硬件模拟按住<Left>
- 延时t毫秒
- 硬件模拟弹起<Left>
- face=0
- pt=pt-t
- 否则如果(s<0)为真,则
- 硬件模拟按住<Right>
- 延时t毫秒
- 硬件模拟弹起<Right>
- face=1
- pt=pt+t
- 条件结束
- 否则
- 如果表达式 (s>0) 为真,则
- 如果表达式 (face=1) 为真,则
- 硬件模拟按键<Left>
- face=0
- n=n-1
- 条件结束
- 否则如果(s<0)为真,则
- 如果表达式 (face=0) 为真,则
- 硬件模拟按键<Right>
- face=1
- n=n+1
- 条件结束
- 条件结束
- 条件结束
- 延时100毫秒
- 循环 9 遍
- 按住<Z>
- 延时2000毫秒
- 弹起<Z>
- 延时100毫秒
- 如果表达式 (c=1) 为真,则
- wx=-1
- wy=-1
- 否则
- 标记 采矿出包
- 调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
- 如果表达式 (x>=0 or y>=0) 为真,则
- x=x+21
- 调用外部VBScript子程序 在屏幕区域里查找图形(240,y1,1039,y2,"血.bmp",0.8,x,y)
- 否则
- 弹起<Z>
- Randomize
- r=Rnd
- 如果表达式 (r>=0.5) 为真,则
- //左移
- 硬件模拟按住<Left>
- 延时500毫秒
- 硬件模拟弹起<Left>
- face=0
- pt=pt-500
- 否则
- //右移
- 硬件模拟按住<Right>