簡單按精輔助補血放技

歡迎大家在外掛出來前先將就一下用這個嘍
剛因無聊又沒人寫外掛出來，就先寫個輔助一下的小程式嘍~~ 不然按補血就煩死了，筆電的鍵盤又怕按壞
因只是自己寫自己用，所以沒寫得很一般化!!!  有空的人可以幫改，不懂的可以問我

缺點:
被圍歐時請以tab切換到另一個快鍵其F1為強力藥水為佳(強力藥水一定不會死)，平常用便宜藥水就行了。
打怪以最好別兩支怪重疊，不然放魔法時可能會放到另一支，因此就被圍歐啦!!!
滑鼠指標得移到怪物上面，打開時再按下按精的啟動熱鍵，打完怪最好按下中止熱鍵(以免人物跑不掉又亂開視窗)
我自己的快鍵是設   1 鍵的左邊那個 ` 鍵當啟動鍵，而 1 鍵為終止
打怪時就只需滑鼠指到怪開打後按 ` 鍵，打完怪就按 1 鍵，如果被圍歐受不瞭也是按 1 鍵後才能快點逃跑


按精設定:
1. 循環到按中止鍵為止
2. 不重覆運行這個腳本
3. copy最下面的程式碼過去就行了

請在遊戲快鍵一定要這樣用↓
F1 血瓶(10元15hp的就行了，又滑算，也可以按tab鍵把第二個快鍵用60元70hp這樣切換補啦[怕不夠快的話咩])
F2 攻擊技能
F3 攻擊技能
F4 補血技能(或對自己寵物有效的技能)
F5 補血技能(或對自己寵物有效的技能)

◎滑鼠指標: 打怪時得先把滑鼠指標移到怪物上面，再按下按精的啟動熱鍵，打完怪最好按下中止熱鍵(以免人物跑不掉)
◎請用全螢幕!!
◎補血大概只補到四分之三位置吧

#----------------------------------程式碼(裡的說明可一拼copy貼上不需刪除)-------------------------------------
Delay 100
VBSCall Call GetCursorPos(xx,yy)
a=0
VBSCall Call FindColorEx(526,26,520,28,80052,0,0.9,x1,y1) #抓取第一人物hp位置(不準的自己重抓)
While not (x1<>-1 and y1<>-1) #循環直到人物補血補到四分之三的位置
    a=a+1
    MoveTo 543 13   #第一人物補血位置
    If a=1  #第一次沒血進來補血時，先用技能補
        KeyPress 115 1  #F4技能補血
        LeftClick 1
        KeyPress 116 1 #F5技能補血
        LeftClick 1
    Else
        KeyPress 112 1  #F1補血瓶補血
    EndIf
    LeftClick 1
    MoveTo xx yy  #滑鼠移到原位
    VBSCall Call FindColorEx(526,26,520,28,80052,0,0.9,x1,y1)  #抓取第一人物hp位置
EndWhile
If a>1 #如果有補過血
    a=0
    KeyPress 114 1  #放F3攻擊技能
    LeftClick 1
    Delay 600 # 應攻擊技能放完後得停0.6秒才能再放,但也可能因此停太久來不及補血喔!!
    KeyPress 113 1 #放F2攻擊技能
    LeftClick 1
EndIf
Delay 100  #---------------- 下面重覆! 為二、三、四人物的同樣做法 ------------
VBSCall Call FindColorEx(594,24,589,26,80052,0,0.9,x2,y2)
While not (x2<>-1 and y2<>-1)
    a=a+1
    MoveTo 608 13
    If a=1
        KeyPress 115 1
        LeftClick 1
        KeyPress 116 1
        LeftClick 1
    Else
        KeyPress 112 1
    EndIf
    LeftClick 1
    MoveTo xx yy
    VBSCall Call FindColorEx(594,24,589,26,80052,0,0.9,x2,y2)
EndWhile
If a>1
    a=0
    KeyPress 114 1
    LeftClick 1
    Delay 600
    KeyPress 113 1
    LeftClick 1
EndIf
Delay 100
VBSCall Call FindColorEx(660,24,654,26,80052,0,0.9,x3,y3)
While not (x3<>-1 and y3<>-1)
    a=a+1
    MoveTo 674 13
    If a=1
        KeyPress 115 1
        LeftClick 1
        KeyPress 116 1
        LeftClick 1
    Else
        KeyPress 112 1
    EndIf
    LeftClick 1
    MoveTo xx yy
    VBSCall Call FindColorEx(660,24,654,26,80052,0,0.9,x3,y3)
EndWhile
If a>1
    a=0
    KeyPress 114 1
    LeftClick 1
    Delay 600
    KeyPress 113 1
    LeftClick 1
EndIf
Delay 100
VBSCall Call FindColorEx(727,24,721,26,80052,0,0.9,x4,y4)
While not (x4<>-1 and y4<>-1)
    a=a+1
    MoveTo 742 13
    If a=1
        KeyPress 115 1
        LeftClick 1
        KeyPress 116 1
        LeftClick 1
    Else
        KeyPress 112 1
    EndIf
    LeftClick 1
    MoveTo xx yy
    VBSCall Call FindColorEx(727,24,721,26,80052,0,0.9,x4,y4)
EndWhile
If a>1
    KeyPress 114 1
    LeftClick 1
    Delay 600
    KeyPress 113 1
    LeftClick 1
EndIf

[ 本帖最後由 vtmtcic 於 2008-1-21 22:09 編輯 ]

謝謝大大分享!
雖然現在按精蠻方便的!
不過看說明有點一頭霧水=.=呵呵
不過還是辛苦大大的分享!!
感恩yociexp163.gif

本來只是自己按瓶血和技能按到快抓狂才寫來方便一下的啦!! 所以沒有寫的很一般化~
大家就自己麻煩一下下嘍~  也可能pixel位置不合也得自己去改嘍!!yociexp171.gif

我有再修過喔! 之前copy的人可以再重copy一次啦~

到搜尋引擎打上「按鍵精靈」，下載後就行了
一開始就按下新增腳本，之後就依造上面我寫的
1. 循環到按中止鍵為止
2. 不重覆運行這個腳本
3. copy最下面的程式碼過去就行了
還有自行設啟動熱鍵和終止熱鍵即可
你可以先用我po的另一篇買血瓶的先去試試，因為它的步驟很簡單!!

感謝大大的分享嚕^^   雖然我還不太會用按鍵精靈!!  還是卸卸辣!!yociexp184.gif yociexp184.gif

感謝大大的分享   
剛用是狂喝水 位子改過後 會用補血技能但是不喝水
還有不會幫寵物補  ˊˋ  搞不懂 不太會用  哈哈