equal
deleted
inserted
replaced
764 end; |
764 end; |
765 |
765 |
766 procedure chGameFlags(var s: shortstring); |
766 procedure chGameFlags(var s: shortstring); |
767 begin |
767 begin |
768 GameFlags:= StrToInt(s); |
768 GameFlags:= StrToInt(s); |
769 if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and not gfPerHogAmmo |
769 if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and (not gfPerHogAmmo) |
770 end; |
770 end; |
771 |
771 |
772 procedure chHedgehogTurnTime(var s: shortstring); |
772 procedure chHedgehogTurnTime(var s: shortstring); |
773 begin |
773 begin |
774 cHedgehogTurnTime:= StrToInt(s) |
774 cHedgehogTurnTime:= StrToInt(s) |