| changeset 3381 | f8800c44b3de |
| parent 3378 | 4f2185ed8ca8 |
| child 3382 | 633046fa040c |
| 3380:a46a311097af | 3381:f8800c44b3de |
|---|---|
960 sx:= hwRound(Gear^.X) + 1 + WorldDx; |
960 sx:= hwRound(Gear^.X) + 1 + WorldDx; |
961 sy:= hwRound(Gear^.Y) - 3 + WorldDy; |
961 sy:= hwRound(Gear^.Y) - 3 + WorldDy; |
962 |
962 |
963 if HH^.Effects[hePoisoned] then |
963 if HH^.Effects[hePoisoned] then |
964 begin |
964 begin |
965 Tint($4000FF40); |
965 Tint($4040FF00); |
966 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360); |
966 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 2, 0, 0, sx, sy, 0, 1, 22, 22, (RealTicks shr 36) mod 360); |
967 Tint($FFFFFFFF) |
967 Tint($FFFFFFFF) |
968 end; |
968 end; |
969 |
969 |
970 if ((Gear^.State and gstWinner) <> 0) and |
970 if ((Gear^.State and gstWinner) <> 0) and |
1045 glDisable(GL_TEXTURE_2D); |
1045 glDisable(GL_TEXTURE_2D); |
1046 glEnable(GL_LINE_SMOOTH); |
1046 glEnable(GL_LINE_SMOOTH); |
1047 |
1047 |
1048 glLineWidth(1.0); |
1048 glLineWidth(1.0); |
1049 |
1049 |
1050 Tint($C00000FF); |
1050 Tint($C0FF0000); |
1051 VertexBuffer[0].X:= hx + WorldDx; |
1051 VertexBuffer[0].X:= hx + WorldDx; |
1052 VertexBuffer[0].Y:= hy + WorldDy; |
1052 VertexBuffer[0].Y:= hy + WorldDy; |
1053 VertexBuffer[1].X:= tx + WorldDx; |
1053 VertexBuffer[1].X:= tx + WorldDx; |
1054 VertexBuffer[1].Y:= ty + WorldDy; |
1054 VertexBuffer[1].Y:= ty + WorldDy; |
1055 |
1055 |
1485 end |
1485 end |
1486 end; |
1486 end; |
1487 |
1487 |
1488 if HH^.Effects[hePoisoned] then |
1488 if HH^.Effects[hePoisoned] then |
1489 begin |
1489 begin |
1490 Tint($8000FF40); |
1490 Tint($8040FF00); |
1491 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 37) mod 360); |
1491 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 1.5, 0, 0, sx, sy, 0, 1, 22, 22, 360 - (RealTicks shr 37) mod 360); |
1492 end; |
1492 end; |
1493 |
1493 |
1494 if Gear^.Invulnerable then |
1494 if Gear^.Invulnerable then |
1495 begin |
1495 begin |
1496 Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - 2 * ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750)))); |
1496 Tint($FF, $FF, $FF, max($40, floor($FF * abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750)))); |
1497 DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0); |
1497 DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0); |
1498 end; |
1498 end; |
1499 if cVampiric and |
1499 if cVampiric and |
1500 (CurrentHedgehog^.Gear <> nil) and |
1500 (CurrentHedgehog^.Gear <> nil) and |
1501 (CurrentHedgehog^.Gear = Gear) then |
1501 (CurrentHedgehog^.Gear = Gear) then |