f8 f9 f10 請放常駐技能,補血功能也設定完全(補380的水,要改補血血量,請自行修改,色座標,其他請爬文,看d大的設定。
KeyPress 27 2
Delay 150
KeyPress 9,1
Rem 4
For 2
IfColor 197,38,1a2743,2
Delay 400
KeyPress 117,2
Delay 400
Else
EndIf
EndFor
VBSCall FindPic(852,21,1000,134,"p.bmp",1.0,LX,LY)
If LX=>922 and LY=<74
KeyPress 27 2
MoveTo 267 709
LeftClick 1
Delay 1500
Else
If LX=>922 and LY=>74
KeyPress 27 2
MoveTo 265 101
LeftClick 1
Delay 1500
Else
If LX=<922 and LY=>74
KeyPress 27 2
MoveTo 830 0
LeftClick 1
Delay 1000
Else
EndIf
EndIf
EndIf
VBSCall FindPic(852,21,922,74,"p.bmp",1.0,LX,LY)
If LX>0 and LY>0
KeyPress 27 2
MoveTo 935 658
LeftClick 1
Delay 1500
Else
EndIf
IfColor 99,91,f4e250,1
KeyPress 119,1
Delay 3000
Else
EndIf
IfColor 99,91,f4e250,1
KeyPress 120,1
Delay 3000
Else
EndIf
IfColor 99,91,f4e250,1
KeyPress 121,1
Delay 3000
Else
EndIf
VBSCall FindPic(223,0,850,82,"mk.bmp",0.5,X,Y)
If x=>0 and y=>0
Goto 1
Else
EndIf
Rem 1
VBSCall FindPic(223,0,850,82,"monster.bmp",0.5,X,Y)
If x>0 and y>0
Goto 2
Else
EndIf
KeyPress 9 1
Delay 500
Rem 5
For 5
MoveTo 929 73
VBSCall FindPic(891,46,960,108,"skmonster.bmp",0.5,X,Y)
If x>0 and y>0
Goto 2
Else
KeyPress 9 1
Delay 800
EndIf
EndFor
KeyPress 27 2
Delay 200
KeyPress 9 1
MoveTo 929 73
VBSCall FindPic(852,21,1000,134,"skmonster.bmp",0.8,X,Y)
If x>0 and y>0
Goto 2
Else
KeyPress 9 1
Delay 500
EndIf
Rem 2
KeyPress 112 1
For 15
VBSCall FindPic(223,0,850,82,"monster.bmp",0.8,X,Y)
If x>0 and y>0
KeyPress 112 3
Delay 1000
IfColor 169 38 1A2743 2
Goto 4
Else
EndIf
VBSCall FindPic(469,111,495,174,"bad.bmp",0.8,X,Y)
If x>0 and y>0
Delay 2500
KeyPress 114 1
Else
EndIf
Else
For 4
KeyPress 113 1
Delay 400
EndFor
Goto 4
EndIf
EndFor
MoveTo 512 284
Delay 25
LeftClick 1
Delay 300
MoveTo 372 415
Delay 50
LeftClick 1
Delay 450
MoveTo 638 488
Delay 50
LeftClick 1
Delay 450
MoveTo 364 499
Delay 25
LeftClick 1
Delay 450
MoveTo 653 506
Delay 25
LeftClick 1
Delay 300
KeyPress 27 2
Delay 50
KeyPress 9 3
Goto 2
Rem 3
EndScript
Rem 6
Delay 500
KeyPress 114 1
Delay 4000
Goto 2 |