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.chapter == 2 && global.plot == 95)
            {
                dsprite = spr_noelle_walk_down_blush_dw;
                rsprite = spr_noelle_walk_right_blush_dw;
                lsprite = spr_noelle_walk_left_blush_dw;
            }
        }
    }
    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;
        }
    }
    return global.cinstance[arg3];
}