這是由D大所製造當初最原始的腳本碼經由本人修改,喝水,金蟬,替換武器全部都更新完全。快速鍵設定請去參照D大的設定版本。給我PO我就給你們全世界XDD
KeyPress 27 2
Delay 50
KeyPress 9,1
Rem 4
For 2
IfColor 193,38,1a2743,2
Delay 100
KeyPress 117,2
Delay 100
Else
EndIf
EndFor
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 200
Else
EndIf
IfColor 28,400,4564ab,2
KeyPress 121,1
Delay 3000
Else
Delay 50
EndIf
IfColor 28,368,f8eb68,2
KeyPress 120,1
Delay 2000
Else
Delay 50
EndIf
VBSCall FindPic(223,0,850,82,"mk.bmp",0.5,X,Y)
If x=>0 and y=>0
MoveTo 929 73
Delay 100
LeftClick 2
Else
EndIf
Rem 1
KeyPress 9 1
Delay 300
VBSCall FindPic(223,0,850,82,"monster.bmp",0.5,X,Y)
If x>0 and y>0
Goto 2
Else
EndIf
Rem 5
For 5
VBSCall FindPic(891,46,960,108,"skmonster.bmp",0.5,X,Y)
If x>0 and y>0
Goto 2
Else
Delay 300
KeyPress 9 1
Delay 300
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
Delay 150
Goto 2
Else
KeyPress 9 1
Delay 300
EndIf
Rem 2
For 5
Delay 50
KeyPress 112 1
Delay 150
EndFor
For 50
VBSCall FindPic(223,0,850,82,"monster.bmp",0.8,X,Y)
If x>0 and y>0
KeyPress 112 3
Delay 250
KeyPress 115,1
Delay 1000
IfColor 436,167,4366ff,2
Delay 1000
KeyPress 114,1
Delay 4000
Else
EndIf
IfColor 169 38 1A2743 2
Goto 4
Else
Delay 50
EndIf
IfColor 116,38,1a2743,2
Delay 100
KeyPress 116,2
Delay 1000
EndScript
Else
Delay 50
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 25
MoveTo 638 488
Delay 50
LeftClick 1
Delay 25
MoveTo 364 499
Delay 25
LeftClick 1
Delay 25
MoveTo 653 506
Delay 25
LeftClick 1
Delay 25
KeyPress 27 2
Delay 50
KeyPress 9 1
Rem 3
EndScript
Rem 6
Delay 500
Goto 2 |