draw_set_alpha(1);
if (type == 2 && i_ex(mywriter))
    mywriter.special = 5;
if (i_ex(mywriter))
{
    if (global.chapter == 5 && i_ex(obj_date_controller) && obj_date_controller.con == 0)
        depth = obj_date_controller.depth + 10;
    mywriter.depth = depth - 5;
    if (global.chapter == 5 && i_ex(obj_pink_enemy))
        mywriter.depth = depth - 1;
    if (remmsgno != obj_writer.msgno)
        reformatted = 0;
    if (auto_length == 0)
    {
        init = 1;
        reformatted = 1;
    }
    if (reformatted == 0)
    {
        if (mywriter.formatted == 0)
        {
            with (mywriter)
                event_user(5);
        }
        if (mywriter.formatted == 1)
        {
            if (init == 0)
            {
                initwritingx = mywriter.writingx;
                initwritingy = mywriter.writingy;
                init = 1;
            }
            writingx = mywriter.writingx;
            writingy = mywriter.writingy;
            stringmax = mywriter.stringmax;
            hspace = mywriter.hspace;
            vspace = mywriter.vspace;
            linecount = mywriter.linecount;
            balloonwidth = (stringmax * hspace) + 10;
            balloonheight = ((linecount + 1) * vspace) + 5;
            if (global.lang == "ja")
            {
                var checkstring = mywriter.mystring;
                var spacing = mywriter.hspace;
                var stringlength = string_length(checkstring);
                var newmaxlength = 0;
                var currentlength = 0;
                for (var ii = 1; ii < (stringlength + 1); ii += 1)
                {
                    var mychar = string_char_at(checkstring, ii);
                    if (mychar == "&" || mychar == "\n")
                    {
                        currentlength = 0;
                    }
                    else if (mychar == "^" || mychar == "*")
                    {
                        ii++;
                    }
                    else if (mychar == "\\")
                    {
                        ii += 2;
                    }
                    else if (mychar == "/" || mychar == "%")
                    {
                    }
                    else if (ord(mychar) < 256 || (ord(mychar) >= 65377 && ord(mychar) <= 65439))
                    {
                        currentlength += (spacing * 0.5);
                    }
                    else
                    {
                        currentlength += spacing;
                    }
                    if (currentlength >= newmaxlength)
                        newmaxlength = currentlength;
                }
                balloonwidth = newmaxlength + 10;
            }
            if (side == 1)
            {
                mywriter.writingx = initwritingx - (balloonwidth + 20);
                mywriter.writingy = initwritingy - (balloonheight / 2);
                writingx = initwritingx - (balloonwidth + 20);
                writingy = initwritingy - (balloonheight / 2);
            }
            if (side == -1)
            {
                xoffset = 20;
                mywriter.writingx = initwritingx;
                mywriter.writingy = initwritingy - (balloonheight / 2);
                writingx = initwritingx;
                writingy = initwritingy - (balloonheight / 2);
            }
            if (side == 2)
            {
                mywriter.writingx = initwritingx - (balloonwidth / 2);
                mywriter.writingy = initwritingy - (balloonheight + 20);
                writingx = initwritingx - (balloonwidth / 2);
                writingy = initwritingy - (balloonheight + 20);
            }
            if (side == 3 || side == 4)
            {
                mywriter.writingx = initwritingx - (balloonwidth / 2);
                mywriter.writingy = initwritingy;
                writingx = initwritingx - (balloonwidth / 2);
                writingy = initwritingy;
            }
        }
    }
    var __x = 0;
    if (global.chapter == 5 && i_ex(obj_pink_enemy) && obj_pink_enemy.idlesprite == spr_mew_pushing)
        __x = sin(obj_pink_enemy.siner * 1) * 5;
    var __y = 0;
    if (global.chapter == 5 && i_ex(obj_flowery_enemy) && sprite_index == spr_battleblcon_long && auto_length == 1 && side == -1)
    {
        __y = sin(obj_flowery_enemy.susieflower.sintimer * 0.1) * 6;
        if (global.typer == 74)
            __y = sin(obj_flowery_enemy.ralseiflower.sintimer * 0.1) * 6;
    }
    if (flowery_float == true)
        __y = sin(obj_flowery_enemy.float_siner * 0.33) * 5;
    if (flowery_aqua_float == true)
        __y = sin(obj_flowery_enemy.float_siner * 0.5) * 8;
    if (targetaqua != -4)
    {
        __x = targetaqua.x;
        __y = targetaqua.y;
    }
    if (auto_length == 0)
    {
        var _len = 110;
        if (dir > 0)
        {
            __x = lengthdir_x(_len * 0.25, dir);
            __y = lengthdir_y(_len, dir);
            dir += 6;
            with (mywriter)
                pinkballoonid = other.id;
            if (dir < 300)
            {
                x -= 2;
                extrax -= 2;
            }
        }
        if (shakecon == 1)
        {
            __x = -2 + irandom(4);
            __y = -2 + irandom(4);
            extrax = __x;
            extray = __y;
        }
        writingx = mywriter.writingx;
        writingy = mywriter.writingy;
        stringmax = mywriter.stringmax;
        hspace = mywriter.hspace;
        vspace = mywriter.vspace;
        linecount = mywriter.linecount;
        balloonwidth = (stringmax * hspace) + 10;
        balloonheight = ((linecount + 1) * vspace) + 5;
        if (sprite_index == spr_pink_balloon1)
        {
            heart_random_timer++;
            if (heart_random_timer == 10)
            {
                heart_random_timer = 0;
                var __r = 1;
                repeat (8)
                {
                    heart_x_random[__r] = -3 + random(6);
                    heart_y_random[__r] = -3 + random(6);
                    __r++;
                }
            }
            var __heart_x_offset = -35;
            var __heart_y_offset = -70;
            var __hx = x + __heart_x_offset + __x;
            var __hy = y + __heart_y_offset;
            var _heart_x1 = __hx + 10 + heart_x_random[1];
            var _heart_y1 = __hy + 45 + balloonheight + 30 + heart_y_random[1];
            var _heart_x2 = __hx + 10 + heart_x_random[1];
            var _heart_y2 = __hy + 45 + heart_y_random[2];
            var _heart_x3 = 0;
            var _heart_y3 = __hy + 20 + heart_y_random[3];
            var _heart_x4 = __hx + 80 + heart_x_random[4];
            var _heart_y4 = __hy + 48;
            var _heart_x5 = 0;
            var _heart_y5 = __hy + 20 + heart_y_random[5];
            var _heart_x6 = __hx + 80 + (balloonwidth / 2) + 20 + heart_x_random[6];
            var _heart_y6 = __hy + 45 + heart_y_random[6];
            var _heart_x7 = __hx + 80 + (balloonwidth / 2) + 20 + heart_x_random[7];
            var _heart_y7 = __hy + 45 + balloonheight + 30 + heart_y_random[7];
            var _heart_x8 = __hx + 80 + heart_x_random[8];
            var _heart_y8 = __hy + 45 + balloonheight + 30 + 45 + heart_y_random[8];
            _heart_x4 = (_heart_x1 + _heart_x7) / 2;
            _heart_x3 = (_heart_x2 + _heart_x4) / 2;
            _heart_x5 = (_heart_x4 + _heart_x6) / 2;
            _heart_x8 = (_heart_x2 + _heart_x6) / 2;
            if (notail == false && dir == 0 && shakecon == 0)
                draw_sprite_ext(spr_pink_heart_tail, 0, _heart_x7 + 2, y + 120 + __heart_y_offset, 1, 1, 0, c_white, 1);
            draw_set_color(make_color_rgb(160, 27, 30));
            d_triangle(_heart_x2, _heart_y2, _heart_x3, _heart_y3, _heart_x4, _heart_y4, false);
            d_triangle(_heart_x4, _heart_y4, _heart_x5, _heart_y5, _heart_x6, _heart_y6, false);
            d_triangle(_heart_x1, _heart_y1, _heart_x2, _heart_y2, _heart_x6, _heart_y6, false);
            d_triangle(_heart_x1, _heart_y1, _heart_x6, _heart_y6, _heart_x7, _heart_y7, false);
            d_triangle(_heart_x2, _heart_y2, _heart_x4, _heart_y4, _heart_x6, _heart_y6, false);
            d_triangle(_heart_x1, _heart_y1, _heart_x7, _heart_y7, _heart_x8, _heart_y8, false);
            var _w = 3;
            draw_set_color(make_color_rgb(255, 138, 144));
            d_line_width(_heart_x1, _heart_y1, _heart_x2, _heart_y2, _w);
            d_line_width(_heart_x2, _heart_y2, _heart_x3, _heart_y3, _w);
            d_line_width(_heart_x3, _heart_y3, _heart_x4, _heart_y4, _w);
            d_line_width(_heart_x4, _heart_y4, _heart_x5, _heart_y5, _w);
            d_line_width(_heart_x5, _heart_y5, _heart_x6, _heart_y6, _w);
            d_line_width(_heart_x6, _heart_y6, _heart_x7, _heart_y7, _w);
            d_line_width(_heart_x7, _heart_y7, _heart_x8, _heart_y8, _w);
            d_line_width(_heart_x8, _heart_y8, _heart_x1, _heart_y1, _w);
            draw_set_color(c_white);
            with (mywriter)
                pinkballoonid = other.id;
        }
        else if (sprite_index == spr_pink_balloon2)
        {
            __x = -10;
            __y = 10;
            draw_sprite_ext(spr_battleblcon_parts_ghost, 0, (parentid.ghostmarker.x + __x) - 264, (parentid.ghostmarker.y + __y) - 56, 2, 2, 0, c_white, 1);
            draw_sprite_ext(spr_battleblcon_parts_ghost, 1, ((parentid.ghostmarker.x + __x) - 264) + balloonwidth, (parentid.ghostmarker.y + __y) - 56, 2, 2, 0, c_white, 1);
            draw_sprite_ext(spr_battleblcon_parts_ghost, 2, (parentid.ghostmarker.x + __x) - 264, ((parentid.ghostmarker.y + __y) - 56) + balloonheight, 2, 2, 0, c_white, 1);
            draw_sprite_ext(spr_battleblcon_parts_ghost, 3, ((parentid.ghostmarker.x + __x) - 264) + balloonwidth, ((parentid.ghostmarker.y + __y) - 56) + balloonheight, 2, 2, 0, c_white, 1);
            var __repeat = 0;
            repeat (round(balloonwidth / 24))
            {
                draw_sprite_ext(spr_battleblcon_parts_ghost, 5, ((parentid.ghostmarker.x + __x) - 242) + (24 * __repeat), ((parentid.ghostmarker.y + __y) - 56) + balloonheight, 2, 2, 0, c_white, 1);
                __repeat++;
            }
            draw_set_color(make_color_rgb(192, 174, 219));
            d_line_width((parentid.ghostmarker.x + __x) - 264, (parentid.ghostmarker.y + __y) - 40, (parentid.ghostmarker.x + __x) - 264, ((parentid.ghostmarker.y + __y) - 56) + balloonheight, 2);
            d_line_width(((parentid.ghostmarker.x + __x) - 264) + balloonwidth + 24, (parentid.ghostmarker.y + __y) - 40, ((parentid.ghostmarker.x + __x) - 264) + 24 + balloonwidth, ((parentid.ghostmarker.y + __y) - 56) + balloonheight, 2);
            d_line_width((parentid.ghostmarker.x + __x) - 240, (parentid.ghostmarker.y + __y) - 56, ((parentid.ghostmarker.x + __x) - 264) + balloonwidth, (parentid.ghostmarker.y + __y) - 56, 2);
            draw_set_color(c_white);
            draw_sprite_ext(spr_battleblcon_parts_ghost, 4, ((parentid.ghostmarker.x + __x) - 240) + balloonwidth, parentid.ghostmarker.y + __y + -56 + (balloonheight / 2), 2, 2, 0, c_white, 1);
        }
        else if (sprite_index == spr_realisticexplosion)
        {
            index++;
            draw_sprite_ext(sprite_index, index, x + 50 + __x, y + 30 + __y, 5, 2, 0, make_color_rgb(255, 181, 153), 1);
            if (index > 15)
            {
                with (mywriter)
                    instance_destroy();
                instance_destroy();
                exit;
            }
        }
        else
        {
            draw_self();
        }
    }
    if (auto_length == 1 && init == 1 && sprite_index == spr_pink_balloon2)
    {
        mywriter.xstart = __x;
        var _writingx = (parentid.ghostmarker.x + __x) - balloonwidth - 60;
        var _writingy = (parentid.ghostmarker.y + __y) - (balloonheight / 2);
        var _right_x = 0;
        var _left_x = 0;
        var _y = 0;
        __y = 0;
        var _balloonwidth_adjusted = floor(balloonwidth / 12) * 12;
        var _width_remainder = balloonwidth;
        repeat (30)
        {
            if (_width_remainder >= 12)
                _width_remainder -= 12;
        }
        var _rep = round(point_distance(_writingx + 2 + __x, (_writingy - 5) + _y + __y, ((_writingx + _balloonwidth_adjusted) - 13) + __x, (_writingy - 5) + _y + __y) / 12);
        var _iii = 0;
        repeat (_rep + 2)
        {
            draw_sprite_ext(spr_battleblcon_ghost_bottom_anim3, ghost_balloon_index, (_writingx - 11) + __x + (_iii * 12), (_writingy + 1 + balloonheight + _y + __y) - 2, 1, 1, 0, c_white, 1);
            _iii++;
            _right_x = (_writingx - 12) + __x + (_iii * 12);
            _left_x = (_writingx - 11) + __x;
        }
        ghost_balloon_index += 1;
        d_rectangle_color((_writingx - 10) + __x, (_writingy - 4) + _y + __y, _right_x - 8, ((_writingy + balloonheight) - 0) + _y + __y, 0, 0, 0, 0, false);
        d_rectangle_color((_writingx - 10) + __x, (_writingy - 0) + _y + __y, _right_x - 1, ((_writingy + balloonheight) - 0) + _y + __y, 0, 0, 0, 0, false);
        d_rectangle_color((_writingx - 10) + __x, (_writingy - 3) + _y + __y, (_writingx + balloonwidth + __x) - 14, ((_writingy + balloonheight) - 0) + _y + __y, 0, 0, 0, 0, false);
        _iii = 0;
        repeat (_rep + 2)
        {
            draw_sprite_ext(spr_battleblcon_ghost_bottom_anim3, ghost_balloon_index, (_writingx - 11) + __x + (_iii * 12), (_writingy + 1 + balloonheight + _y + __y) - 2, 1, 1, 0, c_white, 1);
            _iii++;
            _right_x = (_writingx - 12) + __x + (_iii * 12);
            _left_x = (_writingx - 11) + __x;
        }
        draw_sprite_ext(spr_battleblcon_parts_ghost, 4, _right_x, ((_writingy + (balloonheight / 2)) - 6) + _y + __y, 1, 1, 0, c_white, 1);
        draw_set_color(c_purple);
        draw_set_color(c_white);
        draw_sprite_ext(spr_battleblcon_parts_ghost2, 0, _left_x, (_writingy - 4) + _y + __y, 1, 1, 0, c_white, 1);
        draw_sprite_ext(spr_battleblcon_parts_ghost2, 1, _right_x - 12, (_writingy - 4) + _y + __y, 1, 1, 0, c_white, 1);
        var _purp_color = make_color_rgb(192, 174, 219);
        d_line_color(_left_x, _writingy + 3 + _y + __y, _left_x, (_writingy - 4) + balloonheight + _y + __y + 5, _purp_color, _purp_color);
        d_line_color(_writingx + 1 + __x, (_writingy - 5) + _y + __y, _right_x - 12, (_writingy - 5) + _y + __y, _purp_color, _purp_color);
        d_line_color(_right_x, _writingy + 5 + _y + __y, _right_x, (_writingy - 6) + (balloonheight / 2) + _y + __y, _purp_color, _purp_color);
        d_line_color(_right_x, _writingy + 6 + (balloonheight / 2) + _y + __y, _right_x, (_writingy - 4) + balloonheight + _y + __y + 5, _purp_color, _purp_color);
        if (parentid != -1)
        {
            with (mywriter)
                pinkballoonid = other.id;
            extrax = (_writingx - 10) + __x;
            extray = (_writingy - 4) + _y + __y;
        }
    }
    else if (auto_length == 1 && init == 1)
    {
        var _color = blcon_default_color;
        if (type == 1)
            _color = merge_color(c_black, c_gray, 0.1);
        blconscale = 1;
        if (balloonheight < 40)
            blconscale = 0.5;
        if (side == 1)
            draw_sprite_ext(spr_battleblcon_parts, 4, x + __x, y + __y, 1, blconscale, 0, _color, 1);
        if (side == -1)
            draw_sprite_ext(spr_battleblcon_parts, 4, (x - xoffset) + __x, y + __y, -1, blconscale, 0, _color, 1);
        if (side == 2)
            draw_sprite_ext(spr_battleblcon_parts, 4, x + __x, (y + __y) - 1, 1, 1, -90, _color, 1);
        if (side == 3)
            draw_sprite_ext(spr_battleblcon_parts, 4, (x + __x) - 40, (y - 20) + __y, 1, 1, 90, _color, 1);
        if (side == 4)
            draw_sprite_ext(spr_battleblcon_parts, 4, x + __x, (y - 20) + __y, 1, 1, 90, _color, 1);
        draw_set_color(_color);
        mywriter.xstart = __x;
        var _y = 0;
        if (global.lang == "ja")
            _y = 1;
        d_rectangle((writingx - 10) + __x, (writingy - 5) + _y + __y, writingx + balloonwidth + __x, ((writingy + balloonheight) - 5) + _y + __y, false);
        d_rectangle((writingx - 5) + __x, (writingy - 10) + _y + __y, ((writingx + balloonwidth) - 5) + __x, writingy + balloonheight + _y + __y, false);
        draw_set_color(c_white);
    }
    remmsgno = mywriter.msgno;
}
if (aquafollowballoon == true)
{
    draw_set_font(scr_84_get_font("dotumche"));
    draw_text_transformed_color(x - 24, y - 42, string(global.msg[0]), 1, 1, 0, c_black, c_black, c_black, c_black, 1);
}