equal
deleted
inserted
replaced
434 SDLNet_Write32(checksum, @s[2]); |
434 SDLNet_Write32(checksum, @s[2]); |
435 SendIPC(s) |
435 SendIPC(s) |
436 end |
436 end |
437 else |
437 else |
438 TryDo(checksum = lastTurnChecksum, 'Desync detected', true); |
438 TryDo(checksum = lastTurnChecksum, 'Desync detected', true); |
439 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
439 AddFileLog('Next turn: time '+inttostr(GameTicks)); |
440 end; |
440 end; |
441 |
441 |
442 procedure chTimer(var s: shortstring); |
442 procedure chTimer(var s: shortstring); |
443 begin |
443 begin |
444 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then |
444 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then |
761 cExplosives:= StrToInt(s) |
761 cExplosives:= StrToInt(s) |
762 end; |
762 end; |
763 |
763 |
764 procedure chGameFlags(var s: shortstring); |
764 procedure chGameFlags(var s: shortstring); |
765 begin |
765 begin |
766 GameFlags:= StrToInt(s) |
766 GameFlags:= StrToInt(s); |
|
767 if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and not gfPerHogAmmo |
767 end; |
768 end; |
768 |
769 |
769 procedure chHedgehogTurnTime(var s: shortstring); |
770 procedure chHedgehogTurnTime(var s: shortstring); |
770 begin |
771 begin |
771 cHedgehogTurnTime:= StrToInt(s) |
772 cHedgehogTurnTime:= StrToInt(s) |