平地找怪打

以下是我今天做的按鍵精靈腳本
歡迎大家參考及測試
若覺得好或發現錯誤，麻煩回覆一下，謝謝

yociexp196.gif

使用:
1. 走到要掛機的平地平台
2. 按啟動熱鍵
3. 滑鼠移到自己的ID(角色下方，灰底白字)
4. 按F4，開始找怪打怪
停止後需要全部重做

功能:
1. 找怪並接近怪=有
2. 打怪=有
3. 撿寶=有
4. 自動喝水=只有HP，剩一半時喝
5. 跑步=無
6. 沒水就下線和停止腳本=有
這裡有人建議修改成沒水就改成休息，可是在休息的時候被怪撞死怎麼辦＝ ＝
※我已經不玩這個了ˊˋ，再次說明，如果沒水錢的人自己去用無敵ˊˋ~~大家BYE BYE~~
7. 組隊或交易邀請自動按否=有

其他:
適用職業=戰士，不知道有沒有其他職業可用
攻擊方式=普攻
HP水按鍵=F1
適用地形=平地
最好整個平台都只有自己一人
腳本迴圈=迴圈1次
熱鍵模式=增強模式

原始檔:
複製內容到剪貼板代碼:
Rem 設定掛機地點
WaitKey key
If key=115
    VBSCall GetCursorPos(q,w)
Else
    Goto 設定掛機地點
EndIf
KeyDownH 17,1
Rem 顯示怪物名稱後開始找怪打怪
KeyUpH 37,1
KeyUpH 39,1
Gosub 檢測是否有探險隊或交易訊息
Gosub 檢測是否有怪
Rem 打怪
If a<x
    Gosub 檢測是否有怪
    KeyDownH 37,1
    Rem 繼續往左走
    If (x-a)<80
//這裡的這個80就是離怪物多近時打怪，如果會撞到怪物，可以調大，單位是像素
        KeyUpH 37,1
        KeyPressH 88,1
        Delay 50
        Gosub 撿寶
        Goto 如果HP不到一半就按F1喝水
    Else
        Gosub 檢測是否有怪
        Gosub 檢測是否有探險隊或交易訊息
        Goto 繼續往左走
    EndIf
ElseIf a>x
    Gosub 檢測是否有怪
    KeyDownH 39,1
    Rem 繼續往右走
    If (a-x)<80
//這裡的這個80就是離怪物多近時打怪，如果會撞到怪物，可以調大，單位是像素
        KeyUpH 39,1
        KeyPressH 88,1
        Delay 50
        Gosub 撿寶
        Goto 如果HP不到一半就按F1喝水
    Else
        Gosub 檢測是否有怪
        Gosub 檢測是否有探險隊或交易訊息
        Goto 繼續往右走
    EndIf
Else
    Delay 50
    Goto 顯示怪物名稱後開始找怪打怪
EndIf
Rem 如果HP不到一半就按F1喝水
IfColor 218,755,c6,1
//這裡的218,755是血條最中央的座標，c6是扣掉的血條顏色，如果要修改喝水時機，可以改這邊
    KeyPressH 112,1
//喝水鍵：F1，可以修改
    Goto 若沒HP藥水就下線
Else
    Gosub 檢測是否有探險隊或交易訊息
    Goto 顯示怪物名稱後開始找怪打怪
EndIf
Rem 若沒HP藥水就下線
IfColor 550,734,212021,0
    KeyUpH 17,1
    KeyDownH 18,1
    KeyPressH 115,1
    KeyUpH 18,1
EndScript
Else
    Goto 顯示怪物名稱後開始找怪打怪
EndIf
Sub 檢測是否有怪
    VBSCall FindCenterColor(0,w-10,1024,w+10,"FFFFFF",x,y)
    VBSCall FindCenterColor(0,y-7,1024,y+7,"3169FF",a,b)
    If a>=0
        Delay 50
    Else
        Delay 50
        Goto 顯示怪物名稱後開始找怪打怪
    EndIf
Return 檢測是否有怪
Sub 撿寶
    KeyPressH 65,1
    Delay 50
    KeyPressH 65,1
    Delay 50
    KeyPressH 65,1
    Delay 50
Return 撿寶
Sub 檢測是否有探險隊或交易訊息
    IfColor 534,458,f77100,0
        MoveTo 534,458
        Delay 50
        LeftClick 1
        Delay 50
    Else
        Delay 50
    EndIf
Return 檢測是否有探險隊或交易訊息