//宝宝蓝色 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