682 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle); |
682 amClusterBomb: DrawSpriteRotated(sprHandCluster, hx, hy, sign, aangle); |
683 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle); |
683 amDynamite: DrawSpriteRotated(sprHandDynamite, hx, hy, sign, aangle); |
684 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle); |
684 amHellishBomb: DrawSpriteRotated(sprHandHellish, hx, hy, sign, aangle); |
685 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle); |
685 amGasBomb: DrawSpriteRotated(sprHandCheese, hx, hy, sign, aangle); |
686 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle); |
686 amMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle); |
|
687 amAirMine: DrawSpriteRotated(sprHandMine, hx, hy, sign, aangle); |
687 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle); |
688 amSMine: DrawSpriteRotated(sprHandSMine, hx, hy, sign, aangle); |
688 amKnife: DrawSpriteRotatedF(sprHandKnife, hx, hy, 0, sign, aangle); |
689 amKnife: DrawSpriteRotatedF(sprHandKnife, hx, hy, 0, sign, aangle); |
689 amSeduction: begin |
690 amSeduction: begin |
690 DrawSpriteRotated(sprHandSeduction, hx, hy, sign, aangle); |
691 DrawSpriteRotated(sprHandSeduction, hx, hy, sign, aangle); |
691 DrawCircle(ox, oy, 248, 4, $FF, $00, $00, $AA); |
692 DrawCircle(ox, oy, 248, 4, $FF, $00, $00, $AA); |
1117 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1118 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1118 else if Gear^.Health <> 0 then |
1119 else if Gear^.Health <> 0 then |
1119 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1120 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1120 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1121 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1121 end; |
1122 end; |
|
1123 gtAirMine: if Gear^.State and gstTmpFlag = 0 then // mine is inactive |
|
1124 begin |
|
1125 Tint(150,150,150,255); |
|
1126 DrawSprite(sprAirMine, x-16, y-16, 15); |
|
1127 untint |
|
1128 end |
|
1129 else if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then // mine is chasing a hog |
|
1130 DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16) |
|
1131 else if Gear^.State and gstHHChooseTarget <> 0 then // mine is seeking for hogs |
|
1132 DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) mod 16) |
|
1133 else |
|
1134 DrawSprite(sprAirMine, x-16, y-16, 4); // mine is active but not seeking |
1122 |
1135 |
1123 gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
1136 gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
1124 DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
1137 DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
1125 else if Gear^.Health <> 0 then |
1138 else if Gear^.Health <> 0 then |
1126 DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |
1139 DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |