source/t2matchlog/logpositiondata.cs

////////////////////////////////////////////////////////////////////////////////
// logpositiondata.cs
////////////////////////////////////////////////////////////////////////////////

// all global variable and functions are prefixed logpos_

new fileObject("logpos_file");

package t2matchlog {

////////////////////////////////////////////////////////////////////////////////

function DefaultGame::startMatch(%game)
{
        $logpos_flag_count = 0;

        %file = "positiondata/" @ $missionSequence @ "_" @ $CurrentMissionType @
                "_" @ $currentMission @ "_";
        %i = 0;
        while (isFile(%file @ %i))
                %i++;
        logpos_file.openForWrite(%file @ %i);

        logpos_file.writeLine($CurrentMission);
        logpos_file.writeLine($CurrentMissionType);
        logpos_file.writeLine($MissionDisplayName);
        logpos_file.writeLine($MissionTypeDisplayName);
        logpos_file.writeLine(MissionArea.area);
        logpos_dump_landmarks(MissionGroup);
        logpos_file.writeLine("");

        for (%ci = 0; %ci != ClientGroup.getCount(); %ci++) {
                %client = ClientGroup.getObject(%ci);
                if (%client.player) {
                        %name = stripChars(detag(getTaggedString(%client.name)),
                                        "\cp\co\c6\c7\c8\c9");
                        logpos_file.writeLine("S " @ %client SPC
                                        %client.player.team SPC %name);
                }
        }

        $logpos_vehicle_count = 0;
        $logpos_gameover = false;
        schedule(1000, 0, logpos_write_position_data);

        Parent::startMatch(%game);
}

////////////////////////////////////////////////////////////////////////////////

function DefaultGame::gameOver(%game)
{
        for (%ci = 0; %ci != ClientGroup.getCount(); %ci++) {
                %client = ClientGroup.getObject(%ci);
                logpos_file.writeLine("L " @ %client SPC %client.score);
        }
        for (%team = 1; %team <= %game.numTeams; %team++)
                logpos_file.writeLine("Z " @ %team SPC $TeamScore[%team]);
        logpos_file.close();
        $logpos_gameover = true;

        Parent::gameOver(%game);
}

////////////////////////////////////////////////////////////////////////////////

function logpos_write_position_data()
{
        if ($logpos_gameover)
                return;

    // flags
    for (%i = 0; %i != $logpos_flag_count; %i++)
    {
        %flag = $logpos_flag[%i];
        if (%flag.carrier $= "")
            logpos_file.writeLine("F " @ %flag.team SPC %flag.position);
        else
            logpos_file.writeLine("F " @ %flag.team SPC %flag.carrier.client);
    }

    // players
    for (%ci = 0; %ci != ClientGroup.getCount(); %ci++)
    {
        %client = ClientGroup.getObject(%ci);
        if (!%client.player)
                continue;
        %vehicle = %client.player.getObjectMount();
        %seat = "";
        if (%client.player.isPilot()) { %seat = "p"; }
        if (%client.player.isWeaponOperator()) { %seat = "w"; }
        %data = %client.player.position SPC %vehicle SPC %seat;
        logpos_file.writeLine(%client SPC %data);
    }

        // vehicles
        for (%i = 0; %i != $logpos_vehicle_count; %i++) {
                %vehicle = $logpos_vehicle[%i];
                if (%vehicle)
                        logpos_file.writeLine(%vehicle SPC %vehicle.position);
        }

    // terminate each set of position coordinates with a blank line
    logpos_file.writeLine("");

    schedule(1000, 0, logpos_write_position_data);
}

////////////////////////////////////////////////////////////////////////////////

function logpos_dump_landmarks(%group)
{
    for (%i = 0; %i < %group.getCount(); %i++)
    {
        %obj = %group.getObject(%i);
        %type = %obj.getClassName();

        if (%type $= "SimGroup")
        {
            logpos_dump_landmarks(%obj);
        }
        else if (%type $= "Item" && %obj.dataBlock $= "Flag")
        {
            $logpos_flag[$logpos_flag_count] = %obj;
            $logpos_flag_count++;
        }
        else if (%obj.team !$= "")
        {
            %data = %type SPC %obj.dataBlock SPC %obj.getName();
            %data = %data SPC %obj.position SPC %obj.name;
            logpos_file.writeLine(%obj.team SPC %data);
        }
    }
}

////////////////////////////////////////////////////////////////////////////////

function serverCmdSuicide(%client)
{
        logpos_file.writeLine("serverCmdSuicide " @ %client);
        Parent::serverCmdSuicide(%client);
}

function vehicleListAdd(%blockName, %obj)
{
        logpos_file.writeLine("V " @ %obj SPC %obj.team SPC %blockName);
        $logpos_vehicle[$logpos_vehicle_count] = %obj;
        $logpos_vehicle_count++;
        Parent::vehicleListAdd(%blockName, %obj);
}

function vehicleListRemove(%data, %obj)
{
        logpos_file.writeLine("W " @ %obj);
        for (%i = 0; %i != $logpos_vehicle_count; %i++)
                if ($logpos_vehicle[%i] == %obj)
                        $logpos_vehicle[%i] = 0;
        Parent::vehicleListRemove(%data, %obj);
}

function DefaultGame::playerSpawned(%game, %player)
{
        %name = stripChars(detag(getTaggedString(%player.client.name)),
                        "\cp\co\c6\c7\c8\c9");
        logpos_file.writeLine("S " @ %player.client SPC %player.team SPC %name);
        Parent::playerSpawned(%game, %player);
}

function DefaultGame::onClientKilled(%game, %clVictim, %clKiller, %damageType,
                %implement, %damageLocation)
{
        logpos_file.writeLine("K " @ %clVictim SPC %clKiller SPC %damageType);
        Parent::onClientKilled(%game, %clVictim, %clKiller, %damageType,
                        %implement, %damageLocation);
}

function DefaultGame::onClientDamaged(%game, %clVictim, %clAttacker,
                %damageType, %sourceObject)
{
        logpos_file.writeLine("D " @ %clVictim SPC %clAttacker SPC %damageType);
        Parent::onClientDamaged(%game, %clVictim, %clAttacker, %damageType,
                        %sourceObject);
}

function DefaultGame::onClientLeaveGame(%game, %client)
{
        logpos_file.writeLine("L " @ %client SPC %client.score);
        Parent::onClientLeaveGame(%game, %client);
}

function Player::setArmor(%this, %size)
{
        logpos_file.writeLine("A " @ %this.client SPC %size);
        Parent::setArmor(%this, %size);
}

function ShapeBase::setInventory(%this, %data, %value, %force)
{
        logpos_file.writeLine("I " @ %this.client SPC %data.getName() SPC %value);
        Parent::setInventory(%this, %data, %value, %force);
}

function AIDeployObject(%client, %object)
{
        logpos_file.writeLine("O " @ %object SPC %client SPC
                        %object.getDataBlock().getName() SPC %object.position);
        Parent::AIDeployObject(%client, %object);
}

function ShapeBaseData::onDestroyed(%data, %obj, %prevstate)
{
        logpos_file.writeLine("P " @ %obj SPC %obj.lastDamagedBy);
        Parent::onDestroyed(%data, %obj, %prevstate);
}

};

