equal
deleted
inserted
replaced
259 FollowGear:= Gear |
259 FollowGear:= Gear |
260 end; |
260 end; |
261 |
261 |
262 ResetKbd; |
262 ResetKbd; |
263 |
263 |
264 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed); |
264 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed); |
265 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
265 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1); |
266 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
266 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); |
267 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
267 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
268 ApplyAmmoChanges(CurrentHedgehog^); |
268 ApplyAmmoChanges(CurrentHedgehog^); |
269 |
269 |