equal
deleted
inserted
replaced
2137 landPixel:= TestCollisionYwithGear(Gear, 1); |
2137 landPixel:= TestCollisionYwithGear(Gear, 1); |
2138 if landPixel = 0 then |
2138 if landPixel = 0 then |
2139 begin |
2139 begin |
2140 AllInactive := false; |
2140 AllInactive := false; |
2141 |
2141 |
|
2142 if GameTicks and $F = 0 then |
|
2143 begin |
|
2144 Gear^.Radius := 7; |
|
2145 tdX:= Gear^.dX; |
|
2146 tdY:= Gear^.dY; |
|
2147 Gear^.dX.QWordValue:= 120000000; |
|
2148 Gear^.dY.QWordValue:= 429496730; |
|
2149 Gear^.dX.isNegative:= getrandom(2)<>1; |
|
2150 Gear^.dY.isNegative:= true; |
|
2151 AmmoShove(Gear, 2, 125); |
|
2152 Gear^.dX:= tdX; |
|
2153 Gear^.dY:= tdY; |
|
2154 Gear^.Radius := 1 |
|
2155 end; |
|
2156 |
2142 if ((GameTicks mod 100) = 0) then |
2157 if ((GameTicks mod 100) = 0) then |
2143 begin |
2158 begin |
2144 vgt:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire, gstTmpFlag); |
2159 vgt:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire, gstTmpFlag); |
2145 if vgt <> nil then |
2160 if vgt <> nil then |
2146 begin |
2161 begin |