1.     向调试窗口输出：cwa
  2.     令 mx = split(x1,",")
  3.     令 my = split(y1,",")
  4.     如果 Form1.CheckBox1.Value = 1 则
  5.         延时 20 毫秒
  6.         dm.KeyPress(57)
  7.         延时 20 毫秒
  8.     条件结束
  9.     循环开始
  10.         令 cnm = 1
  11.         循环 cnm 从 1 到 2
  12.             dm.KeyPress(48)
  13.             循环 i 从 0 到 cwa
  14.                 调用 Move(mx(i),my(i))
  15.                 调用 ydpd()
  16.                 调用 find()
  17.             循环结束
  18.             如果 Form1.CheckBox2.Value = 1 则
  19.                 注释：换线
  20.             条件结束
  21.             调用 change(cnm)
  22.             延时 3000 毫秒
  23.             dm.keypress(57)
  24.         条件结束
  25.         如果 Form1.CheckBox4.Value = 1 则
  26.             注释： 打坐
  27.         条件结束
  28.         调用 Move(mx(0),my(0))
  29.         延时 1000 毫秒
  30.         dm.keypress(55)
  31.         调用 ydpd()
  32.         调用 dazuo
  33.     条件结束
  34. 循环结束
  35. 循环结束
  36. 子程序结束
  37. 子程序 dazuo()
  38.     dm.keypress(57)
  39.     延时 1000 毫秒
  40.     dm.KeyPress(86)
  41.     延时 20 毫秒
  42.     循环开始
  43.         令 col3 = dm.GetColor(230,90)
  44.         令 col = dm.GetColor(250,80)
  45.         延时 3000 毫秒
  46.         令 col2 = dm.GetColor(250,80)
  47.         向调试窗口输出：col
  48.         向调试窗口输出：col3
  49.         如果 col <> col2 则
  50.             dm.KeyPress(86)
  51.             跳出循环
  52.         否则如果 col2 = "d96d35" 并且 col3 <> "353b37" 则
  53.             dm.KeyPress(86)
  54.             跳出循环
  55.         条件结束
  56.         延时 1000 毫秒
  57.     循环结束
  58.     延时 20 毫秒
  59.     (语句无法识别，可能有错误): dm.KeyPress 57 '骑马
  60.     延时 20 毫秒
  61. 子程序结束
  62. (语句无法识别，可能有错误): Sub find() '找材料
  63. 如果 Form1.CheckBox3.Value = 1 则
  64.     标记 a
  65.     (语句无法识别，可能有错误): dm_ret = dm.FindColor(400,200,900,480,"ef2124-050505|fb2224-050505|fc2225-050505",1.0,4,iX,iY) '判断是否有怪
  66.     如果 iX >= 0 并且 iY >= 0 则
  67.         调用 zhaoguai()
  68.     条件结束
  69. 条件结束
  70. (语句无法识别，可能有错误): dm_ret = dm.FindColor(300,150,800,600,"06ff04-050505",1.0,4,intX,intY) '找材料
  71. 如果 intX >= 0 并且 intY >= 0 则
  72.     dm.moveto(intX,intY + 40)
  73.     调用 ydpd
  74.     延时 10 毫秒
  75.     dm.RightClick()
  76.     如果 Form1.CheckBox3.Value = 1 则
  77.         延时 1000 毫秒
  78.         循环 ni 从 1 到 20
  79.             令 color = dm.GetColor(560,571)
  80.             向调试窗口输出：color
  81.             如果 color <> "000000" 则
  82.                 调用 zhaoguai
  83.                 跳转到标记 a
  84.             条件结束
  85.             延时 200 毫秒
  86.         循环结束
  87.     否则
  88.         延时 5000 毫秒
  89.     条件结束
  90. 条件结束
  91. 子程序结束
  92. (语句无法识别，可能有错误): Sub Move(x,y) ' 自动寻路
  93. 延时 10 毫秒
  94. dm.KeyPress(77)
  95. 延时 10 毫秒
  96. dm.moveto(800,190)
  97. 延时 10 毫秒
  98. dm.Leftclick()
  99. 延时 10 毫秒
  100. 调用 zhuanhuan(x)