//проставляем вероятности:
// углеродная на основе воды
carbonlife_water_chance = 0
if (Planet.Type == Terra and Planet.Temperature > 0 and Planet.Temperature < 100)
    {carbonlife_water_chance = 0.2} else
if (Planet.Type == Oceanida and Planet.Temperature > 0 and Planet.Temperature < 100)
    {carbonlife_water_chance = 0.3} else
if (Planet.Type == Desert and Planet.Temperature > 0 and Planet.Temperature < 100)
    {carbonlife_water_chance = 0.02}

// углеродная на основе аммиака
carbonlife_ammonia_chance = 0
if (Planet.Type == Terra and Planet.Temperature > -70 and Planet.Temperature < -35)
    {carbonlife_ammonia_chance = 0.01} else
if (Planet.Type == Oceanida and Planet.Temperature > -70 and Planet.Temperature < -35)
//на холодных океанидах возможны моря аммиака?
    {carbonlife_ammonia_chance = 0.01} else  
if (Planet.Type == Desert and Planet.Temperature > -70 and Planet.Temperature < -35)
    {carbonlife_ammonia_chance = 0.005}

// кремниевая на основе серной кислоты
siliconlife_sulfuricacid_chance = 0
if (Planet.Type == Terra and Planet.Temperature > -10 and Planet.Temperature < 270)
    {siliconlife_sulfuricacid_chance = 0.005} else
if (Planet.Type == Oceanida and Planet.Temperature > -10 and Planet.Temperature < 270)
// бывают горячие океаниды? на них могут быть моря серной кислоты или расплавленного
// кварца под парами воды?
    {siliconlife_sulfuricacid_chance = 0.005} else
if (Planet.Type == Desert and Planet.Temperature > -10 and Planet.Temperature < 270)
    {siliconlife_sulfuricacid_chance = 0.01}

// кремниевая на основе диоксида кремния
siliconlife_silica_chance = 0
if (Planet.Type == Terra and Planet.Temperature > 1730)
    {siliconlife_silica_chance = 0.005} else
if (Planet.Type == Oceanida and Planet.Temperature > 1730)
    {siliconlife_silica_chance = 0.005} else
if (Planet.Type == Desert and Planet.Temperature > 1730)
    {siliconlife_silica_chance = 0.01}

// цифры с потолка, в подгоне этих вероятностей весь прикол
// по уму их надо высчитывать из всяких химических параметров планеты

Planet.Formation = 500 //даем время на формирование планеты, может быть разным
Planet.Life = False

//считаем рандомом возможную дату возникновения каждой из форм жизни
carbonlife_water_date = Planet.Formation + Fn(1- random(carbonlife_water_chance) )
//Fn имеется в виду какая то функция типа параболы, при которой
//чем больше получается 1 - chance тем больше результат в миллионах лет
// Fn(1 - 0) стремится к бесконечности (при шансе = ноль жизнь никогда не возникает)  

//аналогично:
carbonlife_ammonia_date = Planet.Formation + Fn(1- random(carbonlife_ammonia_chance) )
siliconlife_sulfuricacid_date = Planet.Formation + Fn(1- random(siliconlife_sulfuricacid_chance) )
siliconlife_silica_date = Planet.Formation + Fn(1- random(siliconlife_silica_chance) )

//сравниваем:
if (carbonlife_water_date < carbonlife_ammonia_date)
    {if (carbonlife_water_date < siliconlife_sulfuricacid_date)
       {if (carbonlife_water_date < siliconlife_silica_date)
          {
            Planet.Life_chem_type = carbonlife_water
            if (Planet.Age >= carbonlife_water_date) {Planet.Life = True}
           }
        else {
            Planet.Life_chem_type = siliconlife_silica
            if (Planet.Age >= siliconlife_silica_date) {Planet.Life = True}
          }
     else....
// короче выбираем самую меньшую из 4 переменных
// присваимваем соответсвующее значение Planet.Life_chem_type
// и узнаем появилась ли жизнь к данному моменту