Deltarune (Chapter 4) script viewer

depth = 1000100;

tower_falls_apart_i = 0;

tower_falls_apart_con = 0;

tower_falls_apart_timer = 0;

tower_angle_add = 0;

tower_falls_apart_i_dog = 0;

tower_falls_apart_timer_dog = 0;

fall_speed = 0;

fall_speed_dog = 0;

fall_limit_min = 0;

valid_tile_indices = [];

instance_create_depth(0, 0, depth - 5, obj_rotating_kris_controller_new);

u_iTime = shader_get_uniform(shd_fountaineffect, "iTime");

u_iPosOffset = shader_get_uniform(shd_fountaineffect, "iPosOffset");

u_iResolution = shader_get_uniform(shd_fountaineffect, "iResolution");

u_uvs = shader_get_uniform(shd_fountaineffect, "uvs");

s_uvs = sprite_get_uvs(bg_fountain1, 0);

u_extents = shader_get_uniform(shd_fakedepth, "iExtents");

u_centerx = shader_get_uniform(shd_fakedepth, "iCenterX");

tilesurface = surface_create(640, 480);

endclimb = false;

endclimbtimer = 0;

tower_x = 320;

tower_y = 0;

player_starting_y = 320;

destroy_climbstarter = true;

turnobjectsintotilevariants = true;

tiledefaultclimbable = false;

cull_objects = false;

tile_dark_color = 8421504;

if (appearance == 1)

    tile_dark_color = make_color_rgb(5, 5, 5);

if (appearance == 1)

{

    
scr_losechar
scr_losechar

function 
scr_losechar()
{
    global.char[2] = 0;
    global.char[1] = 0;
    with (obj_darkcontroller)
    {
        chartotal = 0;
        havechar[0] = 0;
        havechar[1] = 0;
        havechar[2] = 0;
        havechar[3] = 0;
        for (i = 0; i < 3; i += 1)
        {
            global.faceaction[i] = 0;
            if (global.char[i] != 0)
                chartotal += 1;
            if (global.char[i] == 1)
            {
                havechar[0] = 1;
                charpos[0] = i;
            }
            if (global.char[i] == 2)
            {
                havechar[1] = 1;
                charpos[1] = i;
            }
            if (global.char[i] == 3)
            {
                havechar[2] = 1;
                charpos[2] = i;
            }
            if (global.char[i] == 4)
            {
                havechar[3] = 1;
                charpos[3] = i;
            }
        }
    }
    global.submenu = 0;
    global.charselect = -1;
    for (i = 0; i < 36; i += 1)
        global.submenucoord[i] = 0;
}
();

    bgsiner = 0;

    siner = 100;

    colcol = 0;

    hscroll = 0;

    eyebody = 1;

    nowcolor = c_lime;

}

if (room == room_rotating_tower_new_test)

    tiledefaultclimbable = true;

if (room == room_dw_churchb_rotatingtower || instance_exists(obj_dw_churchb_rotatingtower))

{

    tower_x = 780;

    verticaltilecount = 93;

}

if (room == room_dw_churchb_rotatingtower2 || instance_exists(obj_dw_churchb_rotatingtower2))

{

    tower_x = 1600;

    verticaltilecount = 191;

}

if (room == room_dw_church_dogclimb || instance_exists(obj_tower_dog_controller))

    verticaltilecount = 215;

col_blend = 1;

visible_indices = [];

backface_indices = [];

tower_xshake = 0;

tower_yshake = 0;

tower_angle_prev = -1;

tower_angle_prev2 = -1;

tile_width = 40;

tile_height = 40;

tile_width_fine = tile_width;

tile_height_fine = tile_height;

if (appearance == 1)

{

    tile_width_fine = tile_width * 0.5;

    tile_height_fine = tile_height * 0.5;

}

tower_height = verticaltilecount * tile_height_fine;

tower_radius = tower_width / 2;

tower_circumference = (2 * pi) * tower_radius;

tower_ystart = tower_y;

tower_y_prev = tower_y;

maincharayprevious = obj_mainchara.y;

towertype = 0;

timer = 0;

angle_extra = 0;

checkdamagefloor = 0;

krisx = 0;

krisy = 0;

kristilex = 1;

kristiley = 1;

px = 0;

py = 0;

reticle_i = 0;

