1.     否则
  2.     条件结束
  3. 子程序结束
  4. 子程序 juqing
  5.     令 dm_ret = dm.FindStr(0,0,2000,2000,"剧","fdff3c-000000",1.0,intX,intY)
  6.     如果 intX >= 0 并且 intY >= 0 则
  7.         dm.MoveTo(intX,intY)
  8.         延时 100 毫秒
  9.         dm.LeftDoubleClick()
  10.         延时 1000 毫秒
  11.     否则
  12.     条件结束
  13. 子程序结束
  14. 子程序 wancheng
  15.     令 dm_ret = dm.FindStr(0,0,2000,2000,"成","f2e88f-000000",1.0,intX,intY)
  16.     如果 intX >= 0 并且 intY >= 0 则
  17.         dm.MoveTo(intX,intY)
  18.         延时 100 毫秒
  19.         dm.LeftDoubleClick()
  20.         延时 100 毫秒
  21.     否则
  22.         调用 jieshou
  23.     条件结束
  24. 子程序结束
  25. 子程序 jieshou
  26.     令 dm_ret = dm.FindStr(0,0,2000,2000,"受","f2e88f-000000",1.0,intX,intY)
  27.     如果 intX >= 0 并且 intY >= 0 则
  28.         dm.MoveTo(intX,intY)
  29.         延时 100 毫秒
  30.         dm.LeftDoubleClick()
  31.         延时 100 毫秒
  32.     否则
  33.     条件结束
  34. 子程序结束
  35. 子程序 goumai
  36.     令 dm_ret = dm.FindStr(0,0,2000,2000,"购","f2e88f-000000",1.0,intX,intY)
  37.     如果 intX >= 0 并且 intY >= 0 则
  38.         dm.MoveTo(intX,intY)
  39.         延时 100 毫秒
  40.         dm.LeftClick()
  41.         延时 1000 毫秒
  42.     否则
  43.     条件结束
  44.     令 dm_ret = dm.FindStr(0,0,2000,2000,"确","f2e88f-000000",1.0,intX,intY)
  45.     如果 intX >= 0 并且 intY >= 0 则
  46.         dm.MoveTo(intX,intY)
  47.         延时 100 毫秒
  48.         dm.LeftClick()
  49.         延时 100 毫秒
  50.     否则
  51.     条件结束
  52. 子程序结束
  53. 子程序 dati
  54.     令 dm_ret = dm.FindStr(1,0,2000,2000,"要","ffa000-000000",1.0,intX,intY)
  55.     如果 intX >= 0 并且 intY >= 0 则
  56.         dm.MoveTo(intX,intY)
  57.         延时 100 毫秒
  58.         dm.LeftDoubleClick()
  59.         延时 100 毫秒
  60.     否则
  61.     条件结束
  62.     延时 1000 毫秒
  63.     令 dm_ret = dm.FindStr(0,0,2000,2000,"未","ffa000-000000",1.0,intX,intY)
  64.     如果 intX >= 0 并且 intY >= 0 则
  65.         dm.MoveTo(intX,intY)
  66.         延时 100 毫秒
  67.         dm.LeftDoubleClick()
  68.         延时 100 毫秒
  69.     否则
  70.     条件结束
  71.     延时 1000 毫秒
  72.     令 dm_ret = dm.FindStr(0,0,2000,2000,"魔","ffa000-000000",1.0,intX,intY)
  73.     如果 intX >= 0 并且 intY >= 0 则
  74.         dm.MoveTo(intX + 20,intY)
  75.         延时 100 毫秒
  76.         dm.LeftDoubleClick()
  77.         延时 100 毫秒
  78.     否则
  79.     条件结束
  80.     延时 1000 毫秒
  81.     令 dm_ret = dm.FindStr(0,0,2000,2000,"光","ffa000-000000",1.0,intX,intY)
  82.     如果 intX >= 0 并且 intY >= 0 则
  83.         dm.MoveTo(intX - 10,intY)
  84.         延时 100 毫秒
  85.         dm.LeftDoubleClick()
  86.         延时 100 毫秒
  87.     否则
  88.     条件结束
  89.     延时 300 毫秒
  90.     令 dm_ret = dm.FindStr(0,0,2000,2000,"成","f2e88f-000000",1.0,intX,intY)
  91.     如果 intX >= 0 并且 intY >= 0 则
  92.         dm.MoveTo(intX,intY)
  93.         延时 100 毫秒
  94.         dm.LeftDoubleClick()
  95.         延时 1000 毫秒
  96.     否则
  97.     条件结束
  98. 子程序结束
  99. 子程序 daguai
  100.     令 dm_ret = dm.FindStr(0,0,2000,2000,"打","e5f2f2-000000",1.0,intX,intY)