equal
deleted
inserted
replaced
222 case Kind of |
222 case Kind of |
223 gtFlame: Gear^.Boom := 2; // some additional expl in there are x3, x4 this |
223 gtFlame: Gear^.Boom := 2; // some additional expl in there are x3, x4 this |
224 gtHedgehog: Gear^.Boom := 30; |
224 gtHedgehog: Gear^.Boom := 30; |
225 gtMine: Gear^.Boom := 50; |
225 gtMine: Gear^.Boom := 50; |
226 gtCase: Gear^.Boom := 25; |
226 gtCase: Gear^.Boom := 25; |
227 gtAirMine: Gear^.Boom := 25; |
227 gtAirMine: Gear^.Boom := 30; |
228 gtExplosives: Gear^.Boom := 75; |
228 gtExplosives: Gear^.Boom := 75; |
229 gtGrenade: Gear^.Boom := 50; |
229 gtGrenade: Gear^.Boom := 50; |
230 gtShell: Gear^.Boom := 50; |
230 gtShell: Gear^.Boom := 50; |
231 gtBee: Gear^.Boom := 50; |
231 gtBee: Gear^.Boom := 50; |
232 gtShotgunShot: Gear^.Boom := 25; |
232 gtShotgunShot: Gear^.Boom := 25; |
444 gear^.Friction:= _0_995; |
444 gear^.Friction:= _0_995; |
445 gear^.Density:= _1; |
445 gear^.Density:= _1; |
446 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
446 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
447 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
447 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
448 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
448 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
449 gear^.Karma:= 30; // damage |
|
450 if gear^.Timer = 0 then |
449 if gear^.Timer = 0 then |
451 begin |
450 begin |
452 if cMinesTime < 0 then |
451 if cMinesTime < 0 then |
453 gear^.Timer:= getrandom(13)*100 |
452 gear^.Timer:= getrandom(13)*100 |
454 else |
453 else |