(紅字我以經改過..但還是不行 還會一直用血水/MP水)
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true //循環開始
FuncTimer01()//10秒轉動視角子函數
State() //子函數狀態
wend //返回while開始循環
end function
function State
//如果怪物狀態條的滿血位置找不到?
//如果屏幕坐標(612, 57)的顏色不等於(194, 58, 10) 那麼
if not CheckColor(610, 53, Color(165, 60, 24), 10) then
//執行段內語句,當運行至LOOP時,如果表達式為false則跳回DO進行下一次執行,
//直至LOOP後的表達式為true(真)時運行完畢。
do
KeyDown("a")
Wait(100)
KeyUp("a")
KeyDown("Tab")
Wait(100)
KeyUp("Tab")
loop until CheckColor(610, 53, Color(165, 60, 24), 10) //怪物滿血的位置
else //找到的話…
do//執行攻擊
FuncTimer01()
KeyDown("3")
Wait(300)
KeyUp("3")
KeyDown("2")
Wait(300)
KeyUp("2")
KeyDown("2")
wait(300)
KeyUp("2")
KeyDown("2")
wait(300)
KeyUp("2")
KeyDown("3")
Wait(300)
KeyUp("3")
loop until not CheckColor(414, 51, Color(165, 113, 90), 10)
//如果窗口坐標(129, 38)的顏色不等於(123, 48, 16) 那麼
//如果血條1/2的位置不是血色則按下紅水
if not CheckColor(126, 59, Color(107, 69, 57), 10) then
KeyDown("4")
Wait(300)
KeyUp("4")
end if
//如果窗口坐標(85, 47)的顏色不等於(57, 121, 132) 那麼
//如果血條1/5的位置不是魔力的顏色則按下藍水
if not CheckColor(150, 75, Color(24, 117, 134), 10) then
KeyDown("4")
Wait(300)
KeyUp("4")
end if
end if
end function
function FuncTimer01 //每隔10秒,按一次鍵盤a,轉移視角
//定時器代碼,每Interval秒執行一次
dim global Timer01 = -1
if Timer01 < 0 or GetTime() - Timer01 >= 15 * 1000 then
Timer01 = GetTime() //等待時間等於系統時間
//以下為執行代碼
KeyPress("a") //按鍵盤a
//代碼結束
end if
end function //子函數結束 |