<stdin>

#include "zcommon.acs"

int IsMech[32];
int InMech[32];
int WhichMech[32];

script 1 ENTER
{
    int TempStr;
    int pln = PlayerNumber();
    int mechTID, mechAngle, x, y, z;

    Thing_ChangeTID(0, 1000 + PlayerNumber());

    while (1)
    {
        TempStr = "";
        /*
        for (int Num = 0; Num < 32; Num++)
        {
            if (!PlayerInGame(Num)) { continue; }
            TempStr = StrParam(s:TempStr, n:Num + 1, s:" ", d:InMech[Num], s:" ", d:IsMech[Num], s:"\n");
            Print(s:TempStr);
        }
        */
        if (InMech[pln])
        {
            mechTID = WhichMech[pln];
            mechAngle = GetActorAngle(mechTID);
            x = GetActorX(mechTID) + (80 *  sin(mechAngle)) + (40 * cos(mechAngle));
            y = GetActorY(mechTID) + (80 * -cos(mechAngle)) + (40 * sin(mechAngle));
            z = GetActorZ(mechTID) + 16.0;
            PrintBold(n:pln + 1, s:"\c- ", f:x, s:", ", f:y, s:", ", f:z, s:", ", d:ActivatorTID(), s:", ", d:WhichMech[pln]);
            SetActorPosition(0, x, y, z, 0);
        }
        Delay(1);
    }
}

script 2 (int Player, int Mech)
{
    if (!InMech[Player] && !IsMech[Player] && IsMech[Mech])
    {
        WhichMech[Player] = 1000 + Mech;
        InMech[Player] = 1;
        PrintBold(n: Player + 1, s:" is now riding in ", n: Mech + 1, s:"'s mech.");
    }
    else PrintBold(s:"Script 2 failed.");
}

script 3 (int Player)
{
    if (InMech[Player])
    {
        InMech[Player] = 0;
        PrintBold(n: Player + 1, s:" is no longer riding in a mech.");
    }
    else PrintBold(s:"Script 3 failed.");
}

script 4 (int Player)
{
    if (!IsMech[Player])
    {
        IsMech[Player] = 1;
        PrintBold(n: Player + 1, s:" is now a mech.");
    }
    else PrintBold(s:"Script 4 failed.");
}

script 5 (int Player)
{
    if (IsMech[Player])
    {
        IsMech[Player] = 0;
        PrintBold(n: Player + 1, s:" is no longer a mech.");
    }
    else PrintBold(s:"Script 5 failed.");
}