Bomb Arrows for 2.55 (Weapon Script)

lweapon script bombarrow
{
    void run()
    {
        //quit if bombs not in a slot
        itemdata bomb; bool found; bool super;
        bomb = Game->LoadItemData(Link->ItemA);
        if ( bomb->Family == IC_BOMB ) found = true;
        if ( bomb->Family == IC_SBOMB ) { found = true; super = true; }
        if ( !found )
        {
            bomb = Game->LoadItemData(Link->ItemB);
            if ( bomb->Family == IC_BOMB ) { found = true;
            if ( bomb->Family == IC_SBOMB ) { found = true; super = true; }
        }
        if ( !found ) Quit();
        else
        {
            pow = bomb->Damage;
            if ( super )
            {
                if ( !Game->Counter[CR_SBOMBS] ) Quit();
                else --Game->Counter[CR_SBOMBS];
            }
            else
            {
                if ( !Game->Counter[CR_BOMBS] ) Quit();
                else --Game->Counter[CR_BOMBS];

            }
        }
        //quit if not enough bombs
        int x; int y; int pow;
        while(this->isValid()) { x = this->X; y = this->Y; Waitframe(); }
        lweapon boom = Screen->CreateLWeapon( (( super ) ? LW_SBOMBBLAST : LW_BOMBBLAST ));
        boom->Damage = pow;
        boom->X = x;
        boom->Y = y;
    }
}