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 Tint:= $00FF00FF; |
|
590 State:= ord(sprHealth) |
|
591 end; |
586 inc(i, 5); |
592 inc(i, 5); |
587 end; |
593 end; |
588 end; |
594 end; |
589 end |
595 end |
590 end; |
596 end; |