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