1. 子程序结束
  2. 子程序 多选择战斗()
  3.     令 s = 10
  4.     标记 继续(子程序 多选择战斗)
  5.     如果 Form1.ComboBox2.ListIndex = 0 则
  6.         标记 等待_开始战斗(子程序 多选择战斗)
  7.         令 dm_ret = dm.FindStr(0,0,w,h,pass,"7eff00-000000",1.0,intX,intY)
  8.         如果 intX >= 0 并且 intY >= 0 则
  9.             dm.MoveTo(intX + 20,intY - 65)
  10.             延时 150 毫秒
  11.             dm.LeftClick()
  12.         条件结束
  13.         延时 10 毫秒
  14.         令 dm_ret = dm.FindStr(0,0,w,h,"开始战斗","ffd300-000000",1.0,intX,intY)
  15.         如果 intX >= 0 并且 intY >= 0 则
  16.             dm.MoveTo(intX + 20,intY + 8)
  17.             延时 150 毫秒
  18.             dm.LeftClick()
  19.         否则
  20.             延时 500 毫秒
  21.             跳转到标记 等待_开始战斗(子程序 多选择战斗)
  22.         条件结束
  23.         注释：战斗等待
  24.         标记 战斗等待(子程序 多选择战斗)
  25.         令 dm_ret = dm.FindStr(0,0,w,h,"确定","ffd300-000000",1.0,intX,intY)
  26.         如果 intX >= 0 并且 intY >= 0 则
  27.             dm.MoveTo(intX + 5,intY + 5)
  28.             延时 150 毫秒
  29.             dm.LeftClick()
  30.         否则
  31.             延时 500 毫秒
  32.             令 dm_ret = dm.FindPic(0,0,w,h,"宝箱开.bmp|宝箱关.bmp","000000",0.9,0,intX,intY)
  33.             如果 intX >= 0 并且 intY >= 0 则
  34.                 dm.MoveTo(intX,intY)
  35.                 延时 150 毫秒
  36.                 dm.LeftClick()
  37.             条件结束
  38.             跳转到标记 战斗等待(子程序 多选择战斗)
  39.         条件结束
  40.     否则如果 Form1.ComboBox2.ListIndex = 1 则
  41.         标记 等待_开始战斗0(子程序 多选择战斗)
  42.         令 dm_ret = dm.FindStr(0,0,w,h,pass,"7eff00-000000",1.0,intX,intY)
  43.         如果 intX >= 0 并且 intY >= 0 则
  44.             dm.MoveTo(intX + 20,intY - 65)
  45.             延时 100 毫秒
  46.             dm.LeftClick()
  47.         条件结束
  48.         延时 1000 毫秒
  49.         令 dm_ret = dm.FindStr(0,0,w,h,"免费机会","fff114-000000",1.0,intX,intY)
  50.         如果 intX >= 0 并且 intY >= 0 则
  51.             延时 10 毫秒
  52.             令 p1 = intX
  53.             令 p2 = intY
  54.             令 s = dm.Ocr(p1,p2,p1 + 120,p2 + 15,"30ff00-000000",1.0)
  55.             令 s = CLng(s)
  56.             如果 s = 0 则
  57.                 退出子程序
  58.             否则
  59.                 令 dm_ret = dm.FindStr(0,0,w,h,"开始战斗","ffd300-000000",1.0,intX,intY)
  60.                 如果 intX >= 0 并且 intY >= 0 则
  61.                     dm.MoveTo(intX + 20,intY + 8)
  62.                     延时 150 毫秒
  63.                     dm.LeftClick()
  64.                 条件结束
  65.                 注释：战斗与战斗结束
  66.                 延时 10 毫秒
  67.                 注释：战斗等待
  68.                 标记 战斗等待0(子程序 多选择战斗)
  69.                 令 dm_ret = dm.FindStr(0,0,w,h,"确定","ffd300-000000",1.0,intX,intY)
  70.                 如果 intX >= 0 并且 intY >= 0 则
  71.                     dm.MoveTo(intX + 5,intY + 5)
  72.                     延时 150 毫秒
  73.                     dm.LeftClick()
  74.                 否则
  75.                     延时 500 毫秒
  76.                     令 dm_ret = dm.FindPic(0,0,w,h,"宝箱开.bmp|宝箱关.bmp","000000",0.9,0,intX,intY)
  77.                     如果 intX >= 0 并且 intY >= 0 则
  78.                         dm.MoveTo(intX,intY)
  79.                         延时 150 毫秒
  80.                         dm.LeftClick()
  81.                     条件结束
  82.                     跳转到标记 战斗等待0(子程序 多选择战斗)
  83.                 条件结束
  84.             条件结束
  85.         否则
  86.             延时 1500 毫秒
  87.             跳转到标记 等待_开始战斗0(子程序 多选择战斗)
  88.         条件结束
  89.     条件结束
  90.     跳转到标记 继续(子程序 多选择战斗)
  91. 子程序结束
  92. 如果 Form1.CheckBox1.Value 则
  93.     令 Pass = "黄龙军"
  94.     调用 打开演义目标()
  95.     延时 500 毫秒
  96.     调用 多选择战斗()
  97. 条件结束
  98. 如果 Form1.CheckBox2.Value 则
  99.     令 Pass = "裴元绍军"
  100.     调用 打开演义目标()