#include "sprites.h"

const Let _marks[] =   {     'D',     'R',      'L',          'M', 'S', 0};
const Let _figures[] = {donatelo, raphael, leonardo, michelangelo, samus, 0};
const Routine _spr[] = {Donatelo, Raphael, Leonardo, Michelangelo, MtrdSamus, 0};
const Let * map[] = {
"wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                   S       D         R          L            M                         w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"w                                                                                       w",
"wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww",
0
};


void Lvl(Co co){
    ClrSpr(co);
    for (int i=0;_spr[i]!=0;i++)
    SNext(co,i,_spr[i]);
    SLvl(co,_marks,_figures);
}

void Player(Co co, Routine next){
    SActr(co);
    for (Let i=0;i<peeps;i++)
    if (co->peeps.mmt[i] > 0)
    co->peeps.mmt[i]--;

    User(co,next);
}

void PlayIn(Co co, Let ** map)
{
    if (co->spr.map != map)
    {
    SDrw(co,map);
    ClrSpr(co);
    for (int i=0;_spr[i]!=0;i++)
    SNext(co,i,_spr[i]);
    SLvl(co,_marks,_figures);
    }

    SActr(co);
    for (Let i=0;i<peeps;i++)
    if (co->peeps.mmt[i] > 0)
    co->peeps.mmt[i]--;
}

/*
void Spiel(Co co){ 
    SDrw(co,map);
    Lvl(co);
    Next(co,Go); 
}
*/

void Stms(Co co,Let spr, Let mmt)
{
    co->peeps.mmt[spr] = mmt;
}

Let Stm(Co co, Let spr)
{
    return co->peeps.mmt[spr];
}