equal
deleted
inserted
replaced
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 |
1211 else |
1212 begin |
1212 begin |
1213 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSteam); |
1213 AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke); |
1214 PlaySound(sndVaporize); |
1214 PlaySound(sndVaporize); |
1215 Gear^.Health:= 0; |
1215 Gear^.Health:= 0; |
1216 end; |
1216 end; |
1217 exit |
1217 exit |
1218 end; |
1218 end; |