Level Screen Intros for 2.55 for SkyLizardGirl, v0.2

script typedef ffc struct;
script typedef ffc class;

stuct script locations
{
    enum{ curDMAP, curSCREEN, curLEVEL, pvsDMAP, pvsSCREEN, pvsLEVEL, locLAST};
    int data[locLAST];
    void run(){}
    void clear() for ( int q = 0; q < locLAST; ++q ) data[q] = 0;
    bool changed() { return ( Game->GetCurDMap() != data[curDMAP] || Game->GetCurScreen() != data[curSCREEN] ); }
    bool dmapchanged() { return ( Game->GetCurDMap() != data[curDMAP] ); }
    bool screenchanged() { return ( Game->GetCurScreen() != data[curSCREEN] ); }
    bool levelchanged() { return ( Game->GetCurLevel() != data[curLEVEL] ); }
    int priorDMap() { return ( data[pvsDMAP] );
    void update()
    {
        data[pvsSCREEN] = data[curSCREEN];
        data[pvsDMAP] = data[curDMAP];
        data[curSCREEN] = Game->GetCurScreen();
        data[curDMAP] = Game->GetCurDMap();
    }
    void update_dmap()
    {
        data[pvsDMAP] = data[curDMAP];
        data[curDMAP] = Game->GetCurDMap();
    }
    void update_level()
    {
        data[pvsLEVEL] = data[curLEVEL];
        data[curLEVEL] = Game->GetCurLevel();
    }
    void update_screen()
    {
        data[pvsSCREEN] = data[curSCREEN];
        data[curSCREEN] = Game->GetCurScreen();
    }

}

class script screenintros
{
    const int REGISTER = 6;
    const int BIT = 2;
    void run(){}
    void clear()
    {
        for ( int q = 0; q < 0x80; ++q )
        {
            SetScreenDBit(locations.data[pvsDMAP], q, REG, BIT, false);
        }
    }
    void update()
    {

        if ( locations.levelchanged() )
        {
            locations.update_level();
            clear(); /Re-display after changing dmaps, like DMap intros repeat, but for screens.
        }
    }
}

link script active
{
    void run()
    {
        while(1)
        {
            screenintros.update();

            Waitframe();
        }
    }
}

//Does not repeat if you revisit the screen, unless you change dmaps.
ffc script screenmessage
{

    const int REGISTER = 6;
    const int BIT = 2;
    const int DELAY_DEFAULT = 150;
    void run(int delay, int reg )
    {
        reg = ( reg > 0 ) ? reg : REGISTER;
        delay = ( delay > 0 ) ? delay : DELAY_DEFAULT;

        while(1)
        {
            if ( !(GetScreenDBit(Game->GetCurDMap(), Game->GetCurScreen(), REG, BIT)); )
            {
                Waitframes(delay);
                Screen->Message(Screen->String);
                SetScreenDBit(Game->GetCurDMap(), Game->GetCurScreen(), REG, BIT, true);
            }
            Waitframe();
        }
    }
}

link script init
{
    void run()
    {
        locations.clear();
        locations.clear(); //Call twice to push the previous screen down.
    }
}

npc script screenguy
{
    void run(int delay)
    {
        delay = this->InitD[0];
        if ( !Screen-RoomType )
        {
            if ( Screen->CatchAll )
            {
                delay = Screen->CatchAll;
            }
        }
        this->CollDetection = false;
        //this->DrawYOffset = -32768;
        //Waitframes(Screen->CatchAll); //might be in use depending on room type
        Waitframes(delay);
        Screen->Message(Screen->String);
    }
}