equal
deleted
inserted
replaced
1124 HHGear: PGear; |
1124 HHGear: PGear; |
1125 begin |
1125 begin |
1126 AllInactive := false; |
1126 AllInactive := false; |
1127 HHGear := Gear^.Hedgehog^.Gear; |
1127 HHGear := Gear^.Hedgehog^.Gear; |
1128 dec(Gear^.Timer); |
1128 dec(Gear^.Timer); |
|
1129 if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then dec(TurnTimeLeft); |
1129 if (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) = |
1130 if (Gear^.Timer = 0)or((Gear^.Message and gmDestroy) <> 0)or((HHGear^.State and gstHHDriven) = |
1130 0) then |
1131 0) then |
1131 begin |
1132 begin |
1132 StopSound(Gear^.SoundChannel); |
1133 StopSound(Gear^.SoundChannel); |
1133 DeleteGear(Gear); |
1134 DeleteGear(Gear); |
1233 b: boolean; |
1234 b: boolean; |
1234 prevX: LongInt; |
1235 prevX: LongInt; |
1235 begin |
1236 begin |
1236 AllInactive := false; |
1237 AllInactive := false; |
1237 dec(Gear^.Timer); |
1238 dec(Gear^.Timer); |
|
1239 if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then dec(TurnTimeLeft); |
|
1240 |
1238 HHGear := Gear^.Hedgehog^.Gear; |
1241 HHGear := Gear^.Hedgehog^.Gear; |
1239 |
1242 |
1240 HedgehogChAngle(HHGear); |
1243 HedgehogChAngle(HHGear); |
1241 |
1244 |
1242 b := false; |
1245 b := false; |