equal
deleted
inserted
replaced
1325 else |
1325 else |
1326 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1326 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1327 end; |
1327 end; |
1328 gtDynamite: begin |
1328 gtDynamite: begin |
1329 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1329 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1330 if (random(3) = 0) then |
1330 if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then |
1331 begin |
1331 begin |
1332 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1332 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1333 if vg <> nil then |
1333 if vg <> nil then |
1334 with vg^ do |
1334 with vg^ do |
1335 begin |
1335 begin |