equal
deleted
inserted
replaced
768 Gear^.dX.isNegative:= p = 1; |
768 Gear^.dX.isNegative:= p = 1; |
769 end |
769 end |
770 end; |
770 end; |
771 t:= LAND_WIDTH div 2 |
771 t:= LAND_WIDTH div 2 |
772 end |
772 end |
773 end else // mix hedgehogs |
773 end |
|
774 else // mix hedgehogs |
774 begin |
775 begin |
775 Count:= 0; |
776 Count:= 0; |
776 for p:= 0 to Pred(TeamsCount) do |
777 for p:= 0 to Pred(TeamsCount) do |
777 with TeamsArray[p]^ do |
778 with TeamsArray[p]^ do |
778 begin |
779 begin |
797 ar[i]^.Gear^.Pos:= GetRandom(19) |
798 ar[i]^.Gear^.Pos:= GetRandom(19) |
798 end; |
799 end; |
799 ar[i]:= ar[Count - 1]; |
800 ar[i]:= ar[Count - 1]; |
800 dec(Count) |
801 dec(Count) |
801 end |
802 end |
802 end |
803 end; |
|
804 for p:= 0 to Pred(TeamsCount) do |
|
805 with TeamsArray[p]^ do |
|
806 for i:= 0 to cMaxHHIndex do |
|
807 with Hedgehogs[i] do |
|
808 if (Gear <> nil) and (Gear^.State and gsttmpFlag <> 0) then |
|
809 begin |
|
810 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50); |
|
811 ForcePlaceOnLand(hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2, |
|
812 hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2, |
|
813 sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
|
814 Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - 16 - Gear^.Radius); |
|
815 Gear^.State:= Gear^.State and not gsttmpFlag; |
|
816 AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
|
817 end |
803 end; |
818 end; |
804 |
819 |
805 |
820 |
806 {procedure AmmoFlameWork(Ammo: PGear); |
821 {procedure AmmoFlameWork(Ammo: PGear); |
807 var t: PGear; |
822 var t: PGear; |