equal
deleted
inserted
replaced
445 gear^.Friction:= _0_995; |
445 gear^.Friction:= _0_995; |
446 gear^.Density:= _1; |
446 gear^.Density:= _1; |
447 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
447 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
448 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
448 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
449 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
449 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
|
450 gear^.Tag:= 0; |
450 if gear^.Timer = 0 then |
451 if gear^.Timer = 0 then |
451 begin |
452 begin |
452 if cMinesTime < 0 then |
453 if cMinesTime < 0 then |
453 gear^.Timer:= getrandom(13)*100 |
454 gear^.Timer:= getrandom(13)*100 |
454 else |
455 else |