273 FollowGear:= Gear |
273 FollowGear:= Gear |
274 end; |
274 end; |
275 |
275 |
276 ResetKbd; |
276 ResetKbd; |
277 |
277 |
278 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
278 if (GameFlags and gfDisableWind) = 0 then |
279 // cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws 'Internal error 200502052' on Darwin |
279 begin |
280 // see http://mantis.freepascal.org/view.php?id=17714 |
280 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
281 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue; |
281 // cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws 'Internal error 200502052' on Darwin |
282 if cWindSpeed.isNegative then |
282 // see http://mantis.freepascal.org/view.php?id=17714 |
283 CWindSpeedf := -cWindSpeedf; |
283 cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue; |
284 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
284 if cWindSpeed.isNegative then |
285 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
285 CWindSpeedf := -cWindSpeedf; |
|
286 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
|
287 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
286 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
288 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
|
289 end; |
|
290 |
287 ApplyAmmoChanges(CurrentHedgehog^); |
291 ApplyAmmoChanges(CurrentHedgehog^); |
288 |
292 |
289 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds); |
293 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds); |
290 |
294 |
291 bShowFinger:= true; |
295 bShowFinger:= true; |