Deltarune (Chapter 5) script viewer

if (global.monster[myself] == 1)

{

    if (
scr_isphase
scr_isphase

function 
scr_isphase(arg0)
{
    __isphase = 0;
    if (arg0 == "menu" && global.myfight == 0)
        __isphase = 1;
    if (arg0 == "acting" && global.myfight == 3)
        __isphase = 1;
    if (arg0 == "victory" && global.myfight == 7)
        __isphase = 1;
    if (arg0 == "attack" || arg0 == "fight")
    {
        if (global.myfight == 1)
            __isphase = 1;
    }
    if (arg0 == "spell" || arg0 == "item")
    {
        if (global.myfight == 4)
            __isphase = 1;
    }
    if (arg0 == "enemytalk" || arg0 == "balloon")
    {
        if (global.mnfight == 1)
            __isphase = 1;
    }
    if (arg0 == "enemyattack" || arg0 == "bullets")
    {
        if (global.mnfight == 2)
            __isphase = 1;
    }
    return __isphase;
}
("enemytalk") && talked == 0)

    {

        
scr_randomtarget
scr_randomtarget

function 
scr_randomtarget()
{
    abletotarget = 1;
    if (global.charcantarget[0] == 0 && global.charcantarget[1] == 0 && global.charcantarget[2] == 0)
        abletotarget = 0;
    mytarget = choose(0, 1, 2);
    if (abletotarget == 1)
    {
        while (global.charcantarget[mytarget] == 0)
            mytarget = choose(0, 1, 2);
    }
    else
    {
        mytarget = 3;
    }
    global.targeted[mytarget] = 1;
    if (global.chapter >= 2 && mytarget != 3)
    {
        if (global.charcantarget[0])
            global.targeted[0] = 1;
        if (global.charcantarget[1])
            global.targeted[1] = 1;
        if (global.charcantarget[2])
            global.targeted[2] = 1;
        mytarget = 4;
    }
}
();

        setbattlemsg = false;

        myattackchoice = 0;

        if (!instance_exists(obj_darkener))

            instance_create(0, 0, obj_darkener);

        global.typer = 50;

        rr = choose(0, 1, 2);

        if (global.flag[1750] == 0)

        {

            msgsetloc(0, 
PROTECT
...Delay 11 KING
"PROTECT&..^1. KING", "obj_terracota_enemy_slash_Step_0_gml_17_0"
);

            global.flag[1750] = 1;

        }

        else

        {

            if (rr == 0)

                msgsetloc(0, 
GOLDHAIR
GIVE WATER
...Delay 11 FRAIND
"GOLDHAIR&GIVE WATER&..^1. FRAIND", "obj_terracota_enemy_slash_Step_0_gml_22_0"
);

            if (rr == 1)

                msgsetloc(0, 
HUMAN...
DIGGING
...Delay 11 
NO GOOD
"HUMAN...&DIGGING&..^1. &NO GOOD", "obj_terracota_enemy_slash_Step_0_gml_23_0"
);

            if (rr == 2)

                msgsetloc(0, 
LITTLE
DIRT
NEVER
HURT
"LITTLE&DIRT&NEVER&HURT", "obj_terracota_enemy_slash_Step_0_gml_24_0"
);

        }

        
scr_enemyblcon
scr_enemyblcon

function 
scr_enemyblcon(arg0, arg1, arg2)
{
    if (arg2 == 0)
    {
        mywriter = instance_create(arg0, arg1, obj_writer);
        return mywriter;
    }
    if (arg2 == 1)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        return myblcon;
    }
    if (arg2 == 2)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_v;
        return myblcon;
    }
    if (arg2 == 3)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        return myblcon;
    }
    if (arg2 == 4)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        myblcon.image_index = 0;
        myblcon.image_speed = 0;
        return myblcon;
    }
    if (arg2 == 5)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        myblcon.image_index = 1;
        myblcon.image_speed = 0;
        return myblcon;
    }
    if (arg2 == 6)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_clubs;
        myblcon.image_index = 2;
        myblcon.image_speed = 0;
        return myblcon;
    }
    if (arg2 == 7)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long_r;
        myblcon.image_index = 2;
        myblcon.image_speed = 0;
        return myblcon;
    }
    if (arg2 == 8)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long_tall;
        return myblcon;
    }
    if (arg2 == 10)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        myblcon.auto_length = 1;
        return myblcon;
    }
    if (arg2 == 11)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_v2_left;
        return myblcon;
    }
    if (arg2 == 12)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_v2_right;
        return myblcon;
    }
    if (arg2 == 13)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        myblcon.auto_length = 1;
        myblcon.side = 2;
        return myblcon;
    }
    if (arg2 == 14)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
        myblcon.auto_length = 1;
        myblcon.side = -1;
        return myblcon;
    }
    if (arg2 == 15)
    {
        myblcon = instance_create(arg0, arg1, obj_battleblcon);
        myblcon.sprite_index = spr_battleblcon_long;
...
(x - 20, y + 80, 10);

        talked = 1;

        talktimer = 0;

        rtimer = 0;

    }

    if (talked == 1 && 
scr_isphase
scr_isphase

function 
scr_isphase(arg0)
{
    __isphase = 0;
    if (arg0 == "menu" && global.myfight == 0)
        __isphase = 1;
    if (arg0 == "acting" && global.myfight == 3)
        __isphase = 1;
    if (arg0 == "victory" && global.myfight == 7)
        __isphase = 1;
    if (arg0 == "attack" || arg0 == "fight")
    {
        if (global.myfight == 1)
            __isphase = 1;
    }
    if (arg0 == "spell" || arg0 == "item")
    {
        if (global.myfight == 4)
            __isphase = 1;
    }
    if (arg0 == "enemytalk" || arg0 == "balloon")
    {
        if (global.mnfight == 1)
            __isphase = 1;
    }
    if (arg0 == "enemyattack" || arg0 == "bullets")
    {
        if (global.mnfight == 2)
            __isphase = 1;
    }
    return __isphase;
}
("enemytalk"))

        
scr_blconskip
scr_blconskip

