equal
deleted
inserted
replaced
428 gear^.Friction:= _0_995; |
428 gear^.Friction:= _0_995; |
429 gear^.Density:= _1; |
429 gear^.Density:= _1; |
430 if gear^.Timer = 0 then |
430 if gear^.Timer = 0 then |
431 begin |
431 begin |
432 if cMinesTime < 0 then |
432 if cMinesTime < 0 then |
433 gear^.Timer:= getrandom(51)*100 |
433 begin |
|
434 gear^.Timer:= getrandom(51)*100; |
|
435 gear^.Karma:= 1; |
|
436 end |
434 else |
437 else |
435 gear^.Timer:= cMinesTime |
438 gear^.Timer:= cMinesTime; |
436 end; |
439 end; |
437 gear^.RenderTimer:= true; |
440 gear^.RenderTimer:= true; |
438 end; |
441 end; |
439 gtAirMine: begin |
442 gtAirMine: begin |
440 gear^.AdvBounce:= 1; |
443 gear^.AdvBounce:= 1; |
448 gear^.Density:= _1; |
451 gear^.Density:= _1; |
449 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
452 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
450 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
453 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
451 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
454 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
452 gear^.Tag:= 0; |
455 gear^.Tag:= 0; |
453 gear^.RenderTimer:= true; |
|
454 if gear^.Timer = 0 then |
456 if gear^.Timer = 0 then |
455 begin |
457 begin |
456 if cMinesTime < 0 then |
458 if cMinesTime < 0 then |
457 gear^.Timer:= getrandom(13)*100 |
459 begin |
|
460 gear^.Timer:= getrandom(13)*100; |
|
461 gear^.Karma:= 1; |
|
462 end |
458 else |
463 else |
459 gear^.Timer:= cMinesTime div 4 |
464 gear^.Timer:= cMinesTime div 4; |
460 end; |
465 end; |
|
466 gear^.RenderTimer:= true; |
461 gear^.WDTimer:= gear^.Timer |
467 gear^.WDTimer:= gear^.Timer |
462 end; |
468 end; |
463 gtSMine: begin |
469 gtSMine: begin |
464 gear^.Health:= 10; |
470 gear^.Health:= 10; |
465 gear^.State:= gear^.State or gstMoving; |
471 gear^.State:= gear^.State or gstMoving; |