1. 跳转到标记 开喊
  2. 子程序结束,回到调用处
  3. 子程序 卖强化
  4.     输入文本 "我自动卖的，不能按你要的数给强化"
  5.     延时256毫秒
  6.     按键<Enter>
  7.     延时512毫秒
  8.     //说一声，免得对方说要几几个强化，没法满足
  9.     ge=0:pai=0
  10.     循环 4 遍
  11.         ge=0
  12.         循环 8 遍
  13.             wu_x1=-33*ge+965
  14.             wu_y1=-33*pai+569
  15.             wu_x2=-33*ge+998
  16.             wu_y2=-33*pai+602
  17.             //先从最后一个格子开始放，卖掉就表示包裹里有空位了
  18.             调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  19.             如果表达式 (wu_x>0 and wu_y>0) 为真,则
  20.                 延时256毫秒
  21.                 鼠标移到 wu_x , wu_y
  22.                 延时512毫秒
  23.                 左键单击
  24.                 延时800毫秒
  25.                 鼠标移到 592 , 562
  26.                 延时512毫秒
  27.                 调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  28.                 如果表达式 (jy_x>0 and jy_y>0) 为真,则
  29.                     //时刻检测交易窗是否存在，免得别人关了后把强化扔地上
  30.                     左键单击
  31.                     延时800毫秒
  32.                     鼠标移到 512 , 730
  33.                     延时128毫秒
  34.                 否则
  35.                     循环 2 遍
  36.                         按键<F6>
  37.                     循环结束
  38.                     //想了很久，如果对方关交易，自己的鼠标点回包裹，
  39.                     //也可能有一个强化粘在鼠标上，影响下一个动作
  40.                     //干脆万一扔地上就再捡回来吧，有什么好办法吗？
  41.                     延时800毫秒
  42.                     跳转到标记 开喊
  43.                     //如果别人关闭交易窗，就转到叫卖
  44.                 条件结束
  45.                 调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  46.                 如果表达式 (jh_x>0 and jh_y>0) 为真,则
  47.                     调用子程序 算钱
  48.                     延时512毫秒
  49.                 条件结束
  50.                 //检测交易窗最后一个格子，有强化就表示放满了
  51.                 调用插件命令 wupin0=DBSoft.OCR(0,12,677,150,697,0,0,11,1,0,"ff797b",0,10,0)
  52.                 调用插件命令 sykj0=DBsoft.IncludeWord(wupin0,"空间")
  53.                 如果表达式 (sykj0=1) 为真,则
  54.                     //信息栏显示对方已没有空间，就不能再放了
  55.                     延时256毫秒
  56.                     输入文本 "你的包裹满了。"
  57.                     延时256毫秒
  58.                     按键<Enter>
  59.                     延时512毫秒
  60.                     调用子程序 算钱
  61.                 条件结束
  62.             条件结束
  63.             ge=ge+1
  64.             //下一格
  65.         循环结束
  66.         pai=pai+1
  67.         //下一排
  68.     循环结束
  69.     //检测包裹中的格子，有强化就放到交易窗
  70.     //如不能检测到对方已满，请自己取色，我自己的两台电脑的颜色就不太一样
  71.     //方法是用自己的信息字的颜色取代 ff797b
  72. 子程序结束,回到调用处
  73. 子程序 算钱
  74.     //由于电脑颜色不同，如不能识别钱数，请自己取对方钱的色颜色
  75.     延时256毫秒
  76.     鼠标移到 512 , 730
  77.     延时128毫秒
  78.     ge=0:pai=0
  79.     jys=0
  80.     循环 3 遍
  81.         ge=0
  82.         循环 6 遍
  83.             jyqh_x1=33*ge+412
  84.             jyqh_y1=33*pai+479
  85.             jyqh_x2=33*ge+445
  86.             jyqh_y2=33*pai+512
  87.             调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  88.             如果表达式 (jyqh_x>0 and jyqh_y>0) 为真,则
  89.                 jys=jys+1
  90.             条件结束
  91.             ge=ge+1
  92.             //下一格
  93.         循环结束
  94.         pai=pai+1
  95.         //下一排
  96.     循环结束
  97.     qian=jys*qhjg
  98.     输入文本 jys
  99.     延时128毫秒
  100.     输入文本 "个，"