2102 |
2102 |
2103 //Disable targeting while the airmine is stunned |
2103 //Disable targeting while the airmine is stunned |
2104 if Gear^.Tag <> 0 then |
2104 if Gear^.Tag <> 0 then |
2105 begin |
2105 begin |
2106 if ((Gear^.FlightTime and $FF) = 0) then |
2106 if ((Gear^.FlightTime and $FF) = 0) then |
2107 begin |
2107 // spawn lots of particles when stunned (sparkles or bubbles) |
2108 sparkle:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
2108 if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) = false then |
2109 if sparkle <> nil then |
2109 begin |
2110 begin |
2110 sparkle:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
2111 sparkle^.dX:= 0.004 * (random(100) - 50); |
2111 if sparkle <> nil then |
2112 sparkle^.dY:= -0.05 + 0.004 * (random(100) - 50); |
2112 begin |
2113 sparkle^.Tint:= $D5CD8CFF; |
2113 sparkle^.dX:= 0.004 * (random(100) - 50); |
2114 sparkle^.Angle:= random(360); |
2114 sparkle^.dY:= -0.05 + 0.004 * (random(100) - 50); |
2115 end; |
2115 sparkle^.Tint:= $D5CD8CFF; |
2116 end; |
2116 sparkle^.Angle:= random(360); |
|
2117 end; |
|
2118 end |
|
2119 else |
|
2120 AddVisualGear(hwRound(Gear^.X) - 8 + random(16), hwRound(Gear^.Y) + 16 + random(8), vgtBubble); |
2117 |
2121 |
2118 dec(Gear^.FlightTime); |
2122 dec(Gear^.FlightTime); |
2119 if Gear^.FlightTime = 0 then |
2123 if Gear^.FlightTime = 0 then |
2120 begin |
2124 begin |
2121 Gear^.Tag:= 0; |
2125 Gear^.Tag:= 0; |