Deltarune (Chapter 4) script viewer

← back to main script listing

gml_Object_obj_dw_churchb_darkclimb_scene_Step_0

(view raw script w/o annotations or w/e)
1
timer++;
2
scr_populatechars
scr_populatechars

function
scr_populatechars()
{ if (!variable_instance_exists(id, "kris")) kris = 0; if (!variable_instance_exists(id, "ralsei")) ralsei = 0; if (!variable_instance_exists(id, "susie")) susie = 0; if (!variable_instance_exists(id, "noelle")) noelle = 0; if (kris == 0) { with (obj_mainchara) other.kris = id; } if (susie == 0) { with (obj_caterpillarchara) { if (name == "susie") other.susie = id; } } if (ralsei == 0) { with (obj_caterpillarchara) { if (name == "ralsei") other.ralsei = id; } } if (noelle == 0) { with (obj_caterpillarchara) { if (name == "noelle") other.noelle = id; } } }
();
3
if (!init)
4
{
5
    var pos = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("susie", "sustart");
6
    susie = 
scr_marker_ext
scr_marker_ext

function
scr_marker_ext(arg0, arg1, arg2, arg3 = 1, arg4 = 1, arg5 = 0, arg6 = 0, arg7 = 16777215, arg8 = depth, arg9 = false, arg10 = -1, arg11 = 1)
{ var thismarker = instance_create(arg0, arg1, obj_marker); with (thismarker) { depth = arg8; sprite_index = arg2; image_speed = arg5; image_xscale = arg3; image_yscale = arg4; image_index = arg6; image_blend = arg7; image_alpha = arg11; if (arg9)
scr_depth_alt();
} if (arg10 > 0)
scr_doom(thismarker, arg10);
return thismarker; } function scr_marker_fromasset(arg0, arg1 = depth, arg2 = false) { if (is_undefined(arg0)) { debug_message("Warning: scr_marker_fromasset() sprite_instance didn't exist"); return -4; } var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var imagespeed = layer_sprite_get_speed(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var thismarker = instance_create_depth(xloc, yloc, arg1, obj_marker); with (thismarker) { sprite_index = sprite; image_index = index; image_speed = imagespeed; image_xscale = xscale; image_yscale = yscale; image_angle = angle; image_blend = blend; image_alpha = alpha; if (arg2)
scr_depth_alt(id, arg2);
} return thismarker; } function scr_assetgetinfo(arg0) { var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var imagespeed = layer_sprite_get_speed(arg0); return [sprite, index, xloc, yloc, xscale, yscale, angle, blend, alpha, imagespeed]; }
(pos[0], pos[1], spr_susie_walk_up_dw, 2, 2, undefined, undefined, undefined, undefined, 1);
7
    susie.name = "susie";
8
    with (roomglow)
9
        create_highlight(other.susie, true, true, -2);
10
    with (obj_genmarker)
11
    {
12
        if (extflag == "GIRLPROP" || extflag == "GIRLPROP_STAY")
13
        {
14
            var doadd = false;
15
            if (extflag == "GIRLPROP")
16
                doadd = true;
17
            var prop = instance_create(
scr_even
scr_even

function
scr_even(arg0)
{ return round(arg0 / 2) * 2; }
((x + 150) - 68),
scr_even
scr_even

function
scr_even(arg0)
{ return round(arg0 / 2) * 2; }
((y + 90) - 30), obj_dw_church_prophecy);
18
            prop.extflag = choose("love", "heroes2", "heroes2");
19
            with (prop)
20
            {
21
                notext = true;
22
                alwaysactive = true;
23
                siner = instance_number(object_index) * 360;
24
                noback = true;
25
                fade_edges = true;
26
                
scr_depth
scr_depth

function
scr_depth(arg0 = id, arg1 = 0)
{ with (arg0) depth = 100000 - ((y * 10) + (sprite_height * 10) + (arg1 * 10)); }
();
27
                depth += 120000;
28
                nodestroysound = true;
29
                nodestroysparkles = true;
30
            }
31
            if (doadd)
32
                array_push(other.moveprops, prop);
33
        }
34
    }
35
    pos = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
(undefined, "MAINPROPLOC");
36
    cutcentx = pos[0] + 150;
37
    cutcenty = pos[1] + 90;
38
    prop1 = instance_create(cutcentx, cutcenty, obj_dw_church_prophecy);
39
    with (prop1)
40
    {
41
        alwaysactive = true;
42
        extflag = "initial2";
43
        notext = true;
44
        depth += 2;
45
        fade_edges = true;
46
    }
47
    prop1text = instance_create(cutcentx, cutcenty, obj_dw_church_prophecy);
48
    with (prop1text)
49
    {
50
        textonly = true;
51
        extflag = "laststory";
52
        depth = 0;
53
    }
54
    prop2 = instance_create(cutcentx, cutcenty, obj_dw_church_prophecy);
55
    with (prop2)
56
    {
57
        extflag = "initial2";
58
        notext = true;
59
        depth += 4;
60
        nodestroysparkles = true;
61
        fade_edges = true;
62
    }
63
    prop2text = instance_create(cutcentx, cutcenty, obj_dw_church_prophecy);
64
    with (prop2text)
65
    {
66
        textonly = true;
67
        extflag = "savetheworlds";
68
        depth = 0;
69
    }
70
    init = 1;
71
}
72
with (obj_floorshadow)
73
    instance_destroy();
74
if (con == 0)
75
{
76
    if (
scr_trigcheck
scr_trigcheck

function
scr_trigcheck(arg0)
{ var ____trig = 0; if (is_string(arg0)) { with (obj_trigger) { if (extflag == arg0) { if (place_meeting(x, y, obj_mainchara)) ____trig++; } } } return ____trig; } function scr_trigcheck_ext(arg0, arg1 = id) { var ____trig = 0; if (is_string(arg0)) { with (obj_trigger) { if (extflag == arg0) { if (place_meeting(x, y, arg1)) ____trig++; } } } return ____trig; }
("cut1begin"))
77
    {
78
        mus_fade(global.currentsong[1], 120);
79
        con = 1;
80
        global.interact = 1;
81
        global.facing = 3;
82
        cutscene_master = 
scr_cutscene_make
scr_cutscene_make

function
scr_cutscene_make()
{ _cutscene_master = instance_create(0, 0, obj_cutscene_master); _cutscene_master.master_object = id; return _cutscene_master; }
();
83
        actor_count = 0;
84
        kr = 0;
85
        kr_actor = instance_create(obj_mainchara.x, obj_mainchara.y, obj_actor);
86
        
scr_actor_setup
scr_actor_setup

function
scr_actor_setup(arg0, arg1, arg2)
{ _actorid = arg0; _actorinstance = arg1; _actorname = arg2; obj_cutscene_master.actor_id[_actorid] = _actorinstance; obj_cutscene_master.actor_name[_actorid] = _actorname; with (_actorinstance) { number = arg0;
scr_set_facing_sprites(arg2);
} }
(kr, kr_actor, "kris");
87
        kr_actor.sprite_index = obj_mainchara.sprite_index;
88
        kr_actor.depth = obj_mainchara.depth;
89
        with (obj_mainchara)
90
        {
91
            scr_delay_var("visible", false, 1);
92
            scr_delay_var("y", 0, 1);
93
        }
94
        actor_count++;
95
        su = array_length(global.cinstance) + 1;
96
        su_actor = instance_create(susie.x, susie.y, obj_actor);
97
        
scr_actor_setup
scr_actor_setup

function
scr_actor_setup(arg0, arg1, arg2)
{ _actorid = arg0; _actorinstance = arg1; _actorname = arg2; obj_cutscene_master.actor_id[_actorid] = _actorinstance; obj_cutscene_master.actor_name[_actorid] = _actorname; with (_actorinstance) { number = arg0;
scr_set_facing_sprites(arg2);
} }
(su, su_actor, "susie");
98
        su_actor.sprite_index = susie.sprite_index;
99
        su_actor.depth = susie.depth;
100
        with (susie)
101
            scr_delay_var("visible", false, 1);
102
        var spritesArray = layer_get_all_elements("CUTSCENE_ASSETS_PART1");
103
        for (var i = 0; i < array_length(spritesArray); i++)
104
        {
105
            if (layer_sprite_get_sprite(spritesArray[i]) == 1550)
106
            {
107
                var info = scr_assetgetinfo(spritesArray[i]);
108
                actor_count++;
109
                ger = array_length(global.cinstance) + 2;
110
                ger_actor = instance_create(info[2], info[3], obj_actor);
111
                
scr_actor_setup
scr_actor_setup

function
scr_actor_setup(arg0, arg1, arg2)
{ _actorid = arg0; _actorinstance = arg1; _actorname = arg2; obj_cutscene_master.actor_id[_actorid] = _actorinstance; obj_cutscene_master.actor_name[_actorid] = _actorname; with (_actorinstance) { number = arg0;
scr_set_facing_sprites(arg2);
} }
(ger, ger_actor, "gerson");
112
                ger_actor.sprite_index = layer_sprite_get_sprite(spritesArray[i]);
113
                with (ger_actor)
114
                {
115
                    name = "gerson";
116
                    usprite = spr_gerson_walk_armor_left;
117
                    rsprite = spr_gerson_walk_armor_right;
118
                    dsprite = spr_gerson_walk_armor_right;
119
                    lsprite = spr_gerson_walk_armor_right;
120
                    image_blend = c_black;
121
                }
122
                
scr_depth
scr_depth

function
scr_depth(arg0 = id, arg1 = 0)
{ with (arg0) depth = 100000 - ((y * 10) + (sprite_height * 10) + (arg1 * 10)); }
(ger_actor);
123
            }
124
        }
125
        with (obj_actor)
126
        {
127
            with (obj_roomglow)
128
                create_highlight(other.id, true, false);
129
        }
130
        var krpos = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("kris", "krstart");
131
        var krdist = 
scr_returnwait_instance
scr_returnwait_instance

function
scr_returnwait_instance(arg0, arg1, arg2)
{ if (!instance_exists(arg0)) { debug_print("Argument 1 does not exist"); return 1; } if (!instance_exists(arg1)) { debug_print("Argument 2 does not exist"); return 1; } var dist = max(1, round(point_distance(arg0.x, arg0.y, arg1.x, arg1.y) / arg2)); return dist; }
(kr_actor, krpos[2], 4);
132
        var supos = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("susie", "sustart");
133
        var campos = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
(undefined, "camstart");
134
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
135
        
c_walkdirect
c_walkdirect

function
c_walkdirect(arg0, arg1, arg2)
{
c_cmd("walkdirect", arg0, arg1, arg2, 0);
}
(krpos[0], krpos[1], krdist);
136
        
c_delayfacing
c_delayfacing

function
c_delayfacing(arg0, arg1)
{
c_cmd_x("delaycmd", arg0, "facing", arg1, 0, 0, 0);
}
(krdist + 1, "l");
137
        
c_pannable
c_pannable

function
c_pannable(arg0)
{
c_cmd("pannable", arg0, 0, 0, 0);
}
(1);
138
        
c_pan
c_pan

function
c_pan(arg0, arg1, arg2)
{
c_cmd("pan", arg0, arg1, arg2, 0);
}
(campos[0], campos[1], krdist);
139
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(krdist + 1);
140
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(15);
141
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
142
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("r");
143
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(15);
144
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
145
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face M* Kris!? Hey,Delay 11 didn't I tell you to wait for a sec!?Wait for input
"\\EM* Kris!? Hey^1, didn't I tell you to wait for a sec!?/", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_181_0"
);
146
        
c_msgnextloc
c_msgnextloc

function
c_msgnextloc(arg0, arg1)
{ var str = arg0; var localized_string_id = arg1; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgnext(str);
}
(
Face p* If...Delay 11 there's something about me here,Delay 11 then...Delay 11 I...Wait for inputClose Message
"\\Ep* If..^1. there's something about me here^1, then..^1. I.../%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_182_0"
);
147
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
148
        
c_customfunc
c_customfunc

function
c_customfunc(arg0, arg1 = -1)
{ if (instance_exists(obj_cutscene_master)) { with (obj_cutscene_master) array_push(customfuncs, arg0);
c_cmd("customfunc", arg1, 0, 0, 0);
} } function c_delay_customfunc(arg0, arg1, arg2 = -1) { if (instance_exists(obj_cutscene_master))
c_cmd_x("delaycmd", arg0, "customfunc", arg2, arg1, 0, 0);
}
(function()
149
        {
150
            propmove1 = true;
151
            propmovetimer = 0;
152
        });
153
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(8);
154
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
155
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("u");
156
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
157
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("u");
158
        
c_waitcustom
c_waitcustom

function
c_waitcustom()
{
c_cmd("waitcustom", 0, 0, 0, 0);
}
();
159
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
160
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face 6* Huh...?Wait for inputClose Message
"\\E6* Huh...?/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_201_0"
);
161
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
162
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(8);
163
        c_sndplay(snd_motor_ghost);
164
        
c_customfunc
c_customfunc

function
c_customfunc(arg0, arg1 = -1)
{ if (instance_exists(obj_cutscene_master)) { with (obj_cutscene_master) array_push(customfuncs, arg0);
c_cmd("customfunc", arg1, 0, 0, 0);
} } function c_delay_customfunc(arg0, arg1, arg2 = -1) { if (instance_exists(obj_cutscene_master))
c_cmd_x("delaycmd", arg0, "customfunc", arg2, arg1, 0, 0);
}
(function()
165
        {
166
            prop1text.alwaysactive = true;
167
        });
168
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(30);
169
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
170
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face Z* The last...Delay 11 prophecy...?Wait for input
"\\EZ* The last..^1. prophecy...?/", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_215_0"
);
171
        
