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); |
|
236 |
229 |
237 if ((Gear^.State and gstWinner) <> 0) and |
230 if ((Gear^.State and gstWinner) <> 0) and |
238 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then |
231 ((CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtPickHammer)) then |
239 begin |
232 begin |
240 DrawHedgehog(sx, sy, |
233 DrawHedgehog(sx, sy, |
1088 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle) |
1081 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle) |
1089 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1082 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1090 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
1083 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
1091 end; |
1084 end; |
1092 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1085 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
|
1086 gtTardis: if Gear^.Pos <> 4 then |
|
1087 begin |
|
1088 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
|
1089 Tint($FF, $FF, $FF, max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
|
1090 DrawSprite(sprTardis, x-24, y-63,0); |
|
1091 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
|
1092 Tint($FF, $FF, $FF, $FF) |
|
1093 end; |
|
1094 |
1093 |
1095 |
1094 end; |
1096 end; |
1095 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
1097 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
1096 end; |
1098 end; |
1097 |
1099 |