1. 用户定义变量 nj50=0 "耐久+50石头价钱"
  2. 用户定义变量 jyq=0 "经验球价钱"
  3. 用户定义变量 jyqlb=0 "经验球礼包价钱"
  4. 用户定义变量 tzlb=0 "特制礼包价钱"
  5. 用户定义变量 df=0 "大飞价钱"
  6. 用户定义变量 xf=0 "小飞价钱"
  7. 用户定义变量 xyc=0 "幸运草价钱"
  8. 用户定义变量 sb=0 "双倍价钱"
  9. 用户定义变量 olb6=0 "6*o礼包价钱"
  10. 用户定义变量 olb8=0 "8*o礼包价钱"
  11. 用户定义变量 xolb12=0 "12*xo礼包价钱"
  12. 用户定义变量 xolb19=0 "19*xo礼包价钱"
  13. 用户定义变量 gclb=0 "公测礼包价钱"
  14. 用户定义变量 fz=0 "法猪价钱"
  15. 用户定义变量 zz=0 "战猪价钱"
  16. 用户定义变量 kt=0 "凯特价钱"
  17. 用户定义变量 kn=0 "凯恩价钱"
  18. 用户定义变量 kl=0 "凯隆价钱"
  19. 用户定义变量 sf=0 "沙飞价钱"
  20. 用户定义变量 dj=0 "电浆药水价钱"
  21. 用户定义变量 yg=0 "月光宝盒价钱"
  22. 令 hwnd1 = Window.foreground()
  23. 令 focus = window.GetKeyFocusWnd()
  24. 令 yzb = Window.GetClientRect(hwnd1)
  25. 令 Myzb = Split(yzb,"|")
  26. 标记 jump
  27. 令 a = 0
  28. 标记 jump0
  29. 如果 a >= 5 则
  30.     跳转到标记 jump
  31. 否则
  32.     令 a = a + 1
  33.     如果 str(a) = "内容" 则
  34.         跳转到标记 jump0
  35.     否则
  36.         调用 BGKM5.LClick(focus,332,690)
  37.         调用 Bkgnd.SendString(focus,str(a))
  38.         调用 Bkgnd.KeyPress(focus,13)
  39.         延时 yanshi * 1000 毫秒
  40.         调用 同意交易()
  41.     条件结束
  42.     跳转到标记 jump0
  43. 条件结束
  44. 注释：==========================同意交易=====================
  45. 子程序 同意交易()
  46.     令 hwnd2 = window.findex(hwnd1,0,0,0)
  47.     令 hwnd3 = window.findex(hwnd2,0,0,0)
  48.     令 tongyi = Window.Findex(hwnd3,0,"Button","同意")
  49.     如果 tongyi > 0 则
  50.         调用 BGKM5.LClick(tongyi,27,7)
  51.         延时 2000 毫秒
  52.         调用 交易开始()
  53.         跳转到标记 jump0(子程序 同意交易)
  54.     否则
  55.         跳转到标记 jump0(子程序 同意交易)
  56.     条件结束
  57. 子程序结束
  58. 注释：======================交易过程中所需的部分变量==================
  59. 子程序 交易过程中所需变量()
  60.     令 hwnd3 = window.findex(hwnd2,0,0,0)
  61.     令 wpl = window.findex(hwnd3,0,"Button","对方交易物品栏")
  62.     令 mzi = window.gettext(wpl)
  63.     如果 mzi = "对方交易物品栏" 则
  64.         跳转到标记 jumpA(子程序 交易过程中所需变量)
  65.     否则
  66.         跳转到标记 jump0(子程序 交易过程中所需变量)
  67.     条件结束
  68.     标记 jumpA(子程序 交易过程中所需变量)
  69.     令 qx = window.findex(hwnd3,0,"Button","取消")
  70.     令 zby = Window.GetClientRect(wpl)
  71.     令 Mzby = split(zby,"|",- 1 ,1)
  72.     令 x = cint(Mzby(0))
  73.     令 y = cint(Mzby(1))
  74.     令 zbe = BGKM5.ScrToCli(hwnd1,x,y)
  75.     令 Mzbe = split(zbe,"|",- 1 ,1)
  76.     令 x1 = cint(Mzbe(0))
  77.     令 y1 = cint(Mzbe(1))
  78.     令 x2 = x1 + 16
  79.     令 y2 = y1 + 16
  80.     调用 Window.Move(hwnd1,- 6000 ,20)
  81.     调用 检查交易是否提前结束()
  82. 子程序结束
  83. 注释：==========================检查物品=========================
  84. 子程序 检查物品()
  85.     令 b = 0
  86.     令 c = 0
  87.     令 d = 0
  88.     令 e = 0
  89.     令 x3 = x2
  90.     令 y3 = y2
  91.     循环 12 次
  92.         标记 jump1(子程序 检查物品)
  93.         如果 b >= 3 则
  94.             跳转到标记 jump2(子程序 检查物品)
  95.         条件结束
  96.         令 gysy(d) = Bkgnd.GetPixelColor(hwnd1,x3,y3)
  97.         如果 gysy(d) = "000000" 则
  98.             跳转到标记 jump1(子程序 检查物品)
  99.         否则如果 gysy(d) = "0A0A0A" 则
  100.             延时 2000 毫秒