c_msgnextloc
c_msgnextloc

function
c_msgnextloc(arg0, arg1)
{ var str = arg0; var localized_string_id = arg1; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgnext(str);
}
(
Face D* Is this...Wait for input
"\\ED* Is this.../", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_216_0"
);
172
        
c_msgnextloc
c_msgnextloc

function
c_msgnextloc(arg0, arg1)
{ var str = arg0; var localized_string_id = arg1; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgnext(str);
}
(
Face Z* What happens...Delay 11 at the end...?Wait for inputClose Message
"\\EZ* What happens..^1. at the end...?/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_217_0"
);
173
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
174
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(8);
175
        
c_var_instance
c_var_instance

function
c_var_instance(arg0, arg1, arg2)
{
c_cmd_x("var", arg0, arg1, arg2, 0, 0, 0);
}
(id, "propmove2", true);
176
        
c_var_instance
c_var_instance

function
c_var_instance(arg0, arg1, arg2)
{
c_cmd_x("var", arg0, arg1, arg2, 0, 0, 0);
}
(id, "propmovetimer", 0);
177
        
c_waitcustom
c_waitcustom

function
c_waitcustom()
{
c_cmd("waitcustom", 0, 0, 0, 0);
}
();
178
        c_sndplay(snd_dtrans_heavypassing);
