1.             否则如果 wyemx > 0 并且 wyemy > 0 则
  2.                 令 dj(dji) = wyem
  3.             否则如果 sxdtpx > 0 并且 sxdtpy > 0 则
  4.                 令 dj(dji) = sxdtp
  5.             否则如果 ysx > 0 并且 ysy > 0 则
  6.                 令 dj(dji) = ys
  7.             否则如果 hjscx > 0 并且 hjscy > 0 则
  8.                 令 dj(dji) = hjsc
  9.             否则如果 lladzjmpx > 0 并且 lladzjmpy > 0 则
  10.                 令 dj(dji) = lladzjmp
  11.             否则如果 nddzjhpx > 0 并且 nddzjhpy > 0 则
  12.                 (语句无法识别，可能有错误): dj(dji) = nddzjhp //诺顿的专家hp药剂
  13.                 (语句无法识别，可能有错误): ElseIf dmltpdps = 0 Then //龙头炮的炮身
  14.                 令 dj(dji) = ltpdps
  15.             否则如果 dmxedjj = 0 则
  16.                 令 dj(dji) = xedjj
  17.             否则如果 dmzndzz = 0 则
  18.                 令 dj(dji) = zndzz
  19.             否则如果 dmfengmi = 0 则
  20.                 令 dj(dji) = fengmi
  21.             否则如果 dmcusuan = 0 则
  22.                 令 dj(dji) = cusuan
  23.             否则如果 dmtrnl = 0 则
  24.                 令 dj(dji) = trnl
  25.             否则如果 dmyymg = 0 则
  26.                 令 dj(dji) = yymg
  27.             否则如果 dmblb = 0 则
  28.                 令 dj(dji) = blb
  29.             否则如果 dmzzddyy1 = 0 则
  30.                 令 dj(dji) = zzddyy1
  31.             否则如果 dmzzddyy2 = 0 则
  32.                 令 dj(dji) = zzddyy2
  33.             否则如果 dmzzddyy3 = 0 则
  34.                 令 dj(dji) = zzddyy3
  35.             否则如果 dmzzddyy4 = 0 则
  36.                 令 dj(dji) = zzddyy4
  37.             条件结束
  38.             注释：MessageBox dji&"|单价"&dj(dji)
  39.             注释：dm_ret = dm.FoobarPrintText(foobar,dji,"ff0000")
  40.             注释：dm_ret = dm.FoobarPrintText(foobar,tempdj,"ff0000")
  41.             如果 dj(dji) > 0 则
  42.                 令 STR(dji) = dm.Ocr(x1,174,x2,182,"ffffff-000000",1.0)
  43.                 如果 STR(dji) = "" 则
  44.                     令 STR(dji) = 1
  45.                 条件结束
  46.             条件结束
  47.             注释：MessageBox STR(dji)
  48.             (语句无法识别，可能有错误): zj = zj + dj(dji) * STR(dji) //计算总价
  49.             令 danjia = danjia & dj(dji) & "|"
  50.             令 shuliang = shuliang & STR(dji) & "|"
  51.             注释：MessageBox shuliang
  52.             令 dji = dji + 1
  53.             令 xx1 = xx1 + 30
  54.             令 xx2 = xx2 + 30
  55.             令 x1 = x1 + 30
  56.             令 x2 = x2 + 30
  57.         循环结束
  58.         注释：MessageBox "jieshu"
  59.     子程序结束
  60.     子程序 站街喊话
  61.         调用 Window.Active(Hwnd)
  62.         (语句无法识别，可能有错误): srcs= 2 //输入次数，srcs=2 是初始化 输入两次
  63.         (语句无法识别，可能有错误): For hhjs //喊话次数
  64.         令 Hwnd = Window.Find(0,"地下城与勇士")
  65.         调用 Window.Active(Hwnd)
  66.         调用 喊话初始化
  67.         调用 交易请求检查
  68.         调用 交易请求检查xp
  69.         （键盘）按 "Enter" 键, 1次
  70.         调用 附近检测
  71.         令 ifj = ifj + 1
  72.         延时 300 毫秒
  73.         (语句无法识别，可能有错误): For srcs //输入次数，按多少次键
  74.         （键盘）按 "E" 键, 1次
  75.         延时 30 毫秒
  76.     循环结束
  77.     令 srcs = srcs + 1
  78.     延时 200 毫秒
  79.     （键盘）按 "Space" 键, 1次
  80.     延时 200 毫秒
  81.     调用 交易请求检查
  82.     调用 交易请求检查xp
  83.     （键盘）按 "Enter" 键, 1次
  84.     如果 fkw = true 则
  85.         调用 移动
  86.     条件结束
  87.     (语句无法识别，可能有错误): Delay hhjg //喊话间隔，hhjg
  88. 循环结束
  89. 子程序结束
  90. (语句无法识别，可能有错误): Sub 交易请求检查 //找图确定
  91. 令 ddmm = dm.FindPic(0,0,640,440,"C:\材料字库\是.bmp","000000",0.9,0,jjqqX,jjqqY)
  92. 如果 jjqqX > 0 并且 jjqqY > 0 则
  93.     （鼠标）移动到 (jjqqX + 5, jjqqY + 5)
  94.     延时 50 毫秒
  95.     （鼠标）左键单击, 1次
  96.     延时 500 毫秒
  97.     （鼠标）移动到 (5, 5)
  98.     延时 3000 毫秒
  99.     调用 确认交易框存在
  100.     如果 jyzt1 = 0 并且 jyzt2 = 0 则