equal
deleted
inserted
replaced
777 Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7; |
777 Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7; |
778 |
778 |
779 if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then |
779 if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then |
780 MakeHedgehogsStep(Gear); |
780 MakeHedgehogsStep(Gear); |
781 |
781 |
782 SetAllHHToActive; |
782 SetAllHHToActive(false); |
783 AddGearCI(Gear) |
783 AddGearCI(Gear) |
784 end |
784 end |
785 end; |
785 end; |
786 |
786 |
787 procedure HedgehogChAngle(HHGear: PGear); |
787 procedure HedgehogChAngle(HHGear: PGear); |
1255 if (Gear^.Message and gmDestroy) <> 0 then |
1255 if (Gear^.Message and gmDestroy) <> 0 then |
1256 begin |
1256 begin |
1257 DeleteGear(Gear); |
1257 DeleteGear(Gear); |
1258 exit |
1258 exit |
1259 end; |
1259 end; |
1260 if (GameTicks mod (100*LongWord(hwRound(cMaxWindSpeed*2/cGravity))) = 0) then CheckIce(Gear); |
1260 if GameTicks mod 100 = 0 then CheckIce(Gear); |
1261 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then |
1261 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then |
1262 begin |
1262 begin |
1263 if Gear^.Hedgehog^.Effects[heFrozen] > 256 then |
1263 if Gear^.Hedgehog^.Effects[heFrozen] > 256 then |
1264 dec(Gear^.Hedgehog^.Effects[heFrozen]) |
1264 dec(Gear^.Hedgehog^.Effects[heFrozen]) |
1265 else if GameTicks mod 10 = 0 then |
1265 else if GameTicks mod 10 = 0 then |