Pasted

//Boomerang Explodes on contact with enemy.
//v0.1, 16th September, 2019 by ZoriaRPG
//Do: Damage value for explosion. Defaults to damage power of boomerang + 2.
 
lweapon script exploderang
{
    void run(int explosion_damage)
    {
        while(this->isValid())
        {
            for ( int q = Screen->NumNPCs(); q > 0; --q )
            {
                npc n = Screen->LoadNPC(q);
                if ( n->Defense[NPCD_BOOMERANG] != NPCDT_IGNORE && Collision(this, n) )
                {
                    n->InvFrames = 0;
                    lweapon boom = Screen->CreateLWeapon(LW_BOMBBLAST);
                    boom->X = this->X;
                    boom->Y = this->Y;
                    boom Dir = this->Dir;
                    boom->Step = 0;
                    boom->Damage = ( explosion_damage > 0 ) ? explosion_damage : (this->Power + 2);
                    this->DeadState = WDS_DEAD;
                    Remove(this);
                }
            }
            Waitframe();
        }
    }
}