For 50
For 10
Next
Next
為什麼中間做完不會先執行十次才跳出外層繼續動作呢？
我看他執行都是中間執行一次就去外面 求解
Rem 開始
Rem 打怪
For 30
KeyPress "Delete", 1
FindColor 0+X,28+Y,799+X,486+Y," C87C08",K,L
If K > 0 And L > 0 Then
MoveTo K + X, L + Y
LeftClick 1
Delay 1500
Goto 血1
Else
End If
For 10
Rem 血1
A = GetPixelColor(18 + X, 63 + Y)
If A = "00FF00" Then
Goto 血2
Delay 1
Else
MoveTo 165 + X, 532 + Y
A=""
LeftClick 1
Goto 還在打怪
End If
Rem 血2
B = GetPixelColor(17 + X, 62 + Y)
If B = "00FF00" Then
Goto 血3
Delay 1
Else
MoveTo 165 + X, 532 + Y
B=""
LeftClick 1
Goto 還在打怪
End If
Rem 血3
C = GetPixelColor(16 + X, 61 + Y)
If C = "00FF00" Then
Goto 血4
Delay 1
Else
MoveTo 165 + X, 532 + Y
C=""
LeftClick 1
Goto 還在打怪
End If
Rem 血4
D = GetPixelColor(16 + X, 60 + Y)
If D = "00FF00" Then
Goto 血5
Delay 1
Else
MoveTo 165 + X, 532 + Y
D=""
LeftClick 1
Goto 還在打怪
End If
Rem 血5
E = GetPixelColor(17 + X, 59 + Y)
If E = "00FF00" Then
Goto 血6
Delay 1
Else
MoveTo 165 + X, 532 + Y
E=""
LeftClick 1
Goto 還在打怪
End If
Rem 血6
F = GetPixelColor(17 + X, 58 + Y)
If F = "00FF00" Then
Goto 血7
Delay 1
Else
MoveTo 165 + X, 532 + Y
F=""
LeftClick 1
Goto 還在打怪
End If
Rem 血7
G = GetPixelColor(18 + X, 58 + Y)
If G = "00FF00" Then
Goto 血8
Delay 1
Else
MoveTo 165 + X, 532 + Y
G=""
LeftClick 1
Goto 還在打怪
End If
Rem 血8
H = GetPixelColor(19 + X, 61 + Y)
If H = "00FF00" Then
Goto 血9
Delay 1
Else
MoveTo 165 + X, 532 + Y
H=""
LeftClick 1
Goto 還在打怪
End If
Rem 血9
I = GetPixelColor(19 + X, 64 + Y)
If I = "00FF00" Then
Goto 血0
Delay 1
Else
MoveTo 165 + X, 532 + Y
I=""
LeftClick 1
Goto 還在打怪
End If
Rem 血0
J = GetPixelColor(19 + X, 64 + Y)
If J = "00FF00" Then
Goto 字1
Delay 1
Else
MoveTo 165 + X, 532 + Y
J=""
LeftClick 1
Goto 還在打怪
End If
Delay 500
Rem 還在打怪
Next
Rem 字1
GetColor = GetPixelColor(34 + X, 61 + Y)
If GetColor = "00FF00" Then
Goto 字2
Delay 1
Else
Goto 沒找到字
End If
Rem 字2
GetColor = GetPixelColor(34 + X, 60 + Y)
If GetColor = "00FF00" Then
Goto 字3
Delay 1
Else
Goto 沒找到字
End If
Rem 字3
GetColor = GetPixelColor(35 + X, 59 + Y)
If GetColor = "00FF00" Then
Goto 字4
Delay 1
Else
Goto 沒找到字
End If
Rem 字4
GetColor = GetPixelColor(36 + X, 59 + Y)
If GetColor = "00FF00" Then
Goto 字5
Delay 1
Else
Goto 沒找到字
End If
Rem 字5
GetColor = GetPixelColor(37 + X, 59 + Y)
If GetColor = "00FF00" Then
Goto 字6
Delay 1
Else
Goto 沒找到字
End If
Rem 字6
GetColor = GetPixelColor(40 + X, 60 + Y)
If GetColor = "00FF00" Then
Goto 字7
Delay 1
Else
Goto 沒找到字
End If
Rem 字7
GetColor = GetPixelColor(40 + X, 61 + Y)
If GetColor = "00FF00" Then
Goto 字8
Delay 1
Else
Goto 沒找到字
End If
Rem 字8
GetColor = GetPixelColor(44 + X, 62 + Y)
If GetColor = "00FF00" Then
Goto 字9
Delay 1
Else
Goto 沒找到字
End If
Rem 字9
GetColor = GetPixelColor(44 + X, 63 + Y)
If GetColor = "00FF00" Then
Goto 字0
Delay 1
Else
Goto 沒找到字
End If
Rem 字0
GetColor = GetPixelColor(42 + X, 67 + Y)
If GetColor = "00FF00" Then
Goto 開始
Delay 1
Else
Goto 沒找到字
End If
Rem 沒找到字
Delay 1000
Next