輕鬆玩系列2_試煉平原06鬼娃娃嚇可新手武士(已更新)

[輕鬆玩系列 試煉平原06鬼娃娃嚇可
定點自動尋怪

[General]
Description=06鬼娃娃嚇可-試煉平原新手武士專用50-30路徑
BeginHotkey=191
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=起點=5589,5460試煉平原.
.
F2.
F8.
F3---狂擊.
F4---靈氣之光.
路徑小地圖
[Script]
Rem a
Rem aa
VBS Dim h,m,s,a,b,d,dd,c,z,e,o,i,j,q,opop,f
VBS a=0:b=0:c=0:dd=0:d=0:z=0:e=0:o=0:i=0:j=0:q=1:f=0
VBS h=Hour(Now):m=Minute(Now):s=Second(Now)
VBS z=cint(h):zv=cint(h)
Rem DDD0
IfColor 206,96,10ff,2
    Gosub 攻擊
    Delay 100
EndIf
Gosub 路徑1
VBS qqa=1
Rem DDD1
Gosub 尋怪1
IfColor 206,96,10ff,2
    Gosub 攻擊
    Delay 100
    Gosub 補紅水1
    Gosub 路徑1
    Goto DDD1
EndIf
Gosub 尋怪2
IfColor 206,96,10ff,2
    Gosub 攻擊
    Delay 100
    Gosub 補紅水1
    Gosub 路徑1
    Goto DDD1
EndIf
Delay 100
If qqa>=6
    VBS q=q+1
    If q>=7
        VBS q=1
    EndIf
    VBS qqa=1
    Gosub 補紅水1
    Gosub 路徑1
    Goto DDD3
EndIf
VBS qqa=qqa+1
Rem DDD2
Rem DDD3
Gosub 補紅水1
Delay 100
Gosub 旋轉
Goto DDD1
EndScript
Sub 攻擊
    Rem AAA1
    Rem AAA2
    IfColor 206,96,10ff,2
        Gosub 補藍水
        KeyPress 114,1
        VBS o=1
        Goto AAA3
    EndIf
    Gosub 補紅水1
    Delay 300
    Goto 攻擊結束
    Rem AAA3
    IfColor 206,96,10ff,2
        IfColor 352,95,3e4a50,0
            Gosub 補藍水
            Delay 100
            Gosub 尋黃色線
            KeyPress 115 1
            Gosub 補紅水2
            Goto AAA5
        EndIf
        Gosub 補紅水1
        Delay 300
        If o>=35
            Gosub 刪除人像框
            Delay 100
            Gosub 路徑1
            Goto 攻擊結束
        EndIf
        VBS o=o+1
        Goto AAA3
    EndIf
    Rem AAA4
    Delay 600
    KeyPress 192 1
    Delay 1400
    Gosub 尋怪1
    IfColor 206,96,10ff,2
        Goto AAA2
    EndIf
    KeyPress 192 1
    Delay 1400
    Gosub 尋怪1
    IfColor 206,96,10ff,2
        Goto AAA2
    EndIf
    KeyPress 192 1
    Delay 900
    Goto 攻擊結束
    Rem AAA5
    IfColor 352,95,3e4a50,0
        Gosub 補藍水
        Gosub 尋黃色線
        KeyPress 114 1
        Gosub 補紅水2
        Goto AAA6
    EndIf
    Goto AAA4
    Rem AAA6
    IfColor 352,95,3e4a50,0
        Gosub 補藍水
        Gosub 尋黃色線
        KeyPress 115 1
        Gosub 補紅水2
        Goto AAA5
    EndIf
    Goto AAA4
    Rem AAA7
    Rem AAA10
    Rem 攻擊結束
Return 攻擊
Sub 補紅水1
    IfColor 125 72 3e4a50 0
        KeyPress 113 1
        Goto RRR1
    EndIf
    IfColor 125 72 31455A 0
        KeyPress 113 1
        Goto RRR1
    EndIf
    IfColor 125 72 314552 0
        KeyPress 113 1
        Goto RRR1
    EndIf
    IfColor 125 72 39455A 0
        KeyPress 113 1
    EndIf
    Rem RRR1
Return 補紅水1
==============待續======================

☆此訊息由版主加入，請發帖會員勿編輯去除☆

回帖是給發帖會員的鼓勵！會員請勿在此回覆惡意灌水、複製他人回覆、注音火星文、簡體字等等。

[/hide]

[ 本帖最後由 prine 於 2008-4-20 22:41 編輯 ]

[=====接上頁===============================
Sub 補紅水2
    VBS e=1
    Delay 110
    Rem RRR2
    IfColor 125,72,3e4a50,0
        KeyPress 113 1
        Goto RRR3
    EndIf
    IfColor 125,72,31455A,0
        KeyPress 113 1
        Goto RRR3
    EndIf
    IfColor 125,72,314552,0
        KeyPress 113 1
        Goto RRR3
    EndIf
    IfColor 125,72,39455A,0
        KeyPress 113 1
        Goto RRR3
    EndIf
    Goto RRR4
    Rem RRR3
    VBS e=e+1
    Delay 500
    If e>=4
        Goto RRR5
    EndIf
    Rem RRR4
    Delay 280
    If e>=4
        Goto RRR5
    EndIf
    VBS e=e+1
    Goto RRR2
    Rem RRR5
Return 補紅水2
Sub 補藍水
    IfColor 89 85 3e4a50 0
        KeyPress 119 1
        Goto RRR6
    EndIf
    IfColor 89 85 31455A 0
        KeyPress 119 1
        Goto RRR6
    EndIf
    IfColor 89 85 314552 0
        KeyPress 119 1
        Goto RRR6
    EndIf
    IfColor 89 85 39455A 0
        KeyPress 119 1
    EndIf
    Rem RRR6
Return 補藍水
Sub 尋黃色線
    Rem RRR7
    VBSCall FindCenterColor(341,248,464,345,"00E0E0",x,y)
    If x>=0 and y>=0
        Delay 500
        Gosub 補紅水1
        Goto RRR7
    EndIf
Return 尋黃色線
Sub 旋轉
    KeyDown 37,1
    Delay 400
    KeyUp 37,1
    Gosub 補紅水1
Return 旋轉
Sub 尋怪1
    VBS opop=1
    VBS o=1
    Rem CCC1
    Gosub 補紅水1
    Rem CCC1c
    If opop=1
        VBS xx1=369:yy1=280:xx2=437:yy2=369
        Goto CCC1d
    EndIf
    If opop=2
        VBS xx1=220:yy1=280:xx2=369:yy2=369
        Goto CCC1d
    EndIf
    If opop=3
        VBS xx1=220:yy1=150:xx2=351:yy2=280
        Goto CCC1d
    EndIf
    If opop=4
        VBS xx1=351:yy1=150:xx2=464:yy2=280
        Goto CCC1d
    EndIf
    If opop=5
        VBS xx1=464:yy1=150:xx2=620:yy2=280
        Goto CCC1d
    EndIf
    If opop=6
        VBS xx1=437:yy1=280:xx2=620:yy2=369
        Goto CCC1d
    EndIf
    If opop=7
        VBS xx1=464:yy1=369:xx2=620:yy2=455
        Goto CCC1d
    EndIf
    If opop=8
        VBS xx1=351:yy1=369:xx2=464:yy2=455
        Goto CCC1d
    EndIf
    If opop=9
        VBS xx1=220:yy1=369:xx2=351:yy2=455
    EndIf
    Rem CCC1d
    VBSCall Call SetCursorPos(xx1,yy1)
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"466455",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC3
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"76414E",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC3
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"485C91",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC3
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"E7A99F",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC3
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"4E77FF",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC3
        EndIf
    EndIf
    Rem CCC1eee
    VBS opop=opop+1
    Delay 10
    If opop>=10
        Goto CCC3
    EndIf
    Goto CCC1c
    Rem CCC2
    Rem CCC3
    Delay 100
Return 尋怪1
Sub 路徑1
    If q=1
        MoveTo 725,82
        Goto CCC4
    EndIf
    If q=2
        MoveTo 716,78
        Goto CCC4
    EndIf
    If q=3
        MoveTo 711,72
        Goto CCC4
    EndIf
    If q=4
        MoveTo 700,77
        Goto CCC4
    EndIf
    If q=5
        MoveTo 713,83
        Goto CCC4
    EndIf
    If q=6
        MoveTo 717,84
        Goto CCC4
    EndIf
    MoveTo 717,84
    Rem CCC4
    Delay 50
    LeftClick 1
    Delay 200
    Rem CCC5
Return 路徑1
Sub 刪除人像框
    MoveTo 349 50
    Delay 100
    LeftClick 1
    Delay 100
Return 刪除人像框
Sub 尋怪2
    VBS opop=1
    VBS o=1
    Rem CCC6
    Gosub 補紅水1
    Rem CCC6c
    If opop=1
        VBS xx1=5:yy1=119:xx2=230:yy2=231
        Goto CCC6d
    EndIf
    If opop=2
        VBS xx1=190:yy1=25:xx2=344:yy2=150
        Goto CCC6d
    EndIf
    If opop=3
        VBS xx1=344:yy1=25:xx2=498:yy2=150
        Goto CCC6d
    EndIf
    If opop=4
        VBS xx1=498:yy1=25:xx2=653:yy2=150
        Goto CCC6d
    EndIf
    If opop=5
        VBS xx1=620:yy1=192:xx2=797:yy2=300
        Goto CCC6d
    EndIf
    If opop=6
        VBS xx1=620:yy1=300:xx2=797:yy2=410
        Goto CCC6d
    EndIf
    If opop=7
        VBS xx1=620:yy1=410:xx2=797:yy2=567
        Goto CCC6d
    EndIf
    If opop=8
        VBS xx1=480:yy1=450:xx2=640:yy2=563
        Goto CCC6d
    EndIf
    If opop=9
        VBS xx1=321:yy1=450:xx2=480:yy2=563
        Goto CCC6d
    EndIf
    If opop=10
        VBS xx1=5:yy1=343:xx2=230:yy2=455
        Goto CCC6d
    EndIf
    If opop=11
        VBS xx1=5:yy1=231:xx2=230:yy2=343
    EndIf
    Rem CCC6d
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"466455",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC8
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"76414E",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC8
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"485C91",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC8
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"E7A99F",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC8
        EndIf
    EndIf
    VBSCall FindColorEx(xx1,yy1,xx2,yy2,"4E77FF",1,0.7,x,y)
    If x>=0 and y>=0
        VBSCall Call SetCursorPos(x,y)
        Delay 40
        VBSCall cabcc=GetCursorShape(0)
        If cabcc=365862194
            LeftClick 1
            Delay 50
            Goto CCC8
        EndIf
    EndIf
    Rem CCC6eee
    VBS opop=opop+1
    Delay 10
    If opop>=12
        Goto CCC8
    EndIf
    Goto CCC6c
    Rem CCC7
    Rem CCC8
    Delay 100
Return 尋怪2
===============終了==================================
以上內容複製到筆記本 放到按精的script資料夾
F2 鍵: 紅水
F8 鍵: 藍水
F3 鍵:狂擊
F4 鍵:靈氣之光
?/ 鍵:開始
F12鍵:結束
作業系統800*600 高彩(32位元)
遊戲螢幕 視窗800*600
按鍵精靈版本:6.71試用版  來源按精官網
腳本適用於 Win2000
  
   XP使用要將(我的電腦─內容─進階─效能)改為 <調整成最佳效能>
使用條件
1 手動版本可以執行的
   起點座標:試煉平原地圖座標5589,5460
方式
1將小地圖全部點開
2按 ↓ 鍵讓畫面成俯視圖 然後用滑鼠讓人物越小越好
3按 ?/ 鍵開始
◎重點 按鍵精靈6.0 以下版本不能使用,因為有使用6.71版新增加的語句

[ 本帖最後由 prine 於 2008-4-20 22:38 編輯 ]

我怎麼看不到內容@@??yociexp80.gif

yociexp177.gif

太好了!!yociexp199.gif