1. 注释:==============窗口分辨率=================
  2. 令 Hwnd = Window.MousePoint()
  3. 令 sRect = Window.GetClientRect(Hwnd)
  4. 定义变量 MyArray
  5. 令 MyArray = Split(sRect,"|")
  6. 令 Ux = CLng(MyArray(0))
  7. 令 Uy = CLng(MyArray(1))
  8. 注释:横竖距离= 48
  9. (语句无法识别,可能有错误): Do//===================横向程序段===================
  10. 调用 开始()
  11. 调用 Msg.ShowScrTXT(0,0,1024,768,"当前状态:游戏进行中...","0000FF")
  12. (语句无法识别,可能有错误): x = 293 + Ux : y = 118 + Uy//起点坐标
  13. (语句无法识别,可能有错误): For 8//循环8横排
  14. (语句无法识别,可能有错误): For 5//横向循环5次
  15. 令 yanse1 = 得到指定点 (x, y) 的颜色
  16. 令 x1 = x
  17. 令 x = x + 48
  18. 令 yanse2 = 得到指定点 (x, y) 的颜色
  19. 令 x2 = x
  20. 令 x = x + 48
  21. 令 yanse3 = 得到指定点 (x, y) 的颜色
  22. 令 x3 = x
  23. 令 x = x + 48
  24. 令 yanse4 = 得到指定点 (x, y) 的颜色
  25. 令 x4 = x
  26. 注释:==================横向判断程序=================
  27. 如果 yanse1 <> yanse2 并且 yanse1 = yanse3 并且 yanse1 = yanse4 则
  28.     (鼠标)移动到 (x1, y)
  29.     延时 10 毫秒
  30.     (鼠标)左键单击, 1次
  31.     延时 10 毫秒
  32.     (鼠标)移动到 (x2, y)
  33.     延时 10 毫秒
  34.     (鼠标)左键单击, 1次
  35.     延时 10 毫秒
  36. 条件结束
  37. 如果 yanse1 = yanse2 并且 yanse1 <> yanse3 并且 yanse1 = yanse4 则
  38.     (鼠标)移动到 (x3, y)
  39.     延时 10 毫秒
  40.     (鼠标)左键单击, 1次
  41.     延时 10 毫秒
  42.     (鼠标)移动到 (x4, y)
  43.     延时 10 毫秒
  44.     (鼠标)左键单击, 1次
  45.     延时 10 毫秒
  46. 条件结束
  47. 令 x = x1 + 48
  48. 循环结束
  49. 令 x = 293 + Ux
  50. 令 y = y + 48
  51. 循环结束
  52. 注释:==========竖向程序段========
  53. 调用 开始()
  54. (语句无法识别,可能有错误): x = 293 + Ux : y = 118 + Uy//起点坐标
  55. (语句无法识别,可能有错误): For 8//循环8竖排
  56. (语句无法识别,可能有错误): For 5//竖向循环5次
  57. 令 yanse1 = 得到指定点 (x, y) 的颜色
  58. 令 y1 = y
  59. 令 y = y + 48
  60. 令 yanse2 = 得到指定点 (x, y) 的颜色
  61. 令 y2 = y
  62. 令 y = y + 48
  63. 令 yanse3 = 得到指定点 (x, y) 的颜色
  64. 令 y3 = y
  65. 令 y = y + 48
  66. 令 yanse4 = 得到指定点 (x, y) 的颜色
  67. 令 y4 = y
  68. 注释:==================竖向判断程序=================
  69. 如果 yanse1 <> yanse2 并且 yanse1 = yanse3 并且 yanse1 = yanse4 则
  70.     (鼠标)移动到 (x, y1)
  71.     延时 10 毫秒
  72.     (鼠标)左键单击, 1次
  73.     延时 10 毫秒
  74.     (鼠标)移动到 (x, y2)
  75.     延时 10 毫秒
  76.     (鼠标)左键单击, 1次
  77.     延时 10 毫秒
  78. 条件结束
  79. 如果 yanse1 = yanse2 并且 yanse1 <> yanse3 并且 yanse1 = yanse4 则
  80.     (鼠标)移动到 (x, y3)
  81.     延时 10 毫秒
  82.     (鼠标)左键单击, 1次
  83.     延时 10 毫秒
  84.     (鼠标)移动到 (x, y4)
  85.     延时 10 毫秒
  86.     (鼠标)左键单击, 1次
  87.     延时 10 毫秒
  88. 条件结束
  89. 令 y = y1 + 48
  90. 循环结束
  91. 令 x = x + 48
  92. 令 y = 118 + Uy
  93. 循环结束
  94. 注释:=============================================================================
  95. 注释: 横向交叉
  96. 调用 开始()
  97. (语句无法识别,可能有错误): x = 293 + Ux : y = 118 + Uy//起点坐标
  98. 循环 7 次
  99.     循环 6 次
  100.         注释:===================横向交叉判断==================