1.     条件结束
  2. 循环结束
  3. 延时100毫秒
  4. 按键<Enter>
  5. 标记 充电完成的确定
  6. 延时300毫秒
  7. x = -1
  8. y = -1
  9. 如果表达式 (x= -1 and y = -1) 为真,则循环执行
  10.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  11.     延时300毫秒
  12. 循环结束
  13. 延时100毫秒
  14. 按键<Enter>
  15. 延时200毫秒
  16. 标记 查看自己是否房主
  17. x = -1
  18. y = -1
  19. home = 0
  20. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  21. 如果表达式 (x > 0 and y > 0) 为真,则
  22.     home = 1
  23.     按键<Enter>
  24.     intx = -1
  25.     inty = -1
  26.     如果表达式 (intx = -1 and inty = -1) 为真,则循环执行
  27.         延时200毫秒
  28.         调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  29.     循环结束
  30.     按键<Enter>
  31.     延时200毫秒
  32.     按键<F5>
  33.     延时1000毫秒
  34.     tx = -1
  35.     ty = -1
  36.     调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  37.     如果表达式 (tx > 0 and ty > 0) 为真,则
  38.         延时200毫秒
  39.         按键<Enter>
  40.         延时200毫秒
  41.         跳转到标记 查看自己是否房主
  42.     条件结束
  43.     跳转到标记 进入战斗读取
  44. 条件结束
  45. 标记 准备
  46. 延时100毫秒
  47. 按键<Enter>
  48. 延时200毫秒
  49. 按键<F5>
  50. 延时500毫秒
  51. 如果 (rex,rey) 的颜色等于 #ffffff 则
  52.     跳转到标记 进入战斗读取
  53. 否则
  54.     延时100毫秒
  55.     按键<Enter>
  56.     跳转到标记 查看自己是否房主
  57. 条件结束
  58. 标记 进入战斗读取
  59. 延时1000毫秒
  60. x = -1
  61. y = -1
  62. fx = -1
  63. fy = -1
  64. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  65. 延时100毫秒
  66. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  67. 延时100毫秒
  68. 如果表达式 (fx > 0 and fy > 0) 为真,则
  69.     延时100毫秒
  70.     按键<Enter>
  71.     延时100毫秒
  72.     跳转到标记 查找准备标记
  73. 条件结束
  74. 如果表达式 (x > 0 and y > 0) 为真,则
  75.     跳转到标记 查找HP槽
  76. 条件结束
  77. 如果表达式 (home = 0) 为真,则
  78.     跳转到标记 查准备后变成房主
  79. 否则
  80.     跳转到标记 进入战斗读取
  81. 条件结束
  82. 标记 查准备后变成房主
  83. casex = -1
  84. casey = -1
  85. 调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
  86. 如果表达式 (casex > 0 and casey > 0) 为真,则
  87.     跳转到标记 查看自己是否房主
  88. 否则
  89.     跳转到标记 进入战斗读取
  90. 条件结束
  91. 标记 查找HP槽
  92. 延时5000毫秒
  93. x = -1
  94. y = -1
  95. intx = -1
  96. inty = -1
  97. 如果表达式 (x = -1 and y = -1) 为真,则循环执行
  98.     如果 (114,52) 的颜色等于 #fcff00 则
  99.         延时5000毫秒
  100.         调用外部VBScript子程序 FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)