Hwnd = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
Call Plugin.Window.Move(Hwnd, 0, 0)
//Call 开始打
SetSimMode 2
KeyDown "D", 1
Rem rem1
Delay 600
FindPic 0,0,800,600,"Attachment:\进图界面.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
KeyUp "D", 1
SetSimMode 0
Delay 600
Call begin
Else
Goto rem1
End If
Sub click(x,y)
MoveTo x, y
Delay 100
LeftClick 1
Delay 100
End Sub
Sub begin//这是在进图界面
call click(552,413)
Call click(552, 413)
For 20
guaiwu=0
Rem rem2
Delay 1000
FindPic 0,0,800,600,"Attachment:\按空格开始.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 500
KeyPress "Space", 1
Delay 7800
Call 狂战开始打
Else
Goto rem2
End If
Rem rem5
Delay 1000
FindPic 0,0,800,600,"Attachment:\打完了.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 500
Call click(650, 88)
MoveTo 0,0
Else
Goto rem5
End If
Next
End Sub
Global thread1
Global thread2
Global thread3
Global guaiwu
Sub 狂战开始打
//启动三个线程同时执行
/*
线程1监听技能是否冷却,冷却完就放
线程2一直普通攻击
线程3监听怪物是否死亡
*/
For 2
If guaiwu = 0 Then
thread1 = BeginThread(狂战自由攻击)
thread2 = BeginThread(狂战普通攻击)
thread3 = BeginThread(怪物死亡)
Rem rem4
Delay 300
If guaiwu = 1 Then
Else
Goto rem4
End If
Else
For 3
guaiwu = 0
Delay 13200
thread1=BeginThread (狂战自由攻击)
thread2 = BeginThread(狂战普通攻击)
thread3 = BeginThread(怪物死亡)
Rem rem3
Delay 300
If guaiwu = 1 Then
guaiwu = 0
Else
Goto rem3
End If
Next
End If
Next
Delay 7000
KeyPress "V", 1//移动物品
Delay 2000
KeyPress "B", 1//移动角色
For 10
KeyPress "Num 4", 1
Delay 200
Next
End Sub
Sub 狂战自由攻击
//查看怒气爆发是否冷却,如果冷却完毕直接攻击
While guaiwu = 0
FindColor 600,529,622,539,"68F0F8",intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num +", 1
Delay 1300
End If
//查看崩山击是否冷却
FindColor 689,528,713,538,"68F0F8",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
SetSimMode 2
KeyPress "PageDown", 1
SetSimMode 0
Delay 1000
End If
//查看淤血之怒是否冷却
FindColor 599,566,623,576,"68F0F8",intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num 0", 1
Delay 15000
End If
Wend
End Sub
Sub 狂战普通攻击
While guaiwu = 0
KeyPress "Num 4", 1
Delay 200
Wend
End Sub
//每过0.5秒检查一次怪物是否死亡
Sub 怪物死亡
While guaiwu = 0
Delay 500
FindColor 476,74,476,74,"000000",intX,intY
If intX > 0 And intY > 0 Then
guaiwu = 1
StopThread thread1
StopThread thread2
TracePrint "怪物死亡"&"-------"&guaiwu
End If
Wend
End Sub