1.         sfs=sfs+1
  2.     否则如果(h=32)为真,则
  3.         djs=djs+1
  4.     否则如果(h=33)为真,则
  5.         ygs=ygs+1
  6.     条件结束
  7. 子程序结束,回到调用处
  8. //============================计算价格================================
  9. 子程序 计算价格
  10.     hmjsj=hmjss*hmjs
  11.     mhjsj=mhjss*mhjs
  12.     lhjsj=lhjss*lhjs
  13.     hmzxj=hmzxs*hmzx
  14.     mhzxj=mhzxs*mhzx
  15.     z1j=z1s*z1
  16.     z3j=z3s*z3
  17.     gj5j=gj5s*gj5
  18.     gj10j=gj10s*gj10
  19.     sj5j=sj5s*sj5
  20.     sj10j=sj10s*sj10
  21.     jy10j=jy10s*jy10
  22.     jy15j=jy15s*jy15
  23.     nj50j=nj50s*nj50
  24.     jyqj=jyqs*jyq
  25.     jyqlbj=jyqlbs*jyqlb
  26.     tzlbj=tzlbs*tzlb
  27.     dfj=dfs*df
  28.     xfj=xfs*xf
  29.     xycj=xycs*xyc
  30.     sbj=sbs*sb
  31.     olb6j=olb6s*olb6
  32.     olb8j=olb8s*olb8
  33.     xolb12j=xolb12s*xolb12
  34.     xolb19j=xolb19s*xolb19
  35.     gclbj=gclbs*gclb
  36.     fzj=fzs*fz
  37.     zzj=zzs*zz
  38.     ktj=kts*kt
  39.     knj=kns*kn
  40.     klj=kls*kl
  41.     sfj=sfs*sf
  42.     djj=djs*dj
  43.     ygj=yjs*yj
  44.     zongjia=hmjsj+mhjsj+lhjsj+hmzxj+mhzxj+z1j+z3j+gj5j+gj10j+sj5j+sj10j+jy10j+jy15j+nj50j+jyqj+jyqlbj+tzlbj+dfj+xfj+xycj+sbj+olb6j+olb8j+xolb12j+xolb19j+gclbj+fzj+zzj+ktj+knj+klj+sfj+djj+ygj
  45. 子程序结束,回到调用处
  46. //============================交易等待================================
  47. 子程序 交易等待
  48.     ddsj=0
  49.     循环 dengdai+1 遍
  50.         标记 jump9
  51.         如果表达式 (ddsj=dengdai) 为真,则
  52.             调用插件命令 BGKM5.LClick(qx,25,8)
  53.             调用插件命令 Window.Move(hwnd1,Myzb(0),Myzb(1))
  54.             跳转到标记 jump0
  55.         条件结束
  56.         调用子程序 检查交易是否提前结束
  57.         延时900毫秒
  58.         ddsj=ddsj+1
  59.     循环结束
  60. 子程序结束,回到调用处
  61. //=============================交易开始=====================
  62. 子程序 交易开始
  63.     调用子程序 交易过程中所需变量
  64.     调用子程序 检查交易是否提前结束
  65.     调用子程序 检查物品
  66.     调用子程序 对比颜色
  67.     调用子程序 计算价格
  68.     调用子程序 检查交易是否提前结束
  69.     调用子程序 出价
  70.     调用子程序 交易等待
  71. 子程序结束,回到调用处
  72. //============================OnScriptExit=======================
  73. 子程序 OnScriptExit
  74.     调用插件命令 Window.Move(hwnd1,Myzb(0),Myzb(1))
  75. 子程序结束,回到调用处