179
        
c_customfunc
c_customfunc

function
c_customfunc(arg0, arg1 = -1)
{ if (instance_exists(obj_cutscene_master)) { with (obj_cutscene_master) array_push(customfuncs, arg0);
c_cmd("customfunc", arg1, 0, 0, 0);
} } function c_delay_customfunc(arg0, arg1, arg2 = -1) { if (instance_exists(obj_cutscene_master))
c_cmd_x("delaycmd", arg0, "customfunc", arg2, arg1, 0, 0);
}
(function()
180
        {
181
            prop2.alwaysactive = true;
182
        });
183
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(15);
184
        c_sndplay(snd_motor_ghost);
185
        
c_customfunc
c_customfunc

function
c_customfunc(arg0, arg1 = -1)
{ if (instance_exists(obj_cutscene_master)) { with (obj_cutscene_master) array_push(customfuncs, arg0);
c_cmd("customfunc", arg1, 0, 0, 0);
} } function c_delay_customfunc(arg0, arg1, arg2 = -1) { if (instance_exists(obj_cutscene_master))
c_cmd_x("delaycmd", arg0, "customfunc", arg2, arg1, 0, 0);
}
(function()
186
        {
187
            prop2text.alwaysactive = true;
188
        });
189
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(30);
190
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
191
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face Z* ...Delay 11 huh? It's...Wait for input
"\\EZ* ..^1. huh? It's.../", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_244_0"
);
192
        
