equal
deleted
inserted
replaced
268 end; |
268 end; |
269 |
269 |
270 ResetKbd; |
270 ResetKbd; |
271 |
271 |
272 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
272 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
|
273 cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue; |
|
274 if cWindSpeed.isNegative then |
|
275 CWindSpeedf := -cWindSpeedf; |
273 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
276 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
274 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
277 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
275 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
278 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
276 ApplyAmmoChanges(CurrentHedgehog^); |
279 ApplyAmmoChanges(CurrentHedgehog^); |
277 |
280 |