equal
deleted
inserted
replaced
960 if (TurnTimeLeft = 5000) |
960 if (TurnTimeLeft = 5000) |
961 and (cHedgehogTurnTime >= 10000) |
961 and (cHedgehogTurnTime >= 10000) |
962 and (not PlacingHogs) |
962 and (not PlacingHogs) |
963 and (CurrentHedgehog^.Gear <> nil) |
963 and (CurrentHedgehog^.Gear <> nil) |
964 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then |
964 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then |
965 PlaySound(sndHurry, CurrentTeam^.voicepack); |
965 AddVoice(sndHurry, CurrentTeam^.voicepack); |
966 if ReadyTimeLeft > 0 then |
966 if ReadyTimeLeft > 0 then |
967 begin |
967 begin |
968 if ReadyTimeLeft = 2000 then |
968 if ReadyTimeLeft = 2000 then |
969 PlaySound(sndComeonthen, CurrentTeam^.voicepack); |
969 AddVoice(sndComeonthen, CurrentTeam^.voicepack); |
970 dec(ReadyTimeLeft) |
970 dec(ReadyTimeLeft) |
971 end |
971 end |
972 else |
972 else |
973 dec(TurnTimeLeft) |
973 dec(TurnTimeLeft) |
974 end; |
974 end; |
1848 if (FollowGear <> nil) then |
1848 if (FollowGear <> nil) then |
1849 begin |
1849 begin |
1850 FindPlace(FollowGear, true, 0, LAND_WIDTH); |
1850 FindPlace(FollowGear, true, 0, LAND_WIDTH); |
1851 |
1851 |
1852 if (FollowGear <> nil) then |
1852 if (FollowGear <> nil) then |
1853 PlaySound(sndReinforce, CurrentTeam^.voicepack) |
1853 AddVoice(sndReinforce, CurrentTeam^.voicepack) |
1854 end |
1854 end |
1855 end; |
1855 end; |
1856 |
1856 |
1857 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean = false); |
1857 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt; skipProximity: boolean = false); |
1858 |
1858 |