equal
deleted
inserted
replaced
580 RecountTeamHealth(HH^.Hedgehog^.Team); |
580 RecountTeamHealth(HH^.Hedgehog^.Team); |
581 |
581 |
582 i:= 0; |
582 i:= 0; |
583 while i < Gear^.Health do |
583 while i < Gear^.Health do |
584 begin |
584 begin |
585 AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtHealth); |
585 vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot); |
|
586 if vga <> nil then |
|
587 with vga^ do |
|
588 begin |
|
589 dx:= 0.001 * random(45); |
|
590 dy:= 0.001 * (random(20) + 25); |
|
591 Tint:= $00FF00FF; |
|
592 State:= ord(sprHealth); |
|
593 if random(2) = 0 then dx := -dx; |
|
594 Frame:= 0; |
|
595 FrameTicks:= random(750) + 1250; |
|
596 end; |
586 inc(i, 5); |
597 inc(i, 5); |
587 end; |
598 end; |
588 end; |
599 end; |
589 end |
600 end |
590 end; |
601 end; |