hytw 2008-7-23 11:42:26
够全了吧,直截导入按键就OK
[Script]
Rem ======= 【主程序部分】=======
//===============================
//使用说明：
//技能设在F5里
//排列: 1 480血 1 960血 3上限 4防 5红 6蓝 7解疾病 8解诅咒
//自动接受组队,自动吃红蓝,
//自动加上限和防,自动给队友伤加血
//开近身箱子
//===============================
Rem 【 主 程 序 开 始 】
VBS k=0
Rem 【开始】
KeyPress 116 1
Gosub 自动接受组队
Gosub 自动吃红蓝
Gosub Self
Gosub 全捡
Gosub 打坐
Gosub +++
Goto 【开始】
EndScript
Rem 【 主 程 序 结 束 】
//===============================
Rem ======= 【子程序部分】=======
Rem 〖 子 程 序 〗
//===============================
Sub 自动接受组队
IfColor 405 307 9cdff7 2
IfColor 349 443 6bcff7 2
IfColor 375 459 9cdfef 2
IfColor 389 436 b5ebf7 2
MoveTo 389 436
Delay 350
LeftDown 1
Delay 500
LeftUp 1
Delay 350
EndIf
EndIf
EndIf
EndIf
IfColor 626 143 c6cfe7 2
IfColor 375 525 bdcfe7 2
IfColor 681 548 bdcfe7 2
IfColor 663 156 21344a 2
MoveTo 663 156
Delay 350
LeftDown 1
Delay 500
LeftUp 1
Delay 350
EndIf
EndIf
EndIf
EndIf
Return 自动接受组队
//===============================
Sub +480MP
IfColor 412 42 9c 2
Delay 350
KeyPress 49 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
IfColor 412 80 9c 2
Delay 350
KeyPress 49 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
Return +480MP
//===============================
Sub +960MP
IfColor 412 42 9c 2
Delay 350
KeyPress 50 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
IfColor 412 80 9c 2
Delay 350
KeyPress 50 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
Return +960MP
//===============================
Sub 打坐
IfColor 978 748 0 0
VBS k=0
Else
VBS k=k+1
If k>3
VBS k=0
KeyDown 67 1
Delay 400
KeyUp 67 1
Delay 100
EndIf
EndIf
Return 打坐
//===============================
Sub 自动吃红蓝
IfColor 150 42 1031 2
IfColor 125 42 1031 2
KeyPress 53 1
EndIf
EndIf
IfColor 125 58 1031 2
IfColor 80 58 1031 2
IfColor 150 58 1031 2
KeyPress 54 1
EndIf
EndIf
EndIf
Return 自动吃红蓝
//===============================
Sub Self
IfColor 230 42 1031 2
KeyPress 90 1
Delay 500
KeyPress 49 1
Delay 1500
EndIf
Return Self
//===============================
Sub +++
Rem D1
IfColor 910 115 00009c 2
IfColor 990 115 00009c 2
Goto D2
Else
IfColor 990 115 0 0
MoveTo 950 120
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D2
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D2
EndIf
Rem D2
IfColor 910 160 00009c 2
IfColor 990 160 00009c 2
Goto D3
Else
IfColor 990 160 0 0
MoveTo 950 165
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D3
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D3
EndIf
Rem D3
IfColor 910 205 00009c 2
IfColor 990 205 00009c 2
Goto D4
Else
IfColor 990 205 0 0
MoveTo 950 210
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D4
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D4
EndIf
Rem D4
IfColor 910 250 00009c 2
IfColor 990 250 00009c 2
Goto D5
Else
IfColor 990 250 0 0
MoveTo 950 255
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D5
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D5
EndIf
Rem D5
IfColor 910 297 00009c 2
IfColor 990 297 00009c 2
Goto D6
Else
IfColor 990 295 0 0
MoveTo 950 300
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D6
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D6
EndIf
Rem D6
IfColor 910 340 00009c 2
IfColor 990 340 00009c 2
Goto D7
Else
IfColor 990 340 0 0
MoveTo 950 345
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D7
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D7
EndIf
Rem D7
IfColor 910 385 00009c 2
IfColor 990 385 00009c 2
Goto D8
Else
IfColor 990 385 0 0
MoveTo 950 390
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D8
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D8
EndIf
Rem D8
IfColor 910 430 00009c 2
IfColor 990 430 00009c 2
Goto D1X
Else
IfColor 990 430 0 0
MoveTo 950 435
Delay 300
LeftClick 3
Delay 300
Gosub +960MP
Goto D1X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D1X
EndIf
Rem D1X
IfColor 910 115 00009c 2
IfColor 1008 115 00009c 2
Goto D2X
Else
IfColor 1008 115 0 0
MoveTo 950 120
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D2X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D2X
EndIf
Rem D2X
IfColor 910 160 00009c 2
IfColor 1008 160 00009c 2
Goto D3X
Else
IfColor 1008 160 0 0
MoveTo 950 165
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D3X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D3X
EndIf
Rem D3X
IfColor 910 205 00009c 2
IfColor 1008 205 00009c 2
Goto D4X
Else
IfColor 1008 205 0 0
MoveTo 950 210
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D4X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D4X
EndIf
Rem D4X
IfColor 910 250 00009c 2
IfColor 1008 250 00009c 2
Goto D5X
Else
IfColor 1008 250 0 0
MoveTo 950 255
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D5X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D5X
EndIf
Rem D5X
IfColor 910 297 00009c 2
IfColor 1008 297 00009c 2
Goto D6X
Else
IfColor 1008 295 0 0
MoveTo 950 300
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D6X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D6X
EndIf
Rem D6X
IfColor 910 340 00009c 2
IfColor 1008 340 00009c 2
Goto D7X
Else
IfColor 1008 340 0 0
MoveTo 950 345
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D7X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D7X
EndIf
Rem D7X
IfColor 910 385 00009c 2
IfColor 1008 385 00009c 2
Goto D8X
Else
IfColor 1008 385 0 0
MoveTo 950 390
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto D8X
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto D8X
EndIf
Rem D8X
IfColor 910 430 00009c 2
IfColor 1008 430 00009c 2
Goto 【开始】
Else
IfColor 1008 430 0 0
MoveTo 950 435
Delay 300
LeftClick 3
Delay 300
Gosub +480MP
Goto 【开始】
EndIf
EndIf
Else
Gosub 解黄毒
Gosub 解绿毒
Gosub 解诅咒
Goto 【开始】
EndIf
Return +++
//===============================
Sub 解黄毒
VBSCall FindPic(900,100,965,450,"KO2_H.bmp",0.9,x,y)
If x>=900 and y>=100
MoveTo x y
MoveR 50 10
Delay 300
LeftClick 3
Delay 300
KeyPress 55 1
Delay 1800
KeyPress 49 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
Return 解黄毒
//===============================
Sub 解绿毒
VBSCall FindPic(900,100,965,450,"KO2_G.bmp",0.9,x,y)
If x>=900 and y>=100
MoveTo x y
MoveR 50 10
Delay 300
LeftClick 3
Delay 300
KeyPress 56 1
Delay 1800
KeyPress 49 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
Return 解绿毒
//===============================
Sub 解诅咒
VBSCall FindPic(900,100,965,450,"KO2_Z.bmp",0.9,x,y)
If x>=900 and y>=100
MoveTo x y
MoveR 50 10
Delay 300
LeftClick 3
Delay 300
KeyPress 56 1
Delay 1800
KeyPress 49 1
Delay 1800
KeyPress 67 1
Delay 1000
EndIf
Return 解诅咒
//===============================
Sub 全捡
MoveTo 421 583
KeyPress 32 1
KeyPress 103 1
KeyPress 104 1
KeyPress 100 1
KeyPress 101 1
KeyPress 97 1
KeyPress 98 1
Return 全捡
//=============================== |
|
