[江中游] 【按键精灵论坛教学】第3部分 第9课 恶人的恶梦-2 [复制链接]

TracePrint "开始运行"
Hwnd = Plugin.Window.Find("TianLongBaBuHJ WndClass", "《新天龙八部》 0.02.8007 (怀旧二区:天下第一)")
If Hwnd = 0 Then
TracePrint "版本不对"
// ExitScript
End If
TracePrint Hwnd
Call Plugin.Window.Move(Hwnd, 1, 1)
Call Plugin.Window.Top(Hwnd, 0)
Plugin.Window.Active Hwnd
Randomize
//注意注意注意：这里有坑，//这三个数组，赋值时向下调用是管用的，那么由上一级调用能不能管用呢？能不能管用？
技能时间 = array(now(), now(), now(), now(), now(), now(), now())'函数
技能冷却 = array(20, 20, 25, 120, 5, 30, 80)'整数
技能放放 = array("F2", "F3", "F4", "F5", "F6", "F7", "F8")
Delay 500
for 10000000000
Call 找怪()
KeyPress "F1", 1
Call 打怪()
Next
Sub 找怪()
Do
KeyPress "F11", 1
Delay Int((500 - 300 + 1) * Rnd + 300)
IfColor 301,63,"0007CD",0 Then
//颜色一样
TracePrint "颜色一样"
Exit Do
End If
Delay Int((1000 - 100 + 1) * Rnd + 100)
Loop    
End Sub
Sub 打怪()
Do
Delay Int((200 - 50 + 1) * Rnd + 50)
Call 技能释放()
IfColor 287,63,"0007CD",1 Then
TracePrint "怪死亡"
Exit Do
End If
TracePrint "怪还没死亡"
IfColor 126,68, "0007CD", 1 Then'加血
// KeyPress "F10", 1
Else
TracePrint "不用加血"
End If
Delay Int((500 - 100 + 1) * Rnd + 100)
Loop
End Sub
Function 技能释放()
Delay 10
For i = 0 To UBound(技能时间)'数组的一个遍历
If dateDiff("s", 技能时间(i), now()) >= 技能冷却(i) Then
TracePrint 技能放放(i)
KeyPress 技能放放(i),1
技能时间(i) = now()
// 技能差(i) = 0
// Exit For
End If
Next
End Function
Sub OnScriptExit()
Call Plugin.Window.Top(Hwnd, 1)
End Sub