585 Dispose(t) |
585 Dispose(t) |
586 end; |
586 end; |
587 end; |
587 end; |
588 |
588 |
589 procedure AddMiscGears; |
589 procedure AddMiscGears; |
590 var i: Longword; |
590 var i,rx, ry: Longword; |
|
591 rdx, rdy: hwFloat; |
591 Gear: PGear; |
592 Gear: PGear; |
592 begin |
593 begin |
593 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
594 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
594 |
595 |
595 i:= 0; |
596 i:= 0; |
630 if (GameFlags and gfLaserSight) <> 0 then |
631 if (GameFlags and gfLaserSight) <> 0 then |
631 cLaserSighting:= true; |
632 cLaserSighting:= true; |
632 |
633 |
633 if (GameFlags and gfArtillery) <> 0 then |
634 if (GameFlags and gfArtillery) <> 0 then |
634 cArtillery:= true; |
635 cArtillery:= true; |
|
636 |
|
637 for i:= 0 to GetRandom(10)+30 do |
|
638 begin rx:= GetRandom(rightX-leftX)+leftX; |
|
639 ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
|
640 rdx:= _90-(GetRandomf*_360); |
|
641 rdy:= _90-(GetRandomf*_360); |
|
642 AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF); |
|
643 end; |
635 |
644 |
636 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
645 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
637 for i:= 0 to Pred(vobCount*2) do |
646 for i:= 0 to Pred(vobCount*2) do |
638 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0); |
647 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0); |
639 end; |
648 end; |