//第一段 If sp>=77 and sp<=100 VBSCall FindColorEx(60-move_x,27-move_y,88-move_x,27+(100-sp)*0.89-move_y,color_sp,0,0.4,sp_x,sp_y) Gosub 加sp动作 EndIf //第二段 If sp>=27 and sp<=76 VBSCall FindColorEx(80-move_x,47-move_y,96-move_x,47+(100-sp)*0.89-move_y,color_sp,0,0.4,sp_x,sp_y) Gosub 加sp动作 EndIf //第三段 If sp>=15 and sp<=26 VBSCall FindColorEx(70-move_x,93-move_y,95-move_x,92+(100-sp)*0.89-move_y,color_sp,0,0.4,sp_x,sp_y) Gosub 加sp动作 EndIf //第四段 If sp>=0 and sp<=14 VBSCall FindColorEx(59-move_x,105-move_y,82-move_x,105+(100-sp)*0.89-move_y,color_sp,0,0.4,sp_x,sp_y) Gosub 加sp动作 EndIf Return 补SP Sub 加sp动作 If sp_x>0 and sp_y>0 Else KeyPress 113,1 Delay 100 EndIf Return 加sp动作 Sub 自动捡物 //给自动拣物赋值 nn=0 //item_1_x=793-move_x item_1_y=202-move_y // item_2_x=769-move_x item_2_y=203-move_y Delay 400 KeyDown 18,1 Delay 600 If wp=0 For 3 VBSCall FindColor(767-move_x,item_1_y,795-move_x,item_2_y,color_gx,item_x,item_y) If item_x>0 nn=nn+1 Else If nn=0 Goto 无东西跳出自动捡物 Else Goto 跳到捡物 EndIf EndIf item_1_y=item_2_y+35-move_y item_2_y=item_2_y+35-move_y EndFor Rem 跳到捡物 n123=70 For nn If nn=1 MoveTo 793-move_x,203-move_y Delay 50 If lanlvse=1 Gosub 判断要捡的物品是否是蓝色或绿色 ElseIf lanlvse=2 Gosub 只捡钱 Else LeftClick 1 EndIf ElseIf nn=2 n123=n123-35 MoveTo 793-move_x,203+n123-move_y Delay 50 If lanlvse=1 Gosub 判断要捡的物品是否是蓝色或绿色 ElseIf lanlvse=2 Gosub 只捡钱 Else LeftClick 1 EndIf ElseIf nn=3 n123=n123-35 MoveTo 793-move_x,238+n123-move_y Delay 50 If lanlvse=1 Gosub 判断要捡的物品是否是蓝色或绿色 ElseIf lanlvse=2 Gosub 只捡钱 Else LeftClick 1 EndIf EndIf Delay 1000 EndFor Rem 无东西跳出自动捡物 Else //只捡钱 Gosub 只捡钱 EndIf KeyUp 18 1 guai_dd=guai_dd+1 Return 自动捡物 Sub 只捡钱