Ultima's Dissolve Effect code

task DE(x,y,ID){
let csd = GetCurrentScriptDirectory;

let Target = csd~"/img/etbreak.png";
let objde = ObjPrim_Create(OBJ_SPRITE_2D);
let timer = 0;
let s = 32;
let dc = [];
dc = GetShotDataInfoA1(ObjShot_GetImageID(ID) ,TARGET_ENEMY,INFO_DELAY_COLOR);

	Obj_SetRenderPriorityI(objde, 25);
	ObjPrim_SetTexture(objde, Target);
	ObjRender_SetColor(objde,dc[0],dc[1],dc[2]);
	ObjRender_SetBlendType(objde, BLEND_ALPHA);
	ObjSprite2D_SetSourceRect(objde, 0, 0, 32, 32);
	ObjSprite2D_SetDestCenter(objde);
ObjRender_SetScaleXYZ(objde, 1, 1, 1);
 ObjRender_SetPosition(objde,x,y,125);
while(!Obj_IsDeleted(objde)){
timer++;

if(timer==4){
DeleteShotAll(TYPE_ALL,TYPE_IMMEDIATE);
ObjSprite2D_SetSourceRect(objde, s*1, 0, s*2, 32);
}
if(timer==8){

ObjSprite2D_SetSourceRect(objde, s*2, 0, s*3, 32);
}
if(timer==12){

ObjSprite2D_SetSourceRect(objde, s*3, 0, s*4, 32);
}
if(timer==16){

ObjSprite2D_SetSourceRect(objde, s*5, 0, s*6, 32);
}
if(timer==24){

ObjSprite2D_SetSourceRect(objde, s*7, 0, s*8, 32);
}
if(timer==25){
Obj_Delete(objde);
}
yield;
     }
         }