Sub 攻击
t3=now
Rem 普通攻击
//Gosub 窗口状态
If datediff("s",t3,now)>=30
//如果超过30秒怪没死则重新寻怪
Goto 寻怪
Else
IfColor x+85,y+32,ffcd4b,2
KeyPress 112,1
KeyPress 113,1
Gosub 加血
Gosub 加蓝
Else
KeyPress 49,1
Delay 50
KeyPress 49,1
Gosub 加血
Gosub 加蓝
EndIf
IfColor x+228,y+24,566bff,2
//判断怪是否死亡
Goto 普通攻击
Else
Delay 100
KeyPress 49,1
EndIf
EndIf
Return 攻击
//********攻击子程序结束********
//*******下面是加血子程序*******
Sub 加血
//Gosub 窗口状态
IfColor x+85,y+23,4d61ff,2
//判断是否需要回城
IfColor x+96,y+23,4d61ff,2
//不需要回城则判断是否需要加血
Else
KeyPress 52,1
Delay 1000
//喝血并延迟1秒钟,延迟过短会造成一次喝几瓶红的现象
EndIf
Else
//Gosub 窗口状态
KeyPress 57,1
For 10
IfColor x+85,y+23,4d61ff,2
//回城状态下检查血并紧急加血,按键为F8
Delay 1000
Else
KeyPress 119,1
Delay 1000
EndIf
EndFor
//回城
For 5
Beep
Delay 1000
EndFor
Gosub 死亡回城
//VBSCall RunApp("shutdown.exe -s")
EndScript
//没红则回城并结束脚本,可自行修改回城按键
EndIf
Return 加血
//********加血子程序结束********
//*******下面是加蓝子程序*******
Sub 加蓝
IfColor x+96,y+32,ffcd4b,2
//蓝够不加蓝,否则不加蓝
Else
KeyPress 53,1
Delay 1000
//喝蓝并延迟1秒钟,延迟过短会造成一次喝几瓶蓝的现象
EndIf
Return 加蓝
//********加蓝子程序结束********
//*****下面是拾取物品子程序*****
Sub 拾取物品
For 3
KeyPress 51,1
Delay 500
EndFor
Return 拾取物品
//******拾取物品子程序结束******
//*****下面是扔掉配方子程序*****
Sub 扔掉配方
//Gosub 窗口状态
VBSCall FindPic(x+11,y+332,x+200,y+578,"Attachment:\配方win.bmp",0.5,x1,y1)
//查找背包里是否有配方
If x1>0 and y1>0
Goto 过滤
//有配方则进行过滤
Else
KeyPress 66,1
Delay 100
t2=now
//重新计算检查背包计时
Goto 开始
//没有配方就直接进入正常打怪