equal
deleted
inserted
replaced
1268 else |
1268 else |
1269 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1269 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1270 end; |
1270 end; |
1271 gtDynamite: begin |
1271 gtDynamite: begin |
1272 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1272 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1273 if (random(3) = 0) then |
1273 if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then |
1274 begin |
1274 begin |
1275 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1275 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1276 if vg <> nil then |
1276 if vg <> nil then |
1277 with vg^ do |
1277 with vg^ do |
1278 begin |
1278 begin |