equal
deleted
inserted
replaced
8 |
8 |
9 procedure registerGUIMessagesCallback(p: pointer; f: TGUICallback); cdecl; |
9 procedure registerGUIMessagesCallback(p: pointer; f: TGUICallback); cdecl; |
10 |
10 |
11 procedure setSeed(seed: PChar); cdecl; |
11 procedure setSeed(seed: PChar); cdecl; |
12 function getSeed: PChar; cdecl; |
12 function getSeed: PChar; cdecl; |
|
13 |
|
14 procedure tryAddTeam(teamName: PChar); |
|
15 procedure tryRemoveTeam(teamName: PChar); |
13 |
16 |
14 implementation |
17 implementation |
15 uses uFLIPC, hwengine, uFLUtils, uFLTeams; |
18 uses uFLIPC, hwengine, uFLUtils, uFLTeams; |
16 |
19 |
17 var guiCallbackPointer: pointer; |
20 var guiCallbackPointer: pointer; |
151 guiCallbackFunction:= f; |
154 guiCallbackFunction:= f; |
152 |
155 |
153 registerIPCCallback(nil, @engineMessageCallback) |
156 registerIPCCallback(nil, @engineMessageCallback) |
154 end; |
157 end; |
155 |
158 |
|
159 |
|
160 procedure tryAddTeam(teamName: PChar); |
|
161 var msg: ansistring; |
|
162 begin |
|
163 msg:= '0' + #10 + teamName; |
|
164 |
|
165 guiCallbackFunction(guiCallbackPointer, mtAddPlayingTeam, @msg[1], length(msg)); |
|
166 |
|
167 msg:= teamName; |
|
168 |
|
169 guiCallbackFunction(guiCallbackPointer, mtRemoveTeam, @msg[1], length(msg)) |
|
170 end; |
|
171 |
|
172 procedure tryRemoveTeam(teamName: PChar); |
|
173 var msg: ansistring; |
|
174 begin |
|
175 msg:= teamName; |
|
176 |
|
177 guiCallbackFunction(guiCallbackPointer, mtRemovePlayingTeam, @msg[1], length(msg)); |
|
178 guiCallbackFunction(guiCallbackPointer, mtAddTeam, @msg[1], length(msg)) |
|
179 end; |
|
180 |
156 end. |
181 end. |