KeyDown HOME,1 Delay 256 KeyUp HOME,2 Delay 256 EndIf Gosub 休息中 EndIf EndIf EndIf If done=1 If datediff("s",strtime,time)>litime //开地图 VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1) If xx1<=0 Gosub 开关地图 VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1) EndIf If xx1>0 xx=xx1-cox:yy=yy1-1-coy:r=sqr(xx^2+yy^2) If r>limits tmpr=r //防卡住一个地方 i=1 Gosub 定位 Else If dwguan=1 Gosub 开关地图 VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1) If xx1>0 Gosub 开关地图 EndIf EndIf strtime=time EndIf EndIf EndIf EndIf VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy) If xx>0 //防卡住杀不了怪 i=1 Gosub 杀怪 ElseIf done=1 or done=2 fangx=fangx+1 If fangx=1 MoveTo 86,384 Delay 128 Goto 开始 EndIf If fangx=2 MoveTo 50,384 Delay 128 Goto 开始 EndIf If fangx=3 MoveTo 74,384 Delay 128 Goto 开始 EndIf MoveTo 62,384 Delay 128 fangx=0 EndIf Goto 开始 //************************************ Sub 杀怪 Rem 杀怪中 //搜索怪物血条 VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy) If xx>0 //防卡取色 If i=1 VBSCall FindColorEx(400,27,498,42,monster,0,0.8,xx1,yy1) EndIf //攻击 If yongj=1 KeyDown fight1,1 Delay 64 KeyUp fight1,2 For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 128 EndFor KeyDown fight1,1 Delay 64 KeyUp fight1,2 Delay 64 ElseIf yongj=2 KeyDown fight1,1 Delay 64 KeyUp fight1,2 For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 128 EndFor KeyDown fight1,1