自動打變異大眼

自已作的腳本，希望大家用的上，請多多回文。
缺點：劍士無法檢蛋，補血慢一點(暴走會死哦)
優點：打變異大眼(直打大眼)，會自已補血。
ps：如果說座標跟我不同的請自已改一下了。希望幫的上大家的忙。

po文忘記說明一點，F2 F5 F6都是寵物補血的技能，如沒補血寵物，請把F2 F5 F6
放補血的大紅水，比較安全。





VBSCall FindColorEx(0,0,748,539,"DEFBAD",1,0.8,x,y)
//區域模□找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模□值 x,y為找到顏色後的坐標變量
If x>=0 and y>=0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x y
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如：MoveTo x+10 y+10
    Delay 100
    //延時
    LeftClick 1
    //左鍵單擊進行攻擊
    Delay 2000
EndIf
//條件結束
第一位
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 113,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 116,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 117,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    For 10
        MoveTo 539,29
        Delay 100
        KeyPress 112,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyPress 192,1
        Delay 100
    EndFor
Else
EndIf
第二位
Delay 100
MoveTo 593,23
Delay 400
IfColor 593,23,1818de,1
    Delay 100
    MoveTo 609,31
    Delay 100
    KeyPress 113,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 593,23
Delay 400
IfColor 593,23,1818de,1
    Delay 100
    MoveTo 609,31
    Delay 100
    KeyPress 116,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 593,23
Delay 400
IfColor 593,23,1818de,1
    Delay 100
    MoveTo 609,31
    Delay 100
    KeyPress 117,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 593,23
Delay 400
IfColor 593,23,1818de,1
    Delay 100
    For 10
        MoveTo 609,31
        Delay 100
        KeyPress 112,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyPress 192,1
        Delay 100
    EndFor
Else
EndIf
Delay 100
VBSCall FindColorEx(0,0,748,539,"DEFBAD",1,0.8,x,y)
//區域模□找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模□值 x,y為找到顏色後的坐標變量
If x>=0 and y>=0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x y
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如：MoveTo x+10 y+10
    Delay 100
    //延時
    LeftClick 1
    //左鍵單擊進行攻擊
    Delay 2000
EndIf
//條件結束
第一位
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 113,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 116,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    MoveTo 539,29
    Delay 100
    KeyPress 117,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 525,23
Delay 400
IfColor 525,23,6361ff,1
    Delay 100
    For 10
        MoveTo 539,29
        Delay 100
        KeyPress 112,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyPress 192,1
        Delay 100
    EndFor
Else
EndIf
第三位
Delay 100
MoveTo 657,26
Delay 400
IfColor 657,26,1818d6,1
    Delay 100
    MoveTo 671,33
    Delay 100
    KeyPress 113,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 657,26
Delay 400
IfColor 657,26,1818d6,1
    Delay 100
    MoveTo 671,33
    Delay 100
    KeyPress 116,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 657,26
Delay 400
IfColor 657,26,1818d6,1
    Delay 100
    MoveTo 671,33
    Delay 100
    KeyPress 117,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 657,26
Delay 400
IfColor 657,26,1818d6,1
    Delay 100
    For 10
        MoveTo 671,33
        Delay 100
        KeyPress 112,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyPress 192,1
        Delay 100
    EndFor
Else
EndIf
第四位
Delay 100
MoveTo 726,23
Delay 400
IfColor 726,23,1818de,1
    Delay 100
    MoveTo 743,37
    Delay 100
    KeyPress 113,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 726,23
Delay 400
IfColor 726,23,1818de,1
    Delay 100
    MoveTo 743,37
    Delay 100
    KeyPress 116,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 726,23
Delay 400
IfColor 726,23,1818de,1
    Delay 100
    MoveTo 743,37
    Delay 100
    KeyPress 117,1
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 192,1
    Delay 100
Else
EndIf
Delay 100
MoveTo 726,23
Delay 400
IfColor 726,23,1818de,1
    Delay 100
    For 10
        MoveTo 743,37
        Delay 100
        KeyPress 112,1
        Delay 100
        LeftClick 1
        Delay 100
        KeyPress 192,1
        Delay 100
    EndFor
Else
EndIf
Delay 100
VBSCall FindColorEx(0,86,748,539,"E7E3E7",1,0.8,x,y)
//區域模□找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模□值 x,y為找到顏色後的坐標變量
If x>=0 and y>=0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x y
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如：MoveTo x+10 y+10
    Delay 100
    //延時
    LeftClick 1
    //左鍵單擊進行攻擊
    Delay 500
EndIf
//條件結束
Delay 100
MoveTo 633,48
Delay 400
IfColor 633,48,ffa25a,1
    For 4
        KeyPress 115,1
        Delay 100
        LeftClick 1
    EndFor
Else
EndIf
Delay 100
MoveTo 699,48
Delay 400
IfColor 699,48,ffa25a,1
    For 4
        KeyPress 115,1
        Delay 100
        LeftClick 1
    EndFor
Else
EndIf
Delay 100
MoveTo 765,49
Delay 400
IfColor 765,49,ffb263,1
    For 4
        KeyPress 115,1
        Delay 100
        LeftClick 1
    EndFor
Else
EndIf
Delay 200
VBSCall FindColorEx(0,86,748,539,"949294",1,0.8,x,y)
//區域模□找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模□值 x,y為找到顏色後的坐標變量
If x>=0 and y>=0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x y
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如：MoveTo x+10 y+10
    Delay 100
    //延時
    LeftClick 1
    //左鍵單擊進行攻擊
    Delay 500
EndIf
//條件結束
Delay 200

[ 本帖最後由 mic99key 於 2008-9-19 07:47 編輯 ]

感謝大大分享~~不知可以不可以分享主程式呢??
[email=a320205●小心病毒禁止留下聯繫方式●]a320205●小心病毒禁止留下聯繫方式●[/email]<<我的帳號
麻煩一下可以寄給我嗎~~謝*2

我沒按鍵精靈的主程式，可能要麻煩您自已找一下，我用的是按鍵精靈，6.71.2192版的(好像是6.5版以上)。
對不起哦按鍵精靈的主程式，可能幫不上忙了。

這樣喔   沒關西  還是謝謝你的分享

可以請你教我怎麼用嘛!
必進我是初學者

感謝大大   可是看不懂   有主程式ㄇ  您那因該是裡面的資料吧     笨笨的我   看不懂  請交我一下好嗎

謝謝大大的分享~
這因該是按鍵精靈的腳本吧

謝謝喔大大
這腳本真的不錯用喔