equal
deleted
inserted
replaced
10 procedure registerGUIMessagesCallback(p: pointer; f: TGUICallback); cdecl; |
10 procedure registerGUIMessagesCallback(p: pointer; f: TGUICallback); cdecl; |
11 |
11 |
12 procedure setSeed(seed: PChar); cdecl; |
12 procedure setSeed(seed: PChar); cdecl; |
13 function getSeed: PChar; cdecl; |
13 function getSeed: PChar; cdecl; |
14 procedure setTheme(themeName: PChar); cdecl; |
14 procedure setTheme(themeName: PChar); cdecl; |
|
15 procedure setScript(scriptName: PChar); cdecl; |
15 |
16 |
16 procedure tryAddTeam(teamName: PChar); cdecl; |
17 procedure tryAddTeam(teamName: PChar); cdecl; |
17 procedure tryRemoveTeam(teamName: PChar); cdecl; |
18 procedure tryRemoveTeam(teamName: PChar); cdecl; |
18 procedure changeTeamColor(teamName: PChar; dir: LongInt); cdecl; |
19 procedure changeTeamColor(teamName: PChar; dir: LongInt); cdecl; |
19 |
20 |
50 begin |
51 begin |
51 with config^ do |
52 with config^ do |
52 begin |
53 begin |
53 case gameType of |
54 case gameType of |
54 gtPreview: begin |
55 gtPreview: begin |
|
56 if script <> '' then |
|
57 ipcToEngine('escript ' + script); |
55 ipcToEngine('eseed ' + seed); |
58 ipcToEngine('eseed ' + seed); |
56 ipcToEngine('e$mapgen ' + intToStr(mapgen)); |
59 ipcToEngine('e$mapgen ' + intToStr(mapgen)); |
57 end; |
60 end; |
58 gtLocal: begin |
61 gtLocal: begin |
|
62 if script <> '' then |
|
63 ipcToEngine('escript ' + script); |
59 ipcToEngine('eseed ' + seed); |
64 ipcToEngine('eseed ' + seed); |
60 ipcToEngine('e$mapgen ' + intToStr(mapgen)); |
65 ipcToEngine('e$mapgen ' + intToStr(mapgen)); |
61 ipcToEngine('e$theme ' + theme); |
66 ipcToEngine('e$theme ' + theme); |
|
67 |
62 i:= 0; |
68 i:= 0; |
63 while (i < 8) and (teams[i].hogsNumber > 0) do |
69 while (i < 8) and (teams[i].hogsNumber > 0) do |
64 begin |
70 begin |
65 ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001'); |
71 ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001'); |
66 ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111'); |
72 ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111'); |
307 procedure setTheme(themeName: PChar); cdecl; |
313 procedure setTheme(themeName: PChar); cdecl; |
308 begin |
314 begin |
309 currentConfig.theme:= themeName |
315 currentConfig.theme:= themeName |
310 end; |
316 end; |
311 |
317 |
|
318 procedure setScript(scriptName: PChar); cdecl; |
|
319 begin |
|
320 if scriptName <> 'Normal' then |
|
321 currentConfig.script:= '/Scripts/Multiplayer/' + scriptName + '.lua' |
|
322 else |
|
323 currentConfig.script:= '' |
|
324 end; |
|
325 |
312 end. |
326 end. |