1. 如果表达式 (k<241) 为真,则
  2.     // 到达屏幕边缘重新开始
  3.     跳转到标记 start
  4. 否则
  5.     k=40
  6.     跳转到标记 start
  7. 条件结束
  8. // 以下是打怪功能
  9. 标记 pk
  10. 延时10毫秒
  11. 左键单击
  12. 延时1000毫秒
  13. xh=0
  14. 如果表达式 (Shape = 1223392300) 为真,则循环执行
  15.     延时200毫秒
  16.     调用子程序 jx
  17.     调用外部VBScript子程序 Shape=GetCursorShape(0)
  18.     延时1000毫秒
  19. 循环结束
  20. //以下是拣物
  21. 按键<Alt>
  22. 延时1000毫秒
  23. 按键<Alt>
  24. 延时300毫秒
  25. 调用子程序 jx
  26. 按键<Alt>
  27. 延时300毫秒
  28. 跳转到标记 start
  29. 脚本停止运行
  30. 子程序 jx
  31.     如果 (524,141) 的颜色不等于 #2924f7 则
  32.         按键<F1>
  33.         延时30毫秒
  34.     条件结束
  35.     如果 (502,152) 的颜色不等于 #d62429 则
  36.         按键<F2>
  37.         延时30毫秒
  38.     条件结束
  39.     如果 (615,653) 的颜色不等于 #399eff 则
  40.         按键<F3>
  41.         延时30毫秒
  42.     条件结束
  43.     如果 (233,661) 的颜色不等于 #ff00 则
  44.         按键<F4>
  45.         延时300毫秒
  46.     条件结束
  47. 子程序结束,回到调用处