void TPlanet::MPacketCrash(const TMineralPacket& packet){
 TPlanet::This = this;
 TPlayer *pMOwner = m_pOwner;
 TPlayer *pPOwner = TPlayers::This->GetPlayer(m_IdOwner);
 TNetOStream *pMstream,*pPstream;
 if(m_IdOwner==packet.m_IdOwner){
   // Свой пакет на свою планету
   ....
 }
 else if(m_IdOwner){
   // Свой пакет на чужую обитаемую планету
   .....
 }
 else{
   // Свой пакет на необитаемую планету
   ....
 }
 float spdPacket   = eWayPointWarp::m_Speed[packet.Warp()];
 float spdReceiver = 0;
 if(m_Flags2&FLG2_IsMassDrive){
   if(pPOwner->m_Advantage&eADV::m_Flags[eADV::AdvancedMassDrivers])
     spdReceiver = eWayPointWarp::m_Speed[StarBase()->MDSafeWarp()+2];
   else
     spdReceiver = eWayPointWarp::m_Speed[StarBase()->MDSafeWarp()];
   if(spdReceiver>spdPacket) spdReceiver = spdPacket;
 }
 // Извлечение минералов
 const float *packetkT = packet.Mineral();
 float prcCaughtSafely = spdReceiver/spdPacket;
 float prcRemainder    = (1.0-prcCaughtSafely)/3;

 for(BYTE m=0;m<eMineral::m_Counter;m++){
   float Extraction = (packetkT[m]*prcCaughtSafely)+(packetkT[m]*prcRemainder);
   m_Quantity[m]+= Extraction;
   if(pPstream) pPstream->Write(Extraction);
 }
 if(NOT m_IdOwner) return;
 // Разрушения
 long OldPopulation = m_Quantity[eMovingMineral::Colonist];
 float& colonist = m_Quantity[eMovingMineral::Colonist];
 float dmgRaw  = ceil((spdPacket-spdReceiver)*packet.AmountWeigh()/160);
 float dmgRaw2 = ceil(dmgRaw*((100.0-DefCoverage(eTypeAttackPlanet::NormalBomb))/100));
 //-----------------------
 // Убийство колонистов
 float kill1 = dmgRaw2*colonist/1000;
 float kill2 = dmgRaw2*100;
 float kill  = max(kill1,kill2);
 if(kill>colonist) kill = colonist;
 colonist-=kill;
 pPstream->Write((long)kill);
 //-----------------------
 // Разрушение зашиты
 long destr2 = dmgRaw2/20;
 long destr1 = floor(dmgRaw2*m_pBuilding->m_Defence/1000);
 long DestroyDefence = min(destr1,destr2);
 if(DestroyDefence > m_pBuilding->m_Defence) DestroyDefence = m_pBuilding->m_Defence;
 m_pBuilding->m_Defence-=(BYTE)DestroyDefence;
 if(m_pBuilding->m_Defence==0){
   m_pBuilding->m_IdDefence = NO_ITEM;
 }
 pPstream->Write((BYTE)DestroyDefence);
 //-----------------------
 // Разрушение фабрик
 destr1  = floor(dmgRaw2*m_pBuilding->m_Factories/1000);
 long DestroyFactory = min(destr1,destr2);
 if(DestroyFactory > m_pBuilding->m_Factories) DestroyFactory = m_pBuilding->m_Factories;
 m_pBuilding->m_Factories-=(short)DestroyFactory;
 pPstream->Write((short)DestroyFactory);
 //-----------------------
 // Разрушение шахт
 destr1  = floor(dmgRaw2*m_pBuilding->m_Mines/1000);
 long DestroyMine = min(destr1,destr2);
 if(DestroyMine > m_pBuilding->m_Mines) DestroyMine = m_pBuilding->m_Mines;
 m_pBuilding->m_Mines-=(short)DestroyMine;
 pPstream->Write((short)DestroyMine);

 if(r4x_EventLogFlags){...}

 if((long)colonist<=0){
   // Блин, всех убило
   ...
   return;
 }
 // Полное обновление
 ....
}