Call Plugin.Msg.Tips("加载成功!(*^__^*)")
//MessageBox "加载成功!(*^__^*)"
//Msgbox "验证成功！继续使用！"
Else
Call Plugin.Msg.Tips("加载失败，可能是没有权限！⊙﹏⊙‖∣") 
    	RunApp("http://bbdnf.taobao.com/")
EndScript
End If
//================================================================================

Sub 等待放入物品
Dim i
i=0
UserVar ddfw=10000 "等待放入物品延迟时间（单位：毫秒）注：1000毫秒=1秒"
Delay ddfw
Do Until i<8
FindPic 71,173,306,198,"Attachment:\交易栏无物品图.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=i+1
Else 
gosub 检查并交易 
End If
Loop 
If i>0
KeyPress "esc",1
Delay 100
gosub 站街自动喊话
End If 
End Sub 

Sub 输入金钱
Dim qian,x,cishu
Rem jiaqian
qian=jiage(100)
If qian<>0 then
'MsgBox "总价钱为："&qian
MoveTo 197,301
Delay 250
LeftClick 1
Delay 250
KeyPress "BackSpace", 15 //金钱输入清零
Delay 50
x=1
Dim shu
cishu=len(qian)
For cishu
shu=left(qian,1) //取qian的左起第一个数字
qian=right(qian,cishu-x) //取qian的右起第I个数字
KeyPress shu,1
i=0
Delay 250
x=x+1
Next 
Else 
i=i+1
If i<30 //30秒内金钱为0则跳转喊话
Goto jiaqian
Delay 1000
Else 
KeyPress "esc",1
Delay 100
gosub 站街自动喊话
End If 
End if
Delay 100
LeftClick 1
Delay 200
gosub 检查并交易
End Sub

Sub 检查并交易 
Rem jiancha
gosub 检查交易是否提前结束
//检查己方输入的金钱
Dim no(9) //数字特征码
no(0)="0111010001100011000110001100011000101110"
no(1)="0001000011000100001000010000100001000111" //自取特征码，DNF己方金钱框专用
no(2)="0111010001100010100000100000100000111111"
no(3)="0111010001100000110010000100001000101110"
no(4)="0100001100010100101001001111100100011000"
no(5)="1111100001000010111110000100001000101110"
no(6)="0111001001000010111110001100011000101110"
no(7)="1111101001010000010000100001000010000100"
no(8)="0111010001100010111010001100011000101110"
no(9)="0111010001100011000111110100001001001110"
Dim colo(3) //颜色十六进制值 10月7日版
colo(1)="008CFF"
colo(0)="0050FF"
colo(2)="00F0FF"
MoveTo 603,439
rightx=296 //初始x坐标
righty=299 //初始Y坐标
rx=rightx
ry=righty
jici=0
jine=""
y=0

For 3 //千万位数字扫描
rightx=296-21*y