GMLscripts.com

xot

Administrator

Registered: 2007-08-18

Posts: 1,240

sprite_replace_color_gm8

Game Maker 8 has broken some scripts that have to do with sprites. This sprite color replacement script is one of them. Someone asked me for a GM8 version today. I wrote this "fixed" version, but I don't have GM8 Pro, so I couldn't test it. He said it worked. I don't fully understand the collision setup for GM8; the argument "precise" has been removed from the sprite creation functions. I don't do anything to setup collisions here. When a sprite is assigned to another, does it inherit the collision setup of the sprite being replaced? I'm not sure I covered everything. A look-see and some more testing would be welcome.

Here is the GM8 update to sprite_replace_color:

Expand/*
**  Usage:
**      sprite_replace_color_gm8(sprite,oldcolor,newcolor)
**
**  Arguments:
**      sprite      sprite to change
**      oldcolor    color that will be replaced
**      newcolor    color used as replacement
**
**  Returns:
**      (-1) on error
**
**  Notes:
**      This script replaces one color in a sprite with another.
**      No new sprites are created, the given sprite is changed.
**
**  GMLscripts.com
*/
{
    var sprite,tran,oldc,newc;
    sprite = argument0;
    oldc  = argument1;
    newc  = argument2;
 
    var w,h,n,i,xo,yo,surf,tempsprite,newsprite,alphasprite;
    w  = sprite_get_width(sprite);
    h  = sprite_get_height(sprite);
    n  = sprite_get_number(sprite);
    xo = sprite_get_xoffset(sprite);
    yo = sprite_get_yoffset(sprite);
 
    surf = surface_create(w,h+1);
    surface_set_target(surf);
 
    for(i=0; i<n; i+=1) {
        draw_clear_alpha(c_black,1);
        draw_set_blend_mode_ext(bm_inv_dest_color,bm_one);
        draw_sprite(sprite,i,xo,yo);
        draw_set_blend_mode(bm_normal);
        draw_point_color(0,h,oldc);
        tempsprite = sprite_create_from_surface(surf,0,0,w,h+1,true,false,xo,yo);
        draw_clear_alpha(newc,1);
        draw_sprite(tempsprite,0,xo,yo);
        sprite_delete(tempsprite);
        if (i == 0) {
            newsprite = sprite_create_from_surface(surf,0,0,w,h,false,false,xo,yo);
            if (newsprite < 0) return -1;
        }else{
            sprite_add_from_surface(newsprite,surf,0,0,w,h,false,false);
        }     
        draw_clear_alpha(c_white,1);
        draw_set_blend_mode_ext(bm_zero,bm_src_alpha);
        draw_sprite(sprite,i,xo,yo);
        if (i == 0) {
            alphasprite = sprite_create_from_surface(surf,0,0,w,h,false,false,xo,yo);
            if (alphasprite < 0) {
                sprite_delete(newsprite);
                return -1;
            }
        }else{
            sprite_add_from_surface(alphasprite,surf,0,0,w,h,false,false);
        }
        draw_set_blend_mode(bm_normal);
    }
 
    surface_reset_target();
    sprite_assign(sprite,newsprite);
    sprite_set_alpha_from_sprite(sprite,alphasprite);
    sprite_delete(newsprite);
    sprite_delete(alphasprite);
    surface_free(surf);
}

Here is the original GM7 version: http://www.gmlscripts.com/script/sprite_replace_color

---

Abusing forum power since 1986.