此版有~閃NPC~不搶怪~坐下反擊~休息反擊再反擊再反擊~還會精準撿寶物喔~大家請記得抓色~還有修改撿寶物距離~如果怕卡怪~攻擊可以再加個後退∼他就會一直後退２前進３不怕卡住搂∼有問題再問我搂∼４服掛機代表∼
#[HOTKEY]HOME
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true //循環開始
State()//子函數狀態
wend //返回while開始循環
end function
function State//休息攻擊+喝水
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
print("執行攻擊")
if not CheckColor(WinX0+228, WinY0+674, Color(193, 15, 45), 10) then
Wait(500)
KeyDown("x")
Wait(500)
KeyUp("x")
Wait(2000)
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
do
Print("主動怪反擊迴圈")
KeyDown("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
Wait(300)
KeyDown("3")
Wait(300)
KeyUp("3")
Wait(100)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
KeyDown("1")
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
Wait(100)
KeyDown("x")
Wait(500)
KeyUp("x")
Wait(2000)
end if
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
do
Print("主動怪反擊迴圈")
KeyDown("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
Wait(300)
KeyDown("3")
Wait(300)
KeyUp("3")
Wait(100)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
KeyDown("1")
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
Wait(100)
KeyDown("x")
Wait(500)
KeyUp("x")
Wait(2000)
end if
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
do
Print("主動怪反擊迴圈")
KeyDown("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
Wait(300)
KeyDown("3")
Wait(300)
KeyUp("3")
Wait(100)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
KeyDown("1")
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
Wait(100)
KeyDown("x")
Wait(500)
KeyUp("x")
end if
do //循環
//等待2000毫秒
Wait(2000)
//直到窗口坐標(188, 42)的顏色等於(166, 60, 23)
loop until CheckColor(WinX0+253, WinY0+674, Color(103, 9, 25), 10)
end if
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//如果窗口坐標(86, 50)的顏色不等於(57, 121, 132) 那麼
//如果怪物狀態條的滿血位置找不到?
if not CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10) then
//執行段內語句，當運行至LOOP時，如果表達式為false則跳回DO進行下一次執行，
//直至LOOP後的表達式為true(真)時運行完畢。
do
KeyPress("TAB")
Wait(800)
loop until CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10)//怪物滿血的位置
GetActiveWindowXY(WinX0, WinY0)
if not CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10) then//npc特定圖形判斷
do
print("判斷是否為npc")
Keypress("tab")
Wait(100)
Wait(300)
loop until CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10)//如果符合怪的圖行及執行下一行
end if
else //找到的話…
do//執行攻擊
for ForCount = 1 to 3
KeyDown("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
Wait(300)
KeyDown("3")
Wait(300)
KeyUp("3")
Wait(100)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
next
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去
//等待500毫秒
Print("死亡")
KeyDown("1")//補打一下免的誤判
Wait(300)
KeyPress("F")
Wait(300)
KeyDown("w")
Wait(1600)
KeyUp("w")
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
Wait(2000)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
do
Print("主動怪反擊迴圈")
KeyDown("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
Wait(300)
KeyDown("3")
Wait(300)
KeyUp("3")
Wait(100)
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//補血技能,沒有就放紅水
//如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
KeyDown("6")
Wait(300)
KeyUp("6")
end if
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
KeyDown("1")
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
end if
end if
end function |
