equal
deleted
inserted
replaced
3509 TagTurnTimeLeft:= TurnTimeLeft; |
3509 TagTurnTimeLeft:= TurnTimeLeft; |
3510 |
3510 |
3511 TurnTimeLeft:= 14 * 125; |
3511 TurnTimeLeft:= 14 * 125; |
3512 end; |
3512 end; |
3513 |
3513 |
3514 if HHGear <> nil then |
3514 if HHGear <> nil then |
3515 HHGear^.Message := 0; |
3515 HHGear^.Message := 0; |
3516 ParseCommand('/taunt ' + #1, true) |
3516 ParseCommand('/taunt ' + #1, true) |
3517 end |
3517 end |
3518 end; |
3518 end; |
3519 |
3519 |
5553 begin |
5553 begin |
5554 Timer := iceCollideWithGround; |
5554 Timer := iceCollideWithGround; |
5555 Power := GameTicks; |
5555 Power := GameTicks; |
5556 end |
5556 end |
5557 end |
5557 end |
5558 else if (Target.Y >= cWaterLine) or |
5558 else if (Target.Y >= cWaterLine) or |
5559 ((Target.X and LAND_WIDTH_MASK = 0) and |
5559 ((Target.X and LAND_WIDTH_MASK = 0) and |
5560 (Target.Y+iceHeight+4 >= cWaterLine) and |
5560 (Target.Y+iceHeight+4 >= cWaterLine) and |
5561 (Land[Target.Y, Target.X] = lfIce)) then |
5561 (Land[Target.Y, Target.X] = lfIce)) then |
5562 begin |
5562 begin |
5563 if Timer = iceWaitCollision then |
5563 if Timer = iceWaitCollision then |
5564 begin |
5564 begin |
5565 Timer := iceCollideWithWater; |
5565 Timer := iceCollideWithWater; |