Deltarune (Chapter 3) script viewer

← back to main script listing

gml_Object_obj_screen_channel_change_ext_Other_12

(view raw script w/o annotations or w/e)
1
if (is_finished)
2
    exit;
3
if (scroll && !surface_exists(old_screen_surf))
4
    old_screen_surf = surface_create(camerawidth(), cameraheight());
5
if (!active || timer <= 0 || strength == 0)
6
{
7
    if (scroll)
8
    {
9
        surface_set_target(old_screen_surf);
10
        draw_surface(application_surface, 0, 0);
11
        surface_reset_target();
12
    }
13
    exit;
14
}
15
if (!surface_exists(screen_surf))
16
    screen_surf = surface_create(camerawidth(), cameraheight());
17
var _ease = 
scr_ease_in
scr_ease_in

function
scr_ease_in(arg0, arg1)
{ if (arg1 < -3 || arg1 > 7) return arg0; switch (arg1) { case -3: return ease_in_bounce(arg0, 0, 1, 1); case -2: return ease_in_elastic(arg0, 0, 1, 1); case -1: var _s = 1.70158; return arg0 * arg0 * (((_s + 1) * arg0) - _s); case 0: return arg0; case 1: return -cos(arg0 * 1.5707963267948966) + 1; case 6: return power(2, 10 * (arg0 - 1)); case 7: return -(sqrt(1 - sqr(arg0)) - 1); default: return power(arg0, arg1); } }
(timer / lifetime, 2);
18
var _strength = strength * _ease;
19
var _noisec = 0;
20
var _num = -1;
21
var _scany = 0;
22
if (scroll && !safe_mode)
23
{
24
    var _yy = scroll ? 
scr_wrap_new
scr_wrap_new

function
scr_wrap_new()
{ var _val = argument[0]; var _max = argument[2]; var _min = argument[1]; if ((_val % 1) == 0) { while (_val > _max || _val < _min) { if (_val > _max) { _val = (_min + _val) - _max - 1; } else if (_val < _min) { _val = ((_max + _val) - _min) + 1; } else { } } return _val; } else { var _old = argument[0] + 1; while (_val != _old) { _old = _val; if (_val < _min) { _val = _max - (_min - _val); } else if (_val > _max) { _val = _min + (_val - _max); } else { } } return _val; } }
((1 - (timer / lifetime)) * 500, 0, 480) : i;
25
    surface_set_target(screen_surf);
26
    draw_surface_part(old_screen_surf, 0, _yy, camerawidth(), cameraheight() - _yy, 0, 0);
27
    draw_surface_part(application_surface, 0, 0, camerawidth(), _yy, 0, 0);
28
    surface_reset_target();
29
}
30
else
31
{
32
    surface_set_target(screen_surf);
33
    draw_surface(application_surface, 0, 0);
34
    surface_reset_target();
35
}
36
if (scroll)
37
    _strength /= 3;
38
if (safe_mode)
39
{
40
    var _xx = camerax();
41
    var _yy = cameray();
42
    var _px = 2;
43
    for (var _i = 0; _i < 480; _i += _px)
44
    {
45
        var _sin = (sin(((siner * 20) + _i) / multa) * _strength * 0.75) + ((cos(((siner * -20) + _i) / multb) * _strength) / 4);
46
        var _absin = ceil(abs(_sin));
47
        draw_surface_part(screen_surf, 0, _i, 640, _px, _xx + _sin, _yy + _i);
48
        if (_sin > 0)
49
            draw_surface_part(screen_surf, 640 - _absin, _i, _absin, _px, (_xx + _sin) - _absin, _yy + _i);
50
        else if (_sin < 0)
51
            draw_surface_part(screen_surf, 0, _i, _absin, _px, _xx + _sin + 640, _yy + _i);
52
    }
53
}
54
else
55
{
56
    var perlin_texture_page;
57
    if (use_surface)
58
    {
59
        perlin_distort = surface_create(640, 480);
60
        surface_set_target(perlin_distort);
61
        draw_sprite_part_ext(noise_sprite, 0, scan_x, 0, scan_x + 1, 480, 0, 0, 640, 2, c_white, 1);
62
        surface_reset_target();
63
        perlin_texture_page = surface_get_texture(perlin_distort);
64
    }
65
    else
66
    {
67
        perlin_texture_page = sprite_get_texture(noise_sprite, 0);
68
    }
69
    shader_set(channel_shader);
70
    texture_set_stage(perlin_stage, perlin_texture_page);
71
    shader_set_uniform_f(shader_get_uniform(channel_shader, "texel"), 1 / camerawidth(), 1 / cameraheight());
72
    shader_set_uniform_f(shader_get_uniform(channel_shader, "strength"), _strength);
73
    if (!use_surface)
74
    {
75
        var _UVs = sprite_get_uvs(noise_sprite, 0);
76
        var _tex = sprite_get_texture(noise_sprite, 0);
77
        var _texel_x = texture_get_texel_width(_tex);
78
        var _texel_y = texture_get_texel_height(_tex);
79
        var _texel_hx = _texel_x * 0.5;
80
        var _texel_hy = _texel_y * 0.5;
81
        shader_set_uniform_f(shader_get_uniform(channel_shader, "u_pixelSize"), _texel_x, _texel_y);
82
        shader_set_uniform_f(shader_get_uniform(channel_shader, "u_UVs"), _UVs[0] + _texel_hx, _UVs[1] + _texel_hy);
83
        shader_set_uniform_f(shader_get_uniform(channel_shader, "scanx"), floor(scan_x) + 0.5);
84
    }
85
    draw_surface(screen_surf, camerax(), cameray());
86
    shader_reset();
87
    if (use_surface)
88
        surface_free(perlin_distort);
89
}
90
scan_x = 
scr_wrap_new
scr_wrap_new

function
scr_wrap_new()
{ var _val = argument[0]; var _max = argument[2]; var _min = argument[1]; if ((_val % 1) == 0) { while (_val > _max || _val < _min) { if (_val > _max) { _val = (_min + _val) - _max - 1; } else if (_val < _min) { _val = ((_max + _val) - _min) + 1; } else { } } return _val; } else { var _old = argument[0] + 1; while (_val != _old) { _old = _val; if (_val < _min) { _val = _max - (_min - _val); } else if (_val > _max) { _val = _min + (_val - _max); } else { } } return _val; } }
(scan_x + (scroll_speed * scroll_dir * (timer / lifetime) * 2), 0, 479);
91
if (!infinite && timer > 0)
92
{
93
    timer--;
94
    if (timer <= 0)
95
    {
96
        if (!silent)
97
            snd_stop(static_noise);
98
        multa = random_range(10, 40);
99
        multb = random_range(5, 10);
100
    }
101
}
102
siner++;
103
var _alpha = 0;
104
if (i_ex(obj_tenna_enemy))
105
{
106
    _alpha = _ease / 3;
107
    if (i_ex(obj_actor_tenna) && obj_actor_tenna.changechanneltimermax < 25)
108
        _alpha = lerp(0, _ease / 3, strength / 200);
109
}
110
else
111
{
112
    _alpha = _ease / 2;
113
}
114
draw_sprite_tiled_ext(spr_static_effect, timer / 2, 0, 0, 2, 2, c_white, _alpha);