c_msgnextloc
c_msgnextloc

function
c_msgnextloc(arg0, arg1)
{ var str = arg0; var localized_string_id = arg1; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgnext(str);
}
(
Face Z* It's telling us how to save the world...?Wait for input
"\\EZ* It's telling us how to save the world...?/", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_245_0"
);
193
        
c_msgnextloc
c_msgnextloc

function
c_msgnextloc(arg0, arg1)
{ var str = arg0; var localized_string_id = arg1; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgnext(str);
}
(
Face 7* Hey,Delay 11 Kris,Delay 11 this'll make everything easy,Delay 11 right!?Wait for inputClose Message
"\\E7* Hey^1, Kris^1, this'll make everything easy^1, right!?/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_246_0"
);
194
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
195
        
c_customfunc
c_customfunc

function
c_customfunc(arg0, arg1 = -1)
{ if (instance_exists(obj_cutscene_master)) { with (obj_cutscene_master) array_push(customfuncs, arg0);
c_cmd("customfunc", arg1, 0, 0, 0);
} } function c_delay_customfunc(arg0, arg1, arg2 = -1) { if (instance_exists(obj_cutscene_master))
c_cmd_x("delaycmd", arg0, "customfunc", arg2, arg1, 0, 0);
}
(function()
196
        {
197
            propmove3 = true;
198
            propmovetimer = 0;
199
        });
200
        
c_waitcustom
c_waitcustom

function
c_waitcustom()
{
c_cmd("waitcustom", 0, 0, 0, 0);
}
();
201
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(1);
202
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
203
        
c_sprite
c_sprite

function
c_sprite(arg0)
{
c_cmd("sprite", arg0, 0, 0, 0);
}
(spr_susie_shocked_behind);
204
        
c_shakeobj
c_shakeobj

function
c_shakeobj()
{
c_cmd("shakeobj", 0, 0, 0, 0);
}
();
205
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(64);
206
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
207
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face I* Hey,Delay 11 I...Delay 11 I was reading that!Wait for inputClose Message
"\\EI* Hey^1, I..^1. I was reading that!/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_267_0"
);
208
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
209
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(30);
210
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
211
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("l");
212
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
213
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("l");
214
        var campos2 = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
(undefined, "campos2");
215
        
c_pan
c_pan

function
c_pan(arg0, arg1, arg2)
{
c_cmd("pan", arg0, arg1, arg2, 0);
}
(campos2[0], campos[1], 30);
216
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(30);
217
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
218
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face 6* ...Delay 11 Old man?Wait for inputClose Message
"\\E6* ..^1. Old man?/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_281_0"
);
219
        
c_talk_wait
c_talk_wait

function
c_talk_wait()
{
c_talk();
c_waittalk();
} function c_talkwait() {
c_talk_wait();
}
();
220
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(4);
221
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(ger);
222
        
c_sprite
c_sprite

function
c_sprite(arg0)
{
c_cmd("sprite", arg0, 0, 0, 0);
}
(spr_gerson_walk_armor_left);
223
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(15);
224
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(ger);
225
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(8);
226
        
c_autowalk
c_autowalk

function
c_autowalk(arg0)
{
c_cmd("autowalk", arg0, 0, 0, 0);
}
(0);
227
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("hspeed", -4);
228
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("image_speed", 0.25);
229
        var supos3 = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("susie", "sustep");
230
        var sudist3 = 
scr_returnwait_instance
scr_returnwait_instance

function
scr_returnwait_instance(arg0, arg1, arg2)
{ if (!instance_exists(arg0)) { debug_print("Argument 1 does not exist"); return 1; } if (!instance_exists(arg1)) { debug_print("Argument 2 does not exist"); return 1; } var dist = max(1, round(point_distance(arg0.x, arg0.y, arg1.x, arg1.y) / arg2)); return dist; }
(supos[2], supos3[2], 4);
231
        
c_speaker
c_speaker

function
c_speaker(arg0)
{
c_cmd("speaker", arg0, 0, 0, 0);
}
("susie");
232
        
c_msgsetloc
c_msgsetloc

function
c_msgsetloc(arg0, arg1, arg2)
{ var msg_index = arg0; var english = arg1; var localized_string_id = arg2; var str = english; if (!is_english()) str =
scr_84_get_lang_string(localized_string_id);
c_msgset(msg_index, str);
}
(0,
Face Z* W-wait!!!Wait for inputClose Message
"\\EZ* W-wait!!!/%", "obj_dw_churchb_darkclimb_scene_slash_Step_0_gml_299_0"
);
233
        
c_talk
c_talk

function
c_talk()
{
c_cmd("talk", 0, 0, 0, 0);
}
();
234
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
235
        
c_walkdirect
c_walkdirect

