1. e=30
  2. f=40
  3. q=0.8
  4. 标记 kaishi
  5. 延时20毫秒
  6. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  7. a=x+176
  8. b=y+325
  9. c=x+216
  10. d=y+365
  11. g=x+554
  12. x1=x+470
  13. y1=y+307
  14. x=0
  15. y=0
  16. n=1
  17. m=1
  18. 标记 xunhuan
  19. 如果表达式 (n=m) 为真,则
  20.     调用子程序 1
  21.     跳转到标记 xunhuan
  22. 条件结束
  23. 标记 jc
  24. 如果 (x1,y1) 的颜色大约等于 #DE2F30 则
  25.     按键<Space>
  26.     延时200毫秒
  27.     跳转到标记 kaishi
  28. 否则
  29.     跳转到标记 jc
  30. 条件结束
  31. 跳转到标记 kaishi
  32. 子程序 1
  33.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  34.     如果表达式 (x>a and y>b) 为真,则
  35.         按键<Num 1>
  36.         a=x+e
  37.         c=a+f
  38.         x=0
  39.         y=0
  40.     否则
  41.         调用子程序 2
  42.     条件结束
  43. 子程序结束,回到调用处
  44. 子程序 2
  45.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  46.     如果表达式 (x>a and y>b) 为真,则
  47.         按键<Num 2>
  48.         a=x+e
  49.         c=a+f
  50.         x=0
  51.         y=0
  52.     否则
  53.         调用子程序 3
  54.     条件结束
  55. 子程序结束,回到调用处
  56. 子程序 3
  57.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  58.     如果表达式 (x>a and y>b) 为真,则
  59.         按键<Num 3>
  60.         a=x+e
  61.         c=a+f
  62.         x=0
  63.         y=0
  64.     否则
  65.         调用子程序 4
  66.     条件结束
  67. 子程序结束,回到调用处
  68. 子程序 4
  69.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  70.     如果表达式 (x>a and y>b) 为真,则
  71.         按键<Num 4>
  72.         a=x+e
  73.         c=a+f
  74.         x=0
  75.         y=0
  76.     否则
  77.         调用子程序 6
  78.     条件结束
  79. 子程序结束,回到调用处
  80. 子程序 6
  81.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  82.     如果表达式 (x>a and y>b) 为真,则
  83.         按键<Num 6>
  84.         a=x+e
  85.         c=a+f
  86.         x=0
  87.         y=0
  88.     否则
  89.         调用子程序 7
  90.     条件结束
  91. 子程序结束,回到调用处
  92. 子程序 7
  93.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\ckd.bmp",1,x,y)
  94.     如果表达式 (x>a and y>b) 为真,则
  95.         按键<Num 7>
  96.         a=x+e
  97.         c=a+f
  98.         x=0
  99.         y=0
  100.     否则