Enemy Functions

function CreateRockA1(x,y,speed,angle,delay,life1){
    let obj = CreateEnemyA1(x,y,speed,angle,delay,life1);
    let img = GetCurrentScriptDirectory ~ "/tenshi_rock.png";
    CollisionEnemy(obj,16,16);
    SetObjGraphic(obj,img,57,0,95,41,true);
    ObjRender_SetAngleZ(obj,180);
    //ObjEnemy_SetDamageRate(obj,100,100);
    DeleteEnemyWhenLife0(obj);

    return obj;
}
function CreateEnemyA1(x,y,speed,angle,delay,life1){
    wait(delay);
    let obj = ObjEnemy_Create(OBJ_ENEMY);
    ObjEnemy_Regist(obj);
    ObjEnemy_SetLife(obj,life1);
    ObjMove_SetPosition(obj,x,y);
    ObjMove_SetSpeed(obj,speed);
    ObjMove_SetAngle(obj,angle);
    return obj;
}
task DeleteEnemyWhenLife0(obj){
    if(ObjEnemy_GetInfo(obj,INFO_LIFE) <=0){
        Obj_Delete(obj);
    }
}
task CollisionEnemy(obj,hitr,hurtr){
    loop{
        ObjEnemy_SetIntersectionCircleToShot(obj,ObjMove_GetX(obj),ObjMove_GetY(obj),hitr);
        ObjEnemy_SetIntersectionCircleToPlayer(obj,ObjMove_GetX(obj),ObjMove_GetY(obj),hurtr);
        yield;
    }
}
task SetObjGraphic(obj,img,rl,rt,rr,rd,id){
    ObjPrim_SetTexture(obj, img);
    ObjSprite2D_SetSourceRect(obj, rl, rt, rr, rd);
    ObjSprite2D_SetDestCenter(obj);
    while(id){
        ObjRender_SetAngleZ(obj,ObjMove_GetAngle(obj)+90);
        yield;
    }
}