以下是用某大大寫的腳本
然後自己修改一些
現在我在這邊分享給大家使用
YCT65B
開始囉↓
#[HOTKEY]F11
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true //循環開始
FuncTimer01()
State() //子函數狀態
wend //返回while開始循環
end function
function State
//讀入數字0－9的圖像文件到數組
dim DigitImgs[10]
LoadImage("1.Sel", DigitImgs[1])
LoadImage("2.Sel", DigitImgs[2])
LoadImage("3.Sel", DigitImgs[3])
LoadImage("4.Sel", DigitImgs[4])
LoadImage("5.Sel", DigitImgs[5])
LoadImage("6.Sel", DigitImgs[6])
LoadImage("7.Sel", DigitImgs[7])
LoadImage("8.Sel", DigitImgs[8])
LoadImage("9.Sel", DigitImgs[9])
LoadImage("0.Sel", DigitImgs[10])
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//如果圖像"死亡確定.Sel"在此時出現
if FindImageEx("死亡確定.Sel", Color(30, 30, 30), WinX0+385, WinY0+166, WinX0+638, WinY0+314, true, FoundX, FoundY) then
Beep(300, 5000)
//彈出對話框，腳本暫時中止
MsgBox("死亡!!!", 1)
end if
if not ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+200, WinX0+1019, WinY0+224, true, Num) then
//如果讀取失敗
KeyDown("6")
Wait(300)
KeyUp("6")
end if
//此時如果讀取成功，數字被保存在變量 Num 中
if ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+200, WinX0+1019, WinY0+224, true, Num) then
if not ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+229, WinX0+1019, WinY0+253, true, Num) then
//如果讀取失敗
KeyDown("7")
Wait(300)
KeyUp("7")
end if
end if
if ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+200, WinX0+1019, WinY0+224, true, Num) then
if ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+229, WinX0+1019, WinY0+253, true, Num) then
if not ReadNumberEx(DigitImgs, Color(30, 30, 30), WinX0+944, WinY0+258, WinX0+1019, WinY0+282, true, Num) then
//如果讀取失敗
KeyDown("8")
Wait(300)
KeyUp("8")
end if
end if
end if
if not CheckColor(WinX0+611, WinY0+48, Color(165, 60, 24), 10) then
do
KeyDown("a")
Wait(100)
KeyUp("a")
KeyDown("Tab")
Wait(100)
KeyUp("Tab")
loop until CheckColor(WinX0+431, WinY0+33, Color(59, 59, 59), 10)
else //否則
do
FuncTimer01()
KeyDown("1")
Wait(300)
KeyUp("1")
Wait(300)
KeyDown("2")
Wait(300)
KeyUp("2")
//如果找到圖像"小瓶hp剩餘1.Sel"
if FindImageEx("小瓶hp剩餘1.Sel", Color(30, 30, 30), WinX0+704, WinY0+716, WinX0+743, WinY0+756, true, FoundX, FoundY) then
//此時FoundX和FoundY的值分別為找到的圖像的左上角X,Y坐標
Beep(300, 5000)
end if
//如果找到圖像"小瓶hp剩餘1.Sel"
if FindImageEx("大瓶hp剩餘1.Sel", Color(30, 30, 30), WinX0+704, WinY0+716, WinX0+743, WinY0+756, true, FoundX, FoundY) then
//此時FoundX和FoundY的值分別為找到的圖像的左上角X,Y坐標
Beep(300, 5000)
end if
//如果窗口坐標(157, 38)的顏色不等於(148, 56, 24) 那麼
if not CheckColor(WinX0+157, WinY0+38, Color(148, 56, 24), 10) then
KeyDown("3")
Wait(300)
KeyUp("3")
end if
//如果窗口坐標(134, 35)的顏色不等於(155, 114, 100) 那麼
if CheckColor(WinX0+134, WinY0+35, Color(155, 114, 100), 10) then
KeyDown("4")
Wait(300)
KeyUp("4")
end if
//如果窗口坐標(157, 47)的顏色不等於(45, 120, 138) 那麼
if not CheckColor(WinX0+157, WinY0+47, Color(45, 120, 138), 10) then
//以下為嚮導添加的代碼
KeyPress("5")
end if
loop while CheckColor(WinX0+431, WinY0+33, Color(59, 59, 59), 10)
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 //子函數結束
以上標紅色區域
請自行從抓點 會比較準確些
因為每台電腦設定比較不同
所以怕猛喝水 請自行從抓點
謝謝大家 |
收藏
分享
讚
幹
分享
分享
