//首先将脚本需要将自定义界面的内容赋值给变量，方便后面脚本直接使用
分解次数1 = from1.InputBox1.Text
分解间隔 = from1.InputBox3.Text
分解装备 = from1.ComboBox1.ListIndex
SetSimMode 2//第三季DNF普通模拟完全失效，必须超级模拟
窗口句柄 = Lib.API.查找窗口句柄("地下城与勇士", "地下城与勇士")
If 窗口句柄 =0 Then 
MsgBox "找不到DNF游戏窗口，请打开游戏后在运行脚本！",48,"警告"
ExitScript 
Else 
Plugin.Window.Move 窗口句柄, 0, 0
End If
//上面的代码用处：寻找DNF窗口句柄，如果找到了则移动DNF窗口到坐标 0，0 找不到DNF窗口句柄则提示游戏没有运行，并且终止脚本

//分割线===以上代码尽量不要修改
Rem A
分解次数 = 分解次数1
While 分解次数 > 0
分解次数 = 分解次数 - 1
	Call 判断角色()
If 位置 = 1 Then 
	Call 购买腰带()
Else 
If 位置 = 0 Then 
	Call 到塞莉亚房间()
    Call 购买腰带()
End If
End If
Call 架设分解机()
Call 分解背包()
Wend
Call 修理分解()
Goto A
//分割线===以下代码尽量不要修改
Sub 判断角色
	Call 点击确定()
	//通过找图判断角色位置。1为塞莉亚房间，0为非塞莉亚房间
	FindPic 0, 0, 800, 600, "Attachment:\塞莉亚房间.bmp", 0.9, intX, intY
	If intX >= 0 and intY >= 0 Then 
		位置 = 1
		Else 
		位置 = 0
	End If
End Sub
Sub 点击确定
	//作用：利用循环点击确定按钮，直到没有确定按钮为止
Delay 200
	FindPic 0,0,800,600,"Attachment:\确认按钮.bmp",0.9,intX,intY
While intX > 0 and intY > 0
	MoveTo intX+10, intY+10
    LeftClick 2
    Delay 100
	FindPic 0,0,640,480,"Attachment:\确认按钮.bmp",0.9,intX,intY
Wend	
End Sub
Sub 购买腰带
	//往下翻页坐标302，370
	//首先单击塞莉亚，打开物品店。这里不需要找图，直接用固定的坐标即可
	Delay 500
	MoveTo 379, 266
    LeftClick 1
    Delay 500
    MoveTo 426, 323
    LeftClick 1
    //打开物品店了。现在开始判断有没有成功，使用装备栏图片判断。失败的话重新模拟点击
    FindPic 0, 0, 800, 600, "Attachment:\装备栏1.bmp", 0.9, X1, Y1
    If X1 = - 1  and Y1 = - 1  Then 
    	FindPic 0, 0, 800, 600, "Attachment:\装备栏2.bmp", 0.9, X1, Y1
    End If    
    While X1 = - 1  and Y1 = - 1 
    	//这里说明没有找到装备栏，塞莉亚物品店打开失败。重新打开
    	 Delay 100
    	 KeyPress "Esc", 1
    	 Delay 100
    	 	MoveTo 379, 266
         LeftClick 1
         Delay 500
         MoveTo 426, 323
         LeftClick 1
         Delay 100
       
 FindPic 0, 0, 800, 600, "Attachment:\装备栏1.bmp", 0.9, X1, Y1
    If X1 = - 1  and Y1 = - 1  Then 
    	FindPic 0, 0, 800, 600, "Attachment:\装备栏2.bmp", 0.9, X1, Y1
    End if
    Wend
    MoveTo 441, 231
	LeftClick 10
    FindPic 0, 0, 400, 600, "Attachment:\赛利亚腰带.bmp", 0.9, X, Y
    While X = - 1  and Y = - 1 
    	//如果找不到腰带则往下翻页
    	    MoveTo 440,430
            LeftClick 1
            FindPic 0, 0, 400, 600, "Attachment:\赛利亚腰带.bmp", 0.9, X, Y	
    Wend
    MoveTo 400,0
    Delay 100
    FindPic 0, 0, 400, 600, "Attachment:\赛利亚腰带.bmp", 0.9, X, Y
    //找得到就跳出循环。接着用另一个循环来买到不能购买为止
    	FindPic 0, 0, 640, 480, "Attachment:\公告.bmp", 0.9, intX, intY