function 
scr_blconskip(arg0)
{
    if (arg0 >= 0)
    {
        if (button1_p() && talktimer > arg0)
            talktimer = talkmax;
        talktimer++;
        if (talktimer >= talkmax)
        {
            with (obj_writer)
                instance_destroy();
            if (i_ex(obj_balloon_queue))
                msgset_fromqueue();
            else
                global.mnfight = 1.5;
        }
    }
    else if (arg0 == -1)
    {
        if (!instance_exists(obj_writer))
        {
            if (i_ex(obj_balloon_queue))
                msgset_fromqueue();
            else
                global.mnfight = 1.5;
        }
    }
    else if (arg0 == -2)
    {
        talktimer++;
        if (talktimer > 15)
            talktimer = talkmax;
        if (talktimer >= talkmax)
        {
            with (obj_writer)
                instance_destroy();
            if (i_ex(obj_balloon_queue))
                msgset_fromqueue();
            else
                global.mnfight = 1.5;
        }
    }
}
(15);

    if (global.mnfight == 1.5)

    {

        if (!instance_exists(obj_growtangle))

            instance_create(__view_get(e__VW.XView, 0) + 320, __view_get(e__VW.YView, 0) + 170, obj_growtangle);

        if (!instance_exists(obj_moveheart))

            
scr_moveheart
scr_moveheart

function 
scr_moveheart()
{
    global.inv = 0;
    return instance_create(obj_herokris.x + 10, obj_herokris.y + 40, obj_moveheart);
}
();

        global.mnfight = 2;

        
scr_turntimer
scr_turntimer

function 
scr_turntimer(arg0)
{
    if (global.turntimer < arg0)
        global.turntimer = arg0;
}
(90);

    }

    if (
scr_isphase
scr_isphase

function 
scr_isphase(arg0)
{
    __isphase = 0;
    if (arg0 == "menu" && global.myfight == 0)
        __isphase = 1;
    if (arg0 == "acting" && global.myfight == 3)
        __isphase = 1;
    if (arg0 == "victory" && global.myfight == 7)
        __isphase = 1;
    if (arg0 == "attack" || arg0 == "fight")
    {
        if (global.myfight == 1)
            __isphase = 1;
    }
    if (arg0 == "spell" || arg0 == "item")
    {
        if (global.myfight == 4)
            __isphase = 1;
    }
    if (arg0 == "enemytalk" || arg0 == "balloon")
    {
        if (global.mnfight == 1)
            __isphase = 1;
    }
    if (arg0 == "enemyattack" || arg0 == "bullets")
    {
        if (global.mnfight == 2)
            __isphase = 1;
    }
    return __isphase;
}
("bullets") && attacked == 0)

    {

        rtimer += 1;

        if (rtimer == 12)

        {

            if (myattackchoice == 0)

            {

                global.monsterattackname[myself] = "terracota pots";

                dc = 
scr_bulletspawner
scr_bulletspawner

function 
scr_bulletspawner(arg0, arg1, arg2)
{
    __dc = instance_create(arg0, arg1, arg2);
    __dc.creator = myself;
    __dc.creatorid = id;
    __dc.target = mytarget;
    __dc.damage = global.monsterat[myself] * 5;
    return __dc;
}
(x, y, obj_dbulletcontroller);

                dc.type = 150;

                dc.special = global.flag[1916];

                if (global.flag[1916] == 0)

                    
scr_turntimer
scr_turntimer

function 
scr_turntimer(arg0)
{
    if (global.turntimer < arg0)
        global.turntimer = arg0;
}
(190);

                if (global.flag[1916] == 1)

                    
scr_turntimer
scr_turntimer

function 
scr_turntimer(arg0)
{
    if (global.turntimer < arg0)
        global.turntimer = arg0;
}
(275);

                if (global.flag[1916] == 2)

                    
scr_turntimer
scr_turntimer

function 
scr_turntimer(arg0)
{
    if (global.turntimer < arg0)
        global.turntimer = arg0;
}
(245);

                if (global.flag[1916] == 3)

                    
scr_turntimer
scr_turntimer

function 
scr_turntimer(arg0)
{
    if (global.turntimer < arg0)
        global.turntimer = arg0;
}
(365);

                global.flag[1916]++;

                if (global.flag[1916] > 3)

                    global.flag[1916] = 3;

            }

            if (wateringcan)

            {

                inst = instance_create(x, y, obj_terracota_wateringcan);

                if (slowercan)

                    inst.slower = true;

                slowercan = false;

                wateringcan = false;

            }

            turns += 1;

            attacked = 1;

        }

    }

    if (global.mnfight == 2 && global.turntimer <= 2 && bonsaicon == 1)

    {

        msgsetloc(0, 
* The enemy bloomed!
"* The enemy bloomed!", "obj_terracota_enemy_slash_Step_0_gml_82_0"
);

        
scr_battletext_default
scr_battletext_default

function 
scr_battletext_default()
{
    global.fc = 0;
    global.typer = 4;
    
scr_battletext();
    return battlewriter;
}
();

        snd_stop(snd_bell_bounce_short);

        with (obj_pine_tree_telegraph)

            instance_destroy();

        if (i_ex(obj_growtangle))

        {

            snd_play_x(snd_ghostappear, 1, 1.1);

            bg = instance_create(obj_growtangle.x - 74, obj_growtangle.y - 74, obj_marker);

            bg.sprite_index = spr_terracota_bg;

            bg.image_xscale = 2;

            bg.image_yscale = 2;

            bg.image_alpha = 0;

            bg.depth = obj_growtangle.depth - 1;

            with (bg)

                
scr_lerpvar
scr_lerpvar

function 
scr_lerpvar()
{
    var _id = self;
    if (!is_struct(self))
        _id = id;
    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_lerpcol()
{
    if (argument_count < 6)
        ___lerpvar = scr_lerpcol_instance(id, argument[0], argument[1], argument[2], argument[3]);
    else
        ___lerpvar = scr_lerpcol_instance(id, argument[0], argument[1], argument[2], argument[3], argument[4], argument[5]);
    return ___lerpvar;
}
("image_alpha", 0, 1, 6);

        }

        global.turntimer = 90;

        bonsaicon = 2;

        bonsaitimer = 0;

        headballooncon = 1;

    }

    if (global.mnfight == 2 && global.turntimer <= 1)

    {

        if (setbattlemsg == false)

        {

            global.typer = 6;

            global.fc = 0;

            rr = choose(0, 1, 2, 3);

            if (
scr_messagepriority
scr_messagepriority

function 
scr_messagepriority(arg0)
{
    if (i_ex(obj_battlecontroller))
    {
        if (obj_battlecontroller.messagepriority < arg0)
        {
            obj_battlecontroller.messagepriority = arg0;
            return true;
        }
        else
        {
            return false;
        }
    }
    else
    {
        return false;
    }
}
(random(2)))

            {

                var substring = string(myself);

                if (rr == 0)

                    global.battlemsg[0] = stringsetsubloc(
* Terakota thunders with each step.
"* Terakota thunders with each step.", "obj_terracota_enemy_slash_Step_0_gml_183_0"
);

                if (rr == 1)

                    global.battlemsg[0] = stringsetsubloc(
* Terakota offers a battle prayer to the Great Pumpkin.
"* Terakota offers a battle prayer to the Great Pumpkin.", "obj_terracota_enemy_slash_Step_0_gml_184_0"
);

                if (rr == 2)

                    global.battlemsg[0] = stringsetsubloc(
* Terakota attempts to dig bedrock.
"* Terakota attempts to dig bedrock.", "obj_terracota_enemy_slash_Step_0_gml_185_0"
);

                if (rr == 3)

                    global.battlemsg[0] = stringsetsubloc(
* Birds (from the song Weird Birds) land on Terakota peacefully.
"* Birds (from the song Weird Birds) land on Terakota peacefully.", "obj_terracota_enemy_slash_Step_0_gml_186_0"
);

                if (irandom(100) < 3)

                    global.battlemsg[0] = stringsetsubloc(
* Smells like fresh soil.
"* Smells like fresh soil.", "obj_terracota_enemy_slash_Step_0_gml_187_0"
);

            }

            if (global.monsterstatus[myself] == 1)

            {

                if (
scr_messagepriority
scr_messagepriority

function 
scr_messagepriority(arg0)
{
    if (i_ex(obj_battlecontroller))
    {
        if (obj_battlecontroller.messagepriority < arg0)
        {
            obj_battlecontroller.messagepriority = arg0;
            return true;
        }
        else
        {
            return false;
        }
    }
    else
    {
        return false;
    }
}
(100))

                    global.battlemsg[0] = stringsetloc(
* Terakota's eyes (?) blink slowly.
"* Terakota's eyes (?) blink slowly.", "obj_terracota_enemy_slash_Step_0_gml_198_0"
);

            }

            if (global.monsterhp[myself] <= (global.monstermaxhp[myself] / 4))

            {

                if (
scr_messagepriority
scr_messagepriority

function 
scr_messagepriority(arg0)
{
    if (i_ex(obj_battlecontroller))
    {
        if (obj_battlecontroller.messagepriority < arg0)
        {
            obj_battlecontroller.messagepriority = arg0;
            return true;
        }
        else
        {
            return false;
        }
    }
    else
    {
        return false;
    }
}
(101))

                {

                    var substring = string(myself);

                    global.battlemsg[0] = stringsetloc(
* Terakota's armor pH is out of wack.
"* Terakota's armor pH is out of wack.", "obj_terracota_enemy_slash_Step_0_gml_193_0"
);

                }

            }

            setbattlemsg = true;

            attackalreadyseenbyplayer = true;

        }

    }

}

