equal
deleted
inserted
replaced
120 end; |
120 end; |
121 FollowGear:= Gear |
121 FollowGear:= Gear |
122 end; |
122 end; |
123 ResetKbd; |
123 ResetKbd; |
124 cWindSpeed:= (GetRandom * 2 - 1) * cMaxWindSpeed; |
124 cWindSpeed:= (GetRandom * 2 - 1) * cMaxWindSpeed; |
|
125 AddGear(0, 0, gtActionTimer, gtsSmoothWindCh).Tag:= round(72 * cWindSpeed / cMaxWindSpeed); |
125 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
126 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF} |
126 ApplyAmmoChanges(@CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog]); |
127 ApplyAmmoChanges(@CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog]); |
127 TurnTimeLeft:= cHedgehogTurnTime |
128 TurnTimeLeft:= cHedgehogTurnTime |
128 end; |
129 end; |
129 |
130 |