Без мёда, мельдония, безумных и реликтовых камазов, двенадцатью грузовиками, если не спать, отслеживая потери, за 14 дней можно навозить примерно 130000...190000 патриотизма. С мёдом - примерно 900000...1300000.

Программа есть. Размещу её тут позже.

И можете составить простенькую табличку в майкрософт эксель для 12 обычных грузовиков с усилениями за державки.  Копировать сюда пять формул для безумных мне откровенно неохота. Поверьте на слово - они привозят почти в полтора раза больше, чем 12 обычных.

обычный грузовик находит 20-100 патриотизма, вмещает 80 патриотизма, время поездки 2 часа, шанс потеряться 20%, шанс найти месторождение 2%.

в ячейки В1...М1 введите названия грузовиков (президентский, нефтегазовый и так далее)
в ячейки А2...А218 - повторяющиеся последовательности чисел от 0 до 22 через 2 (0, 2,  4, 6, 8 и так далее) . Это будет время поездок обычных грузовичков без мёда, но с державками.
в ячейку В3 введите формулу =ЕСЛИ(СЛУЧМЕЖДУ(1;5)-$N3=0;0;ЕСЛИ(СЛУЧМЕЖДУ(1;50)=$O3;$P3+СЛУЧМЕЖДУ(20;80);СЛУЧМЕЖДУ(20;80)))
Эту ячейку В3 "зацепите" мышью и тащите до ячейки М3, чтобы заполнить ячейки рядом значений.
далее таким же способом (зацепить и тащить) заполните формулой ячейки В4...М218
в ячейку N3 введите формулу =СЛУЧМЕЖДУ(1;5). зацепите ячейку мышью и тащите до ячейки N218, заполняя их рядом значений
в ячейку О3 введите формулу =СЛУЧМЕЖДУ(1;50). зацепите и тащите до ячейки О218
в ячейку Р3 введите формулу =ЕСЛИ(СЛУЧМЕЖДУ(1;2)=1;1000;4000). зацепите и тащите до ячейки Р218

в ячейку В224 введите текст (здесь и далее: текст вводить без кавычек)
"процент потерь когда нет каски (за 14 дней)"
в ячейку В225 введите формулу =(СЧЁТЕСЛИ(B3:B170;0)/СЧЁТЕСЛИ(B3:B170;">0"))*100
зацепите ячейку и тащите её до ячейки М225, заполняя рядом значений

в ячейку В226 введите текст
"процент потерь когда есть каска (за 18 дней)"
в ячейку В227 введите формулу =(СЧЁТЕСЛИ(B3:B218;0)/СЧЁТЕСЛИ(B3:B218;">0"))*100
зацепите ячейку и тащите её до ячейки М227, заполняя рядом значений

в ячейку В229 введите текст
"средний процент потерь по всем грузовикам"
в ячейку В230 введите текст
"за 14 дней"
в ячейку D230 введите текст
"за 18 дней (с каской)"

в ячейку В231 введите формулу =(СЧЁТЕСЛИ(B3:M170;0)/СЧЁТЕСЛИ(B3:M170;">0"))*100
в ячейку D231 введите формулу =(СЧЁТЕСЛИ(B3:M218;0)/СЧЁТЕСЛИ(B3:M218;">0"))*100

в ячейку Н229 введите текст
"обычные привезли патриотизма"
в ячейку Н230 введите текст
"за 14 дней"
в ячейку I230 введите текст 
"за 18 дней"
в ячейку Н231 введите формулу =СУММ(B3:M170)
в ячейку I231 введите формулу =СУММ(B3:M218)

в ячейку В234 введите текст
"шанс найти месторождение (в процентах) за 14 дней"
в ячейку В235 введите формулу =(СЧЁТЕСЛИ(B3:B170;">999")/СЧЁТЕСЛИ(B3:B170;">0"))*100
зацепите и тащите эту ячейку до ячейки М235, заполняя рядом значений

в ячейку В236 введите текст
"шанс найти месторождение (в процентах) за 18 дней"
в ячейку В237 введите формулу =(СЧЁТЕСЛИ(B3:B218;">999")/СЧЁТЕСЛИ(B3:B218;">0"))*100
зацепите и тащите эту ячейку до ячейки М237, заполняя рядом значений

в ячейку В240 введите текст
"суммарный шанс найти месторождение по обычным грузовикам (в процентах)"
в ячейку С242 введите текст
"за 14 дней"
в ячейку С243 введите текст
"за 18 дней"

в ячейку F242 введите формулу =(СЧЁТЕСЛИ(B3:M170;">999")/СЧЁТЕСЛИ(B3:M170;">0"))*100
в ячейку F243 введите формулу =(СЧЁТЕСЛИ(B3:M218;">999")/СЧЁТЕСЛИ(B3:M218;">0"))*100 

чтобы данные пересчитывались, можно вводить в любую пустую ячейку цифру, букву, либо просто нажимать на клавишу Delete