activatePackage(t2matchlog);

////////////////////////////////////////////////////////////////////////////////

1	james	36	////////////////////////////////////////////////////////////////////////////////
2			// logpositiondata.cs
3			////////////////////////////////////////////////////////////////////////////////
4
5			// all global variable and functions are prefixed logpos_
6
7			new fileObject("logpos_file");
8
9			package t2matchlog {
10
11			////////////////////////////////////////////////////////////////////////////////
12
13			function DefaultGame::startMatch(%game)
14			{
15			$logpos_flag_count = 0;
16
17			%file = "positiondata/" @ $missionSequence @ "_" @ $CurrentMissionType @
18			"_" @ $currentMission @ "_";
19			%i = 0;
20			while (isFile(%file @ %i))
21			%i++;
22			logpos_file.openForWrite(%file @ %i);
23
24			logpos_file.writeLine($CurrentMission);
25			logpos_file.writeLine($CurrentMissionType);
26			logpos_file.writeLine($MissionDisplayName);
27			logpos_file.writeLine($MissionTypeDisplayName);
28			logpos_file.writeLine(MissionArea.area);
29			logpos_dump_landmarks(MissionGroup);
30			logpos_file.writeLine("");
31
32			for (%ci = 0; %ci != ClientGroup.getCount(); %ci++) {
33			%client = ClientGroup.getObject(%ci);
34			if (%client.player) {
35			%name = stripChars(detag(getTaggedString(%client.name)),
36			"\cp\co\c6\c7\c8\c9");
37			logpos_file.writeLine("S " @ %client SPC
38			%client.player.team SPC %name);
39			}
40			}
41
42			$logpos_vehicle_count = 0;
43			$logpos_gameover = false;
44			schedule(1000, 0, logpos_write_position_data);
45
46			Parent::startMatch(%game);
47			}
48
49			////////////////////////////////////////////////////////////////////////////////
50
51			function DefaultGame::gameOver(%game)
52			{
53			for (%ci = 0; %ci != ClientGroup.getCount(); %ci++) {
54			%client = ClientGroup.getObject(%ci);
55			logpos_file.writeLine("L " @ %client SPC %client.score);
56			}
57			for (%team = 1; %team <= %game.numTeams; %team++)
58			logpos_file.writeLine("Z " @ %team SPC $TeamScore[%team]);
59			logpos_file.close();
60			$logpos_gameover = true;
61
62			Parent::gameOver(%game);
63			}
64
65			////////////////////////////////////////////////////////////////////////////////
66
67			function logpos_write_position_data()
68			{
69			if ($logpos_gameover)
70			return;
71
72			// flags
73			for (%i = 0; %i != $logpos_flag_count; %i++)
74			{
75			%flag = $logpos_flag[%i];
76			if (%flag.carrier $= "")
77			logpos_file.writeLine("F " @ %flag.team SPC %flag.position);
78			else
79			logpos_file.writeLine("F " @ %flag.team SPC %flag.carrier.client);
80			}
81
82			// players
83			for (%ci = 0; %ci != ClientGroup.getCount(); %ci++)
84			{
85			%client = ClientGroup.getObject(%ci);
86			if (!%client.player)
87			continue;
88			%vehicle = %client.player.getObjectMount();
89			%seat = "";
90			if (%client.player.isPilot()) { %seat = "p"; }
91			if (%client.player.isWeaponOperator()) { %seat = "w"; }
92			%data = %client.player.position SPC %vehicle SPC %seat;
93			logpos_file.writeLine(%client SPC %data);
94			}
95
96			// vehicles
97			for (%i = 0; %i != $logpos_vehicle_count; %i++) {
98			%vehicle = $logpos_vehicle[%i];
99			if (%vehicle)
100			logpos_file.writeLine(%vehicle SPC %vehicle.position);
101			}
102
103			// terminate each set of position coordinates with a blank line
104			logpos_file.writeLine("");
105
106			schedule(1000, 0, logpos_write_position_data);
107			}
108
109			////////////////////////////////////////////////////////////////////////////////
110
111			function logpos_dump_landmarks(%group)
112			{
113			for (%i = 0; %i < %group.getCount(); %i++)
114			{
115			%obj = %group.getObject(%i);
116			%type = %obj.getClassName();
117
118			if (%type $= "SimGroup")
119			{
120			logpos_dump_landmarks(%obj);
121			}
122			else if (%type $= "Item" && %obj.dataBlock $= "Flag")
123			{
124			$logpos_flag[$logpos_flag_count] = %obj;
125			$logpos_flag_count++;
126			}
127			else if (%obj.team !$= "")
128			{
129			%data = %type SPC %obj.dataBlock SPC %obj.getName();
130			%data = %data SPC %obj.position SPC %obj.name;
131			logpos_file.writeLine(%obj.team SPC %data);
132			}
133			}
134			}
135
136			////////////////////////////////////////////////////////////////////////////////
137
138			function serverCmdSuicide(%client)
139			{
140			logpos_file.writeLine("serverCmdSuicide " @ %client);
141			Parent::serverCmdSuicide(%client);
142			}
143
144			function vehicleListAdd(%blockName, %obj)
145			{
146			logpos_file.writeLine("V " @ %obj SPC %obj.team SPC %blockName);
147			$logpos_vehicle[$logpos_vehicle_count] = %obj;
148			$logpos_vehicle_count++;
149			Parent::vehicleListAdd(%blockName, %obj);
150			}
151
152			function vehicleListRemove(%data, %obj)
153			{
154			logpos_file.writeLine("W " @ %obj);
155			for (%i = 0; %i != $logpos_vehicle_count; %i++)
156			if ($logpos_vehicle[%i] == %obj)
157			$logpos_vehicle[%i] = 0;
158			Parent::vehicleListRemove(%data, %obj);
159			}
160
161			function DefaultGame::playerSpawned(%game, %player)
162			{
163			%name = stripChars(detag(getTaggedString(%player.client.name)),
164			"\cp\co\c6\c7\c8\c9");
165			logpos_file.writeLine("S " @ %player.client SPC %player.team SPC %name);
166			Parent::playerSpawned(%game, %player);
167			}
168
169			function DefaultGame::onClientKilled(%game, %clVictim, %clKiller, %damageType,
170			%implement, %damageLocation)
171			{
172			logpos_file.writeLine("K " @ %clVictim SPC %clKiller SPC %damageType);
173			Parent::onClientKilled(%game, %clVictim, %clKiller, %damageType,
174			%implement, %damageLocation);
175			}
176
177			function DefaultGame::onClientDamaged(%game, %clVictim, %clAttacker,
178			%damageType, %sourceObject)
179			{
180			logpos_file.writeLine("D " @ %clVictim SPC %clAttacker SPC %damageType);
181			Parent::onClientDamaged(%game, %clVictim, %clAttacker, %damageType,
182			%sourceObject);
183			}
184
185			function DefaultGame::onClientLeaveGame(%game, %client)
186			{
187			logpos_file.writeLine("L " @ %client SPC %client.score);
188			Parent::onClientLeaveGame(%game, %client);
189			}
190
191			function Player::setArmor(%this, %size)
192			{
193			logpos_file.writeLine("A " @ %this.client SPC %size);
194			Parent::setArmor(%this, %size);
195			}
196
197			function ShapeBase::setInventory(%this, %data, %value, %force)
198			{
199			logpos_file.writeLine("I " @ %this.client SPC %data.getName() SPC %value);
200			Parent::setInventory(%this, %data, %value, %force);
201			}
202
203			function AIDeployObject(%client, %object)
204			{
205			logpos_file.writeLine("O " @ %object SPC %client SPC
206			%object.getDataBlock().getName() SPC %object.position);
207			Parent::AIDeployObject(%client, %object);
208			}
209
210			function ShapeBaseData::onDestroyed(%data, %obj, %prevstate)
211			{
212			logpos_file.writeLine("P " @ %obj SPC %obj.lastDamagedBy);
213			Parent::onDestroyed(%data, %obj, %prevstate);
214			}
215
216			};
217
218			activatePackage(t2matchlog);
219
220			////////////////////////////////////////////////////////////////////////////////
221