equal
deleted
inserted
replaced
8 function getTeamsList: PPChar; cdecl; |
8 function getTeamsList: PPChar; cdecl; |
9 procedure freeTeamsList; |
9 procedure freeTeamsList; |
10 |
10 |
11 function teamByName(s: shortstring): PTeam; |
11 function teamByName(s: shortstring): PTeam; |
12 |
12 |
|
13 procedure sendTeam(var team: TTeam); |
|
14 |
13 implementation |
15 implementation |
14 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData; |
16 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData, uFLNet; |
15 |
17 |
16 const MAX_TEAM_NAMES = 128; |
18 const MAX_TEAM_NAMES = 128; |
17 var |
19 var |
18 teamsList: PTeam; |
20 teamsList: PTeam; |
19 teamsNumber: Longword; |
21 teamsNumber: Longword; |
177 begin |
179 begin |
178 if teamsList <> nil then |
180 if teamsList <> nil then |
179 FreeMem(teamsList, sizeof(teamsList^) * teamsNumber) |
181 FreeMem(teamsList, sizeof(teamsList^) * teamsNumber) |
180 end; |
182 end; |
181 |
183 |
|
184 procedure sendTeam(var team: TTeam); |
|
185 var i: Longword; |
|
186 begin |
|
187 with team do |
|
188 begin |
|
189 sendNetLn('ADD_TEAM'); |
|
190 sendNetLn(teamName); |
|
191 sendNetLn(IntToStr(color)); |
|
192 sendNetLn(grave); |
|
193 sendNetLn(fort); |
|
194 sendNetLn(voice); |
|
195 sendNetLn(flag); |
|
196 sendNetLn(IntToStr(botLevel)); |
|
197 for i := 0 to 7 do |
|
198 begin |
|
199 sendNetLn(hedgehogs[i].name); |
|
200 sendNetLn(hedgehogs[i].hat); |
|
201 end; |
|
202 sendNetLn('') |
|
203 end; |
|
204 end; |
|
205 |
182 end. |
206 end. |