9 

     9 

    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 

    15 

    15 procedure tryAddTeam(teamName: PChar); cdecl;

    16 procedure tryAddTeam(teamName: PChar); cdecl;

    16 procedure tryRemoveTeam(teamName: PChar); cdecl;

    17 procedure tryRemoveTeam(teamName: PChar); cdecl;

    17 procedure changeTeamColor(teamName: PChar; dir: LongInt); cdecl;

    18 procedure changeTeamColor(teamName: PChar; dir: LongInt); cdecl;

    18 

    19 

    55             ipcToEngine('e$mapgen ' + intToStr(mapgen));

    56             ipcToEngine('e$mapgen ' + intToStr(mapgen));

    56         end;

    57         end;

    57     gtLocal: begin

    58     gtLocal: begin

    58             ipcToEngine('eseed ' + seed);

    59             ipcToEngine('eseed ' + seed);

    59             ipcToEngine('e$mapgen ' + intToStr(mapgen));

    60             ipcToEngine('e$mapgen ' + intToStr(mapgen));

    60             i:= 0;

    62             i:= 0;

    61             while (i < 8) and (teams[i].hogsNumber > 0) do

    63             while (i < 8) and (teams[i].hogsNumber > 0) do

    62                 begin

    64                 begin

    63                     ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001');

    65                     ipcToEngine('eammloadt 93919294221991210322351110012000000002111001010111110001');

    64                     ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111');

    66                     ipcToEngine('eammprob 04050405416006555465544647765766666661555101011154111111');

   300         msg:= tn + #10 + colorsSet[teams[i].color];

   302         msg:= tn + #10 + colorsSet[teams[i].color];

   301         guiCallbackFunction(guiCallbackPointer, mtTeamColor, @msg[1], length(msg))

   303         guiCallbackFunction(guiCallbackPointer, mtTeamColor, @msg[1], length(msg))

   302     end

   304     end

   303 end;

   305 end;

   304 

   306 

   305 end.

   312 end.