equal
deleted
inserted
replaced
101 (* gtTardis *) , amTardis |
101 (* gtTardis *) , amTardis |
102 (* gtIceGun *) , amIceGun |
102 (* gtIceGun *) , amIceGun |
103 (* gtAddAmmo *) , amNothing |
103 (* gtAddAmmo *) , amNothing |
104 (* gtGenericFaller *) , amNothing |
104 (* gtGenericFaller *) , amNothing |
105 (* gtKnife *) , amKnife |
105 (* gtKnife *) , amKnife |
|
106 (* gtAirMine *) , amAirMine |
106 ); |
107 ); |
107 |
108 |
108 |
109 |
109 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
110 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
110 |
111 |
357 gear^.Timer:= getrandom(51)*100 |
358 gear^.Timer:= getrandom(51)*100 |
358 else |
359 else |
359 gear^.Timer:= cMinesTime |
360 gear^.Timer:= cMinesTime |
360 end |
361 end |
361 end; |
362 end; |
|
363 gtAirMine: begin |
|
364 gear^.ImpactSound:= sndDenied; |
|
365 gear^.nImpactSounds:= 1; |
|
366 gear^.Health:= 30; |
|
367 gear^.State:= gear^.State or gstMoving or gstNoGravity; |
|
368 gear^.Radius:= 3; |
|
369 gear^.Elasticity:= _0_55; |
|
370 gear^.Friction:= _0_995; |
|
371 gear^.Density:= _1; |
|
372 gear^.Angle:= 125; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
|
373 gear^.Power:= 536871; // hwFloat converted. 1/4 g default. defines the "seek" speed when a gear is in range. |
|
374 gear^.Pos:= 134217; // air friction. slows it down when not hitting stuff |
|
375 gear^.Karma:= 30; // damage |
|
376 gear^.Timer:= 500; |
|
377 end; |
362 gtSMine: begin |
378 gtSMine: begin |
363 gear^.Health:= 10; |
379 gear^.Health:= 10; |
364 gear^.State:= gear^.State or gstMoving; |
380 gear^.State:= gear^.State or gstMoving; |
365 gear^.Radius:= 2; |
381 gear^.Radius:= 2; |
366 gear^.Elasticity:= _0_55; |
382 gear^.Elasticity:= _0_55; |