1205 vg: PVisualGear; |
1205 vg: PVisualGear; |
1206 i: Longword; |
1206 i: Longword; |
1207 aAngle: real; |
1207 aAngle: real; |
1208 startX, endX, startY, endY: LongInt; |
1208 startX, endX, startY, endY: LongInt; |
1209 begin |
1209 begin |
1210 if Gear^.State and gstFrozen <> 0 then Tint($A0, $A0, $FF, $FF); |
1210 // airmine has its own sprite |
|
1211 if (Gear^.State and gstFrozen <> 0) and (Gear^.Kind <> gtAirMine) then Tint($A0, $A0, $FF, $FF); |
1211 //if Gear^.State and gstFrozen <> 0 then Tint(IceColor or $FF); |
1212 //if Gear^.State and gstFrozen <> 0 then Tint(IceColor or $FF); |
1212 if Gear^.Target.X <> NoPointX then |
1213 if Gear^.Target.X <> NoPointX then |
1213 if Gear^.AmmoType = amBee then |
1214 if Gear^.AmmoType = amBee then |
1214 DrawSpriteRotatedF(sprTargetBee, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1215 DrawSpriteRotatedF(sprTargetBee, Gear^.Target.X + WorldDx, Gear^.Target.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1215 else if Gear^.AmmoType = amIceGun then |
1216 else if Gear^.AmmoType = amIceGun then |
1287 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1288 DrawSpriteRotated(sprMineOff, x, y, 0, Gear^.DirAngle) |
1288 else if Gear^.Health <> 0 then |
1289 else if Gear^.Health <> 0 then |
1289 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1290 DrawSpriteRotated(sprMineOn, x, y, 0, Gear^.DirAngle) |
1290 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1291 else DrawSpriteRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
1291 end; |
1292 end; |
1292 gtAirMine: if (Gear^.State and gstTmpFlag = 0) or (Gear^.State and gstFrozen <> 0) then // mine is inactive |
1293 gtAirMine: |
|
1294 if (Gear^.State and gstFrozen <> 0) then |
|
1295 DrawSprite(sprFrozenAirMine, x-16, y-16, 15) |
|
1296 else if (Gear^.State and gstTmpFlag = 0) then // mine is inactive |
1293 begin |
1297 begin |
1294 if (Gear^.State and gstTmpFlag = 0) then Tint(150,150,150,255); |
1298 if (Gear^.State and gstTmpFlag = 0) then Tint(150,150,150,255); |
1295 DrawSprite(sprAirMine, x-16, y-16, 15); |
1299 DrawSprite(sprAirMine, x-16, y-16, 15); |
1296 untint |
1300 untint |
1297 end |
1301 end |