192 amDrill: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtDrill, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
192 amDrill: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtDrill, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
193 amBallgun: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun, 0, xx * _0_5, yy * _0_5, 0); |
193 amBallgun: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun, 0, xx * _0_5, yy * _0_5, 0); |
194 amJetpack: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtJetpack, 0, _0, _0, 0); |
194 amJetpack: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtJetpack, 0, _0, _0, 0); |
195 amBirdy: begin |
195 amBirdy: begin |
196 PlaySound(sndWhistle); |
196 PlaySound(sndWhistle); |
197 if Gear^.dX.isNegative then |
197 CurAmmoGear:= AddGear(hwRound(X), hwRound(Y) - 32, gtBirdy, 0, _0, _0, 0); |
198 begin |
|
199 CurAmmoGear:= AddGear(hwRound(X), hwRound(Y) - 32, gtBirdy, 0, int2hwFloat(LAND_WIDTH + 1024 - hwRound(X)), int2hwFloat(-256), 0); |
|
200 CurAmmoGear^.Tag:= -1; |
|
201 end |
|
202 else |
|
203 begin |
|
204 CurAmmoGear:= AddGear(hwRound(X), hwRound(Y) - 32, gtBirdy, 0, int2hwFloat(-LAND_WIDTH - 1024 + hwRound(X)), int2hwFloat(-256), 0); |
|
205 CurAmmoGear^.Tag:= 1; |
|
206 end; |
|
207 end; |
198 end; |
208 amLowGravity: begin |
199 amLowGravity: begin |
209 PlaySound(sndLowGravity); |
200 PlaySound(sndLowGravity); |
210 cGravity:= cMaxWindSpeed / 2 |
201 cGravity:= cMaxWindSpeed / 2 |
211 end; |
202 end; |