//X,Y定义为坐标,COL定义为颜色,j定义为按键
Dim X,Y					//坐标(4个点)
Dim COL(127)		//颜色(32个技能判断32*4)
Dim SHOTCUT(31)	//按键(32个按键)
Dim GCD					//公共CD时间
Dim VALIDNUM		//有效的技能数量




//临时变量
Dim i
Dim k,Key
Dim c1,c2,c3,c4
Dim FindValid
Dim TempStr

//配置文件路径
Dim INI_FILE
INI_FILE = "c:\dps.ini"

//*************************************************************************************

If MsgBox("是否开始自动攻击，进入或修改配置请点否?",4) = 6 Then
	Goto 攻击准备
End If

TempStr = Plugin.File.ReadINI("参数","GCD",INI_FILE)
If TempStr = "" Then
	Call Plugin.File.WriteINI("参数","GCD","500",INI_FILE)
End If

MessageBox "请使用鼠标<左键单击>特征图标中心位置..."


Rem 抓取坐标开始
k = WaitClick()
If k <> 32770 Then
	Goto 抓取坐标开始
End If

GetCursorPos X,Y
Call Plugin.File.WriteINI("坐标","X",X,INI_FILE)
Call Plugin.File.WriteINI("坐标","Y",Y,INI_FILE)

VALIDNUM = 0

//技能抓取循环
Rem 抓取技能开始

MessageBox"手工调节技能图标位置, 然后输入对应技能按键..."
k = WaitKey()

c1 = GetPixelColor(X-10,Y-10)
c2 = GetPixelColor(X-10,Y+10)
c3 = GetPixelColor(X+10,Y-10)
c4 = GetPixelColor(X+10,Y+10)

If MsgBox("您记录的技能按键为<"&k&">是否保存按键?",4) = 6 Then
	Call Plugin.File.WriteINI("颜色特征",VALIDNUM*4+0,c1,INI_FILE)
	Call Plugin.File.WriteINI("颜色特征",VALIDNUM*4+1,c2,INI_FILE)
	Call Plugin.File.WriteINI("颜色特征",VALIDNUM*4+2,c3,INI_FILE)
	Call Plugin.File.WriteINI("颜色特征",VALIDNUM*4+3,c4,INI_FILE)
	Call Plugin.File.WriteINI("技能按键顺序",VALIDNUM,k,INI_FILE)
	VALIDNUM = VALIDNUM + 1
End If

If MsgBox("您已保存"&VALIDNUM&"个技能，是否继续抓取其余的按键?",4) = 6 Then
	Goto 抓取技能开始
End If

Call Plugin.File.WriteINI("参数", "技能总数", VALIDNUM, INI_FILE)


MessageBox "按键设置完成"

//*************************************************************************************

Rem 攻击准备

TempStr = Plugin.File.ReadINI("参数","GCD",INI_FILE)		//GCD赋值
GCD = CInt(TempStr)
 
TempStr = Plugin.File.ReadINI("参数","技能总数",INI_FILE)		//技能总数赋值
VALIDNUM = CInt(TempStr)

//技能按键赋值
For i = 0 To VALIDNUM - 1
	TempStr = Plugin.File.ReadINI("技能按键顺序",i,INI_FILE)
	SHOTCUT(i) = CInt(TempStr)
Next

//坐标赋值
TempStr = Plugin.File.ReadINI("坐标","X",INI_FILE)
X = CInt(TempStr)
TempStr = Plugin.File.ReadINI("坐标","Y",INI_FILE)
Y = CInt(TempStr)

//颜色特征赋值
For i = 0 To VALIDNUM*4 - 1