1. 鼠标移到 825 , 428
  2. 延时100毫秒
  3. 右键单击
  4. 延时200毫秒
  5. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  6. 如果表达式 (atx > 0 and aty > 0) 为真,则
  7.     myx = 825
  8.     myy = 428
  9.     rex = 808
  10.     rey = 522
  11.     col = 2
  12.     左键单击
  13.     跳转到标记 查找准备标记
  14. 条件结束
  15. 左键单击
  16. //八号位
  17. 鼠标移到 950 , 459
  18. 延时100毫秒
  19. 右键单击
  20. 延时200毫秒
  21. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  22. 如果表达式 (atx > 0 and aty > 0) 为真,则
  23.     myx = 950
  24.     myy = 459
  25.     rex = 928
  26.     rey = 542
  27.     col = 2
  28.     左键单击
  29.     跳转到标记 查找准备标记
  30. 否则
  31.     左键单击
  32.     跳转到标记 定位
  33. 条件结束
  34. 标记 查找准备标记
  35. 延时300毫秒
  36. 按键<Enter>
  37. 鼠标移到 520 , 240
  38. x = -1
  39. y = -1
  40. 如果表达式 (x = -1 and y = -1) 为真,则循环执行
  41.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  42. 循环结束
  43. 延时100毫秒
  44. x = -1
  45. y = -1
  46. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  47. 如果表达式 (x > 0 and y > 0) 为真,则
  48.     跳转到标记 查找本机位置
  49. 否则
  50.     跳转到标记 查看自己是否房主
  51. 条件结束
  52. 标记 查找本机位置
  53. 延时100毫秒
  54. 鼠标移到 myx , myy
  55. 延时100毫秒
  56. 右键单击
  57. 延时100毫秒
  58. 标记 找充电选项
  59. x2 = -1
  60. y2 = -1
  61. a = 0
  62. 如果表达式 (x2 = -1 and y2 = -1) 为真,则循环执行
  63.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  64.     延时150毫秒
  65.     a = a + 1
  66.     如果表达式 (a > 2) 为真,则
  67.         鼠标移到 520 , 240
  68.         延时100毫秒
  69.         左键单击
  70.         延时100毫秒
  71.         跳转到标记 查找本机位置
  72.     条件结束
  73.     x3 = -1
  74.     y3 = -1
  75.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  76.     如果表达式 (x3 > 0 and y3 > 0) 为真,则
  77.         延时100毫秒
  78.         按键<Enter>
  79.         延时100毫秒
  80.         跳转到标记 查看自己是否房主
  81.     条件结束
  82. 循环结束
  83. 延时100毫秒
  84. 鼠标移到 x2+8 , y2+7
  85. 延时100毫秒
  86. 左键单击
  87. 延时100毫秒
  88. x3 = -1
  89. y3 = -1
  90. a = 0
  91. 如果表达式 (x3 = -1 and y3 = -1) 为真,则循环执行
  92.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  93.     延时150毫秒
  94.     a = a+1
  95.     如果表达式 (a > 3) 为真,则
  96.         鼠标移到 520 , 240
  97.         延时100毫秒
  98.         左键单击
  99.         延时100毫秒
  100.         跳转到标记 查找本机位置