1.     启动程序或打开文件 ("http://bbdnf.taobao.com/")
  2.     脚本停止运行
  3. 条件结束
  4. 注释：================================================================================
  5. 子程序 等待放入物品
  6.     定义变量 i
  7.     令 i = 0
  8.     用户定义变量 ddfw=10000 "等待放入物品延迟时间（单位：毫秒）注：1000毫秒=1秒"
  9.     延时 ddfw 毫秒
  10.     循环当 i < 8 之前
  11.         从左上到右下查找图片 "Attachment:\交易栏无物品图.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：71 上：173 右：306 下：198），相似度 0.9
  12.         如果 intX > 0 并且 intY > 0 则
  13.             令 i = i + 1
  14.         否则
  15.             调用 检查并交易()
  16.         条件结束
  17.     循环结束
  18.     如果 i > 0 则
  19.         （键盘）按 "esc" 键, 1次
  20.         延时 100 毫秒
  21.         调用 站街自动喊话()
  22.     条件结束
  23. 子程序结束
  24. 子程序 输入金钱
  25.     定义变量 qian, x, cishu
  26.     标记 jiaqian(子程序 输入金钱)
  27.     令 qian = jiage(100)
  28.     如果 qian <> 0 则
  29.         注释：MsgBox "总价钱为："&qian
  30.         （鼠标）移动到 (197, 301)
  31.         延时 250 毫秒
  32.         （鼠标）左键单击, 1次
  33.         延时 250 毫秒
  34.         (语句无法识别，可能有错误): KeyPress "BackSpace", 15 //金钱输入清零
  35.         延时 50 毫秒
  36.         令 x = 1
  37.         定义变量 shu
  38.         令 cishu = len(qian)
  39.         循环 cishu 次
  40.             (语句无法识别，可能有错误): shu=left(qian,1) //取qian的左起第一个数字
  41.             (语句无法识别，可能有错误): qian=right(qian,cishu-x) //取qian的右起第I个数字
  42.             （键盘）按 shu 键, 1次
  43.             令 i = 0
  44.             延时 250 毫秒
  45.             令 x = x + 1
  46.         循环结束
  47.     否则
  48.         令 i = i + 1
  49.         如果 i < 30 则
  50.             注释：30秒内金钱为0则跳转喊话
  51.         条件结束
  52.         跳转到标记 jiaqian(子程序 输入金钱)
  53.         延时 1000 毫秒
  54.     否则
  55.         （键盘）按 "esc" 键, 1次
  56.         延时 100 毫秒
  57.         调用 站街自动喊话()
  58.     条件结束
  59. 条件结束
  60. 延时 100 毫秒
  61. （鼠标）左键单击, 1次
  62. 延时 200 毫秒
  63. 调用 检查并交易()
  64. 子程序结束
  65. 子程序 检查并交易
  66.     标记 jiancha(子程序 检查并交易)
  67.     调用 检查交易是否提前结束()
  68.     注释：检查己方输入的金钱
  69.     (语句无法识别，可能有错误): Dim no(9) //数字特征码
  70.     令 no(0) = "0111010001100011000110001100011000101110"
  71.     (语句无法识别，可能有错误): no(1)="0001000011000100001000010000100001000111" //自取特征码，DNF己方金钱框专用
  72.     令 no(2) = "0111010001100010100000100000100000111111"
  73.     令 no(3) = "0111010001100000110010000100001000101110"
  74.     令 no(4) = "0100001100010100101001001111100100011000"
  75.     令 no(5) = "1111100001000010111110000100001000101110"
  76.     令 no(6) = "0111001001000010111110001100011000101110"
  77.     令 no(7) = "1111101001010000010000100001000010000100"
  78.     令 no(8) = "0111010001100010111010001100011000101110"
  79.     令 no(9) = "0111010001100011000111110100001001001110"
  80.     (语句无法识别，可能有错误): Dim colo(3) //颜色十六进制值 10月7日版
  81.     令 colo(1) = "008CFF"
  82.     令 colo(0) = "0050FF"
  83.     令 colo(2) = "00F0FF"
  84.     （鼠标）移动到 (603, 439)
  85.     (语句无法识别，可能有错误): rightx=296 //初始x坐标
  86.     (语句无法识别，可能有错误): righty=299 //初始Y坐标
  87.     令 rx = rightx
  88.     令 ry = righty
  89.     令 jici = 0
  90.     令 jine = ""
  91.     令 y = 0
  92.     (语句无法识别，可能有错误): For 3 //千万位数字扫描
  93.     令 rightx = 296 - 21 * y
  94.     (语句无法识别，可能有错误): for 3 //百位数字扫描
  95.     令 i = 0
  96.     (语句无法识别，可能有错误): For 8 //单个数字扫描
  97.     (语句无法识别，可能有错误): rx=rightx-jici*6 //后退6个像素点
  98.     循环 5 次
  99.         如果点 (rx,ry) 的颜色等于 colo(y) 则
  100.             令 nob = "1"