equal
deleted
inserted
replaced
371 gear^.Density:= _1; |
371 gear^.Density:= _1; |
372 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
372 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
373 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
373 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
374 gear^.Pos:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff |
374 gear^.Pos:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff |
375 gear^.Karma:= 30; // damage |
375 gear^.Karma:= 30; // damage |
376 gear^.Timer:= 500; |
376 if gear^.Timer = 0 then |
377 gear^.WDTimer:= 500; |
377 begin |
|
378 if cMinesTime < 0 then |
|
379 gear^.Timer:= getrandom(13)*100 |
|
380 else |
|
381 gear^.Timer:= cMinesTime div 4 |
|
382 end; |
|
383 gear^.WDTimer:= gear^.Timer |
378 end; |
384 end; |
379 gtSMine: begin |
385 gtSMine: begin |
380 gear^.Health:= 10; |
386 gear^.Health:= 10; |
381 gear^.State:= gear^.State or gstMoving; |
387 gear^.State:= gear^.State or gstMoving; |
382 gear^.Radius:= 2; |
388 gear^.Radius:= 2; |