equal
deleted
inserted
replaced
1206 (getRandom(100) > cMineDudPercent) then |
1206 (getRandom(100) > cMineDudPercent) then |
1207 begin |
1207 begin |
1208 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
1208 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
1209 DeleteGear(Gear) |
1209 DeleteGear(Gear) |
1210 end |
1210 end |
1211 else Gear^.Health:= 0; |
1211 else |
|
1212 begin |
|
1213 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSteam); |
|
1214 PlaySound(sndVaporize); |
|
1215 Gear^.Health:= 0; |
|
1216 end; |
1212 exit |
1217 exit |
1213 end; |
1218 end; |
1214 dec(Gear^.Timer); |
1219 dec(Gear^.Timer); |
1215 end else // gsttmpFlag = 0 |
1220 end else // gsttmpFlag = 0 |
1216 if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag; |
1221 if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag; |