found = 0;

i = 0;

ii = 0;

dodraw = false;

obj_rotating_tower_controller_new.xy = function(arg0, arg1)

{

    return (arg1 * horizontaltilecount) + arg0;

};

tower_circumference = round(tower_circumference);

if ((tower_circumference % tile_width_fine) != 0)

{

    repeat (tile_width_fine)

    {

        tower_circumference++;

        if ((tower_circumference % tile_width_fine) == 0)

            break;

    }

    tower_radius = tower_circumference / (2 * pi);

    tower_width = tower_radius * 2;

}

horizontaltilecount = tower_circumference / tile_width_fine;

tile_angle_difference = 360 / horizontaltilecount;

var default_tile = 5180;

if (tiledefaultclimbable)

    default_tile = 2715;

if (appearance == 2)

    default_tile = 4168;

var a = 16;

var _index = 0;

var _b = 0;

if (appearance == 1)

{

    use_background_map = true;

    use_collision_map = true;

    use_tilesets = true;

}

if (use_tilesets)

{

    for (tmidx = 0; tmidx < tileset_count; tmidx++)

    {

        var layer_id = layer_get_id(tileset_name + string(tmidx + 1));

        layer_set_visible(layer_id, false);

        tm_tileset[tmidx] = 
scr_layer_tilemap_get_id_fixed
scr_layer_tilemap_get_id_fixed

function 
scr_layer_tilemap_get_id_fixed(arg0)
{
    var els = layer_get_all_elements(arg0);
    var n = array_length_1d(els);
    for (var i = 0; i < n; i++)
    {
        var el = els[i];
        if (layer_get_element_type(el) == 5)
            return el;
    }
    return -1;
}
(layer_id);

    }

}

if (use_collision_map)

{

    var collision_id = layer_get_id(collision_name);

    layer_set_visible(collision_id, false);

    tm_collision = 
scr_layer_tilemap_get_id_fixed
scr_layer_tilemap_get_id_fixed

function 
scr_layer_tilemap_get_id_fixed(arg0)
{
    var els = layer_get_all_elements(arg0);
    var n = array_length_1d(els);
    for (var i = 0; i < n; i++)
    {
        var el = els[i];
        if (layer_get_element_type(el) == 5)
            return el;
    }
    return -1;
}
(collision_id);

}

var tileset = 3604;

if (appearance == 1)

    tileset = 5101;

for (ii = 0; ii < verticaltilecount; ii++)

{

    if (use_collision_map)

    {

        for (i = 0; i <= 22; i++)

        {

            var idx = tilemap_get_at_pixel(tm_collision, (i * tile_width) + 1, (ii * tile_height) + 1);

            if (idx > 0)

                instance_create((i - 1) * tile_width, ii * tile_height, obj_climb_climbable);

        }

    }

    for (i = a; i < (horizontaltilecount + a + 1); i++)

    {

        tile_x[i - a] = 0;

        tile_angle[i - a] = 360 - (i * (360 / horizontaltilecount));

        tile_xscale[i - a] = 1;

        tile_color[i - a] = 16777215;

        if (use_tilesets == 1)

        {

            for (tmidx = 0; tmidx < tileset_count; tmidx++)

            {

                tile_sprite[xy(i - a, ii)][tmidx] = tileset;

                var __index = tilemap_get_at_pixel(tm_tileset[tmidx], ((i - a) * tile_width_fine) + 1, (ii * tile_height_fine) + 1);

                if (__index <= 0)

                {

                    __index = 0;

                    tile_sprite[xy(i - a, ii)][tmidx] = spr_nothing;

                }

                tile_index[xy(i - a, ii)][tmidx] = __index;

                if (__index != 0 && (array_length(valid_tile_indices) == 0 || valid_tile_indices[array_length(valid_tile_indices) - 1] != xy(i - a, ii)))

                    array_push(valid_tile_indices, xy(i - a, ii));

            }

            if (tileset_count == 1)

            {

                tile_sprite[xy(i - a, ii)][1] = spr_nothing;

                tile_index[xy(i - a, ii)][1] = 0;

            }

        }

        else if (appearance != 2)

        {

            if (_b == 0)

                tile_sprite[xy(i - a, ii)][0] = spr_bookshelves_climb1_a2;

            if (_b == 1)

                tile_sprite[xy(i - a, ii)][0] = spr_bookshelves_climb1_b2;

            if (_b == 2)

                tile_sprite[xy(i - a, ii)][0] = spr_bookshelves_climb1_c2;

            if (_b == 3)

                tile_sprite[xy(i - a, ii)][0] = spr_bookshelves_climb1_d2;

            var __index = _index;

            if (__index == 0)

                __index = 2;

            else if (__index == 2)

                __index = 0;

            tile_index[xy(i - a, ii)][0] = __index;

            _index++;

            if (_index == 3)

                _index = 0;

            tile_sprite[xy(i - a, ii)][1] = spr_nothing;

            tile_index[xy(i - a, ii)][1] = 0;

        }

        else

        {

            tile_sprite[xy(i - a, ii)][0] = spr_nothing;

            tile_index[xy(i - a, ii)][0] = 0;

            tile_sprite[xy(i - a, ii)][1] = spr_nothing;

            tile_index[xy(i - a, ii)][1] = 0;

        }

    }

    _index = 0;

    _b++;

    if (_b == 4)

        _b = 0;

}

