equal
deleted
inserted
replaced
450 doMakeExplosion(x, y, 20, Gear^.Hedgehog, EXPLAutoSound); |
450 doMakeExplosion(x, y, 20, Gear^.Hedgehog, EXPLAutoSound); |
451 for i:= 0 to 4 do |
451 for i:= 0 to 4 do |
452 begin |
452 begin |
453 dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5; |
453 dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5; |
454 dY := (GetRandom - _3) * _0_08; |
454 dY := (GetRandom - _3) * _0_08; |
455 AddGear(x, y, gtCluster, 0, dX, dY, 25); |
455 FollowGear := AddGear(x, y, gtCluster, 0, dX, dY, 25) |
456 end |
456 end |
457 end; |
457 end; |
458 gtWatermelon: |
458 gtWatermelon: |
459 begin |
459 begin |
460 x := hwRound(Gear^.X); |
460 x := hwRound(Gear^.X); |
462 doMakeExplosion(x, y, 75, Gear^.Hedgehog, EXPLAutoSound); |
462 doMakeExplosion(x, y, 75, Gear^.Hedgehog, EXPLAutoSound); |
463 for i:= 0 to 5 do |
463 for i:= 0 to 5 do |
464 begin |
464 begin |
465 dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5; |
465 dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5; |
466 dY := (GetRandom - _1_5) * _0_3; |
466 dY := (GetRandom - _1_5) * _0_3; |
467 AddGear(x, y, gtMelonPiece, 0, dX, dY, 75)^.DirAngle := i * 60; |
467 FollowGear:= AddGear(x, y, gtMelonPiece, 0, dX, dY, 75); |
|
468 FollowGear^.DirAngle := i * 60 |
468 end |
469 end |
469 end; |
470 end; |
470 gtHellishBomb: |
471 gtHellishBomb: |
471 begin |
472 begin |
472 x := hwRound(Gear^.X); |
473 x := hwRound(Gear^.X); |
488 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLAutoSound); |
489 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLAutoSound); |
489 for i:= 0 to 2 do |
490 for i:= 0 to 2 do |
490 begin |
491 begin |
491 x:= GetRandom(60); |
492 x:= GetRandom(60); |
492 y:= GetRandom(40); |
493 y:= GetRandom(40); |
493 AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0); |
494 FollowGear:= AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0); |
494 end |
495 end |
495 end; |
496 end; |
496 end; |
497 end; |
497 DeleteGear(Gear); |
498 DeleteGear(Gear); |
498 exit |
499 exit |