equal
deleted
inserted
replaced
707 PlaySound(sndMolotov); |
707 PlaySound(sndMolotov); |
708 gX := hwRound(Gear^.X); |
708 gX := hwRound(Gear^.X); |
709 gY := hwRound(Gear^.Y); |
709 gY := hwRound(Gear^.Y); |
710 for i:= 0 to 4 do |
710 for i:= 0 to 4 do |
711 begin |
711 begin |
712 glass:= AddVisualGear(gx+random(7)-3, gy+random(7)-3, vgtStraightShot); |
712 glass:= AddVisualGear(gx+random(7)-3, gy+random(7)-3, vgtEgg); |
713 if glass <> nil then |
713 if glass <> nil then |
714 with glass^ do |
714 with glass^ do |
715 begin |
715 begin |
716 Frame:= 2; |
716 Frame:= 2; |
717 Tint:= $41B83ED0 - i * $10081000; |
717 Tint:= $41B83ED0 - i * $10081000; |
|
718 dX:= dX + hwFloat2Float(Gear^.dX) / 2; |
718 Angle:= random(360); |
719 Angle:= random(360); |
719 dx:= 0.0000001; |
|
720 dy:= 0; |
|
721 if random(2) = 0 then |
|
722 dx := -dx; |
|
723 FrameTicks:= 750; |
720 FrameTicks:= 750; |
724 State:= ord(sprEgg) |
721 State:= ord(sprEgg) |
725 end; |
722 end; |
726 end; |
723 end; |
727 for i:= 0 to 24 do |
724 for i:= 0 to 24 do |