changeset 6119 | 91792f506371 |
parent 6096 | a00dbbf49d6c |
child 6131 | 4e8816cf9459 |
6118:7684ca4f9808 | 6119:91792f506371 |
---|---|
1281 if (Gear^.State and gstNoDamage) = 0 then |
1281 if (Gear^.State and gstNoDamage) = 0 then |
1282 begin |
1282 begin |
1283 case Gear^.Kind of |
1283 case Gear^.Kind of |
1284 gtHedgehog, |
1284 gtHedgehog, |
1285 gtMine, |
1285 gtMine, |
1286 gtBall, |
|
1287 gtMelonPiece, |
|
1288 gtGrenade, |
|
1289 gtClusterBomb, |
|
1290 gtCluster, |
|
1286 gtSMine, |
1291 gtSMine, |
1287 gtCase, |
1292 gtCase, |
1288 gtTarget, |
1293 gtTarget, |
1289 gtFlame, |
1294 gtFlame, |
1290 gtExplosives, |
1295 gtExplosives, |