Simple Somaria v0.1

// Simple Somaria
// ZoriaRPG

ffc script Somaria
{
    void run()
    {
        int pos; int x; int y; int blocks;
        while(1)
        {
            switch(Link->Dir)
            {
                //find best position for Link's midpoint
                case DIR_UP: { pos = ComboAt(Link->X+8, Link->Y+8)); break;}
                case DIR_DOWN: { pos = ComboAt(Link->X+7, Link->Y+8)); break;}
                case DIR_LEFT: { pos = ComboAt(Link->X+8, Link->Y+7)); break;}
                case DIR_RIGHT: { pos = ComboAt(Link->X+8, Link->Y+8)); break;}

            }
            pos = AdjacentCombo(pos, Link->Dir); //update
            if ( Screen->ComboS[pos] != 0 )
            {
                //error out
            }
            else
            {
                if ( blocks )
                {
                    //find and destroy old block
                    //we obviously need to mark them in some way when they move!!

                    //create new block
                }
                //set combo type to a 4-way block
            }
            Waitframe();
        }
    }
}