equal
deleted
inserted
replaced
935 //////////////////////////////////////////////////////////////////////////////// |
935 //////////////////////////////////////////////////////////////////////////////// |
936 procedure doStepHedgehogMoving(Gear: PGear); |
936 procedure doStepHedgehogMoving(Gear: PGear); |
937 var isFalling, isUnderwater: boolean; |
937 var isFalling, isUnderwater: boolean; |
938 land: Word; |
938 land: Word; |
939 cnt: LongWord; |
939 cnt: LongWord; |
|
940 s: ansistring; |
940 begin |
941 begin |
941 if Gear^.Hedgehog^.Unplaced then |
942 if Gear^.Hedgehog^.Unplaced then |
942 begin |
943 begin |
943 Gear^.dY:= _0; |
944 Gear^.dY:= _0; |
944 Gear^.dX:= _0; |
945 Gear^.dX:= _0; |
1186 begin |
1187 begin |
1187 inc(Gear^.FlightTime); |
1188 inc(Gear^.FlightTime); |
1188 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250)) then |
1189 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250)) then |
1189 begin |
1190 begin |
1190 Gear^.FlightTime:= 0; |
1191 Gear^.FlightTime:= 0; |
1191 AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage); |
1192 s:= ansistring(CurrentHedgehog^.Name); |
|
1193 AddCaption(FormatA(GetEventString(eidHomerun), s), cWhiteColor, capgrpMessage); |
1192 PlaySound(sndHomerun) |
1194 PlaySound(sndHomerun) |
1193 end; |
1195 end; |
1194 end |
1196 end |
1195 else |
1197 else |
1196 begin |
1198 begin |