default_tile = 4084;

if (appearance == 1)

    default_tile = 5408;

if (appearance == 2)

    default_tile = 5546;

eye_sprite_width = sprite_get_width(spr_climb_eyeenemy_noeye);

eye_sprite_height = sprite_get_height(spr_climb_eyeenemy_noeye);

obj_rotating_tower_controller_new.render_big_eye = function(arg0)

{

    var indent = 0.98;

    with (arg0)

    {

        var alpha = 0.12 * image_alpha;

        if (object_index == obj_climb_evilgrowth)

            alpha = 0.75 * image_alpha;

        var camy = cameray();

        if ((y + 400) < camy || (y - 300) > (camy + cameraheight()))

            continue;

        var h = other.eye_sprite_height;

        var adjustment = 0;

        if (other.appearance == 1)

            adjustment = 2;

        var xx = other.eye_sprite_width - 20;

        var w = 20;

        for (i = 0; i < 20; i++)

        {

            var adj = adjustment + i;

            _tilex = (x / other.tile_width_fine) + adj;

            if (_tilex > (other.horizontaltilecount - 1))

                _tilex -= (other.horizontaltilecount - 1);

            if (_tilex < 0)

                _tilex += (other.horizontaltilecount - 1);

            if (other.tile_vis[_tilex] == 1)

                draw_sprite_part_ext(sprite_index, image_index, xx, 0, w, h, other.tower_x + (other.tile_x[_tilex] * indent), y, (other.tile_xscale[_tilex] / other.tile_width_fine) * indent, 1, other.tile_color[_tilex], alpha);

            xx -= 20;

        }

        if (eyetimer == 0)

        {

            adjustment = 0;

            if (other.appearance == 1)

                adjustment = 2;

            var kris = 27;

            var goback = 0;

            if (i_ex(kris))

            {

                if (point_distance(x + (0.5 * h), y + (0.5 * h), kris.x, kris.y) > 640)

                {

                    goback = 1;

                }

                else

                {

                    var dirtokris = point_direction(x + (0.5 * h), y + (0.5 * h), kris.x, kris.y);

                    eyex = lerp(eyex, lengthdir_x(70, dirtokris), 0.25);

                    eyey = lerp(eyey, lengthdir_y(20, dirtokris), 0.25);

                }

            }

            else

            {

                goback = 1;

            }

            if (goback == 1)

            {

                eyex = lerp(eyex, 0, 0.1);

                eyey = lerp(eyey, 0, 0.1);

            }

        }

        var _tilex = (((x + (other.eye_sprite_width * 0.5)) / other.tile_width_fine) + adjustment) - 4;

        if (_tilex > (other.horizontaltilecount - 1))

            _tilex -= (other.horizontaltilecount - 1);

        else if (_tilex < 0)

            _tilex += (other.horizontaltilecount - 1);

        var tile_angle1 = other.tile_angle[_tilex] + (other.tile_angle_difference * (-eyex / other.tile_width_fine)) + other.tower_angle;

        while (tile_angle1 < 0)

            tile_angle1 += 360;

        while (tile_angle1 > 360)

            tile_angle1 -= 360;

        if (tile_angle1 < 207 && tile_angle1 >= 25)

        {

            var x1 = lengthdir_x(other.tower_radius, tile_angle1);

            _tilex = ((x + (other.eye_sprite_width * 0.5)) / other.tile_width_fine) + adjustment + 2;

            if (_tilex > (other.horizontaltilecount - 1))

                _tilex -= (other.horizontaltilecount - 1);

            else if (_tilex < 0)

                _tilex += (other.horizontaltilecount - 1);

            var tile_angle2 = other.tile_angle[_tilex] + (other.tile_angle_difference * (-eyex / other.tile_width_fine)) + other.tower_angle;

            while (tile_angle2 < 0)

                tile_angle2 += 360;

            while (tile_angle2 > 360)

                tile_angle2 -= 360;

            var xscale = lengthdir_x(other.tower_radius, tile_angle2) - x1;

            var xxscale = abs(xscale);

            var color = merge_color(c_white, other.tile_dark_color, other.col_blend * clamp(abs(x1 + (0.5 * xxscale)) / 190, 0, 1));

            var yscale = 1;

            draw_sprite_ext(spr_climb_eyeenemy_eye, 0, other.tower_x + (x1 * 1.05), ((y + (0.5 * h)) - 70) + (eyey * yscale) + 4, xxscale / (6 * other.tile_width_fine), yscale, 0, color, alpha);

        }

    }

};

