1.         条件结束
  2.     循环结束
  3.     myfile.close
  4.     set fso = nothing
  5. 子程序结束,回到调用处
  6. 子程序 读取血量色点
  7.     HPlowerY = 597-CInt(HPlower/100*86)
  8.     set fso=CreateObject("Scripting.FileSystemObject")
  9.     set myfile=fso.OpenTextFile(ScriptFolder & HpSpColorFile,1)
  10.     myfile.skip(6*(HPlowerY-511))
  11.     HPlowerColor = myfile.read(6)
  12.     myfile.close
  13.     set fso = nothing
  14. 子程序结束,回到调用处
  15. 子程序 取得技能使用位置
  16.     Mystring="鼠标右键点击技能使用位置(推荐人物身上比较保险)..."
  17.     调用子程序 说话
  18.     标记 技能使用位置取得
  19.     等待按鼠标键，保存到变量Mouse中
  20.     如果表达式 (Mouse = 32773) 为真,则
  21.         调用外部VBScript子程序 得到鼠标当前位置(Skill_X,Skill_Y)
  22.         Mystring = "技能使用位置[" & Skill_X & "," & Skill_Y & "]..."
  23.         调用子程序 说话
  24.         调用子程序 取得怪物位置
  25.     否则
  26.         跳转到标记 技能使用位置取得
  27.     条件结束
  28. 子程序结束,回到调用处
  29. 子程序 取得怪物位置
  30.     Mystring="鼠标右键点击怪物位置..."
  31.     调用子程序 说话
  32.     标记 怪物位置取得
  33.     等待按鼠标键，保存到变量Mouse中
  34.     如果表达式 (Mouse = 32773) 为真,则
  35.         调用外部VBScript子程序 得到鼠标当前位置(Skill_X,Skill_Y)
  36.         Mystring = "怪物位置[" & Attack_X & "," & Attack_Y & "]..."
  37.         调用子程序 说话
  38.         调用子程序 确认开始
  39.     否则
  40.         跳转到标记 怪物位置取得
  41.     条件结束
  42. 子程序结束,回到调用处
  43. 子程序 确认开始
  44.     Mystring="取点完毕,开始挂机吗? <Y> OR <N>"
  45.     调用子程序 说话
  46.     调用子程序 等待按键
  47.     如果表达式 (AnJian = 89) 为真,则
  48.         跳转到标记 准备开始
  49.     否则如果(AnJian =78)为真,则
  50.         调用子程序 取得技能使用位置
  51.     否则
  52.         调用子程序 确认开始
  53.     条件结束
  54. 子程序结束,回到调用处