function scr_makecaterpillar(arg0, arg1, arg2, arg3)
{
    global.cinstance[arg3] = instance_create(arg0, arg1, obj_caterpillarchara);
    global.cinstance[arg3].target = 12 + (arg3 * 12);
    if (arg2 == 3)
    {
        with (global.cinstance[arg3])
        {
            usprite = spr_ralseiu;
            dsprite = spr_ralseid;
            rsprite = spr_ralseir;
            lsprite = spr_ralseil;
            if (global.chapter >= 2)
            {
                name = "ralsei";
                usprite = spr_ralsei_walk_up;
                dsprite = spr_ralsei_walk_down;
                rsprite = spr_ralsei_walk_right;
                lsprite = spr_ralsei_walk_left;
                if (global.chapter == 5)
                {
                    if (scr_flag_get(1311) == 1)
                    {
                        dsprite = spr_ralseid;
                        rsprite = spr_ralseir;
                        lsprite = spr_ralseil;
                        usprite = spr_ralseiu;
                    }
                }
            }
        }
    }
    if (arg2 == 4)
    {
        with (global.cinstance[arg3])
        {
            name = "noelle";
            usprite = spr_noelle_walk_up_dw;
            dsprite = spr_noelle_walk_down_dw;
            rsprite = spr_noelle_walk_right_dw;
            lsprite = spr_noelle_walk_left_dw;
            if (global.darkzone == 0)
            {
                usprite = spr_noelle_walk_up_lw;
                dsprite = spr_noelle_walk_down_lw;
                rsprite = spr_noelle_walk_right_lw;
                lsprite = spr_noelle_walk_left_lw;
            }
        }
    }
    if (arg2 == 5)
    {
        with (global.cinstance[arg3])
        {
            name = "berdly";
            usprite = spr_berdly_walk_up_dw;
            dsprite = spr_berdly_walk_down_dw;
            rsprite = spr_berdly_walk_right_dw;
            lsprite = spr_berdly_walk_left_dw;
        }
    }
    if (arg2 == 6)
    {
        with (global.cinstance[arg3])
        {
            name = "starwalker";
            usprite = spr_npc_originalstarwalker;
            dsprite = spr_npc_originalstarwalker;
            rsprite = spr_npc_originalstarwalker;
            lsprite = spr_npc_originalstarwalker;
        }
    }
    if (arg2 == 7)
    {
        with (global.cinstance[arg3])
        {
            name = "flowery";
            usprite = spr_flowery_walk_up;
            dsprite = spr_flowery_walk_down;
            rsprite = spr_flowery_walk_right;
            lsprite = spr_flowery_walk_left;
        }
    }
    if (arg2 == 8)
    {
        with (global.cinstance[arg3])
        {
            name = "aqua";
            usprite = spr_aqua_walk_up;
            dsprite = spr_aqua_walk_down;
            rsprite = spr_aqua_walk_right;
            lsprite = spr_aqua_walk_left;
        }
    }
    if (arg2 == 9)
    {
        with (global.cinstance[arg3])
        {
            name = "orange";
            usprite = spr_enemy_orange_walk_up;
            dsprite = spr_enemy_orange_walk_down_sad;
            rsprite = spr_enemy_orange_walk_right_sad;
            lsprite = spr_enemy_orange_walk_left_sad;
        }
    }
    return global.cinstance[arg3];
}