if (init == 0)
{
    if (r_movetype != -1)
        movetype = r_movetype;
    if (r_dir != -1)
        dir = r_dir;
    if (r_waittime != -1)
        waittime = r_waittime;
    if (r_waittimer != -1)
        waittimer = r_waittimer;
    if (r_movetime != -1)
        movetime = r_movetime;
    if (r_movetimer != -1)
        movetimer = r_movetimer;
    if (r_influenceable != -1)
        influenceable = r_influenceable;
    if (r_homedistance != -1)
        homedistance = r_homedistance;
    if (r_movevistype != -1)
        movevistype = r_movevistype;
    if (r_prefdir != "none")
        prefdir = r_prefdir;
    init = 1;
}
if (global.interact != 0)
    exit;
if (movetype == 9)
    exit;
var tower = instance_exists(obj_rotating_tower_controller_new);
if (((tower && enabled) || (!tower && (cameray() + 480 + 100) < y)) && !ignoreblocked)
    exit;
event_inherited();
if (neutralcon == 0)
{
    waittimer++;
    if (waittimer >= waittime)
    {
        waittimer = 0;
        movetimer = 0;
        if (updmove != -1)
        {
            movetime = updmove;
            updmove = -1;
        }
        if (updwait != -1)
        {
            waittime = updwait;
            updwait = -1;
        }
        var domove = false;
        var normalpath = false;
        var seek = false;
        var kris = 27;
        if (movetype == 0)
            normalpath = true;
        if (movetype == 1)
        {
            if (i_ex(kris))
            {
                if (distance_to_point(kris.x, kris.y) <= homedistance)
                    seek = true;
            }
            if (seek == false)
                normalpath = true;
        }
        if (movetype == 2)
        {
            seek = true;
            if (!i_ex(kris))
                seek = false;
        }
        if (influenceable)
        {
            var turn = instance_place(x, y, obj_climb_pathturner);
            if (i_ex(turn) && random_range(0, 1) <= turn.chance)
            {
                seek = false;
                normalpath = false;
                dir = turn.image_index;
                domove = true;
            }
        }
        if (seek)
        {
            normalpath = false;
            var krisdir = point_direction(x + 20, y + 20, kris.x, kris.y);
            var card = round(krisdir / 90) + 1;
            if (card > 3)
                card = 0;
            good[0] = true;
            good[1] = true;
            good[2] = true;
            good[3] = true;
            if (failmovecount < failmovethresh)
            {
                if (lastdir == 0)
                    good[2] = false;
                if (lastdir == 2)
                    good[0] = false;
                if (lastdir == 1)
                    good[3] = false;
                if (lastdir == 3)
                    good[1] = false;
            }
            for (i = 0; i < 4; i++)
            {
                var px = 0;
                var py = 0;
                var potcard = card + i;
                if (potcard > 3)
                    potcard = 0;
                if (potcard == 0)
                    py = 40;
                if (potcard == 1)
                    px = 40;
                if (potcard == 2)
                    py = -40;
                if (potcard == 3)
                    px = -40;
                if (good[potcard])
                {
                    if (!place_meeting(x + px, y + py, obj_climb_climbable))
                        good[potcard] = false;
                    if (!good[potcard] && place_meeting(x + px, y + py, obj_climb_pathturner))
                        good[potcard] = true;
                }
            }
            var i = 0;
            while (i < 4)
                i++;
            if (good[card])
            {
                dir = card;
                domove = true;
            }
            if (!domove)
            {
                var turnleft = scr_wrap(card - 1, 0, 3);
                var turnright = scr_wrap(card + 1, 0, 3);
                switch (card)
                {
                    case 0:
                        turnleft = 3;
                        turnright = 1;
                        break;
                    case 1:
                        turnleft = 2;
                        turnright = 0;
                        break;
                    case 2:
                        turnleft = 3;
                        turnright = 1;
                        break;
                    case 3:
                        turnleft = 0;
                        turnright = 2;
                        break;
                }
                var px = 0;
                var py = 0;
                if (good[turnleft] && !good[turnright])
                {
                    dir = turnleft;
                    domove = true;
                }
                if (good[turnright] && !good[turnleft])
                {
                    dir = turnright;
                    domove = true;
                }
                if (good[turnleft] && good[turnright])
                {
                    var leftdist = 0;
                    var rightdist = 0;
                    var potcard = turnleft;
                    if (potcard == 0)
                        py = 40;
                    if (potcard == 1)
                        px = 40;
                    if (potcard == 2)
                        py = -40;
                    if (potcard == 3)
                        px = -40;
                    leftdist = point_distance(x + px, y + py, kris.x, kris.y);
                    potcard = turnright;
                    if (potcard == 0)
                        py = 40;
                    if (potcard == 1)
                        px = 40;
                    if (potcard == 2)
                        py = -40;
                    if (potcard == 3)
                        px = -40;
                    rightdist = point_distance(x + px, y + py, kris.x, kris.y);
                    if (leftdist > rightdist)
                    {
                        dir = turnright;
                        domove = true;
                    }
                    else
                    {
                        dir = turnleft;
                        domove = true;
                    }
                }
            }
            if (!domove)
                failmovecount++;
        }
        if (normalpath)
        {
            for (var i = 0; i < 4; i++)
            {
                if (domove)
                    continue;
                var px = 0;
                var py = 0;
                if (dir == 0)
                    py = 40;
                if (dir == 1)
                    px = 40;
                if (dir == 2)
                    py = -40;
                if (dir == 3)
                    px = -40;
                if (place_meeting(x + px, y + py, obj_climb_pathturner))
                    domove = true;
                else if (place_meeting(x + px, y + py, obj_climb_climbable))
                    domove = true;
                if (!domove)
                {
                    if (prefdir == "left")
                        dir++;
                    if (prefdir == "right")
                        dir--;
                    if (dir > 3)
                        dir = 0;
                    if (dir < 0)
                        dir = 3;
                }
            }
        }
        if (domove)
        {
            neutralcon = 1;
            safex = x;
            safey = y;
        }
    }
}
if (neutralcon == 1)
{
    var px = 0;
    var py = 0;
    if (dir == 0)
    {
        py = 40;
        angle = 0;
    }
    if (dir == 1)
    {
        px = 40;
        angle = 270;
    }
    if (dir == 2)
    {
        py = -40;
        angle = 180;
    }
    if (dir == 3)
    {
        px = -40;
        angle = 90;
    }
    movetimer++;
    var prog = clamp(movetimer, 0, movetime) / movetime;
    var pointAx = safex;
    var pointBx = safex + px;
    var pointAy = safey;
    var pointBy = safey + py;
    if (movevistype == 0)
    {
        x = lerp(pointAx, pointBx, prog);
        y = lerp(pointAy, pointBy, prog);
    }
    if (movevistype == 1)
    {
        x = lerp_ease_inout(pointAx, pointBx, prog, 2);
        y = lerp_ease_inout(pointAy, pointBy, prog, 2);
    }
    if (movetimer >= movetime)
    {
        failmovecount = 0;
        lastdir = dir;
        x = safex + px;
        y = safey + py;
        waittimer = 0;
        movetimer = 0;
        neutralcon = 0;
        if (updmove != -1)
        {
            movetime = updmove;
            updmove = -1;
        }
        if (updwait != -1)
        {
            waittime = updwait;
            updwait = -1;
        }
    }
}