VBS K=0
VBS x=0
//---------------------宣告各種顏色-------------------------
VBS hp="141460"
//自己空血血條
VBS s1="E4F3F8"
//怪物臉(白)
VBS s2="5697F8"
//怪物臉(橘)
VBS s3="3A38F8"
//怪物臉(紅)
VBS q7="4731B9"
//滿血怪血條
VBS v1="F27B8E"
//Combo鑽石(藍)
VBS v2="A9EDFF"
//Combo鑽石(黃)
VBS v3="8EC97A"
//Combo鑽石(綠)
VBS v4="5382FD"
//Combo鑽石(紅)
VBS v5="39A0D8"
//Combo橘
VBS v6="BBF6FF"
//Combo金
VBS q15="00207C"
//對話框左^
VBS q16="001F7B"
//對話框右^
VBS q17=1
//Combo開關
VBS f1="2C75CB"
//快捷鍵F1底線顏色
VBS f2="266EC6"
//快捷鍵F2底線顏色
VBS g1="7F2632"
//徵兆
VBS g2="9084DC"
//活絡第2排F5
VBS g3="FFFFFF"
//活靈
VBS g4="BFD0FF"
//猛擊
VBS g5="802733"
//預知
VBS g6="826FEF"
//強經
VBS g7="F2FEE8"
//凝神
VBS g8="0E2000"
//舉盾
VBS g9="4455C7"
//聚精
//---------------------------------------程式開始------------------------------------
VBSCall Call FindCenterColor(400,300,400,800,f1,Fx,Fy)
If q17=1
Rem 找COMBO
VBSCall Call FindCenterColor(374,200,374,768,q15,CX,CY)
If CX>=0 and CY>=0
Delay 10
VBSCall Call FindCenterColor(11,300,11,CY-3,q16,intCX,intCY)
If intCX>=0 and intCY>=0
VBSCall Call SetCursorPos(intCX,intCY)
Delay 100
Else
VBSCall Call SetCursorPos(CX,CY)
Delay 100
LeftClick 1
Delay 1000
Goto 找COMBO
EndIf
Else
VBSCall Call FindCenterColor(374,200,374,768,q16,CX,CY)
Delay 10
VBSCall Call FindCenterColor(11,300,11,CY-3,q16,intCX,intCY)
If intCX>=0 and intCY>=0
VBSCall Call SetCursorPos(intCX,intCY)
Delay 100
Else
VBSCall Call SetCursorPos(CX,CY)
Delay 100
LeftClick 1
Delay 1000
Goto 找COMBO
EndIf
EndIf
EndIf
Rem 程式開始
IfColor 495 430 2d98ea 0
MoveTo 495 430
LeftClick 1
EndIf
IfColor 495 400 2d98ea 0
MoveTo 495 400
LeftClick 1
EndIf
//畫面移動
KeyDown 17 1
KeyDown 34 1
Delay 500
KeyUp 34 1
KeyUp 17 1
//點到非怪物或卡點.自動放棄
If x=4
KeyPress 27 1
EndIf
If x>=30
VBS x=0
LeftClick 1
KeyPress 27 1
EndIf
//------------------------------------抓點部份--------------------------------------
//常駐技能位子
VBSCall Call GetCursorPos(177,45)
k1=GetPixelColor(177,45)
VBSCall Call GetCursorPos(201,45)
k2=GetPixelColor(201,45)
VBSCall Call GetCursorPos(225,45)
k3=GetPixelColor(225,45)
VBSCall Call GetCursorPos(249,45)
k4=GetPixelColor(249,45)
VBSCall Call GetCursorPos(273,45)
k5=GetPixelColor(273,45)
VBSCall Call GetCursorPos(297,45)
k6=GetPixelColor(297,45)
VBSCall Call GetCursorPos(321,45)
k7=GetPixelColor(321,45)
/-------------------------------------------------------------------------------------------
Gosub 補血
Rem 打怪
KeyDown 18 1
KeyPress 65 1
Delay 200
KeyPress 65 1
KeyUp 18 1
Delay 200
Gosub 補血
//怪臉位子
VBSCall Call GetCursorPos(454,112)
q1=GetPixelColor(454,112)
VBSCall Call GetCursorPos(457,112)
q2=GetPixelColor(457,112)
If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
Gosub 打怪技能
Gosub 補血
Else
VBS x=0
KeyDown 18 1
KeyPress 70 1
Delay 100
KeyPress 70 1
KeyUp 18 1
Delay 200
//怪臉位子
VBSCall Call GetCursorPos(454,112)
q1=GetPixelColor(454,112)
VBSCall Call GetCursorPos(457,112)
q2=GetPixelColor(457,112)
If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
Gosub 打怪技能
Gosub 補血
Else
Gosub 補血
Gosub 活靈
Gosub 活絡
VBS x=0
Gosub 休息
VBSCall Call FindCenterColor(10,190,1000,560,q7,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX-55,intY+30)
Delay 10
LeftClick 1
Delay 50
Else
VBSCall Call FindCenterColor(180,60,870,560,q7,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX-55,intY+15)
Delay 10
LeftClick 1
Delay 50
EndIf
EndIf
EndIf
EndIf
Rem 程式結尾
Goto 程式開始
Sub 補血
Gosub 徵兆
Gosub f7
Gosub f8
Gosub 升級
Gosub 死
Rem 補1
IfColor 110 58 (hp) 0
KeyDown 17 1
KeyPress 115 1
Delay 100
KeyUp 17 1
Delay 100
KeyDown 18 1
Delay 100
KeyPress 49 1
Delay 100
KeyUp 18 1
Delay 100
Goto 補1
EndIf
Return 補血
Sub 打怪技能
VBS x=x+1
Gosub combo
Gosub F1
Gosub F4
Gosub F3
Return 打怪技能
Sub F1
If x<4
IfColor 390 Fy (f1) 0
KeyPress 112 1
Delay 500
EndIf
EndIf
Return F1
Sub F4
IfColor 570 136 141460 0
IfColor 90 70 141460 1
IfColor 490 Fy (f2) 0
KeyPress 115 1
Delay 500
EndIf
EndIf
EndIf
Return F4
Sub F3
IfColor 570 136 141460 0
IfColor 90 70 141460 1
IfColor 460 Fy (f1) 0
KeyPress 114 1
Delay 500
EndIf
EndIf
EndIf
Return F3
Gosub 偷
Sub 偷
IfColor 509 136 141460 0
IfColor 429 Fy (f2) 0
KeyPress 113 1
Else
EndIf
Else
EndIf
Return 偷
Sub 休息
IfColor 75 70 (hp) 0
Delay 500
IfColor 75 70 (hp) 0
Rem 休
Gosub 補血
KeyDown 17 1
KeyPress 119 1
KeyUp 17 1
Delay 5000
KeyDown 18 1
KeyPress 70 1
KeyUp 18 1
Delay 1000
//怪臉位子
VBSCall Call GetCursorPos(454,112)
q1=GetPixelColor(454,112)
VBSCall Call GetCursorPos(457,112)
q2=GetPixelColor(457,112)
If q1=s1 or q1=s2 or q1=s3 or q2=s1 or q2=s2 or q2=s3
Goto 程式開始
EndIf
IfColor 110 70 (hp) 1
Goto 程式開始
EndIf
Goto 休
EndIf
EndIf
Return 休息
Sub 活絡
If k1<>g2 and k2<>g2 and k3<>g2 and k4<>g2 and k5<>g2 and k6<>g2 and k7<>g2
KeyPress 116 1
Delay 200
KeyDown 18 1
Delay 100
KeyPress 49 1
Delay 100
KeyUp 18 1
Delay 3000
EndIf
Return 活絡
Sub 活靈
If k1<>g3 and k2<>g3 and k3<>g3 and k4<>g3 and k5<>g3 and k6<>g3 and k7<>g3
IfColor 552 Fy (f2) 0
KeyPress 117 1
Delay 5000
EndIf
EndIf
Return 活靈 |
收藏
分享
讚
幹
分享
分享
