| changeset 5491 | 3a82724de759 |
| parent 5490 | 18c6049b5ae3 |
| child 5562 | 8056d82b4d23 |
| 5490:18c6049b5ae3 | 5491:3a82724de759 |
|---|---|
431 Gear:= Gear^.NextGear |
431 Gear:= Gear^.NextGear |
432 end; |
432 end; |
433 // this layer is on the land level (which is close but behind the screen plane) when stereo |
433 // this layer is on the land level (which is close but behind the screen plane) when stereo |
434 1: while Gear <> nil do |
434 1: while Gear <> nil do |
435 begin |
435 begin |
436 tinted:= false; |
436 //tinted:= false; |
437 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
437 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
438 case Gear^.Kind of |
438 case Gear^.Kind of |
439 vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State); |
439 vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State); |
440 vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State); |
440 vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State); |
441 vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF)); |
441 vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF)); |
460 DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame) |
460 DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame) |
461 else |
461 else |
462 DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame); |
462 DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame); |
463 vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8); |
463 vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8); |
464 end; |
464 end; |
465 if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF); |
465 //if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF); |
466 if (Gear^.Tint <> $FFFFFFFF) then Tint($FF,$FF,$FF,$FF); |
|
466 Gear:= Gear^.NextGear |
467 Gear:= Gear^.NextGear |
467 end; |
468 end; |
468 // this layer is on the screen plane (depth = 0) when stereo |
469 // this layer is on the screen plane (depth = 0) when stereo |
469 3: while Gear <> nil do |
470 3: while Gear <> nil do |
470 begin |
471 begin |