equal
deleted
inserted
replaced
234 if (GameFlags and gfAISurvival) <> 0 then |
234 if (GameFlags and gfAISurvival) <> 0 then |
235 if gear^.Hedgehog^.BotLevel > 0 then |
235 if gear^.Hedgehog^.BotLevel > 0 then |
236 gear^.Hedgehog^.Effects[heResurrectable] := 1; |
236 gear^.Hedgehog^.Effects[heResurrectable] := 1; |
237 end; |
237 end; |
238 gtShell: begin |
238 gtShell: begin |
|
239 gear^.Elasticity:= _0_8; |
|
240 gear^.Friction:= _0_8; |
239 gear^.Radius:= 4; |
241 gear^.Radius:= 4; |
240 gear^.Density:= _1; |
242 gear^.Density:= _1; |
|
243 gear^.AdvBounce:= 1; |
241 end; |
244 end; |
242 gtSnowball: begin |
245 gtSnowball: begin |
243 gear^.ImpactSound:= sndMudballImpact; |
246 gear^.ImpactSound:= sndMudballImpact; |
244 gear^.nImpactSounds:= 1; |
247 gear^.nImpactSounds:= 1; |
245 gear^.Radius:= 4; |
248 gear^.Radius:= 4; |
246 gear^.Elasticity:= _1; |
|
247 gear^.Friction:= _1; |
|
248 gear^.Density:= _0_5; |
249 gear^.Density:= _0_5; |
|
250 gear^.AdvBounce:= 1; |
|
251 gear^.Elasticity:= _0_8; |
|
252 gear^.Friction:= _0_8; |
249 end; |
253 end; |
250 |
254 |
251 gtFlake: begin |
255 gtFlake: begin |
252 with Gear^ do |
256 with Gear^ do |
253 begin |
257 begin |
325 gear^.State:= gear^.State or gstMoving; |
329 gear^.State:= gear^.State or gstMoving; |
326 gear^.Radius:= 2; |
330 gear^.Radius:= 2; |
327 gear^.Elasticity:= _0_55; |
331 gear^.Elasticity:= _0_55; |
328 gear^.Friction:= _0_995; |
332 gear^.Friction:= _0_995; |
329 gear^.Density:= _1_6; |
333 gear^.Density:= _1_6; |
|
334 gear^.AdvBounce:= 1; |
330 if gear^.Timer = 0 then gear^.Timer:= 500; |
335 if gear^.Timer = 0 then gear^.Timer:= 500; |
331 end; |
336 end; |
332 gtKnife: begin |
337 gtKnife: begin |
|
338 gear^.AdvBounce:= 1; |
|
339 gear^.Elasticity:= _0_8; |
|
340 gear^.Friction:= _0_8; |
333 gear^.Density:= _4; |
341 gear^.Density:= _4; |
334 gear^.Radius:= 7 |
342 gear^.Radius:= 7 |
335 end; |
343 end; |
336 gtCase: begin |
344 gtCase: begin |
337 gear^.ImpactSound:= sndGraveImpact; |
345 gear^.ImpactSound:= sndGraveImpact; |
339 gear^.Radius:= 16; |
347 gear^.Radius:= 16; |
340 gear^.Elasticity:= _0_3; |
348 gear^.Elasticity:= _0_3; |
341 if gear^.Timer = 0 then gear^.Timer:= 500 |
349 if gear^.Timer = 0 then gear^.Timer:= 500 |
342 end; |
350 end; |
343 gtExplosives: begin |
351 gtExplosives: begin |
|
352 gear^.AdvBounce:= 1; |
344 gear^.ImpactSound:= sndGrenadeImpact; |
353 gear^.ImpactSound:= sndGrenadeImpact; |
345 gear^.nImpactSounds:= 1; |
354 gear^.nImpactSounds:= 1; |
346 gear^.Radius:= 16; |
355 gear^.Radius:= 16; |
347 gear^.Elasticity:= _0_4; |
356 gear^.Elasticity:= _0_4; |
348 gear^.Friction:= _0_995; |
357 gear^.Friction:= _0_995; |
364 gear^.Friction:= _0_03; |
373 gear^.Friction:= _0_03; |
365 gear^.Density:= _2; |
374 gear^.Density:= _2; |
366 if gear^.Timer = 0 then gear^.Timer:= 5000; |
375 if gear^.Timer = 0 then gear^.Timer:= 5000; |
367 end; |
376 end; |
368 gtCluster: begin |
377 gtCluster: begin |
|
378 gear^.AdvBounce:= 1; |
|
379 gear^.Elasticity:= _0_8; |
|
380 gear^.Friction:= _0_8; |
369 gear^.Radius:= 2; |
381 gear^.Radius:= 2; |
370 gear^.Density:= _1_5; |
382 gear^.Density:= _1_5; |
371 gear^.RenderTimer:= true |
383 gear^.RenderTimer:= true |
372 end; |
384 end; |
373 gtShover: gear^.Radius:= 20; |
385 gtShover: gear^.Radius:= 20; |
407 gtTardis: begin |
419 gtTardis: begin |
408 gear^.Pos:= 1; |
420 gear^.Pos:= 1; |
409 gear^.Z:= cCurrHHZ+1; |
421 gear^.Z:= cCurrHHZ+1; |
410 end; |
422 end; |
411 gtMortar: begin |
423 gtMortar: begin |
|
424 gear^.AdvBounce:= 1; |
412 gear^.Radius:= 4; |
425 gear^.Radius:= 4; |
413 gear^.Elasticity:= _0_2; |
426 gear^.Elasticity:= _0_2; |
414 gear^.Friction:= _0_08; |
427 gear^.Friction:= _0_08; |
415 gear^.Density:= _1; |
428 gear^.Density:= _1; |
416 end; |
429 end; |
441 gear^.Density:= _1_5; |
454 gear^.Density:= _1_5; |
442 gear^.RenderTimer:= true; |
455 gear^.RenderTimer:= true; |
443 if gear^.Timer = 0 then gear^.Timer:= 5000 |
456 if gear^.Timer = 0 then gear^.Timer:= 5000 |
444 end; |
457 end; |
445 gtDrill: begin |
458 gtDrill: begin |
|
459 gear^.AdvBounce:= 1; |
|
460 gear^.Elasticity:= _0_8; |
|
461 gear^.Friction:= _0_8; |
446 if gear^.Timer = 0 then |
462 if gear^.Timer = 0 then |
447 gear^.Timer:= 5000; |
463 gear^.Timer:= 5000; |
448 // Tag for drill strike. if 1 then first impact occured already |
464 // Tag for drill strike. if 1 then first impact occured already |
449 gear^.Tag := 0; |
465 gear^.Tag := 0; |
450 gear^.Radius:= 4; |
466 gear^.Radius:= 4; |
482 gear^.Radius:= 16; // todo: check |
498 gear^.Radius:= 16; // todo: check |
483 gear^.Health := 2000; |
499 gear^.Health := 2000; |
484 gear^.FlightTime := 2; |
500 gear^.FlightTime := 2; |
485 end; |
501 end; |
486 gtEgg: begin |
502 gtEgg: begin |
|
503 gear^.AdvBounce:= 1; |
487 gear^.Radius:= 4; |
504 gear^.Radius:= 4; |
488 gear^.Elasticity:= _0_6; |
505 gear^.Elasticity:= _0_6; |
489 gear^.Friction:= _0_96; |
506 gear^.Friction:= _0_96; |
490 gear^.Density:= _1; |
507 gear^.Density:= _1; |
491 if gear^.Timer = 0 then |
508 if gear^.Timer = 0 then |
532 end; |
549 end; |
533 gtWaterUp: begin |
550 gtWaterUp: begin |
534 gear^.Tag := 47; |
551 gear^.Tag := 47; |
535 end; |
552 end; |
536 gtNapalmBomb: begin |
553 gtNapalmBomb: begin |
|
554 gear^.AdvBounce:= 1; |
|
555 gear^.Elasticity:= _0_8; |
|
556 gear^.Friction:= _0_8; |
537 if gear^.Timer = 0 then gear^.Timer:= 1000; |
557 if gear^.Timer = 0 then gear^.Timer:= 1000; |
538 gear^.Radius:= 5; |
558 gear^.Radius:= 5; |
539 gear^.Density:= _1_5; |
559 gear^.Density:= _1_5; |
540 end; |
560 end; |
541 { |
561 { |