Function 降魔洞窟()
Call 检测活动条()
Dim t=TickCount()
Rem 降魔标记
Delay 1000
Do
KeepCapture
Delay 200
If TickCount() - t > 1000*2*60 Then
显示消息 "2分钟没见到降魔入口,降魔结束"
Exit Function
ElseIf 判断(活动日历入口) = True Then
Delay 2000
Call 点击(活动日历入口)
显示消息 "活动日历入口"
ElseIf 判断(混乱深渊入口)=True Then
Delay 2000
Swipe 37, 338, 251, 338, 500
Delay 2000
Swipe 37, 338, 251, 338, 500
显示消息 "滑动找降魔"
Delay 2000
ElseIf gk.full(降魔未开)=True Then
显示消息 "等级没到,降魔未开"
Delay 1000
Tap 344, 576
Exit Function
ElseIf gk.full(降魔入口)=True Then
显示消息 "降魔入口"
gk.full (降魔入口)
Exit Do
Else
Delay 1000
Tap 344, 576
Delay 1000
Goto 降魔标记
End If
ReleaseCapture
Delay 1000
loop
Do
If TickCount() - t > 1000*40*60 Then
显示消息 "35分钟到了,降魔结束"
Exit Function
End If
Delay 500
KeepCapture
Delay 500
If 判断(降魔匹配)=True Then
Call 点击(降魔匹配)
显示消息 "降魔匹配"
Delay 2100
ElseIf 判断(获得新称号)=True Then
Call 点击(获得新称号)
显示消息 "获得新称号"
ElseIf 判断(每日在线礼包) = True Then
显示消息 "每日在线礼包"
Call 点击(每日在线礼包)
ElseIf 判断(礼包奖励)=True Then
Call 点击(礼包奖励)
显示消息 "礼包奖励"
ElseIf 判断(降魔下层)=True Then
Call 点击(降魔下层)
显示消息 "降魔下层"
Delay 2100
ElseIf gk.full(降魔使者)=True Then
gk.full(降魔使者)
显示消息 "降魔使者"
Delay 2100
ElseIf 判断(降魔有怪)=True Then
显示消息 "还有小怪"
Delay 1100
Tap 278, 456
Delay 100
If 判断(自动战斗) = true Then
Call 点击(自动战斗)
End If
ElseIf 判断(降魔副本)=True Then
// Call 点击(降魔副本)
显示消息 "降魔副本中"
Delay 2100
If 判断(自动战斗) = true Then
Call 点击(自动战斗)
End If
ElseIf 判断(灰色匹配)=True Then
显示消息 "降魔打过了"
Delay 1500
Tap 314, 565
Delay 1500
Tap 346, 575
Delay 1500
Exit Function
ElseIf 判断(宝箱奖励) = True Then
Call 点击(宝箱奖励)
显示消息 "宝箱奖励"
Exit Function
ElseIf 判断(投票确认)=True Then
// Call 点击(投票确认)
t=TickCount()
显示消息 "投票确认"
Delay 1100
Tap 78,311
End If
ReleaseCapture
Delay 1200
loop
End Function