//宝宝蓝色
color_baby=c_left&c_left&c_right
//大地图方向标记颜色
color_fx=c_right&c_left&c_left
//VBSCall MessageBox(color_fx)
//有物品是的颜色
color_gx=c_right&c_mid&c_right
//绿色物品的颜色
color_lvse=c_right&c_left&c_right
//判断怪死了没的颜色
VBSCall die_color=GetPixelColor(4-move_x,127-move_y)
//取补SP需要的颜色
VBSCall color_sp=GetPixelColor(50-move_x,108-move_y)
//VBSCall ss=InputBox(c_left&" "&c_right&" "&c_mid&"修改后"&color_all)
s_m_b=1
If s_m_b=1
    rh=200
ElseIf s_m_b=2
    rh=170
ElseIf s_m_b=3
    rh=120
Else 
    VBSCall MessageBox("耍我啊，请输入正确的数字")
EndScript 
EndIf 
//————————各类选择参数赋初值end————————————
//*********************************
//*************主程序**************
//*********************************
Rem start
Gosub 记录log
KeyUpH 37,1
KeyUpH 39,1
KeyUpH 38,1
KeyUpH 40,1
VBSCall esc_1=GetPixelColor(354-move_x,443-move_y)
VBSCall esc_2=GetPixelColor(454-move_x,496-move_y)
VBSCall esc_3=GetPixelColor(354-move_x,120-move_y)
If esc_1=esc_2 and esc_1=esc_3
    KeyPressH 27,1
    Delay 2500
EndIf 
Delay 10
VBSCall FindColorEx(4-move_x,27-move_y,43-move_x,114-move_y-ber_hp*0.87,color_all,0,0.4,hp_x,hp_y)
If hp_x>0 and hp_y>0
    //*************自动归位选择**************
    If returen_0="Y"
        Gosub 自动归位
    EndIf 
EndIf 
//*************自动归位选择end**************
//********判断是否自动捡物*********
If propfull=3
Else 
    Gosub 打开包裹判断是否满了
EndIf 
//*************判断使用技能*****************
//判断是否使用f6键技能
If y_or_n_f6 ="Y"
    Gosub 使用f6键上的技能
EndIf 
//判断是否使用f7键技能
If y_or_n_f7 ="Y"
    Gosub 使用f7键上的技能
EndIf 
//*************判断使用技能end*****************
Gosub 找怪
Else 
    Gosub 补HP
    Gosub 补SP
EndIf 
Goto start
EndScript 
//*************子程序**************
Sub 找怪
    Rem 找小地图的怪
    //*******死亡后的处理选择*******
    If die_gocity="Y"
        Gosub 死亡后回城摆摊
    ElseIf die_gocity="S"
        Gosub 死亡后关机
    Else 
        die_time=now
        Gosub 记录log
    EndIf 
    //*******死亡后的处理选择end*******
    VBSCall FindCenterColor(715-move_x,92-move_y,745-move_x,113-move_y,color_all,small_map_x,small_map_y)
    If small_map_x>0 and small_map_y>0
        //从小地图算出实际怪与中心点人物的距离
        act_x=(small_map_x-(-move_x+730))*17.2
        If small_map_y>101
            act_y=(small_map_y-(-move_y+101))*16
        Else 
            act_y=(small_map_y-(-move_y+101))*24
        EndIf 
        //act_y=(small_map_y-(-move_y+101))*17.3
        //        VBSCall inputbox("小地图坐标"&small_map_x&","&small_map_y&"移动量"&move_x&","&move_y&"  ACT值"&act_x&","&act_y)
        //算出怪的实际坐标
        guai_x=403-move_x+act_x
        guai_y=319-move_y+act_y