Deltarune (Chapter 3) script viewer

← back to main script listing

gml_Object_obj_screen_channel_change_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)
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; } }
(
scr_ease_out
scr_ease_out

function
scr_ease_out(arg0, arg1)
{ if (arg1 < -3 || arg1 > 7) return arg0; switch (arg1) { case -3: return ease_out_bounce(arg0, 0, 1, 1); case -2: return ease_out_elastic(arg0, 0, 1, 1); case -1: return ease_out_back(arg0, 0, 1, 1); case 0: return arg0; case 1: return sin(arg0 * 1.5707963267948966); case 2: return -arg0 * (arg0 - 2); case 6: return -power(2, -10 * arg0) + 1; case 7: arg0--; return sqrt(1 - (arg0 * arg0)); default: arg0--; if (arg1 == 4) { return -1 * (power(arg0, arg1) - 1); break; } return power(arg0, arg1) + 1; } }
(1 - (timer / lifetime), 4) * 480, 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, 480 - _yy);
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
var perlin_texture_page = sprite_get_texture(noise_sprite, 0);
39
shader_set(channel_shader);
40
texture_set_stage(perlin_stage, perlin_texture_page);
41
shader_set_uniform_f(shader_get_uniform(channel_shader, "texel"), 1 / camerawidth(), 1 / cameraheight());
42
shader_set_uniform_f(shader_get_uniform(channel_shader, "strength"), _strength);
43
var _UVs = sprite_get_uvs(noise_sprite, 0);
44
var _tex = sprite_get_texture(noise_sprite, 0);
45
var _texel_x = texture_get_texel_width(_tex);
46
var _texel_y = texture_get_texel_height(_tex);
47
var _texel_hx = _texel_x * 0.5;
48
var _texel_hy = _texel_y * 0.5;
49
shader_set_uniform_f(shader_get_uniform(channel_shader, "u_pixelSize"), _texel_x, _texel_y);
50
shader_set_uniform_f(shader_get_uniform(channel_shader, "u_UVs"), _UVs[0] + _texel_hx, _UVs[1] + _texel_hy);
51
shader_set_uniform_f(shader_get_uniform(channel_shader, "scanx"), floor(scan_x) + 0.5);
52
draw_surface(screen_surf, camerax(), cameray());
53
shader_reset();
54
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);
55
if (!infinite && timer > 0)
56
{
57
    timer--;
58
    if (timer <= 0)
59
    {
60
        if (!silent)
61
            snd_stop(static_noise);
62
        multa = random_range(10, 40);
63
        multb = random_range(5, 10);
64
    }
65
}
66
siner++;
67
var _alpha = 0;
68
if (i_ex(obj_tenna_enemy))
69
{
70
    if (lightemupcon == 1)
71
    {
72
        lightemuptimer++;
73
        if (lightemuptimer == 3)
74
            snd_play(snd_tv_static);
75
        if (lightemuptimer < 3)
76
            _alpha2 = lerp(0, 1, lightemuptimer / 3);
77
        if (lightemuptimer >= 3 && lightemuptimer < 60)
78
            _alpha2 = 1;
79
        if (lightemuptimer >= 60)
80
            _alpha2 = lerp(1, 0, (lightemuptimer - 60) / 10);
81
        if (lightemuptimer == 65)
82
            snd_stop(snd_tv_static);
83
        if (lightemuptimer == 70)
84
        {
85
            lightemupcon = 0;
86
            with (obj_tenna_enemy)
87
                keep_em_alive = true;
88
            lifetime = 7;
89
        }
90
        draw_sprite_tiled_ext(spr_static_effect, timer, camerax(), cameray(), 2, 2, c_white, _alpha2);
91
    }
92
    else
93
    {
94
        _alpha = _ease / 3;
95
        if (i_ex(obj_actor_tenna) && obj_actor_tenna.changechanneltimermax < 25)
96
            _alpha = lerp(0, _ease / 3, strength / 200);
97
    }
98
}
99
else
100
{
101
    _alpha = _ease / 2;
102
}
103
if (infinite)
104
    draw_sprite_tiled_ext(spr_static_effect, scan_x, 0, 0, 2, 2, c_white, _alpha);
105
else
106
    draw_sprite_tiled_ext(spr_static_effect, timer / 2, 0, 0, 2, 2, c_white, _alpha);