equal
deleted
inserted
replaced
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) |