Scripted ZC (Z1) Candle

//D0 Set to 0 for a red candle; any other value for a blue candle.
item script scriptcandle
{
    void run(int useonce)
    {
        int q[8]; lweapon flame[2];
        if ( useonce )
        {
            //seek a marker
            for ( q[0] = Screen->NumLWeapons(); q[0] > 0; --q[0] )
            {
                flame[1] = Screen->LoadLWeapon[q[0]];
                if ( flame[1]->ID != LW_SCRIPT10 ) continue();
                if ( flame[1]->Misc[15] = 1 ) Quit();
            }
            flame[1] = Screen->CreateLWeapon(LW_SCRIPT10);
            flame[1]->DeadState = -10;
            flame[1]->DrawYOffset = -900;
            flame[1]->Misc[15] = 1;
        }
        Link->Action = LA_ATTACKING;
        flame[0] = NextToLink(LW_FLAME, 16);
        Game->PlaySound(this->UseSound);
        flame[0]->Damage = this->Power;
        flame[0]->UseSprite(12);
    }
}