function
c_walkdirect(arg0, arg1, arg2)
{
c_cmd("walkdirect", arg0, arg1, arg2, 0);
}
(supos3[0], supos3[1], sudist3);
236
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(sudist3);
237
        
c_wait_talk
c_wait_talk

function
c_wait_talk()
{
c_cmd("waitdialoguer", 0, 0, 0, 0);
}
();
238
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(ger);
239
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("hspeed", -10);
240
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(8);
241
        var supos2 = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("susie", "surunto");
242
        var krpos2 = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
("kris", "krrunto");
243
        var sudist2 = 
scr_returnwait_instance
scr_returnwait_instance

function
scr_returnwait_instance(arg0, arg1, arg2)
{ if (!instance_exists(arg0)) { debug_print("Argument 1 does not exist"); return 1; } if (!instance_exists(arg1)) { debug_print("Argument 2 does not exist"); return 1; } var dist = max(1, round(point_distance(arg0.x, arg0.y, arg1.x, arg1.y) / arg2)); return dist; }
(supos3[2], supos2[2], 10);
244
        var krdist2 = 
scr_returnwait_instance
scr_returnwait_instance

function
scr_returnwait_instance(arg0, arg1, arg2)
{ if (!instance_exists(arg0)) { debug_print("Argument 1 does not exist"); return 1; } if (!instance_exists(arg1)) { debug_print("Argument 2 does not exist"); return 1; } var dist = max(1, round(point_distance(arg0.x, arg0.y, arg1.x, arg1.y) / arg2)); return dist; }
(krpos[2], krpos2[2], 10);
245
        var campos3 = 
scr_heromarker
scr_heromarker

function
scr_heromarker(arg0 = "", arg1 = "")
{ var ____foundmarker = -4; var xpos = -1; var ypos = -1; var objindextocheck = 1365; if (string_pos("kr", arg0) != 0) objindextocheck = 544; if (string_pos("su", arg0) != 0) objindextocheck = 522; if (string_pos("ra", arg0) != 0) objindextocheck = 75; if (string_pos("no", arg0) != 0) objindextocheck = 933; if (string_pos("gen", arg0) != 0) objindextocheck = 1365; with (objindextocheck) { if (variable_instance_exists(id, "extflag")) { if (extflag == arg1) ____foundmarker = id; } } if (instance_exists(____foundmarker)) { xpos = ____foundmarker.x; ypos = ____foundmarker.y; } if (____foundmarker == -4) { debug_message("
scr_heromarker(" + arg0 + "," + arg1 + ") Object Not Found");
return [-4, -4, -4]; } return [xpos, ypos, ____foundmarker]; } function scr_genmarker(arg0 = "") { var marker = -4; with (obj_genmarker) { if (extflag == arg0) marker = id; } return marker; }
(undefined, "campos3");
246
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
247
        
c_walkdirect
c_walkdirect

function
c_walkdirect(arg0, arg1, arg2)
{
c_cmd("walkdirect", arg0, arg1, arg2, 0);
}
(supos2[0], supos2[1], sudist2);
248
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
249
        
c_walkdirect
c_walkdirect

function
c_walkdirect(arg0, arg1, arg2)
{
c_cmd("walkdirect", arg0, arg1, arg2, 0);
}
(krpos2[0], krpos2[1], krdist2);
250
        
c_pan
c_pan

function
c_pan(arg0, arg1, arg2)
{
c_cmd("pan", arg0, arg1, arg2, 0);
}
(campos3[0], campos3[1], max(krdist2, sudist2));
251
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(max(krdist2, sudist2));
252
        
c_var_instance
c_var_instance

function
c_var_instance(arg0, arg1, arg2)
{
c_cmd_x("var", arg0, arg1, arg2, 0, 0, 0);
}
(id, "crackglass", 1);
253
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
254
        
c_facing
c_facing

function
c_facing(arg0)
{
c_cmd("facing", arg0, 0, 0, 0);
}
("d");
255
        
c_autowalk
c_autowalk

function
c_autowalk(arg0)
{
c_cmd("autowalk", arg0, 0, 0, 0);
}
(0);
256
        
c_imagespeed
c_imagespeed

function
c_imagespeed(arg0)
{
c_cmd("imagespeed", arg0, 0, 0, 0);
}
(0);
257
        
c_imageindex
c_imageindex

function
c_imageindex(arg0)
{
c_cmd("imageindex", arg0, 0, 0, 0);
}
(0);
258
        
c_shakeobj
c_shakeobj

function
c_shakeobj()
{
c_cmd("shakeobj", 0, 0, 0, 0);
}
();
259
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
260
        
c_autowalk
c_autowalk

function
c_autowalk(arg0)
{
c_cmd("autowalk", arg0, 0, 0, 0);
}
(0);
261
        
c_imagespeed
c_imagespeed

function
c_imagespeed(arg0)
{
c_cmd("imagespeed", arg0, 0, 0, 0);
}
(0);
262
        
c_imageindex
c_imageindex

function
c_imageindex(arg0)
{
c_cmd("imageindex", arg0, 0, 0, 0);
}
(0);
263
        
c_sprite
c_sprite

function
c_sprite(arg0)
{
c_cmd("sprite", arg0, 0, 0, 0);
}
(spr_susie_sheeh_flip);
264
        
c_shakeobj
c_shakeobj

function
c_shakeobj()
{
c_cmd("shakeobj", 0, 0, 0, 0);
}
();
265
        
c_waitcustom
c_waitcustom

function
c_waitcustom()
{
c_cmd("waitcustom", 0, 0, 0, 0);
}
();
266
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(su);
267
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("vspeed", -2);
268
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("gravity", 1);
269
        
c_sel
c_sel

function
c_sel(arg0)
{
c_cmd("select", arg0, 0, 0, 0);
}
(kr);
270
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("vspeed", -2);
271
        
c_var
c_var

function
c_var(arg0, arg1)
{
c_cmd_x("var", 0, arg0, arg1, 0, 0, 0);
}
("gravity", 1);
272
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(15);
273
        
c_fadeout
c_fadeout

function
c_fadeout(arg0)
{
c_cmd("fadeout", arg0, 0, 0, 0);
}
(15);
274
        
c_wait
c_wait

function
c_wait(arg0)
{
c_cmd("wait", arg0, 0, 0, 0);
}
(60);
275
        
c_var_instance
c_var_instance

function
c_var_instance(arg0, arg1, arg2)
{
c_cmd_x("var", arg0, arg1, arg2, 0, 0, 0);
}
(id, "con", 2);
276
    }
