Porque não funciona? - destruição de terreno

Código:

//destroyGround(sprite_width, sprite_height, sprite_xoffset, sprite_yoffset, mouse_x, mouse_y, raio);
var Surf, lar, alt, x0, y0, rad, spr_atual, spr_novo;
lar=argument0; //largura
alt=argument1; //altura
x0 =argument2; //xoffset
y0 =argument3; //yoffset
xt =argument4; //centro do círculo a ser removido (x)
yt =argument5; //centro do círculo a ser removido (y)
rad=argument6; //raio do círculo a ser removido

spr_atual=sprite_index; //armazena o sprite atual numa variável

Surf=surface_create(lar, alt);    //cria a surface do tamanho do sprite atual
surface_set_target(Surf);          //passa a desenhar na surface
draw_clear_alpha(0, 0);            //limpa a surface
draw_sprite(spr_atual, 0, x0, y0); //adiciona o sprite atual

draw_set_blend_mode(bm_subtract);  //passa a apagar ao invés de desenhar
//draw_circle_color(xt-x, yt-y, rad, c_white, c_white, 0);  //apaga um círculo
draw_circle(xt-x, yt-y, rad, 0);  //apaga um círculo
draw_set_blend_mode(bm_normal);    //volta a desenhar ao invés de apagar

surface_reset_target();            //deixa a surface de lado
spr_novo=sprite_create_from_surface(Surf, 0, 0, lar, alt, 0, 0, x0, y0); //cria um sprite a partir da surface e armazena numa variável
surface_free(Surf);                //deleta a surface, liberando memória
sprite_index=spr_novo;            //aceita o sprite criado como o sprite do objeto

if (spr_atual!=object_get_sprite(object_index)){ //se o sprite antigo NÃO é o que vem ao criar o objeto
   sprite_delete(spr_atual);                //deleta o sprite antigo, liberando memória
   }

0000580 - Se você usar sprite_create_from_surface sobre uma superfície em branco, o sprite será completamente opaco.

sprite_create_from_surface: se você definir "removeback" paramater a 2, agora eles vão copiar o alfa "como está".