equal
deleted
inserted
replaced
384 @doStepTeamHealthSorter, |
384 @doStepTeamHealthSorter, |
385 @doStepSpeechBubble, |
385 @doStepSpeechBubble, |
386 @doStepBubble, |
386 @doStepBubble, |
387 @doStepSteam, |
387 @doStepSteam, |
388 @doStepSmoke, |
388 @doStepSmoke, |
|
389 @doStepSmoke, |
389 @doStepHealth, |
390 @doStepHealth, |
390 @doStepShell, |
391 @doStepShell, |
391 @doStepDust |
392 @doStepDust |
392 ); |
393 ); |
393 |
394 |
478 dy:= _0_001 * (random(85) + 95); |
479 dy:= _0_001 * (random(85) + 95); |
479 dy.isNegative:= false; |
480 dy.isNegative:= false; |
480 Frame:= 7 - random(3); |
481 Frame:= 7 - random(3); |
481 FrameTicks:= cExplFrameTicks * 2; |
482 FrameTicks:= cExplFrameTicks * 2; |
482 end; |
483 end; |
|
484 vgtSmokeWhite, |
483 vgtSmoke: begin |
485 vgtSmoke: begin |
484 dx:= _0_0002 * (random(45) + 10); |
486 dx:= _0_0002 * (random(45) + 10); |
485 dx.isNegative:= random(2) = 0; |
487 dx.isNegative:= random(2) = 0; |
486 dy:= _0_0002 * (random(45) + 10); |
488 dy:= _0_0002 * (random(45) + 10); |
487 dy.isNegative:= false; |
489 dy.isNegative:= false; |
559 1: while Gear <> nil do |
561 1: while Gear <> nil do |
560 begin |
562 begin |
561 if not cReducedQuality then |
563 if not cReducedQuality then |
562 case Gear^.Kind of |
564 case Gear^.Kind of |
563 vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
565 vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
|
566 vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
564 vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
567 vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
565 end; |
568 end; |
566 Gear:= Gear^.NextGear |
569 Gear:= Gear^.NextGear |
567 end; |
570 end; |
568 2: while Gear <> nil do |
571 2: while Gear <> nil do |