277
}
278
if (con == 2)
279
{
280
    global.tempflag[90] = 1;
281
    room_goto(room_dw_churchb_darkclimb);
282
}
283
for (var i = 0; i < array_length(glass); i++)
284
{
285
    with (glass[i])
286
    {
287
        var targalpha = 0.2;
288
        if (place_meeting(x, y, obj_mainchara) || place_meeting(x, y, obj_caterpillarchara) || place_meeting(x, y, obj_actor) || place_meeting(x, y, other.susie))
289
            targalpha = 0.8;
290
        image_alpha = lerp(image_alpha, targalpha, 0.125);
291
    }
292
}
293
if (
scr_debug
scr_debug

function
scr_debug()
{ if (global.debug == 1) return 1; }
())
294
{
295
    if (keyboard_check_pressed(ord("1")))
296
    {
297
        propmove1 = true;
298
        propmovetimer = 0;
299
    }
300
    if (keyboard_check_pressed(ord("2")))
301
    {
302
        propmove2 = true;
303
        propmovetimer = 0;
304
    }
305
    if (keyboard_check_pressed(ord("3")))
306
    {
307
        crackglass = 1;
308
        gltimer = 0;
309
    }
310
}
311
if (propmove1)
312
{
313
    propmovetimer++;
314
    var movetime = 12;
315
    if (propmovetimer == 1)
316
    {
317
        snd_play(snd_dtrans_heavypassing);
318
        var dcon = 0;
319
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
320
        dcon++;
321
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
322
        dcon++;
323
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
324
        dcon++;
325
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
326
        dcon++;
327
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
328
        dcon++;
329
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
330
        dcon++;
331
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
332
        dcon++;
333
        snd_play_delay(snd_motor_ghost, 4, 0.8, 0.8);
334
        snd_play_delay(snd_motor_ghost, 6, 0.8, 0.6);
335
    }
336
    if (propmovetimer < movetime)
337
    {
338
        var count = array_length(moveprops);
339
        for (var i = 0; i < count; i++)
340
        {
341
            with (moveprops[i])
342
            {
343
                x = xstart + (sin(siner / (movetime - (other.propmovetimer / 2))) * 4);
344
                y = ystart + (cos(siner / (movetime - (other.propmovetimer / 2))) * 4);
345
            }
346
        }
347
    }
348
    if (propmovetimer == movetime)
349
    {
350
        var count = array_length(moveprops);
351
        for (var i = 0; i < count; i++)
352
        {
353
            with (moveprops[i])
354
            {
355
                var dir = ((i / count) * 360) - 33;
356
                var targx = other.cutcentx + lengthdir_x(340, dir);
357
                var targy = other.cutcenty + lengthdir_y(240, dir);
358
                
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("x", x, targx, 60, -1, "out");
359
                
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("y", y, targy, 60, -1, "out");
360
            }
361
        }
362
    }
363
    if (propmovetimer == (movetime + 60))
364
    {
365
        
c_waitcustom_end
c_waitcustom_end

function
c_waitcustom_end()
{ with (obj_cutscene_master) { cs_wait_custom = 0; waiting = 0; } }
();
366
        propmove1 = false;
367
    }
368
}
369
if (propmove2)
370
{
371
    propmovetimer++;
372
    var movetime = 12;
373
    if (propmovetimer == 1)
374
    {
375
        snd_play(snd_dtrans_heavypassing);
376
        var dcon = 0;
377
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
378
        dcon++;
379
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
380
        dcon++;
381
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
382
        dcon++;
383
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
384
        dcon++;
385
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
386
        dcon++;
387
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
388
        dcon++;
389
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
390
        dcon++;
391
        snd_play_delay(snd_motor_ghost, 4, 0.8, 0.8);
392
        snd_play_delay(snd_motor_ghost, 6, 0.8, 0.6);
393
    }
394
    if (propmovetimer < movetime)
395
    {
396
        with (prop1)
397
        {
398
            x = xstart + (sin(siner / (movetime - (other.propmovetimer / 2))) * 4);
399
            y = ystart + (cos(siner / (movetime - (other.propmovetimer / 2))) * 4);
400
        }
401
        with (prop1text)
402
        {
403
            x = xstart - (sin(siner / (movetime - (other.propmovetimer / 2))) * 4);
404
            y = ystart - (cos(siner / (movetime - (other.propmovetimer / 2))) * 4);
405
        }
406
    }
407
    if (propmovetimer == movetime)
408
    {
409
        var dir = 90;
410
        with (prop1)
411
        {
412
            var targx = other.cutcentx + lengthdir_x(380, dir);
413
            var targy = other.cutcenty + lengthdir_y(260, dir);
414
            
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("x", x, targx, 60, -1, "out");
415
            
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("y", y, targy, 60, -1, "out");
416
        }
417
        with (prop1text)
418
        {
419
            var targx = other.cutcentx + lengthdir_x(380, dir);
420
            var targy = other.cutcenty + lengthdir_y(260, dir);
421
            
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("x", x, targx, 60, -1, "out");
422
            
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("y", y, targy, 60, -1, "out");
423
            alwaysactive = false;
424
        }
425
    }
426
    if (propmovetimer == (movetime + 30))
427
    {
428
        
c_waitcustom_end
c_waitcustom_end

function
c_waitcustom_end()
{ with (obj_cutscene_master) { cs_wait_custom = 0; waiting = 0; } }
();
429
        propmove2 = false;
430
    }
431
}
432
if (propmove3)
433
{
434
    propmovetimer++;
435
    var movetime = 34;
436
    if (propmovetimer == 1)
437
    {
438
        snd_play(snd_dtrans_heavypassing);
439
        var dcon = 0;
440
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
441
        dcon++;
442
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
443
        dcon++;
444
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
445
        dcon++;
446
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
447
        dcon++;
448
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
449
        dcon++;
450
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
451
        dcon++;
452
        snd_play_delay(snd_dtrans_heavypassing, 3 * dcon, 0.7 - (dcon / 8));
453
        dcon++;
454
        snd_play_delay(snd_motor_ghost, 4, 0.8, 0.8);
455
        snd_play_delay(snd_motor_ghost, 6, 0.8, 0.6);
456
        prop2text.alwaysactive = false;
457
    }
458
    if (propmovetimer < movetime)
459
    {
460
        var shake = max(12 - (propmovetimer / 2), 2);
461
        with (prop2)
462
        {
463
            x = xstart + (sin(siner / shake) * 4);
464
            y = ystart + (cos(siner / shake) * 4);
465
        }
466
        with (prop2text)
467
        {
468
            x = xstart - (sin(siner / shake) * 4);
469
            y = ystart - (cos(siner / shake) * 4);
470
        }
471
    }
472
    var throwtime = 24;
473
    if (propmovetimer == (movetime - throwtime))
474
    {
475
        with (
scr_marker_ext
scr_marker_ext

function
scr_marker_ext(arg0, arg1, arg2, arg3 = 1, arg4 = 1, arg5 = 0, arg6 = 0, arg7 = 16777215, arg8 = depth, arg9 = false, arg10 = -1, arg11 = 1)
{ var thismarker = instance_create(arg0, arg1, obj_marker); with (thismarker) { depth = arg8; sprite_index = arg2; image_speed = arg5; image_xscale = arg3; image_yscale = arg4; image_index = arg6; image_blend = arg7; image_alpha = arg11; if (arg9)
scr_depth_alt();
} if (arg10 > 0)
scr_doom(thismarker, arg10);
return thismarker; } function scr_marker_fromasset(arg0, arg1 = depth, arg2 = false) { if (is_undefined(arg0)) { debug_message("Warning: scr_marker_fromasset() sprite_instance didn't exist"); return -4; } var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var imagespeed = layer_sprite_get_speed(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var thismarker = instance_create_depth(xloc, yloc, arg1, obj_marker); with (thismarker) { sprite_index = sprite; image_index = index; image_speed = imagespeed; image_xscale = xscale; image_yscale = yscale; image_angle = angle; image_blend = blend; image_alpha = alpha; if (arg2)
scr_depth_alt(id, arg2);
} return thismarker; } function scr_assetgetinfo(arg0) { var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var imagespeed = layer_sprite_get_speed(arg0); return [sprite, index, xloc, yloc, xscale, yscale, angle, blend, alpha, imagespeed]; }
(camerax() - 32, cameray() + 240, spr_gerson_hammer_trowable3, -2, 2, 0, 0, c_gray, 500))
476
        {
477
            
scr_jump_to_point
scr_jump_to_point

function
scr_jump_to_point(arg0, arg1, arg2, arg3, arg4 = 0)
{ var ___jump =
scr_jump_to_point_sprite(arg0, arg1, arg2, arg3, 0, 0);
with (___jump) { trackalpha = arg4; trackblend = arg4; trackindex = arg4; tracksprite = arg4; trackangle = arg4; } return ___jump; }
(other.cutcentx, other.cutcenty, 24, throwtime, true);
478
            
scr_lerpvar
scr_lerpvar

function
scr_lerpvar()
{ if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
return ___lerpvar; } function scr_lerpvar_respect() { if (argument_count < 6) ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3]);
else ___lerpvar =
scr_lerpvar_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
___lerpvar.respectglobalinteract = true; return ___lerpvar; }
("image_angle", 0, -359, throwtime);
479
            
scr_doom
scr_doom

function
scr_doom(arg0 = id, arg1)
{ with (instance_create_depth(0, 0, 0, obj_doom)) { alarm[0] target = arg0; persistent = arg0.persistent; } }
(id, throwtime + 1);
480
        }
481
    }
