hspeed = sin(obj_time.time / 10) * 4;
if (r == 0)
    hspeed = -sin(obj_time.time / 10) * 4;
h += 1;