hedgewars/fIPC.pas
changeset 2 4eeab397c3c6
parent 1 30f2d1037d5d
child 4 bcbd7adb4e4b
equal deleted inserted replaced
1:30f2d1037d5d 2:4eeab397c3c6
    88 begin
    88 begin
    89 SendIPC('WFrontend svn ' + cRevision);
    89 SendIPC('WFrontend svn ' + cRevision);
    90 SendIPC(format('e$sound %d',[SendMessage(HSetSndCheck, BM_GETCHECK, 0, 0)]));
    90 SendIPC(format('e$sound %d',[SendMessage(HSetSndCheck, BM_GETCHECK, 0, 0)]));
    91 case GameType of
    91 case GameType of
    92     gtLocal: begin
    92     gtLocal: begin
       
    93              SendIPC(format('e$gmflags %d',[0]));
    93              SendIPC('eaddteam');
    94              SendIPC('eaddteam');
    94              ExecCFG(Pathz[ptTeams] + 'unC0Rr.cfg');
    95              ExecCFG(Pathz[ptTeams] + 'unC0Rr.cfg');
    95              SendIPC('ecolor 65535');
    96              SendIPC('ecolor 65535');
    96              SendIPC('eadd hh0 0');
    97              SendIPC('eadd hh0 0');
    97              SendIPC('eadd hh1 0');
    98              SendIPC('eadd hh1 0');