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 (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 = "lancer";
            usprite = spr_lancer_ut;
            dsprite = spr_lancer_dt;
            rsprite = spr_lancer_rt;
            lsprite = spr_lancer_lt;
        }
    }
    return global.cinstance[arg3];
}