1588 i:= i mod 12; |
1588 i:= i mod 12; |
1589 DrawSprite(sprUtility, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i); |
1589 DrawSprite(sprUtility, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i); |
1590 end; |
1590 end; |
1591 end; |
1591 end; |
1592 gtExplosives: begin |
1592 gtExplosives: begin |
1593 i:= (GameTicks shr 6 + Gear^.uid*3) mod 64; |
1593 if ((Gear^.State and gstDrowning) <> 0) then |
1594 if i > 18 then i:= 0; |
1594 DrawSprite(sprExplosivesRoll, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, 0) |
1595 if Gear^.State and gstAnimation = 0 then |
1595 else if Gear^.State and gstAnimation = 0 then |
|
1596 begin |
|
1597 i:= (GameTicks shr 6 + Gear^.uid*3) mod 64; |
|
1598 if i > 18 then i:= 0; |
1596 DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i) |
1599 DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i) |
|
1600 end |
1597 else if Gear^.State and gsttmpFlag = 0 then |
1601 else if Gear^.State and gsttmpFlag = 0 then |
1598 DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 0, 0, Gear^.DirAngle) |
1602 DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 0, 0, Gear^.DirAngle) |
1599 else |
1603 else |
1600 DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 1, 0, Gear^.DirAngle); |
1604 DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, 1, 0, Gear^.DirAngle); |
1601 end; |
1605 end; |