714 //Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - (RealTicks mod 1500) / 750)))); |
714 //Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - (RealTicks mod 1500) / 750)))); |
715 DrawSprite(sprVampiric, x - 24, y - 24, 0); |
715 DrawSprite(sprVampiric, x - 24, y - 24, 0); |
716 Tint($FF, $FF, $FF, $FF) |
716 Tint($FF, $FF, $FF, $FF) |
717 end |
717 end |
718 end; |
718 end; |
719 |
|
720 gtBee: DrawRotatedF(sprBee, x, y, (GameTicks shr 5) mod 2, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
719 gtBee: DrawRotatedF(sprBee, x, y, (GameTicks shr 5) mod 2, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
721 |
|
722 gtPickHammer: DrawSprite(sprPHammer, x - 16, y - 50 + LongInt(((GameTicks shr 5) and 1) * 2), 0); |
720 gtPickHammer: DrawSprite(sprPHammer, x - 16, y - 50 + LongInt(((GameTicks shr 5) and 1) * 2), 0); |
723 gtRope: DrawRope(Gear); |
721 gtRope: DrawRope(Gear); |
724 gtMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
722 gtMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
725 DrawRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
723 DrawRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
726 else if Gear^.Health <> 0 then DrawRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
724 else if Gear^.Health <> 0 then DrawRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
846 DrawRotated(sprCross, x, y, 0, 0); |
844 DrawRotated(sprCross, x, y, 0, 0); |
847 Tint($f5, $db, $35, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000)))); |
845 Tint($f5, $db, $35, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000)))); |
848 DrawTexture(x - 108, y - 108, SpritesData[sprVampiric].Texture, 4.5); |
846 DrawTexture(x - 108, y - 108, SpritesData[sprVampiric].Texture, 4.5); |
849 Tint($FF, $FF, $FF, $FF); |
847 Tint($FF, $FF, $FF, $FF); |
850 end; |
848 end; |
|
849 gtNapalmBomb: DrawRotated(sprNapalmBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
851 end; |
850 end; |
852 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
851 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
853 Gear:= Gear^.NextGear |
852 Gear:= Gear^.NextGear |
854 end; |
853 end; |
855 end; |
854 end; |