Deltarune (Chapter 2) script viewer

← back to main script listing

gml_GlobalScript_scr_caterpillar_interpolate

(view raw script w/o annotations or w/e)
1 
function scr_caterpillar_interpolate
scr_caterpillar_interpolate

function scr_caterpillar_interpolate()
{
    _newfacing = scr_facing_letter_to_number(scr_get_cardinal_direction(point_direction(x, y, obj_mainchara.x, obj_mainchara.y)));
    remx[0] = obj_mainchara.x;
    remy[0] = obj_mainchara.y;
    facing[0] = _newfacing;
    for (_iaia = target; _iaia > 0; _iaia -= 1)
    {
        remx[_iaia] = lerp(obj_mainchara.x, x, _iaia / target);
        if (global.darkzone == 1)
            remy[_iaia] = lerp(obj_mainchara.y, y + 16, _iaia / target);
        else
            remy[_iaia] = lerp(obj_mainchara.y, y + 6, _iaia / target);
        facing[_iaia] = _newfacing;
    }
}
()
2 
{
3 
    _newfacing = scr_facing_letter_to_number
scr_facing_letter_to_number

function scr_facing_letter_to_number(arg0)
{
    if (arg0 == "d")
        return 0;
    if (arg0 == "r")
        return 1;
    if (arg0 == "l")
        return 3;
    if (arg0 == "u")
        return 2;
}
(scr_get_cardinal_direction
scr_get_cardinal_direction

function scr_get_cardinal_direction(arg0)
{
    _mycardinal = "n";
    _mydegree = arg0;
    while (_mydegree > 360 || _mydegree < 0)
    {
        if (_mydegree > 360)
            _mydegree -= 360;
        if (_mydegree < 0)
            _mydegree += 360;
    }
    if (_mydegree >= 315 || _mydegree <= 45)
        _mycardinal = "r";
    if (_mydegree >= 45 && _mydegree <= 135)
        _mycardinal = "u";
    if (_mydegree >= 135 && _mydegree <= 225)
        _mycardinal = "l";
    if (_mydegree >= 225 && _mydegree <= 315)
        _mycardinal = "d";
    return _mycardinal;
}
(point_direction(x, y, obj_mainchara.x, obj_mainchara.y)));
4 
    remx[0] = obj_mainchara.x;
5 
    remy[0] = obj_mainchara.y;
6 
    facing[0] = _newfacing;
7 
    for (_iaia = target; _iaia > 0; _iaia -= 1)
8 
    {
9 
        remx[_iaia] = lerp(obj_mainchara.x, x, _iaia / target);
10 
        if (global.darkzone == 1)
11 
            remy[_iaia] = lerp(obj_mainchara.y, y + 16, _iaia / target);
12 
        else
13 
            remy[_iaia] = lerp(obj_mainchara.y, y + 6, _iaia / target);
14 
        facing[_iaia] = _newfacing;
15 
    }
16 
}