1508 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 0, 0, Gear^.DirAngle) |
1508 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 0, 0, Gear^.DirAngle) |
1509 else |
1509 else |
1510 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1510 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1511 end; |
1511 end; |
1512 gtDynamite: begin |
1512 gtDynamite: begin |
1513 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1513 if ((Gear^.State and gstDrowning) = 0) then |
|
1514 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1) |
|
1515 else |
|
1516 DrawSprite(sprDynamiteDefused, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1514 if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then |
1517 if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then |
1515 begin |
1518 begin |
1516 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1519 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1517 if vg <> nil then |
1520 if vg <> nil then |
1518 with vg^ do |
1521 with vg^ do |