482
    if (propmovetimer == movetime)
483
    {
484
        snd_stop(snd_dtrans_heavypassing);
485
        snd_stop(snd_motor_ghost);
486
        
c_waitcustom_end
c_waitcustom_end

function
c_waitcustom_end()
{ with (obj_cutscene_master) { cs_wait_custom = 0; waiting = 0; } }
();
487
        prop2text.x = room_width * 2;
488
        prop2.destroy = true;
489
        prop2.breakdelay = 45;
490
        var _count = array_length(moveprops);
491
        for (var i = 0; i < _count; i++)
492
        {
493
            with (moveprops[i])
494
            {
495
                var delay = (i + 1) * 2;
496
                scr_delay_var("destroy", 1, delay);
497
                snd_play_delay(snd_break1, delay, 0.9 - (i / (_count * 8)), 0.95);
498
                breakdelay = other.prop2.breakdelay - delay;
499
            }
500
        }
501
    }
502
}
503
if (crackglass == 1)
504
{
505
    gltimer++;
506
    var delaytime = 20;
507
    if (gltimer == 1)
508
    {
509
        var killer = -4;
510
        with (obj_genmarker)
511
        {
512
            if (extflag == "breakableglass")
513
                killer = id;
514
        }
515
        for (var i = 0; i < array_length(glass); i++)
516
        {
517
            with (glass[i])
518
            {
519
                if (place_meeting(x, y, killer))
520
                    array_push(other.shatter, id);
521
            }
522
        }
523
        for (var i = 0; i < array_length(shatter); i++)
524
        {
525
            var spr = 1252;
526
            with (shatter[i])
527
            {
528
                for (var j = 0; j < sprite_get_number(spr); j++)
529
                {
530
                    with (
scr_marker_ext
scr_marker_ext

function
scr_marker_ext(arg0, arg1, arg2, arg3 = 1, arg4 = 1, arg5 = 0, arg6 = 0, arg7 = 16777215, arg8 = depth, arg9 = false, arg10 = -1, arg11 = 1)
{ var thismarker = instance_create(arg0, arg1, obj_marker); with (thismarker) { depth = arg8; sprite_index = arg2; image_speed = arg5; image_xscale = arg3; image_yscale = arg4; image_index = arg6; image_blend = arg7; image_alpha = arg11; if (arg9)
scr_depth_alt();
} if (arg10 > 0)
scr_doom(thismarker, arg10);
return thismarker; } function scr_marker_fromasset(arg0, arg1 = depth, arg2 = false) { if (is_undefined(arg0)) { debug_message("Warning: scr_marker_fromasset() sprite_instance didn't exist"); return -4; } var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var imagespeed = layer_sprite_get_speed(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var thismarker = instance_create_depth(xloc, yloc, arg1, obj_marker); with (thismarker) { sprite_index = sprite; image_index = index; image_speed = imagespeed; image_xscale = xscale; image_yscale = yscale; image_angle = angle; image_blend = blend; image_alpha = alpha; if (arg2)
scr_depth_alt(id, arg2);
} return thismarker; } function scr_assetgetinfo(arg0) { var sprite = layer_sprite_get_sprite(arg0); var index = layer_sprite_get_index(arg0); var xloc = layer_sprite_get_x(arg0); var yloc = layer_sprite_get_y(arg0); var xscale = layer_sprite_get_xscale(arg0); var yscale = layer_sprite_get_yscale(arg0); var angle = layer_sprite_get_angle(arg0); var blend = layer_sprite_get_blend(arg0); var alpha = layer_sprite_get_alpha(arg0); var imagespeed = layer_sprite_get_speed(arg0); return [sprite, index, xloc, yloc, xscale, yscale, angle, blend, alpha, imagespeed]; }
(x + choose(2, -2), y + choose(2, -2), spr, 2, 2, undefined, j, undefined, depth))
531
                    {
532
                        direction = random(360);
533
                        scr_delay_var("gravity", 0.5 + random(0.1), delaytime);
534
                        scr_delay_var("friction", 0, delaytime);
535
                        scr_delay_var("speed", 2, delaytime);
536
                        
scr_doom
scr_doom

function
scr_doom(arg0 = id, arg1)
{ with (instance_create_depth(0, 0, 0, obj_doom)) { alarm[0] target = arg0; persistent = arg0.persistent; } }
(id, 120);
537
                    }
538
                }
539
                instance_destroy();
540
            }
541
        }
542
        var snd = snd_play_complex(0, 0, undefined);
543
        snd_add_complex(snd, 0, 236, 0.6, 0.4, (delaytime - 1) + 2, -1, 0);
544
        snd_add_complex(snd, 1, 390, 0.8, 0.5, (delaytime - 1) + 0, -1, 0);
545
        snd_add_complex(snd, 2, 390, 0.71, 0.5, (delaytime - 1) + 0, -1, 0);
546
        snd_add_complex(snd, 3, 269, 0.7, 0.95, (delaytime - 1) + 0, -1, 0);
547
        snd_add_complex(snd, 4, 321, 1, 0.95, 0, -1, 0);
548
    }
549
    if (gltimer == delaytime)
550
        
c_waitcustom_end
c_waitcustom_end

function
c_waitcustom_end()
{ with (obj_cutscene_master) { cs_wait_custom = 0; waiting = 0; } }
();
551
}