obj_rotating_tower_controller_new.draw_tilemap_tile = function(arg0, arg1, arg2, arg3, arg4, arg5)

{

    var t = tile_index[arg4][arg5];

    var idx = tile_get_index(t);

    var yflip = 1;

    var rotation = 0;

    var xscale = -tile_xscale[arg0] / tile_width_fine;

    if (tile_get_mirror(t))

        xscale = -xscale;

    if (tile_get_flip(t))

        yflip = -1;

    if (tile_get_rotate(t))

    {

        rotation = -90;

        var yf = yflip;

        yflip *= abs(xscale);

        xscale = sign(xscale);

    }

    draw_sprite_ext(tile_sprite[arg4][arg5], idx, arg1, arg2, xscale, yflip, rotation, arg3, 1);

};

obj_rotating_tower_controller_new.copy_tilemap_image_index = function(arg0, arg1, arg2, arg3)

{

    var changed = 0;

    for (i = 0; i < 2; i++)

    {

        for (ii = 0; ii < 2; ii++)

        {

            var tilex = (arg2 / tile_width_fine) + i;

            var tiley = (arg3 / tile_height_fine) + ii;

            for (tmidx = 0; tmidx < tileset_count; tmidx++)

            {

                var idx = xy(tilex, tiley);

                var ti = tile_index[idx][tmidx];

                tile_index[idx][tmidx] = tilemap_get_at_pixel(tm_tileset[tmidx], arg0 + (tile_width_fine * (i + 2)), arg1 + (tile_height_fine * ii));

                if (tile_index[idx][tmidx] != ti)

                    changed = changed | (i + 1 + (ii * 4));

                if (tile_index[idx][tmidx] < 0)

                {

                    tile_index[idx][tmidx] = 0;

                    tile_sprite[idx][tmidx] = spr_nothing;

                }

                else

                {

                    tile_sprite[idx][tmidx] = spr_rotating_tower_tileset_sliced;

                }

            }

        }

    }

    return changed;

};

obj_rotating_tower_controller_new.set_tilemap_sprite = function(arg0)

{

    var tilex = arg0.x / tile_width_fine;

    var tiley = arg0.y / tile_height_fine;

    for (tmidx = 0; tmidx < tileset_count; tmidx++)

    {

        tile_index[xy(tilex, tiley)][tmidx] = tilemap_get_at_pixel(tm_tileset[tmidx], arg0.x, arg0.y);

        if (tile_index[xy(tilex, tiley)][tmidx] < 0)

        {

            tile_index[xy(tilex, tiley)][tmidx] = 0;

            tile_sprite[xy(tilex, tiley)][tmidx] = spr_nothing;

        }

        else

        {

            tile_sprite[xy(tilex, tiley)][tmidx] = spr_rotating_tower_tileset_sliced;

        }

    }

};

obj_rotating_tower_controller_new.set_tile_sprite = function(arg0, arg1)

