Plugin.Window.Foreground()
Call Plugin.Window.Active(huwid)


// 获取屏幕设置信息
pmx= Plugin.Sys.GetScRX()
pmy = Plugin.Sys.GetScRY()
pmdep = Plugin.Sys.GetScDep()
//=========================【变 量 区】==============================
yhx = 728     //遗骸指示坐标
yxy = 522


tzx = 548    //挑战按钮坐标
tzy = 575

zgx = 706    //整关BOSS按钮坐标
zgy = 516

kzgx = 689   //开始挑战整关BOSS位置
kzgy=512

qdanx = 641  //确定按钮坐标
qdany=482

bosstx=857
bossty=610

qbosstx=680
qbossty=513

//====================================================================
Dim getcoloryh
getcoloryh = GetPixelColor(yhx, yxy)

Do  While getcoloryh = "FF"
Call Plugin.Window.Active(huwid)
IfColor tzx,tzy,"D25AB",0 Then   //如果 继续挑战 按钮为红色
MoveTo tzx,tzy
LeftClick 1
Delay 1500
MoveTo zgx, zgy
IfColor zgx, zgy, "A0", 0 Then   //如果到了挑战整数关BOSS
MoveTo kzgx, kzgy          // 移动到开始挑战
LeftClick 1
Else 
MoveTo qdanx,qdany                  //点 确定按钮
LeftClick 1
End If
Delay 3000
Dim GetColor
GetColor=GetPixelColor(bosstx,bossty)      //获取整关BOSS提示字体颜色
do While GetColor <> "1B4A8B"
IfColor bosstx,bossty, "1B4A8B", 0 Then
MoveTo bosstx,bossty
LeftClick 1	
Exit Do
Else 
IfColor tzx, tzy, "D25AB", 0 Then
Exit Do	
End If
End If
loop
Delay 1500
MoveTo qbosstx, qbossty
IfColor qbosstx,qbossty,"A0",0 Then
LeftClick 1
Else
End If
Else
End If

Loop