1.             如果 i 则
  2.                 令 std = std & vbCrLf & CStr(XYArray(0,i)) & "," & CStr(XYArray(1,i)) & FileNatureArray(XYArray(2,i))
  3.             否则
  4.                 令 std = CStr(XYArray(0,i)) & "," & CStr(XYArray(1,i)) & "," & FileNatureArray(XYARRAY(2,i))
  5.             条件结束
  6.             令 i = i + 1
  7.         循环结束
  8.         调用 （命令库 xyq）鼠标移动(XYArray(0,0) + 2,XYArray(1,0) + 1)
  9.         延时 50 毫秒
  10.         （鼠标）右键单击, 1次
  11.         注释：在调用一次关闭对话框
  12.     条件结束
  13. 子程序结束
  14. 注释：检查加血蓝
  15. 子程序 加血蓝()
  16.     令 rhp1 = 0
  17.     令 rhp2 = 0
  18.     令 rhp3 = 0
  19.     令 rhp4 = 0
  20.     令 rhp5 = 0
  21.     令 rmp1 = 0
  22.     令 rmp2 = 0
  23.     令 rmp3 = 0
  24.     令 rmp4 = 0
  25.     令 rmp5 = 0
  26.     令 bhp1 = 0
  27.     令 bhp2 = 0
  28.     令 bhp3 = 0
  29.     令 bhp4 = 0
  30.     令 bhp5 = 0
  31.     令 bmp1 = 0
  32.     令 bmp2 = 0
  33.     令 bmp3 = 0
  34.     令 bmp4 = 0
  35.     令 bmp5 = 0
  36.     令 i = 0
  37.     循环 2 次
  38.         循环 5 次
  39.         循环结束
  40.     循环结束
  41. 子程序结束
  42. 注释：OnScriptExit过程在脚本结束时执行，即使脚本执行到一半的时候，你按了停止热键，它也会执行了这个过程再停止，这样能保证占用的资源被释放
  43. 子程序 OnScriptExit()
  44.     注释：释放用LoadBMP命令载入到内存中的图片数据
  45.     调用 FindPicture5_04.FreeBMP(HandleArray)
  46. 子程序结束