equal
deleted
inserted
replaced
773 cExplosives:= StrToInt(s) |
773 cExplosives:= StrToInt(s) |
774 end; |
774 end; |
775 |
775 |
776 procedure chGameFlags(var s: shortstring); |
776 procedure chGameFlags(var s: shortstring); |
777 begin |
777 begin |
778 GameFlags:= StrToInt(s) |
778 GameFlags:= StrToInt(s); |
|
779 if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and not gfPerHogAmmo |
779 end; |
780 end; |
780 |
781 |
781 procedure chHedgehogTurnTime(var s: shortstring); |
782 procedure chHedgehogTurnTime(var s: shortstring); |
782 begin |
783 begin |
783 cHedgehogTurnTime:= StrToInt(s) |
784 cHedgehogTurnTime:= StrToInt(s) |