if(hspd < 0) hspd = approach(hspd, 0, fric);

hspd = approach(hspd, 4, accel);