[问题] 我的脚本 [复制链接]

我的脚本是那里出了问题？
船只出港，判断成功，点击技能健，我的要求是只点击一次，而后是见到其它图形（加速、取水、等等，这些都是不定时出现），前去点击，现在的问题是，全部成功，就是总是在判断出港，总是点击技能健，加了几个制止命令都不行，有大佬帮我看看吗
附上我的指令：
Dim portLock
Dim skillRunOnce '出海技能仅执行一次标记
portLock = 0
skillRunOnce = 0

While True
Dim cx, cy
cx = 0
cy = 0
Dim clickFish
clickFish = 0

'大范围识图区域（航行文字、三层完成图标识别范围）
Dim bigL, bigT, bigR, bigB
bigL = 671
bigT = 888
bigR = 1193
bigB = 1024
Dim isSea
isSea = 0
Dim taskFinish
taskFinish = 0

'仅识别航行中文字标识，相似度0.55
FindPic bigL,bigT,bigR,bigB,"Attachment:\hanxin3.bmp",0.55,sea3X,sea3Y
'三层任务完成图标，识别到代表技能已生效，不再点击
FindPic bigL,bigT,bigR,bigB,"Attachment:\jilencengengong.bmp",0.48,finishX,finishY

'判断是否在海上
If sea3X>0 Then
isSea = 1
portLock = 0
Else
'回城到城市，锁定技能，重置单次执行标记
isSea = 0
portLock = 1
skillRunOnce = 0
End If
'识别到三层图标，标记任务完成，拦截技能
If finishX > 0 Then
taskFinish = 1
End If

'四重条件：未回城锁定 + 在海上 + 未出现完成图标 + 技能还没执行过
If portLock = 0 And isSea = 1 And taskFinish = 0 And skillRunOnce = 0 Then
'全套技能点击流程
MoveTo 1856, 984
Delay 200
LeftClick 1
Delay 1000

MoveTo 1840, 894
Delay 200
LeftClick 1
Delay 600

MoveTo 1840, 816
Delay 200
LeftClick 1
Delay 600


'⑤点击运作
MoveTo 1853, 744
Delay 200
LeftClick 1
Delay 600

MoveTo 1853, 984
Delay 200
LeftClick 1
Delay 800

'技能执行完毕，标记置1，本轮海上不再重复运行
skillRunOnce = 1
End If

'====小范围扫描加速、取水、鱼等挂机图标====
Dim L, T, R, B
L = 1062
T = 525
R = 1487
B = 894

FindPic L,T,R,B,"Attachment:\0221.bmp",0.52,x1,y1
FindPic L,T,R,B,"Attachment:\0222.bmp",0.52,x2,y2
FindPic L,T,R,B,"Attachment:\0223.bmp",0.52,x3,y3
FindPic L,T,R,B,"Attachment:\0224.bmp",0.52,x4,y4
FindPic L,T,R,B,"Attachment:\0225.bmp",0.52,x5,y5
FindPic L,T,R,B,"Attachment:\sui.bmp",0.52,x6,y6
FindPic L,T,R,B,"Attachment:\sui2.bmp",0.52,x7,y7
FindPic L,T,R,B,"Attachment:\tiao2.bmp",0.52,x8,y8
FindPic L,T,R,B,"Attachment:\tiao3.bmp",0.52,x9,y9
FindPic L,T,R,B,"Attachment:\tiaowu.bmp",0.52,x10,y10
FindPic L,T,R,B,"Attachment:\yunan1.bmp",0.52,x11,y11
FindPic L,T,R,B,"Attachment:\yunan2.bmp",0.52,x12,y12

FindPic L,T,R,B,"Attachment:\pingzi.bmp",0.52,pingX,pingY
FindPic L,T,R,B,"Attachment:\yu.bmp",0.52,yuX,yuY

If x1>0 Then
cx = x1 : cy = y1
ElseIf x2>0 Then
cx = x2 : cy = y2
ElseIf x3>0 Then
cx = x3 : cy = y3
ElseIf x4>0 Then
cx = x4 : cy = y4
ElseIf x5>0 Then
cx = x5 : cy = y5
ElseIf x6>0 Then
cx = x6 : cy = y6
ElseIf x7>0 Then
cx = x7 : cy = y7
ElseIf x8>0 Then
cx = x8 : cy = y8
ElseIf x9>0 Then
cx = x9 : cy = y9
ElseIf x10>0 Then
cx = x10 : cy = y10
ElseIf x11>0 Then
cx = x11 : cy = y11
ElseIf x12>0 Then
cx = x12 : cy = y12
End If

If cx > 0 Then
MoveTo cx + 40, cy + 40
Delay 50
LeftClick 1
End If

'瓶子图标不点击
If pingX > 0 Then
End If

'鱼图标一轮循环只点击一次
If yuX > 0 And clickFish = 0 Then
MoveTo yuX + 40, yuY + 40
Delay 50
LeftClick 1
clickFish = 1
End If

Delay 200
Wend