changeset 12192 | de9144250c37 |
parent 12120 | 1aae30470fa3 |
child 12193 | 71c47122fbc0 |
12191:5c6e7fd5af29 | 12192:de9144250c37 |
---|---|
1323 else |
1323 else |
1324 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1324 DrawSpriteRotatedF(sprExplosivesRoll, x, y + 4, 1, 0, Gear^.DirAngle) |
1325 end; |
1325 end; |
1326 gtDynamite: begin |
1326 gtDynamite: begin |
1327 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1327 DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1); |
1328 if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then |
1328 if (random(3) = 0) then |
1329 begin |
1329 begin |
1330 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1330 vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); |
1331 if vg <> nil then |
1331 if vg <> nil then |
1332 with vg^ do |
1332 with vg^ do |
1333 begin |
1333 begin |
1526 DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
1526 DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
1527 end; |
1527 end; |
1528 end |
1528 end |
1529 end |
1529 end |
1530 end; |
1530 end; |
1531 gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle); |
|
1531 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1532 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1532 end; |
1533 end; |
1533 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
1534 if Gear^.RenderTimer and (Gear^.Tex <> nil) then |
1534 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1535 DrawTextureCentered(x + 8, y + 8, Gear^.Tex); |
1535 if Gear^.State and gstFrozen <> 0 then untint |
1536 if Gear^.State and gstFrozen <> 0 then untint |