Dim num0,num1,num2,num3,num4,num5,num6,num7,num8,num9,co,x,y,i,num
Dim sum,sum1,flag,flag1
Dim Hwnd,fso,a
//物品区
Dim 生锈的铁片，最下级砥石，最下级硬化剂，碎布片，炉岩碳，风化的碎骨
Dim 无小晶块，红小晶块，蓝小晶块，黑小晶块，白小晶块
Dim 龙人之眼，莹石，锆石，尖晶石，血滴石，金刚石，紫玛瑙，圣痕丝绸，无重力碎片
Dim 撒勒的印章，克尔顿印章
Dim 锋利的尖刺，邪恶的结晶，耀眼的结晶，坚韧的触须
Dim 灵魂晶石，灾难的征兆，魔法石碎片
Dim 锋利的狼牙
Dim 蓝冰恶魔挑战书，狂乱恶魔挑战书, 强韧恶魔挑战书，威严恶魔挑战书
Dim 下级元素结晶，上级元素结晶
Dim 服务器喇叭，频道喇叭
Dim 龙头炮的炮身，王之石像碎块，使徒的气息，泰拉石，眼睛
Dim 物品(46)，单价(46)，图片位置(46)
//物品区
物品(0)="生锈的铁片"
物品(1)="最下级硬化剂"
物品(2)="最下级砥石"
物品(3)="碎布片"
物品(4)="炉岩碳"
物品(5)="风化的碎骨"
物品(6)="无小晶块"
物品(7)="红小晶块"
物品(8)="蓝小晶块"
物品(9)="黑小晶块"
物品(10)="白小晶块"
物品(11)="龙人之眼"
物品(12)="莹石"
物品(13)="锆石"
物品(14)="尖晶石"
物品(15)="血滴石"
物品(16)="金刚石"
物品(17)="紫玛瑙"
物品(18)="圣痕丝绸"
物品(19)="无重力碎片"
物品(20)="撒勒的印章"
物品(21)="克尔顿印章"
dnf第二使徒物品(22)="锋利的尖刺"
物品(23)="邪恶的结晶"
物品(24)="耀眼的结晶"
物品(25)="坚韧的触须"
物品(26)="灵魂晶石"
物品(27)="灾难的征兆"
物品(28)="魔法石碎片"
物品(29)="锋利的狼牙"
物品(30)="蓝冰恶魔挑战书"
物品(31)="狂乱恶魔挑战书"
物品(32)="强韧恶魔挑战书"
物品(33)="威严恶魔挑战书"
物品(34)="下级元素结晶"
物品(35)="上级元素结晶"
物品(36)="服务器喇叭"
/
/新加
物品(37)="龙头炮的炮身"
物品(38)="王之石像碎块"
物品(39)="使徒的气息"
物品(40)="泰拉石"
物品(41)="眼睛"
物品(42)="树根"
物品(43)="白大晶体"
物品(44)="红大晶体"
物品(45)="频道喇叭"
//单价设置区
单价(0)=100'生锈的铁片
单价(1)=100'最下级砥石
单价(2)=100'最下级硬化剂
单价(3)=100'碎布片
单价(4)=30'炉岩碳
单价(5)=100'风化的碎骨
单价(6)=30'无小晶块
单价(7)=150'红小晶块
单价(8)=50'蓝小晶块
单价(9)=50'黑小晶块
单价(10)=50'白小晶块
单价(11)=200'龙人之眼
单价(12)=200'莹石
单价(13)=100'锆石
单价(14)=500'尖晶石
单价(15)=100'血滴石
单价(16)=100'金刚石
单价(17)=100'紫玛瑙
单价(18)=500'圣痕丝绸
单价(19)=600'无重力碎片
单价(20)=200'撒勒的印章
单价(21)=500'克尔顿印章
单价(22)=1000'锋利的尖刺
单价(23)=500'邪恶的结晶
单价(24)=500'耀眼的结晶
单价(25)=200'坚
韧的触须
单价(26)=3000'灵魂晶石
单价(27)=2000'灾难的征兆
单价(28)=500'魔法石碎片
单价(29)=300'锋利的狼牙
单价(30)=5000'蓝冰恶魔挑战书
单价(31)=15000'狂乱恶魔挑战书
单价(32)=15000'强韧恶魔挑战书
单价(33)=15000'威严恶魔挑战书
单价(34)=20'下级元素结晶
单价(35)=2000'上级元素结晶
单价(36)=60000'服务器喇叭
//新加
单价(37)=200'龙头炮的炮身
单价(38)=500'王之石像碎块
单价(39)=2000'使徒的气息
单价(40)=3000'泰拉石
单价(41)=20000'眼睛
单价(42)=500'树根
单价(43)=10000'白大晶体
单价(44)=15000'红大晶体
单价(45)=20000'频道喇叭
//图片位置
图片位置(0)="C:DNF图片\生锈的铁片.bmp"
图片位置(1)="C:DNF图片\最下级砥石.bmp"
图片位置(2)= "C:DNF图片\最下级硬化剂.bmp"
图片位置(3)= "C:DNF图片\碎布片.bmp"
图片位置(4)="C:DNF图片\炉岩碳.bmp"
图片位置(5)= "C:DNF图片\风化的碎骨.bmp"
图片位置(6)= "C:DNF图片\无小晶块.bmp"   
图片位置(7)= "C:DNF图片\红小晶块.bmp"   
图片位置(8)="C:DNF图片\蓝小晶块.bmp"   
图片位置(9)="C:DNF图片\黑小晶块.bmp"   
图片位置(10)="C:DNF图片\白小晶块.bmp"
图片位置(11)="C:DNF图片\龙人之眼.bmp"   
图片位置(12)="C:DNF图片\莹石.bmp"   
图片位置(13)="C:DNF图片\锆石.bmp"   
图片位置(14)="C:DNF图片\尖晶石.bmp"   
图片位置(15)="C:DNF图片\血滴石.bmp"   
图片位置(16)="C:DNF图片\金刚石.bmp"
图片位置(17)="C:DNF图片\紫玛瑙.bmp"
图片位置(18)="C:DNF图片\圣痕丝绸.bmp"   
图片位置(19)="C:DNF图片\无重力碎片.bmp"
图片位置(20)="C:DNF图片\撒勒的印章.bmp"   
图片位置(21)="C:DNF图片\克尔顿印章.bmp"   
图片位置(22)="C:DNF图片\锋利的尖刺.bmp"   
图片位置(23)="C:DNF图片\邪恶的结晶.bmp"
图片位置(24)="C:DNF图片\耀眼的结晶.bmp"   
图片位置(25)="C:DNF图片\坚韧的触须.bmp"
图片位置(26)="C:DNF图片\灵魂晶石.bmp"
图片位置(27)="C:DNF图片\灾难的征兆.bmp"
图片位置(28)="C:DNF图片\魔法石碎片.bmp"   
图片位置(29)="C:DNF图片\锋利的狼牙.bmp"
图片位置(30)="C:DNF图片\蓝冰恶魔挑战书.bmp"   
图片位置(31)="C:DNF图片\狂乱恶魔挑战书.bmp"   
图片位置(32)="C:DNF图片\强韧恶魔挑战书.bmp"   
图片位置(33)="C:DNF图片\威严恶魔挑战书.bmp"   
图片位置(34)="C:DNF图片\下级元素结晶.bmp" 
图片位置(35)="C:DNF图片\上级元素结晶.bmp" 
图片位置(36)="C:DNF图片\服务器喇叭.bmp"
//新加
图片位置(37)="C:DNF图片\龙头炮的炮身.bmp"
图片位置(38)="C:DNF图片\王之石像碎块.bmp"
图片位置(39)="C:DNF图片\使徒的气息.bmp"
图片位置(40)="C:DNF图片\泰拉石.bmp"
图片位置(41)="C:DNF图片\眼睛.bmp"
图片位置(42)="C:DNF图片\树根.bmp"
图片
位置(43)="C:DNF图片\白大晶体.bmp"
图片位置(44)="C:DNF图片\红大晶体.bmp"
图片位置(45)="C:DNF图片\频道喇叭.bmp"
//数字代码区
num0="0110100110011001100110010110"
num1="0001001100010001000100010001"
num2="0110100100010010010010001111"
num3="0110100100010010000110010110"
num4="0010011001101010111100100010"
num5="1111100011101001000110010110"
num6="0110100110001110100110010110"
num7="1111000100100010010001000100"
num8="0110100110010110100110010110"
num9="0110100110010111000110010110"
//开始
MessageBox("By麻辣鱼!")
Delay 2000
sum=0
sum1=0
flag1=0
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 2000
Rem s
Set fso=CreateObject("Scripting.FileSystemObject")
set a=fso.opentextfile("c：交易记录.txt",8)
Call 检查是否正在交易
if sum1<>sum
//MessageBox("开始输入金币")
sum1=sum
Call 输入金币(sum)
End if
Call  检查对方是否点交易()
Sub 交易前喊收货()
Select Case flag1
Case 0
KeyPressS "Enter", 1
Delay 50
FindColor 60,398,92,407,"AADDEE",intX,intY
If intX > 0
KeyPressS "Z", 2
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
flag1=1
End if
Case 1
KeyPressS "Enter", 1
Delay 50
FindColor 60,398,92,407,"AADDEE",intX,intY
If intX > 0
KeyPressS "Z", 3
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
flag1=2
End if
Case 2
KeyPressS "Enter", 1
Delay 50
FindColor 60,398,92,407,"AADDEE",intX,intY
If intX > 0
KeyPressS "Z", 4
Delay 20
KeyPressS "1", 1
Delay 20
KeyPressS "Enter", 1
flag1=0
End If
End Select
Call 等待交易
End sub
Sub 检查对方是否点交易()
For 10
Delay 50  '修改这里时间
IfColor 165,266,"BBFFFF",2 Then
flag=1
Exit For
Else
flag=0
End If
Next
If flag=1 Then
//  MessageBox("对方已点交易")
s=Plugin.GetSysInfo.GetDateTime() 
a.writeline("")
a.writeline("------------------------------")
a.writeline("时间："&s)
a.write("物品：")
sum=0
For m=0 to 45
Call 图并传递图片(物品(m)，单价(m)，图片位置(m))
Next
If sum1=sum
//  MessageBox("sum1=sum")
Delay 500
MoveTo 160,424
Delay 1000
LeftClick 4
Delay 2000 
LeftClick 2
Delay 2000
a.writeline("")
//  FindPic 299,111,347,140,"C:DNF图片\成功交易公告.bmp",0.6,intX,intY
//  If intX > 0
a.writeline("花费："&sum)
a.close
KeyPress "Enter", 1
Goto s
Else
a.writeline("物品变化，重新检测")
a.close
Goto s
End If
Else
Goto s
End If
End Sub
Sub 输入金币(数字串)
For h=1 to 40
FindColor 190,293,206,309,"CEFFFF",intX,intY
If intX>0 Then
Exit For
Else
Delay 100
End If
Next
MoveTo 198,300
//      Delay 1000
LeftClick 2
Delay 200
KeyPress "BackSpace", 15
Dim 数字码，位数,n
位数=Len(数字串)
n=位数
For 位数
数字码=Asc(数字串)
Delay 50
KeyPress 数字码,1
n=n-1
数字串=Right(数字串,n)
Endfor
LeftClick 1
//        MoveTo 198,400
End Sub
Sub 检查是否有交易()
IfColor 915,453,"FFFFFF",2 Then
Delay200
MoveTo 881, 544
Delay 200
LeftClick 2
Else
Delay 500
Goto s
End If
End Sub
Sub 检查是否正在交易
/
/ Delay 500
// Call FindPic(81,107,316,135,"C:DNF图片\物品交易.bmp",0.6,intX,intY)
// If intX > 0
FindColor 160,115,217,130,"FFFFFF",intX,intY
If intX > 0  Then
//  MessageBox("正在交易")
Call 等待放入物品
//  Delay 100
Else
Call 交易前喊收货()
End If
End Sub
Sub 检查交易是否提前结束
// MessageBox("进来sum"&sum)
// Call FindPic(81,107,316,135,"C:\物品交易.bmp",0.6,intX,intY)
// If intX > 0
FindColor 160,115,217,130,"FFFFFF",intX,intY
If intX > 0  Then
//  MessageBox("交易未结束，开始图")
sum=0
flag=0
For m=0 to 45
/
/  MessageBox("m="&m)
Call 图并传递图片(物品(m)，单价(m)，图片位置(m))
Next
//  MessageBox(sum)
Else
Goto s
End If
End Sub
Sub 等待交易
Delay 1000
For j=1 to 5
Call FindPic (448,263,644,331,"C:DNF图片\交易公告.bmp",0.6,intX,intY) //扫描交易框
If intX >0 Then
Delay 200
MoveTo 523,403
LeftClick 2
Delay 2000
Goto s
Exit For
Else
Delay 200
End If
Next
Goto s
End Sub
Sub 等待放入物品
// MessageBox("等待放入物品")
For i=1 to 16
//  MessageBox("进入循环体")
Call FindPic(60,160,110,210,"C:DNF图片\物品栏空.bmp",0.6,intx,inty)
//  MessageBox("查看交易栏")
If intx >0 Then
//    MessageBox("交易栏无物品")
Delay 500
Else
//    MessageBox("交易栏有物品")
Exit For
End If
Next
// MessageBox(i)
If i=17
Delay 1000
KeyPress "esc",1
Delay 100
Goto s
Else
Call  检查交易是否提前结束
End If
End Sub
Sub 图并传递图片(物品，单价，图片位置)
Dim intx,inty
Call FindPic(72,174,307,259，图片位置,0.6,intx,inty)
If intx>0
//        MessageBox("到"&物品)
//        MessageBox("单价"&单价)
Call 识别数字并计算(物品，单价,intx,inty)
Else
//        MessageBox("未到"&物品)
End If
End Sub
Sub 识别数字并计算(物品，单价,x,y)
Dim bx,by，数量
数量=""
bx=x+21
by=y+1
For 4
co=""
y=by
For 7
x=bx
For 4
IfColor x,y,"FFFFFF",0 Then
i="1"
Else
i="0"
End If
co=co&i
x=x+1
Endfor
y=y+1
Endfor
If co=num0
num="0"
ElseIf co=num1
num="1"
ElseIf co=num2
num="2"
ElseIf co=num3
num="3"
ElseIf co=num4
num="4"
ElseIf co=num5
num="5"
ElseIf co=num6
num="6"
ElseIf co=num7
num="7"
ElseIf co=num8
num="8"
ElseIf co=num9
num="9"
Else
num="0"
End If
数量=num&数量
If num="1"
bx=bx-4
Else
bx=bx-6
End If
endfor
If 数量=0
数量=1
End If
//    MessageBox("数量"&数量)
If flag=1
a.write(数量&"个"&物品&"  ")
End If
sum=sum+单价*数量
//    s=Plugin.GetSysInfo.GetDateTime()   
// a.writeline("------------------------------")
/
/ a.writeline("时间："&s)
//    MessageBox(sum)
End Sub