//第一段
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 只捡钱