1118 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1118 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1119 else if Gear^.Health <> 0 then |
1119 else if Gear^.Health <> 0 then |
1120 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1120 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1121 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1121 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1122 end; |
1122 end; |
1123 gtAirMine: if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then |
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 |
1124 DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16) |
1130 DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 25) mod 16) |
1125 else DrawSprite(sprAirMine, x-16, y-16, (RealTicks div 125) 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 |
1126 |
1135 |
1127 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 |
1128 DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
1137 DrawSpriteRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
1129 else if Gear^.Health <> 0 then |
1138 else if Gear^.Health <> 0 then |
1130 DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |
1139 DrawSpriteRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |