1.     延时128毫秒
  2.     输入文本 qian
  3.     延时128毫秒
  4.     输入文本 "W，请在20秒内放好钱，我20秒时点同意"
  5.     延时256毫秒
  6.     按键<Enter>
  7.     延时512毫秒
  8.     延时20000毫秒
  9.     //告诉对方总价钱，给对方20秒钟算钱放钱时间
  10.     调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  11.     如果表达式 (jy_x>0 and jy_y>0) 为真,则
  12.         调用插件命令 qian0=DBSoft.OCR(0,475,342,569,355,0,0,11,1,0,"b5c97b",0,20,0)
  13.         调用插件命令 qian00=DBSoft.WordSelect(qian0,1)
  14.         //取得对方放的钱的数量
  15.         qian1=qian00/10000
  16.         //换算成万
  17.         输入文本 "你给的钱为 "
  18.         延时128毫秒
  19.         输入文本 qian1
  20.         延时128毫秒
  21.         输入文本 " W。"
  22.         延时256毫秒
  23.         按键<Enter>
  24.         延时512毫秒
  25.     条件结束
  26.     如果表达式 (qian1-qian>=0) 为真,则
  27.         //大于等于格子数*强化设定价格
  28.         调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  29.         如果表达式 (jy_x>0 and jy_y>0) 为真,则
  30.             输入文本 "钱够数，OK。"
  31.             延时256毫秒
  32.             按键<Enter>
  33.             延时512毫秒
  34.             鼠标移到 592 , 586
  35.             延时512毫秒
  36.             左键单击
  37.         条件结束
  38.         延时20000毫秒
  39.         //点同意，给20秒对方同意时间
  40.         调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  41.         如果表达式 (jy_x>0 and jy_y>0) 为真,则
  42.             鼠标移到 618 , 168
  43.             延时512毫秒
  44.             左键单击
  45.             延时1000毫秒
  46.             //20秒还没接受，就关闭交易
  47.             跳转到标记 开喊
  48.         条件结束
  49.     否则
  50.         调用外部VBScript子程序 在屏幕区域里查找图形(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
  51.         如果表达式 (jy_x>0 and jy_y>0) 为真,则
  52.             鼠标移到 618 , 168
  53.             延时512毫秒
  54.             左键单击
  55.             延时1000毫秒
  56.             //点关闭
  57.         条件结束
  58.         输入文本 "不够钱啊。。。别逗了。。"
  59.         延时256毫秒
  60.         按键<Enter>
  61.         延时1000毫秒
  62.         跳转到标记 开喊
  63.     条件结束
  64. 子程序结束,回到调用处