Раскопки обжа на предмет юзабельных вещей

Код:

// Оптимизаций почти нет, код старался оставить похожим на исходник
function TSHIP.AttackedBy(AttackedShip)
{
this->___SetVar(0, P_GetAbsTime());

// Похоже на проверку активен ли атакуемый корабль, т.е. находится ли он
// в секторе с игроком
if(AttackedShip)
{
// Существует ли атакующий корабль
var Attacker = SA_GetEventObject(AttackedShip);
if(Attacker)
{
// Если атакующий корабль станция или авианосец и действие атакуемого -
// приземлиться, то ничего не делать
if(Attacker->IsClass(TSTATION) || Attacker->IsClass(TSHIP_CARRIER) && Attacker == TSHIP.sh_ActionTarget)
{
if(TSHIP.sh_IsLanding)
{TSHIP.sh_IsLanding = -1;}
if(TSHIP.sh_IsStarting)
{TSHIP.sh_IsStarting = -1;}
SA_StopObject(TSHIP.sh_ObjectID, 2);
return(0);
}

THITLIST.Add(Attacker, this);

// Если у атакуемого и атакующего есть владельцы, при этом они не
// не одна и та же раса и атакующий - корабль игрока
// Перейти к коду обеспечивающему захват корабля
if(TSHIP.sh_Owner && Attacker->GetOwner() && Attacker->GetOwner() != TSHIP.sh_Owner && Attacker == TCLIENT.GetPlayerShip())
{
// Измерить текущую и максимальную ёмкость щитов
var ShieldLevel = SA_GetShield(TSHIP.sh_ObjectID);
var MaxShieldLevel = SA_GetMaxShield(TSHIP.sh_ObjectID);
// Лишить игрока лицензии
TCLIENT.GetPlayer()->LoseLicense(TSHIP.sh_Owner);
// Если у атакуемого есть кокпит и это не корабль игрока и нету флага
// невозможности захвата
if(SA_GetShipTypeCockpitBody(TSHIP.sh_SubType) && TSHIP.sh_Owner->GetID() != 9 && !this->___GetVar(5))
{
// Если текущая ёмкость щитов < 5%
if(ShieldLevel > 0 && (ShieldLevel < MaxShieldLevel / 20))
{
// Если последняя попытка захватить корабль делалась больше минуты назад
if(P_CmpTime(P_GetAbsTime(), TSHIP.sh_LastTakeoverChanceTime) > 60000)
{
// Запишем время текущей попытки
TSHIP.sh_LastTakeoverChanceTime = P_GetAbsTime();
// Изначальная вероятность захвата 20%
var CaptureProbability = 20;
// Если корабль игрока слабее вражеского, то 30%
if(Attacker->GetStrength() < this->GetStrength())
{CaptureProbability = 30;}
// Если корабль игрока называется EGOSOFT, то 35%
if(!SE_strcmp(Attacker->GetYourName(), "EGOSOFT"))
{CaptureProbability = 35;}
if(P_Random(1) < CaptureProbability)
{
// Получим имя пилота
var PilotName = this->GetPilotName();
// Если получили ничего то напишем просто Pilot
if(!PilotName) {PilotName = SE_MakeString("Pilot");}
// Сформируем строчку для лога о том, что пилот отдал корабль
var PilotLeftShipStr = SE_StringSPrintf(SE_ReadText(1100055), PilotName, this->GetName());
// Напишем в лог
TCLIENT.GetPlayer()->LogString(PilotLeftShipStr);
// Очистим созданные строки
SE_FreeString(PilotName);
SE_FreeString(PilotLeftShipStr);
// Выкидываем скафандр, отдаём корабль и выходим из функции
this->LeaveShip();
return(0);
}
}
}
}
}

// Узнать максимальный лазер
var AttackerMaxLaser = Attacker->GetMaxLaser() + 10;
// Запустить функцию повреждения оборудования
this->MakeDamage(P_Random(AttackerMaxLaser) + 10);

// Если атакуемый и атакующий разных рас и атакующий - корабль игрока -
// снять репутацию
if(TSHIP.sh_Owner && Attacker->GetOwner() && Attacker->GetOwner() != TSHIP.sh_Owner && Attacker->GetOwner() == TCLIENT.GetPlayer())
{
var LastNotorietyHit = TCLIENT.GetPlayer()->GetLastNotorietyHitTime();
if(P_CmpTime(P_GetAbsTime(), LastNotorietyHit) > 60000)
{
TSHIP.sh_Owner->AddNotoriety(Attacker->GetOwner(), -1);
TCLIENT.GetPlayer()->SetLastNotorietyHitTime(P_GetAbsTime());
}
}

}

// Если это не корабль игрока, но игрок владелец и это не боевой дрон -
// уведомить о том что корабль атакован
if(!TSHIP.sh_IsPlayer && TSHIP.sh_Owner && TSHIP.sh_Owner->GetID() == 9 && !this->IsClass(TFIGHTDRONE)) {
TCLIENT.NotifyAttacked(this);
}

// Если это корабль игрока мигать красным на карте что он атакован
if(TSHIP.sh_IsPlayer && AttackedShip && Attacker) {
TSHIP.sh_LastAttackTime = P_GetAbsTime();
TSHIP.sh_Attacker = Attacker;
}

}
}