if (bonsaicon == 2)

{

    with (obj_terracota_leaf_bullet)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_leaf_bullet2)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_flower_bullet)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_split_flower_bullet)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_wateringcan_bullet)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_pine_bullet)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.1;

        if (image_alpha <= 0)

            instance_destroy();

    }

    with (obj_terracota_wateringcan)

    {

        mask_index = spr_nothing;

        image_alpha -= 0.2;

        if (image_alpha <= 0)

            instance_destroy();

        timer = 0;

    }

}

if (global.myfight == 3)

{

    xx = __view_get(e__VW.XView, 0);

    yy = __view_get(e__VW.YView, 0);

    if (acting == 1 && actcon == 0)

    {

        actcon = 1;

        msgsetloc(0, 
* TERAKOTA - A thick exterior.Delay 11 But it's what's inside that counts.Wait for inputClose Message
"* TERAKOTA - A thick exterior^1. But it's what's inside that counts./%", "obj_terracota_enemy_slash_Step_0_gml_219_0"
);

        
scr_battletext_default
scr_battletext_default

function 
scr_battletext_default()
{
    global.fc = 0;
    global.typer = 4;
    
scr_battletext();
    return battlewriter;
}
();

    }

    if (acting == 2 && actcon == 0)

        acting = 1.1;

    if (acting == 3 && actcon == 0)

    {

        acting = 1.1;

        slowercan = true;

    }

    if (acting == 1.1)

    {

        msgsetloc(0, 
* Use watering can droplets to turn all pots green!Wait for inputClose Message
"* Use watering can droplets to turn all pots green!/%", "obj_terracota_enemy_slash_Step_0_gml_236_0"
);

        
scr_battletext_default
scr_battletext_default

function 
scr_battletext_default()
{
    global.fc = 0;
    global.typer = 4;
    
scr_battletext();
    return battlewriter;
}
();

        wateringcan = true;

        acting = 0;

        actcon = 1;

    }

    if (actingsus == 1 && actconsus == 1)

    {

        var _rand = choose(0, 1, 2);

        if (_rand == 0)

            msgsetloc(0, 
* Susie ate dirt unharmed!
"* Susie ate dirt unharmed!", "obj_terracota_enemy_slash_Step_0_gml_246_0"
);

        if (_rand == 1)

            msgsetloc(0, 
* Susie lifted pots!
"* Susie lifted pots!", "obj_terracota_enemy_slash_Step_0_gml_247_0"
);

        if (_rand == 2)

            msgsetloc(0, 
* Susie lifted weeds!
"* Susie lifted weeds!", "obj_terracota_enemy_slash_Step_0_gml_248_0"
);

        
scr_mercyadd
scr_mercyadd

function 
scr_mercyadd(arg0, arg1)
{
    global.mercymod[arg0] += arg1;
    if (global.mercymod[arg0] < 0)
        global.mercymod[arg0] = 0;
    if (global.mercymod[arg0] >= 100)
        global.mercymod[arg0] = 100;
    var _playsound = 1;
    if (arg1 <= 0)
        _playsound = 0;
    with (obj_dmgwriter)
    {
        if (type == 5 && mercytimer < 8)
            _playsound = 0;
    }
    if (_playsound)
    {
        var _pitch = 0.8;
        if (arg1 < 99)
            _pitch = 1;
        if (arg1 <= 50)
            _pitch = 1.2;
        if (arg1 <= 25)
            _pitch = 1.4;
        snd_play_x(snd_mercyadd, 0.8, _pitch);
    }
    __mercydmgwriter = instance_create(global.monsterx[arg0], (global.monstery[arg0] + 20) - (global.hittarget[arg0] * 20), obj_dmgwriter);
    __mercydmgwriter.damage = arg1;
    __mercydmgwriter.type = 5;
    global.hittarget[arg0]++;
    return __mercydmgwriter;
}
(myself, 18);

        
scr_simultext
scr_simultext

function 
scr_simultext(arg0)
{
    __simulorder = 0;
    if (arg0 == "kris")
        __simulorder = simulorderkri;
    if (arg0 == "susie")
        __simulorder = simulordersus;
    if (arg0 == "ralsei")
        __simulorder = simulorderral;
    if (arg0 == "noelle")
        __simulorder = simulordernoe;
    __yoffset = __simulorder * 30;
    global.typer = 4;
    battlewriter = instance_create(xx + 30, yy + 376 + __yoffset, obj_writer);
}
("susie");

        if (simulordersus == 0)

            actconsus = 20;

        else

            actconsus = 0;

        global.flag[1888] = 1;

    }

    if (actingral == 1 && actconral == 1)

    {

        var _rand = choose(0, 1, 2);

        if (_rand == 0)

            msgsetloc(0, 
* Ralsei alters soil pH!
"* Ralsei alters soil pH!", "obj_terracota_enemy_slash_Step_0_gml_258_0"
);

        if (_rand == 1)

            msgsetloc(0, 
* Ralsei does the worm!
"* Ralsei does the worm!", "obj_terracota_enemy_slash_Step_0_gml_259_0"
);

        if (_rand == 2)

            msgsetloc(0, 
* Ralsei acts stone!
"* Ralsei acts stone!", "obj_terracota_enemy_slash_Step_0_gml_260_0"
);

        
scr_mercyadd
scr_mercyadd

function 
scr_mercyadd(arg0, arg1)
{
    global.mercymod[arg0] += arg1;
    if (global.mercymod[arg0] < 0)
        global.mercymod[arg0] = 0;
    if (global.mercymod[arg0] >= 100)
        global.mercymod[arg0] = 100;
    var _playsound = 1;
    if (arg1 <= 0)
        _playsound = 0;
    with (obj_dmgwriter)
    {
        if (type == 5 && mercytimer < 8)
            _playsound = 0;
    }
    if (_playsound)
    {
        var _pitch = 0.8;
        if (arg1 < 99)
            _pitch = 1;
        if (arg1 <= 50)
            _pitch = 1.2;
        if (arg1 <= 25)
            _pitch = 1.4;
        snd_play_x(snd_mercyadd, 0.8, _pitch);
    }
    __mercydmgwriter = instance_create(global.monsterx[arg0], (global.monstery[arg0] + 20) - (global.hittarget[arg0] * 20), obj_dmgwriter);
    __mercydmgwriter.damage = arg1;
    __mercydmgwriter.type = 5;
    global.hittarget[arg0]++;
    return __mercydmgwriter;
}
(myself, 18);

        
scr_simultext
scr_simultext

function 
scr_simultext(arg0)
{
    __simulorder = 0;
    if (arg0 == "kris")
        __simulorder = simulorderkri;
    if (arg0 == "susie")
        __simulorder = simulordersus;
    if (arg0 == "ralsei")
        __simulorder = simulorderral;
    if (arg0 == "noelle")
        __simulorder = simulordernoe;
    __yoffset = __simulorder * 30;
    global.typer = 4;
    battlewriter = instance_create(xx + 30, yy + 376 + __yoffset, obj_writer);
}
("ralsei");

        if (simulorderral == 0)

            actconral = 20;

        else

            actconral = 0;

        global.flag[1888] = 1;

    }

    if (actcon == 20 || actconsus == 20 || actconral == 20)

    {

        if (
scr_terminate_writer
scr_terminate_writer

function 
scr_terminate_writer()
{
    __writerkilled = 0;
    __writerkillable = 0;
    __writerended = 0;
    if (instance_exists(obj_writer))
    {
        obj_writer.__endcheckid = id;
        with (obj_writer)
        {
            if (reachedend == 1)
            {
                with (__endcheckid)
                    __writerended++;
            }
        }
        if (__writerended == instance_number(obj_writer))
            __writerkillable = 1;
    }
    else
    {
        __writerkilled = 1;
    }
    if (button1_p() && __writerkillable == 1)
    {
        with (obj_writer)
            instance_destroy();
        __writerkilled = 1;
    }
    return __writerkilled;
}
())

        {

            actconsus = -1;

            actconral = -1;

            actcon = 1;

        }

    }

    if (actcon == 1 && !instance_exists(obj_writer))

        
scr_nextact
scr_nextact

function 
scr_nextact()
{
    global.acting[0] = 0;
    global.acting[1] = 0;
    global.acting[2] = 0;
    global.actingsingle[global.currentactingchar] = 0;
    __minstance = global.monsterinstance[global.actingtarget[global.currentactingchar]];
    with (__minstance)
    {
        acting = 0;
        actcon = 0;
        actconsus = 0;
        actconral = 0;
        actconnoe = 0;
    }
    var singleactcomplete = 0;
    while (global.currentactingchar < 3)
    {
        global.currentactingchar++;
        if (global.currentactingchar < 3)
        {
            if (global.actingsingle[global.currentactingchar] == 1)
            {
                __minstance = global.monsterinstance[global.actingtarget[global.currentactingchar]];
                if (global.char[global.currentactingchar] == 2)
                {
                    with (__minstance)
                        actconsus = 1;
                    if (global.actingsimul[global.currentactingchar] == 0)
                        singleactcomplete = 1;
                    break;
                }
                if (global.char[global.currentactingchar] == 3)
                {
                    with (__minstance)
                        actconral = 1;
                    if (global.actingsimul[global.currentactingchar] == 0)
                        singleactcomplete = 1;
                    break;
                }
                if (global.char[global.currentactingchar] == 4)
                {
                    with (__minstance)
                        actconnoe = 1;
                    if (global.actingsimul[global.currentactingchar] == 0)
                        singleactcomplete = 1;
                    break;
                }
            }
        }
    }
    if (global.currentactingchar >= 3)
    {
        with (obj_monsterparent)
        {
            acting = 0;
            actingsus = 0;
            actingral = 0;
            actingnoe = 0;
        }
        global.currentactingchar = 0;
        
scr_attackphase();
    }
    else if (!singleactcomplete)
    {
        
scr_act_simul();
    }
}
();

}

if (state == 3)

{

    
scr_enemyhurt_tired_after_damage
scr_enemyhurt_tired_after_damage

function 
scr_enemyhurt_tired_after_damage(arg0)
{
    if (global.monsterhp[myself] <= (global.monstermaxhp[myself] * arg0))
        
scr_monster_make_tired(myself);
}
(0.5);

    
scr_enemy_hurt
scr_enemy_hurt

function 
scr_enemy_hurt()
{
    hurttimer -= 1;
    if (hurttimer < 0)
    {
        state = 0;
    }
    else
    {
        if (global.monster[myself] == 0)
            
scr_defeatrun();
        hurtshake += 1;
        if (hurtshake > 1)
        {
            if (shakex > 0)
                shakex -= 1;
            if (shakex < 0)
                shakex += 1;
            shakex = -shakex;
            hurtshake = 0;
        }
    }
}
();

}

enum e__VW

{

    XView,

    YView,

    WView,

    HView,

    Angle,

    HBorder,

    VBorder,

    HSpeed,

    VSpeed,

    Object,

    Visible,

    XPort,

    YPort,

    WPort,

    HPort,

    Camera,

    SurfaceID

}