- 按键 <Down>
- 条件结束
- //downn
- 调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
- 如果表达式 (intX>0) 为真,则
- 按键 <Up>
- 条件结束
- //rleft
- 调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
- 如果表达式 (intX>0) 为真,则
- 按键 <Right>
- 条件结束
- //rright
- 调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
- 如果表达式 (intX>0) 为真,则
- 按键 <Left>
- 条件结束
- 条件结束
- //判断空格
- 如果 (392+MyArray(0),463+MyArray(1)) 的颜色大约等于 #ffffff 则
- 如果 (596+MyArray(0),400+MyArray(1)) 的颜色大约等于 #7DA0A5 则
- 延时speed毫秒
- 按键 <Space>
- 条件结束
- 条件结束
- //判断是否结束
- 如果 (218+MyArray(0),71+MyArray(1)) 的颜色大约等于 #9B4C48 则
- 鼠标移到 657+MyArray(0) , 63+MyArray(1)
- 延时100毫秒
- 左键单击
- 延时1000毫秒
- 跳转到标记 主程序
- 条件结束
- //按键
- 检测上次按键,保存到变量key中
- 如果表达式 (key=189) 为真,则
- max=max-1
- key=-1
- 否则如果(key=187)为真,则
- max=max+1
- key=-1
- 否则如果(key=109)为真,则
- speed=speed-1
- key=-1
- 否则如果(key=107)为真,则
- speed=speed+1
- key=-1
- 否则如果(key=116)为真,则
- 如果表达式 (off=1) 为真,则
- off=0
- 否则如果(off=0)为真,则
- off=1
- 条件结束
- key=-1
- 否则如果(key=117)为真,则
- 调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
- key=-1
- 条件结束
- //屏显
- 如果表达式 (off=1) 为真,则
- n="跳舞次数"&sum&"最大次数"&max&"空格延迟"&(speed-65)&"自动关机开启"
- 否则
- n="跳舞次数"&sum&"最大次数"&max&"空格延迟"&(speed-65)&"____________"
- 条件结束
- 调用插件命令 Msg.ShowScrTXT(10,10,500,500,n,"ffff00")
- //循环++
- x=x+63
- 循环结束
- 跳转到标记 跳舞
- 子程序结束,回到调用处