1. //先定义变量
  2. dim x,y,bx,by,lx,ly,i,hm
  3. dim jt(7),t(8)
  4. jt(0)="s":jt(1)="x":jt(2)="z":jt(3)="y":jt(4)="1":jt(5)="3":jt(6)="7":jt(7)="9"
  5. t(0)="1t":t(1)="2t":t(2)="3t":t(3)="4t":t(4)="5t":t(5)="6t":t(6)="7t":t(7)="8t":t(8)="9t"
  6. y=501:by=542
  7. 标记 从头开始
  8. //检查游戏有没有开始,不然还没有开始就执行的哟?
  9. 如果 (376,484) 的颜色不等于 #c4efff 则
  10.     跳转到标记 从头开始
  11. 条件结束
  12. //如果已经出现在了箭头,就调用找数字的子程序,以确定它的起、始位置
  13. 调用子程序 找数字
  14. bx=x+35
  15. 如果表达式 (bx<hm) 为真,则循环执行
  16.     i=0
  17.     循环 8 遍
  18.         //按照变量上的图片循环找色
  19.         调用外部VBScript子程序 在屏幕区域里查找图形(x,y,bx,by,"Attachment:\"&jt(i)&".bmp",0.7,lx,ly)
  20.         如果表达式 (lx>0) 为真,则
  21.             //如果找到,就调用按箭头子程序
  22.             调用子程序 按箭头
  23.             延时30毫秒
  24.             //为了节省再找的时间,跳出寻找
  25.             跳转到标记 结束按键
  26.         条件结束
  27.         //如果没有找到,就再加上1,继续下找
  28.         i=i+1
  29.     循环结束
  30.     标记 结束按键
  31.     //再继续往下找另一个箭头
  32.     bx=bx+35
  33. 循环结束
  34. 标记 re
  35. //按空格的位置,如果大约是这个颜色就跳到标记re
  36. 如果 (652,482) 的颜色大约等于 #f7f0e9 则
  37.     跳转到标记 re
  38. 否则
  39.     //如果不等颜色就按空格
  40.     超级模拟按键<Space>
  41.     延时200毫秒
  42.     跳转到标记 从头开始
  43. 条件结束
  44. 跳转到标记 从头开始
  45. 子程序 按箭头
  46.     如果表达式 (i=0) 为真,则
  47.         超级模拟按键<Up>
  48.     否则如果(i=1)为真,则
  49.         超级模拟按键<Down>
  50.     否则如果(i=2)为真,则
  51.         超级模拟按键<Left>
  52.     否则如果(i=3)为真,则
  53.         超级模拟按键<Right>
  54.     否则如果(i=4)为真,则
  55.         超级模拟按键<Num 1>
  56.     否则如果(i=5)为真,则
  57.         超级模拟按键<Num 3>
  58.     否则如果(i=6)为真,则
  59.         超级模拟按键<Num 7>
  60.     否则如果(i=9)为真,则
  61.         超级模拟按键<Num 9>
  62.     条件结束
  63. 子程序结束,回到调用处
  64. //这个是检察出现的箭头数量
  65. 子程序 找数字
  66.     如果 (455,485) 的颜色等于 #98ff 则
  67.         如果 (479,485) 的颜色等于 #a1ff 则
  68.             x=359:hm=740
  69.             跳转到标记 14277
  70.         条件结束
  71.     条件结束
  72.     如果 (455,485) 的颜色等于 #98ff 则
  73.         如果 (474,484) 的颜色等于 #9aff 则
  74.             x=341:hm=765
  75.             跳转到标记 14277
  76.         条件结束
  77.     条件结束
  78.     i=0
  79.     循环 9 遍
  80.         调用外部VBScript子程序 在屏幕区域里查找图形(x,y,bx,by,"Attachment:\"&jt(i)&".bmp",0.7,lx,ly)
  81.         如果表达式 (lx>0) 为真,则
  82.             //如果找到就调用结果的数据
  83.             调用子程序 数字结果
  84.             跳转到标记 14277
  85.         条件结束
  86.         i=i+1
  87.     循环结束
  88.     标记 14277
  89. 子程序结束,回到调用处
  90. 子程序 数字结果
  91.     如果表达式 (i=0) 为真,则
  92.         //如果出再的是一个箭头,那么它的位置是如下,以此类推
  93.         x=520:hm=561
  94.     否则如果(i=1)为真,则
  95.         x=497:hm=579
  96.     否则如果(i=2)为真,则
  97.         x=482:h=595
  98.     否则如果(i=3)为真,则
  99.         x=466:h=613
  100.     否则如果(i=4)为真,则