{

    if (appearance == 1)

        return set_tilemap_sprite(arg0);

    var tilex = arg0.x / tile_width_fine;

    var tiley = arg0.y / tile_height_fine;

    tile_sprite[xy(tilex, tiley)][0] = arg1;

};

obj_rotating_tower_controller_new.set_tilemap_sprite_ext = function(arg0)

{

    var tilex = arg0.x / tile_width_fine;

    var tiley = arg0.y / tile_height_fine;

    tilex++;

    var xx = 0;

    var yy = 0;

    for (iii = 0; iii < round(arg0.image_yscale); iii++)

    {

        for (iiii = 0; iiii < round(arg0.image_xscale); iiii++)

        {

            var _tilex = tilex + xx;

            var _tiley = tiley + yy;

            if (_tilex > horizontaltilecount)

                _tilex -= horizontaltilecount;

            if (_tilex < 0)

                _tilex += horizontaltilecount;

            for (tmidx = 0; tmidx < tileset_count; tmidx++)

            {

                tile_sprite[xy(_tilex, _tiley)][tmidx] = spr_rotating_tower_tileset_sliced;

                tile_index[xy(_tilex, _tiley)][tmidx] = tilemap_get_at_pixel(tm_tileset[tmidx], _tilex * tile_width_fine, _tiley * tile_height_fine);

                xx++;

                if (tile_index[xy(_tilex, _tiley)][tmidx] == -1)

                {

                    tile_index[xy(_tilex, _tiley)][tmidx] = 0;

                    tile_sprite[xy(_tilex, _tiley)][tmidx] = spr_nothing;

                }

            }

        }

        xx = 0;

        yy++;

    }

};

obj_rotating_tower_controller_new.set_tile_sprite_ext = function(arg0, arg1, arg2)

{

    if (arg2)

        arg0.x -= 40;

    if (use_tilesets && arg2)

        return set_tilemap_sprite_ext(arg0);

    var tilex = arg0.x / tile_width_fine;

    tilex++;

    var tiley = arg0.y / tile_height_fine;

    var xx = 0;

    var yy = 0;

    for (iii = 0; iii < round(arg0.image_yscale); iii++)

    {

        for (iiii = 0; iiii < round(arg0.image_xscale); iiii++)

        {

            var _tilex = tilex + xx;

            var _tiley = tiley + yy;

            if (_tilex > horizontaltilecount)

                _tilex -= horizontaltilecount;

            if (_tilex < 0)

                _tilex += horizontaltilecount;

            tile_sprite[xy(_tilex, _tiley)][0] = arg1;

            if (appearance == 2)

                tile_index[xy(_tilex, _tiley)][0] = 4;

            xx++;

        }

        xx = 0;

        yy++;

    }

};

if (turnobjectsintotilevariants == true)

{

    with (obj_climb_wall)

    {

        var item = self;

        with (obj_rotating_tower_controller_new)

            set_tile_sprite(item, default_tile);

        instance_destroy();

    }

    with (obj_climb_spiketile)

    {

        var item = self;

        with (obj_rotating_tower_controller_new)

            set_tile_sprite(item, spr_climb_spike_2scale);

        instance_destroy();

    }

}

if (appearance == 0)

    default_tile = 2715;

if (appearance == 1)

    default_tile = 5408;

if (appearance != 1)

{

    if (tiledefaultclimbable == false)

    {

        with (obj_climb_climbable)

        {

            x -= 40;

            var item = self;

            with (obj_rotating_tower_controller_new)

                set_tile_sprite_ext(item, default_tile);

            x += 40;

        }

    }

    if (tiledefaultclimbable == true)

    {

        climbable_obj = instance_create(0, 0, obj_climb_climbable);

        climbable_obj.image_xscale = horizontaltilecount;

        climbable_obj.image_yscale = verticaltilecount;

    }

}

climbstarter_obj = instance_create((tower_x + (tower_radius * 0.5)) - (3.5 * tile_width_fine), (tower_y + tower_height) - player_starting_y, obj_climbstarter);

climbstarter_obj.exitmarkerflag = "towerstart";

climbstarter_obj.visible = false;

tower_y = tower_height - player_starting_y;

for (iii = 0; iii < 75; iii += 1)

{

    tower_angle_record[iii] = tower_angle;

    yoffset_record[iii] = tower_y;

}

using_rotating_caterpillars = false;