请点击DNF游戏窗口，点击确定后2秒内完成！QQ：460195194 欢迎大家一起讨论"
Delay 2000
Dim hwnd
Dim jiaqian(100)
Dim shuliang
hwnd=Plugin.Window.MousePoint 
x=Plugin.Window.Move(hwnd,0,0)
time1=plugin.Sys.GetTime   //获取脚本运行时系统初始时间
gosub 站街自动喊话
//站街喊话脚本

Sub 站街自动喊话
   //下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量
   time3=Plugin.Sys.GetTime 
   If time3-time1>900000 then     //15分钟后开启防掉线
     gosub 防掉线
   End If 
   KeyPressS "Enter", 1
   Delay 200
   NUM =plugin.Color.CountColor(60, 398,92, 407, "AADDEE",1)  //查找喊话窗口是否存在
   If NUM>0 then
     KeyPressS "Z", 2
     Delay 20
     KeyPressS "1", 1
     Delay 20
     KeyPressS "Enter", 1
     delay 1000
   End if
   Gosub 等待交易
End Sub  

Sub 等待交易
//找图
   x=Plugin.Window.Active(hwnd)
   FindPic 455,305,636,419,"Attachment:\公告按钮.bmp",0.9,intX,intY    //扫描交易框
  If intX > 0 And intY > 0 Then
   MoveTo 523,403
   LeftClick 2
     IfColor 197,301,"42739C",0
       Gosub 扫描物品
     End If 
  Else 
   Gosub 站街自动喊话
  End If

End Sub 


Sub  扫描物品
   Delay 4000
   Dim ss(10)
   dim sss(10)
   ss(0)="73A5EF"  //强韧
   ss(1)="8C9C11"  //威严
   ss(2)="11DE42"  //狂乱
   ss(3)="4A4A42"  //灵魂
   ss(4)="529429"  //灾难
   ss(5)="4A295B"  //眼睛
   ss(6)="D69473"  //小篮
   ss(7)="848484"  //无色
   ss(8)="AD73D6"  //碳 175,191
   ss(9)="BDB5C6"  // 蓝冰
   //这里使用查找颜色来获取物品 不知道在别的电脑上是否能使用 反正在我自己的电脑上是可以用的 请教一下
   sss(0)= 20000
   sss(1)= 20000
   sss(2)= 20000
   sss(3)= 4000
   sss(4)= 3200
   sss(5)= 25000
   sss(6)= 100
   sss(7)= 50
   sss(8)= 50
   sss(9)= 9000
   Dim n,m,i,j
   Dim jiage
   n=0
   geshu=1
   Dim  kx
   kx=85  //第一格物品x取色点
   ux=kx
   Dim  ky
   ky=191 //第一个物品y取色点
//扫描第一行物品，共8个物品格
for 8  
// 单格物品扫描
  For 10
   IfColor ux,ky,ss(n),0
      jiage=wupin(geshu,sss(n))    //获取物品价钱
      Exit For 
   End If  
       n=n+1 
  Next 
  qian=qian+jiage         //计算总价格
  jiage=0                 //价格清零
  ux=ux+30                //x坐标加30，扫描下一个框内物品
  geshu=geshu+1           //个数循环
  n=0
Next 
Sub  扫描物品
   Delay 4000