1. 令 x = GetSysInfo.GetScreenResolutionX()
  2. 令 y = GetSysInfo.GetScreenResolutionY()
  3. 函数 m_c(img)
  4.     注释:确定1,确定2,宝箱,全部拾取,再次挑战,片头,查看攻略
  5.     注释:Call m_c("确定1")
  6.     从左上到右下查找图片 "Attachment:\" & img & ".bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:x 下:y),相似度 0.8
  7.     如果 intX > 0 并且 intY > 0 则
  8.         令 m_c = true
  9.         (鼠标)移动到 (intX + 5, intY + 5)
  10.         (鼠标)左键单击, 1次
  11.         (鼠标)移动到 (0, 0)
  12.         锁定鼠标位置
  13.     否则
  14.         令 m_c = false
  15.     条件结束
  16. 函数结束
  17. 函数 查看攻略()
  18.     从左上到右下查找图片 "Attachment:\查看攻略.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:x 下:y),相似度 0.8
  19.     如果 intX > 0 并且 intY > 0 则
  20.         令 查看攻略 = true
  21.         (键盘)按下 "Right" 键
  22.     否则
  23.         令 查看攻略 = false
  24.         (键盘)弹起 "Right" 键
  25.     条件结束
  26. 函数结束
  27. 定义变量 dq_num,dq_fb
  28. 令 dq_fb = 0
  29. 用户定义变量 Var1=0 "请输入要进入副本的次数"
  30. 如果 not IsNumeric(Var1) 则
  31.     令 Var1 = 0
  32. 条件结束
  33. 用户定义变量 dr_num=DropList{"3人":"3"|"2人":"2"|"1人":"1"}=3 "请选择副本中敌人数量"
  34. 用户定义变量 dz_pb=DropList{"打坐":"1"|"跑步":"0"}=1 "完成副本次数后进行"
  35. 循环 Var1 次
  36.     令 dq_fb = dq_fb + 1
  37.     注释:战斗部分
  38.     标记 战斗部分
  39.     注释:dr_num = 3
  40.     令 dq_num = 0
  41.     循环 dr_num 次
  42.         令 dq_num = dq_num + 1
  43.         循环当 查看攻略() = true 时
  44.             注释:Call 查看攻略()
  45.         循环结束
  46.         调用 Msg.Tips("当前副本第" & dq_fb & "次,第" & dq_num & "次战斗")
  47.         循环当 m_c("确定1") = false 时
  48.             注释:Call m_c("确定1")
  49.         循环结束
  50.         延时 1000 毫秒
  51.     循环结束
  52.     注释:结算部分
  53.     标记 结算部分
  54.     循环当 m_c("确定2_2") = false 时
  55.         注释:Call m_c("确定2") = false
  56.     循环结束
  57.     延时 1000 毫秒
  58.     循环当 m_c("宝箱") = false 时
  59.         注释:Call m_c("宝箱") = false
  60.     循环结束
  61.     循环当 m_c("全部拾取") = false 时
  62.         注释:Call m_c("全部拾取") = false
  63.     循环结束
  64.     注释:循环部分
  65.     标记 循环部分
  66.     如果 Var1 = dq_fb 则
  67.         循环当 m_c("退出") = false 时
  68.             注释:Call m_c("退出") = false
  69.         循环结束
  70.         延时 2000 毫秒
  71.     否则
  72.         循环当 m_c("再次挑战") = false 时
  73.             注释:Call m_c("再次挑战") = false
  74.         循环结束
  75.         循环当 m_c("片头") = true 时
  76.             注释:Call m_c("片头") = true
  77.         循环结束
  78.     条件结束
  79. 循环结束
  80. 注释:结束部分
  81. 标记 结束部分
  82. 如果 dz_pb = 1 则
  83.     循环当 m_c("练功") = false 时
  84.         注释:Call m_c("练功") = false
  85.     循环结束
  86. 否则
  87.     循环当 dz_pb = 0 时
  88.         (键盘)按下 "left" 键
  89.         延时 3000 毫秒
  90.         (键盘)弹起 "left" 键
  91.         延时 60000 毫秒
  92.         (键盘)按下 "Down" 键
  93.         延时 1000 毫秒
  94.         (键盘)弹起 "Down" 键
  95.         延时 60000 毫秒
  96.         (键盘)按下 "Right" 键
  97.         延时 3000 毫秒
  98.         (键盘)弹起 "Right" 键
  99.         延时 60000 毫秒
  100.         (键盘)按下 "Up" 键