| changeset 5197 | 9fa96377a69c |
| parent 5179 | 8d64dcb566ea |
| child 5313 | 5e18eaef65d0 |
| 5196:04ce9666a692 | 5197:9fa96377a69c |
|---|---|
224 begin |
224 begin |
225 Tint($00, $FF, $40, $40); |
225 Tint($00, $FF, $40, $40); |
226 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360); |
226 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360); |
227 Tint($FF, $FF, $FF, $FF) |
227 Tint($FF, $FF, $FF, $FF) |
228 end; |
228 end; |
229 |
|
230 if (CurAmmoGear <> nil) and |
|
231 (CurrentHedgehog^.Gear <> nil) and |
|
232 (CurrentHedgehog^.Gear = Gear) and |
|
233 (CurAmmoGear^.Kind = gtTardis) then Tint($FF, $FF, $FF, CurAmmoGear^.Timer div 20) |
|
234 // probably will need a new flag for this |
|
235 else if (Gear^.State and gstTmpFlag <> 0) then Tint($FF, $FF, $FF, $FF-Gear^.Timer); |
|
229 |
236 |
230 if ((Gear^.State and gstWinner) <> 0) and |
237 if ((Gear^.State and gstWinner) <> 0) and |
231 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then |
238 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then |
232 begin |
239 begin |
233 DrawHedgehog(sx, sy, |
240 DrawHedgehog(sx, sy, |