Splitters Do Not Return v2

//D0: The ID of the enemy to remove.
//D1: The enemi ID that the D0 splits into.
//D2: the starting number of enemies on this screen (the number of times it is in the enemy list)
//D3: The register to use to store enemy counts.
//D4: the register to check for intialisation.
//D5: Total number of lanmola enemies on the screen.
//D6: Lanmola enemy ID.
//D7: Register for tracking lanmolas.

ffc script RemoveKilledSpliiters{
    void run(int enemID, int splitsInto, int startNum, int reg, int regInit, int totalLanmolas, int lanmolaID, int lanmolasReg){
        int curNum = NumNPCsOf(enemID);
        int presentMax = Screen->D[reg];
        int children;
        int numLanmolas;
        Waitframes(5);
        bool firstRun = true;
        int segments;
        if ( lanmolaID ) {
            for ( int q = 1; q <= Screen->NumNPCs(); q++ ) {
                npc a = Screen->LoadNPC(q);
                if ( a->ID == lanmolaID ) {
                    segments = a->Attributes[0] + 1;
                    break;
                }
            }
        }

        float segs = segments / 10;
        Screen->D[lanmolasReg] += segs;
        int lanmolasValid = Floor(Screen->D[lanmolasReg]);
        float deciSegs = ( Screen->D[lanmolasReg] - Floor(Screen->D[lanmolasReg]) ) * 10 ;

        while(true){
            segments = deciSegs;
            lanmolasValid = Floor(Screen->D[lanmolasReg]);

            if ( presentMax == 0 && Screen->D[regInit] == 0 ) {
                Screen->D[regInit] = 1;
                Screen->D[reg] = startNum;
                Trace(Screen->D[reg]);
                TraceNL();
            }

            if ( lanmolasValid && NumNPCsOf(lanmolaID) == 0 && firstRun ) {
                Unsecret = true;
                for ( int q = ( Floor(Screen->D[lanmolasReg]) / segments ); q > 0; q-- ) {
                    Screen->CreateNPC(lanmolaID);
                }
                firstRun = false;
            }




            curNum = NumNPCsOf(enemID);
            presentMax = Screen->D[reg];
            if ( presentMax == 0 && Screen->D[regInit] > 0 ) {
                for ( int q = 1; q <= Screen->NumNPCs(); q++ ) {

                    npc n = Screen->LoadNPC(q);
                    if ( n->ID == enemID ) Remove(n);
                }
            }
            curNum = NumNPCsOf(enemID);
            children = NumNPCsOf(splitsInto);
            if ( Screen->D[reg] > curNum+children ) Screen->D[reg] = curNum;

            if ( curNum > Screen->D[reg] ) {
                int diff = curNum - Screen->D[reg];
                int removed;
                for ( int q = 1; q <= Screen->NumNPCs(); q++ ) {
                    if ( removed == diff ) break;
                    npc n = Screen->LoadNPC(q);
                    if ( enemID != lanmolaID ) {
                        if ( n->ID == enemID ) {
                            Remove(n);
                            removed++;
                        }
                    }
                }
            }
            int lanmolasOffscreen;

            if ( curNum == totalLanmolas ) {
                for ( int q = 1; q <= Screen->NumNPCs(); q++ ) {
                    npc n = Screen->LoadNPC(q);
                    if ( n->ID == lanmolaID && n->X == -32768 ) lanmolasOffscreen++;
                }
            }

            if ( lanmolasOffscreen == totalLanmolas ) {
                for ( ; lanmolasOffscreen < 0; lanmolasOffscreen -- ){
                    npc n = Screen->LoadNPC(lanmolasOffscreen);
                    n->HP = -9999;
                }
            }

            lanmolasOffscreen = 0;

            Screen->D[lanmolasReg] = NumNPCsOf(lanmolaID) + ( segments / 10 );

            if ( !NumNPCsOf(lanmolaID) ) {
                Screen->D[lanmolasReg] = 0;
                //! Add secret triggers.
            }

            Waitframe();
        }
    }
}

bool Unsecret;

global script active{
    void run(){
        while(true){
            if ( Unsecret ) {
                Screen->State[ST_SECRET] = false;
                Unsecret = false;

            }
            Waitdraw();
            Waitframe();
        }
    }
}