equal
deleted
inserted
replaced
5282 begin |
5282 begin |
5283 hogs.ar^[i]^.Active:= true; |
5283 hogs.ar^[i]^.Active:= true; |
5284 if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] < 256 then |
5284 if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] < 256 then |
5285 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] := hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] + 1 |
5285 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] := hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] + 1 |
5286 else if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] = 256 then |
5286 else if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] = 256 then |
|
5287 begin |
5287 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen]:= 200000-1;//cHedgehogTurnTime + cReadyDelay |
5288 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen]:= 200000-1;//cHedgehogTurnTime + cReadyDelay |
|
5289 PlaySound(sndHogFreeze); |
|
5290 end; |
5288 end; |
5291 end; |
5289 inc(Pos) |
5292 inc(Pos) |
5290 end |
5293 end |
5291 else if (t > 400) and ((gY > cWaterLine) or |
5294 else if (t > 400) and ((gY > cWaterLine) or |
5292 (((gX and LAND_WIDTH_MASK = 0) and (gY and LAND_HEIGHT_MASK = 0)) |
5295 (((gX and LAND_WIDTH_MASK = 0) and (gY and LAND_HEIGHT_MASK = 0)) |