Do
cl=WaitClick()
If cl = 32769 Then //32769是鼠标左键单击的ID
GetCursorPos x, y
Goto 开始 //点击NPC后,记录鼠标位置并跳转到“开始”处
End If
//上面是等待鼠标左键点击交拾荒的NPC,右键点击无效。//
Loop
Rem 开始
Hwnd = Plugin.Window.Foreground()
sRect = Plugin.Window.GetWindowRect(Hwnd)
dim MyArray
MyArray = Split(sRect, "|")
W = Clng(MyArray(0)): H = Clng(MyArray(1))
Do
Delay 200
t=true
While t
FindColor 22+W,172+H,247+W,430+H,"FF8877",x1,y1
If x1 > 0 And y1 > 0 Then
t = False
End If
Wend
//上面的代码是在寻找任务的文字
//0,0,276,486是任务列表的大概范围,范围不要太大,免得点错地方
//"FF8877"是文字的颜色,我一般取“[”的颜色。
MoveTo x1, y1
LeftClick 1
Delay 100
//上面是点击找到的任务文字
t =True
While t
c = Plugin.Color.GetPixelColor(W+46, H+451, 0)
If c="063535" Then
MoveTo W+46,H+451
LeftClick 1
t = False
End If
Wend
//上面是寻找交任务的“确定”按钮
//判断依据是按钮位置颜色c等于我们预先取的颜色。
//不过我这里取色的依据是根据“关闭”按钮是否存在的。
MoveTo x, y
LeftClick 1
//上面是点击NPC继续交任务
loop