equal
deleted
inserted
replaced
34 TGameConfig = record |
34 TGameConfig = record |
35 seed: shortstring; |
35 seed: shortstring; |
36 theme: shortstring; |
36 theme: shortstring; |
37 script: shortstring; |
37 script: shortstring; |
38 scheme: TScheme; |
38 scheme: TScheme; |
39 ammo: ansistring; |
39 ammo: TAmmo; |
40 mapgen: Longint; |
40 mapgen: Longint; |
41 gameType: TGameType; |
41 gameType: TGameType; |
42 teams: array[0..7] of TTeam; |
42 teams: array[0..7] of TTeam; |
43 arguments: array[0..Pred(MAXARGS)] of shortstring; |
43 arguments: array[0..Pred(MAXARGS)] of shortstring; |
44 argv: array[0..Pred(MAXARGS)] of PChar; |
44 argv: array[0..Pred(MAXARGS)] of PChar; |
72 sendSchemeConfig(scheme); |
72 sendSchemeConfig(scheme); |
73 |
73 |
74 i:= 0; |
74 i:= 0; |
75 while (i < 8) and (teams[i].hogsNumber > 0) do |
75 while (i < 8) and (teams[i].hogsNumber > 0) do |
76 begin |
76 begin |
77 ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001'); |
77 sendAmmoConfig(config^.ammo); |
78 ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111'); |
|
79 ipcToEngine('eammdelay 00000000000002055000000400070040000000002200000006000200'); |
|
80 ipcToEngine('eammreinf 13111103121111111231141111111111111112111111011111111111'); |
|
81 ipcToEngine('eammstore'); |
78 ipcToEngine('eammstore'); |
82 sendTeamConfig(teams[i]); |
79 sendTeamConfig(teams[i]); |
83 inc(i) |
80 inc(i) |
84 end; |
81 end; |
85 end; |
82 end; |
342 var ammo: PAmmo; |
339 var ammo: PAmmo; |
343 begin |
340 begin |
344 ammo:= ammoByName(ammoName); |
341 ammo:= ammoByName(ammoName); |
345 |
342 |
346 if ammo <> nil then |
343 if ammo <> nil then |
347 currentConfig.ammo:= ammo^.ammoStr |
344 currentConfig.ammo:= ammo^ |
348 end; |
345 end; |
349 |
346 |
350 end. |
347 end. |