求大神教路主程序和子程序的寫法連接

請問在為何去不到rem e5，去到 If blue3= True Then就不進行下去
永遠循環前面三個 if
我的想法是前面三個 if 分別為看血看藍同反擊
如果沒血就回城，在回到城後就會觸發e5
再去買水掛地圖，我是怎樣都連接不到
請大神教教小弟
Dim intX, intY
Goto e1
Rem e1
Delay 100
If blue1 = True
Delay 100
Delay 100
Dim xc1=Thread.start(a1)
Delay 100
End If
Rem e2
Delay 100
If blue2 = True Then
Delay 100
Dim xc2=Thread.start(a2)
Delay 100
End If
Rem e3
If blue3 = True Then
Delay 100
Dim xc4=Thread.start(a3)
Delay 100
Dim xc5=Thread.start(a4)
Delay 100
End If
Goto e4
Rem e4
Delay 100
FindMultiColor 164,1074,273,1183,"8A98A7","-14|14|537F9A,-8|-18|72909F,16|7|AEC7D0,-8|32|59737E,10|-11|A1BDC7-253AA3,10|24|92A9B1,13|-18|474A50,13|31|3D4149,-8|8|222325",0,0.7,intX,intY
If intX > -1 And intY > -1 Then
Delay 100
Thread.stop a1()
Thread.stop a2()
Thread.stop a3()
Thread.stop a4()
Delay 500
Goto e6
Else
Delay 100
Goto e5
End If
sub a1()
內容
end sub
sub a2()
內容
end sub
sub a3()
內容
end sub