按鍵精靈自動補氣補血

UserVar hpa=DropList{不補血:0|10%補血:0.1|20%補血:0.2|30%補血:0.3|40%補血:0.4|50%補血:0.5|60%補血:0.6|70%補血:0.7|80%補血:0.8|90%補血:0.9}=5 【補紅】
UserVar mpa=DropList{不補氣:0|10%補氣:0.1|20%補氣:0.2|30%補氣:0.3|40%補氣:0.4|50%補氣:0.5|60%補氣:0.6|70%補氣:0.7|80%補氣:0.8|90%補氣:0.9}=5 【補藍】
UserVar ab=DropList{無:0|shift+按鍵1:49|shift+按鍵2:50|shift+按鍵3:51|shift+按鍵4:52|shift+按鍵5:53|shift+按鍵6:54|shift+按鍵7:55|shift+按鍵8:56|shift+按鍵9:57|shift+按鍵0:58}=1 【補藥熱鍵】
UserVar ac=DropList{無:0|shift+按鍵1:49|shift+按鍵2:50|shift+按鍵3:51|shift+按鍵4:52|shift+按鍵5:53|shift+按鍵6:54|shift+按鍵7:55|shift+按鍵8:56|shift+按鍵9:57|shift+按鍵0:58}=1 【氣藥熱鍵】
Rem 開始
Gosub 補血氣
Delay 100
Goto 開始
Sub 補血氣
    VBSCall ReadMemory(&Ha30194,2,a)
    VBSCall ReadMemory(a+&H2c,2,a1)
    VBSCall ReadMemory(a1+&H7c,2,hp)
    VBSCall ReadMemory(a1+&H80,2,hpm)
    VBSCall ReadMemory(a1+&H84,2,mp)
    VBSCall ReadMemory(a1+&H88,2,mpm)
    If hp<=hpm*hpa
        KeyDown 16,1
        KeyPress ab,1
        KeyUp 16,1
        Delay 200
    EndIf
    If mp<=mpm*mpa
        KeyDown 16,1
        KeyPress ac,1
        KeyUp 16,1
        Delay 200
    EndIf
Return 補血氣

由於第一天剛玩
很多遊戲方面的設定跟熱鍵不是太熟悉
所以只能寫個簡單的自動補氣補血

感謝大大的分享囉∼∼
回家試試看

感恩謝謝大大分享

感謝大大分享^^

不明白
這些字要放到哪裡呀???

不明白
這些文字要放到哪裡啦??

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

吸收了不少
感謝大大無私的分享
YCT20BYCT20B

感謝大大分享~我來去試試看~感謝囉