1.     标记 jumpA
  2.     调用插件命令 qx=window.findex(hwnd3,0,"Button","取消")
  3.     调用插件命令 zby=Window.GetClientRect(wpl)
  4.     Mzby=split(zby,"|",-1,1)
  5.     x=cint(Mzby(0)):y=cint(Mzby(1))
  6.     调用插件命令 zbe=BGKM5.ScrToCli(hwnd1,x,y)
  7.     Mzbe=split(zbe,"|",-1,1)
  8.     x1=cint(Mzbe(0)):y1=cint(Mzbe(1))
  9.     x2=x1+16:y2=y1+16
  10.     调用插件命令 Window.Move(hwnd1,-6000,20)
  11.     调用子程序 检查交易是否提前结束
  12. 子程序结束,回到调用处
  13. //==========================检查物品=========================
  14. 子程序 检查物品
  15.     b=0
  16.     c=0
  17.     d=0:e=0
  18.     x3=x2:y3=y2
  19.     循环 12 遍
  20.         标记 jump1
  21.         如果表达式 (b>=3) 为真,则
  22.             跳转到标记 jump2
  23.         条件结束
  24.         调用插件命令 gysy(d)=Bkgnd.GetPixelColor(hwnd1,x3,y3)
  25.         如果表达式 (gysy(d)="000000") 为真,则
  26.             跳转到标记 jump1
  27.         否则如果(gysy(d)="0A0A0A")为真,则
  28.             延时2000毫秒
  29.             b=b+1
  30.             跳转到标记 jump1
  31.         否则
  32.             调用子程序 物品第二颜色
  33.             x3=x3+34
  34.             b=0
  35.             d=d+1
  36.             c=c+1
  37.             如果表达式 (c=6) 为真,则
  38.                 x3=x2:y3=y2+34
  39.             条件结束
  40.         条件结束
  41.     循环结束
  42.     标记 jump2
  43.     如果表达式 (gysy(0)="0A0A0A") 为真,则
  44.         调用插件命令 BGKM5.LClick(qx,25,8)
  45.         调用插件命令 Window.Move(hwnd1,Myzb(0),Myzb(1))
  46.         跳转到标记 jump0
  47.     条件结束
  48. 子程序结束,回到调用处
  49. //===========================出价==========================
  50. 子程序 出价
  51.     调用子程序 检查交易是否提前结束
  52.     调用插件命令 hwnd4=window.findex(hwnd3,0,"Button","ChawImg2")
  53.     调用插件命令 strj=window.findex(hwnd3,hwnd4,"Button",0)
  54.     调用插件命令 strm=window.findex(hwnd3,strj,"Button",0)
  55.     调用插件命令 qdj=window.findex(hwnd3,0,"Button","确定金")
  56.     调用插件命令 jy=window.findex(hwnd3,0,"Button","同意")
  57.     调用插件命令 qdm=window.findex(hwnd3,0,"Button","交易-已方确定魔石")
  58.     如果表达式 (zhifu=1) 为真,则
  59.         调用插件命令 BGKM5.LClick(strj,48,4)
  60.         延时500毫秒
  61.         调用插件命令 Bkgnd.SendString(strj,zongjia)
  62.         延时500毫秒
  63.         调用插件命令 BGKM5.LClick(qdj,10,8)
  64.     否则如果(zhifu=2)为真,则
  65.         调用插件命令 BGKM5.LClick(strm,48,4)
  66.         延时500毫秒
  67.         调用插件命令 Bkgnd.SendString(strm,zongjia)
  68.         延时500毫秒
  69.         调用插件命令 BGKM5.LClick(qdm,10,8)
  70.     条件结束
  71.     延时500毫秒
  72.     调用插件命令 BGKM5.LClick(jy,25,8)
  73. 子程序结束,回到调用处
  74. //===========================检查交易是否提前结束=====================
  75. 子程序 检查交易是否提前结束
  76.     标记 jump3
  77.     调用插件命令 co=Bkgnd.GetPixelColor(hwnd1,x1+229,y1+26)
  78.     如果表达式 (co="000000") 为真,则
  79.         跳转到标记 jump3
  80.     否则如果(co="100E10")为真,则
  81.         跳转到标记 jump4
  82.     否则
  83.         调用插件命令 Window.Move(hwnd1,Myzb(0),Myzb(1))
  84.         延时1000毫秒
  85.         跳转到标记 jump0
  86.     条件结束
  87.     标记 jump4
  88. 子程序结束,回到调用处
  89. //============================物品第二颜色================================
  90. 子程序 物品第二颜色
  91.     标记 jump5
  92.     调用插件命令 gyse(e)=Bkgnd.GetPixelColor(hwnd1,x3+2,y3+2)
  93.     如果表达式 (gyse(e)="000000") 为真,则
  94.         跳转到标记 jump5
  95.     否则
  96.         e=e+1
  97.     条件结束
  98. 子程序结束,回到调用处
  99. //============================对比颜色=================================
  100. 子程序 对比颜色