[DinarMayor]

---

Скрипты мода DenMod

---

---

В этой теме будут выкладываться и обсуждаться новые скрипты мода. Также буду рад предложениям и идеям для скриптов - возможно что-то хотели бы увидеть в моде, а может исправить/изменить уже имеющейся скрипт. В шапке темы будут описания только тех скриптов, которые внедрены в текущую(доступную) версию мода, а все новые будут в этой теме.

---

Описание скриптов (Reveal)

В моде параллельно работают три вида скриптов: обычные скрипты меди2, скрипты советника, скрипты на языке Lua.
В основном все написано именно на луа, что расширяет возможности скриптинга в меди и уменьшает скорость перехода хода. Сейчас это от 15-ти секунд до 2 минут - зависит от кол-ва персонажей на страт карте. Вот примерно как меняется время перехода хода:

2 ход	- 00:15
34 ход	- 00:37
121 ход - 01:58
159 ход - 01:25
186 ход - 02:01
199 ход - 01:35
229 ход - 02:05

В следующей версии будет еще быстрее - будут переписаны оставшиеся скрипты меди и советника, а также триггеры трейтов и анчей. Но вернуть скорость ванилы не получиться, т.к. увеличен параметр, отвечающий за построение маршрута для ИИ. Если вернуть ванильное значение, то ИИ будет на много тупее.

Итак, собственно, некоторые скрипты:

Контроль над вассалами (Reveal)

Если у игрока появился вассал, то он может включить передачу ходов своему вассалу, т.е. во время перехода хода будет возможность делать ходы еще и за них. По умолчанию отключен. Включить можно нажатием кнопки "Установить контроль над вассалами" в меню найма поселения. Если вассалов будет слишком много и не хочется за каждого из них ходить, то можно включать/отключать передачу хода индивидуально для каждого из них - кнопка F5.

Spoiler (expand)

Не стоит на одном и том же ходу объявлять войну союзнику или вассалу и сразу делать его вассалом - скрипт может не сработать для этой фракции. Также не рекомендую получать отказ в дип.переговорах играя за вассала - скрипт может перестать работать для этой фракции. Это очередные причуды движка.

Увольнение персонажа (Reveal)

В моде есть возможность уволить(убить) некоторых агентов. Для этого нужно открыть свиток персонажа, он должен быть вне города и т.п., нажать на кнопку вопроса, а дальше по инструкции

Spoiler (expand)

Смена наследника (Reveal)

Есть возможность сменить наследника. Для этого нужно открыть семейное древо. Выбрать нужного персонажа, нажать на кнопку вопроса и в появившемся советнике нажать кнопку "Урок". За каждую смену наследника будет изыматься некоторая сумма из казны.

Spoiler (expand)

Вид на город (Reveal)

Можно посмотреть на город на тактике.

Скрипт дезертирства и пополнение армии (Reveal)

Дезертирство армии будет происходить автоматически на нейтральных или враждебных землях - каждый ход с каждого отряда будет дезертировать по несколько человек.
Поставить армию на пополнение можно только в своих или союзных землях. Для этого нужно нажать на кнопку "Просмотр сведений об охране полководца" и следовать инструкции. Должен появиться трейт "Пополнение армии", но учтите, что в меди есть один глюк, когда последний трейт не виден. Поэтому может повторить по несколько раз - деньги за пополнение снимаются не сразу.

Spoiler (expand)

Гарнизонный скрипт и скрипт ГФ(гарнизон в фортах) (Reveal)

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

Авто объявление войны (Reveal)

Теперь при пересечение границы нейтральной фракции автоматически рандомно будет объявляется война.
Если армия в походе, то нет. Крестоносцы получают право прохода по землям католиков, а участники джихада по землям мусульман.
При исключение из церкви автоматически объявляется война Папе.

Наем войск - население (Reveal)

Теперь население города напрямую зависит от найма и обратно. Если в поселения меньше или равно 1000 человек, то нанимать уже будет нельзя. При найме вычитается население из поселения и обратно прибавляется при роспуске, причем роспуск в чужих землях прибавит население им, т.е, проще говоря, где распустил, там и плюс к населению. Это не касается флота - роспуск не пополняет население.

Смена религии (Reveal)

Если у какой-то фракции в каждом поселение одновременно та или иная религия больше или равно 55%, то фракция обращается в новую веру, все прежние постройки рушатся и появляются новые. Внешний вид священнослужителей остается, пока, тем же. Это действует на все фракции, кроме Папы, Монголов, Тимуридов и мятежников.

Штурм с ходу (Reveal)

Этот скрипт заставляет ИИ штурмовать города без осады, т.е. если у ИИ в стеке есть осадные орудия(баллисты, катапульты и прочее), то он может решить штурмовать с ходу, без предварительных ласк.

Это были основные скрипты. Также в моде присутствую и другие скрипты, но их не нужно объяснять. Скрипты будут обновляться и добавляться новые - это основа этого мода.

---

Номер карты для тех, кто хочет отблагодарить разработчика:
СберБанк: 2202 2063 6114 3568

---

[DinarMayor]

DinarMayor

Так же нужно убрать все осадные орудия(пушки, баллисты и прочее) из ЕДУ и вписать по одному общему. Сейчас на все орудия тратится около 44 слотов ЕДУ. Почти для каждой культуры своя баллиста, свои катапульты и прочее. Так вот, можно переместить эти 44 юнита в +500 луа юниты, а в ЕДУ и ЕДБ вписать общие, а при найме проверять фракцию и заменять их на соответствующие из луа юнитов. В общем, примерно, можно сэкономить 30 слотов в ЕДУ.

Готово) Освободил 26 слотов в ЕДУ. Можно было еще парочку, но не стал трогать наемные орудия. Наемниками позже займусь.

Сам скрипт. Можно было конечно сделать скрипт более симпатичным) в плане объема - меньше строк чтоб было. Можно было завести таблицу и т.д. Но суть скрипта не меняется по идее - проверка юнита и фракции.

Spoiler (expand)

--- замена осадных юнитов
function replacing_siege_units()
	-- NE Ballista
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Ballista.txt",6000);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/GR_Ballista.txt",6001);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Ballista.txt",6002);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Ballista.txt",6003);
	-- NE Catapult
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Catapult.txt",6004);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/GR_Catapult.txt",6005);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Catapult.txt",6006);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Catapult.txt",6007);
	-- NE Trebuchet
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Trebuchet.txt",6008);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/GR_Trebuchet.txt",6009);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Trebuchet.txt",6010);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Trebuchet.txt",6011);
	-- NE Bombard
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Bombard.txt",6012);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/GR_Bombard.txt",6013);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Bombard.txt",6014);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Bombard.txt",6015);
	-- NE Grand Bombard
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Grand_Bombard.txt",6016);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Grand_Bombard.txt",6017);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Grand_Bombard.txt",6018);
	-- NE Ribault
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Ribault.txt",6019);
	-- NE Cannon
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Cannon.txt",6020);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/ME_Cannon.txt",6021);
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Cannon.txt",6022);
	-- NE Serpentine
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Serpentine.txt",6023);
	-- NE Basilisk
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Basilisk.txt",6024);
	-- ME Monster Bombard
	M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/AS_Monster_Bombard.txt",6025);
	-- Mangonel - позже 
end

function unit_replacement(fac, sett, unit)
	if unit.army:findInSettlement()~=nil then
		ourStack = stratmap.game.createArmyInSettlement(sett);
	elseif unit.army.leader~=nil then
		ourStack=unit.army;
	end
	---
	if unit.eduEntry.Type=="NE Ballista" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="hungary" or fac:getFactionName()=="lithuania" then
			-- "EE Ballista"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";		-- чтоб население не прибавлялось
			unit:kill();
			ourStack:createEOPUnit(6000,0,0,0);
		end
		if fac:getFactionName()=="byzantium" or fac:getFactionName()=="georgia" then
			-- "GR Ballista"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6001,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Ballista"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6002,0,0,0);
		end
		if fac:getFactionName()=="mongols" or fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Ballista"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6003,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Catapult" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="hungary" or fac:getFactionName()=="lithuania" then
			-- "EE Catapult"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6004,0,0,0);
		end
		if fac:getFactionName()=="byzantium" or fac:getFactionName()=="georgia" then
			-- "GR Catapult"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6005,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Catapult"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6006,0,0,0);
		end
		if fac:getFactionName()=="mongols" or fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Catapult"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6007,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Trebuchet" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="hungary" or fac:getFactionName()=="lithuania" then
			-- "EE Trebuchet"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6008,0,0,0);
		end
		if fac:getFactionName()=="byzantium" or fac:getFactionName()=="georgia" then
			-- "GR Trebuchet"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6009,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Trebuchet"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6010,0,0,0);
		end
		if fac:getFactionName()=="mongols" or fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Trebuchet"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6011,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Bombard" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="hungary" or fac:getFactionName()=="lithuania" then
			-- "EE Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6012,0,0,0);
		end
		if fac:getFactionName()=="byzantium" or fac:getFactionName()=="georgia" then
			-- "GR Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6013,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6014,0,0,0);
		end
		if fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6015,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Grand Bombard" then
		if fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="lithuania" or fac:getFactionName()=="poland" or fac:getFactionName()=="hungary" then
			-- "EE Grand Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6016,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Grand Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6017,0,0,0);
		end
		if fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Grand Bombard"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6018,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Ribault" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="hungary" then
			-- "EE Ribault"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6019,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Cannon" then
		if fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="lithuania" or fac:getFactionName()=="poland" or fac:getFactionName()=="hungary" then
			-- "EE Cannon"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6020,0,0,0);
		end
		if fac:getFactionName()=="moors" or fac:getFactionName()=="egypt" or fac:getFactionName()=="turks" or fac:getFactionName()=="abbasids" then
			-- "ME Cannon"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6021,0,0,0);
		end
		if fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" then
			-- "AS Cannon"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6022,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Serpentine" then
		if fac:getFactionName()=="poland" or fac:getFactionName()=="hungary" or fac:getFactionName()=="lithuania" then
			-- "EE Serpentine"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6023,0,0,0);
		end
	end
	if unit.eduEntry.Type=="NE Basilisk" then
		if fac:getFactionName()=="russia" or fac:getFactionName()=="novgorod" or fac:getFactionName()=="hungary" then
			-- "EE Basilisk"
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6024,0,0,0);
		end
	end
	if unit.eduEntry.Type=="ME Monster Bombard" then
		if fac:getFactionName()=="timurids" or fac:getFactionName()=="tatar" or fac:getFactionName()=="mongols" then
			-- "AS Monster Bombard" 
			log_always("unit_replacement - "..unit.eduEntry.Type.." "..fac:getFactionName());
			unit.alias="-удалить-";
			unit:kill();
			ourStack:createEOPUnit(6025,0,0,0);
		end
	end
--	if unit.eduEntry.Type=="Mangonel" then			-- позже
--
--		end
--	end
end

Во время найма юнита(эвент onUnitTrained) проверяется что это за юнит, фракция и если все наше, то происходит замена.
Вот эта строка в принципе и внедряет юнит выше лимита

M2TWEOPDU.addEopEduEntryFromFile(M2TWEOP.getModPath().."/youneuoy_Data/unitTypes/
siege/EE_Ballista.txt",6000);

Сам файл с юнитом - EE_Ballista.txt

Spoiler (expand)

type             EE Ballista
dictionary       EE_Ballista      ; Ballista
category         siege
class            missile
voice_type       Heavy
banner faction   main_missile
banner holy      crusade
soldier          EE_Ballista_Crew, 16, 4, 1
engine           ballista
attributes       sea_faring, hardy, can_withdraw, artillery
formation        1.5, 1.5, 3, 3, 3, square
stat_health      1, 0
stat_pri         6, 3, no, 0, 0, melee, artillery_mechanical, piercing, knife, 25, 1.8
;stat_pri_ex      0, 0, 0
stat_pri_attr    no
stat_sec         55, 3, ballista, 180, 50, siege_missile, artillery_mechanical, piercing, none, 25, 1
;stat_sec_ex      0, 0, 0
stat_sec_attr    ap, bp, launching
stat_pri_armour  4, 4, 0, leather
;stat_armour_ex   4, 0, 0, 0, 4, 0, 0, leather
stat_sec_armour  0, 0, flesh
stat_heat        1
stat_ground      0, 0, 0, 0
stat_mental      9, disciplined, highly_trained
stat_charge_dist 30
stat_fire_delay  0
stat_food        60, 300
stat_cost        1, 370, 150, 90, 70, 370, 4, 90
armour_ug_levels 195
armour_ug_models EE_Ballista_Crew
ownership        hungary, novgorod, lithuania, russia, poland, slave
era 0            hungary, novgorod, lithuania, russia, poland, slave
era 1            hungary, novgorod, lithuania, russia, poland, slave
;unit_info        6, 0, 8

Все остальное как обычно делается(пропись моделек, звуков, инфо-карточки и описание).

[DinarMayor]

Добавил описания-эвенты для некоторых страт объектов при клике левой кнопкой мыши на них

Фрагменты срипта

Lua (Reveal)

function addResource()
	clickResource={['name']={},['coords']={}}
	------- уникальные ресурсы
	--- Адрианов вал:
	clickResource.name[1]="adrian_wall"
	clickResCoords={['x']={},['y']={}}
	clickResCoords.x[1]=172
	clickResCoords.y[1]=298
	clickResCoords.x[2]=180
	clickResCoords.y[2]=298
	clickResCoords.numOfCoords=2;
	clickResource.coords[1]=clickResCoords;
	--- католическая церковь:
	clickResource.name[2]="catholic"
	clickResCoords={['x']={},['y']={}}
	clickResCoords.x[1]=191
	clickResCoords.y[1]=229
	clickResCoords.x[2]=254
	clickResCoords.y[2]=166
	clickResCoords.x[3]=285
	clickResCoords.y[3]=220
	clickResCoords.x[4]=166
	clickResCoords.y[4]=171
	clickResCoords.x[5]=304
	clickResCoords.y[5]=213
	clickResCoords.x[6]=300
	clickResCoords.y[6]=252
	clickResCoords.x[7]=267
	clickResCoords.y[7]=301
	clickResCoords.x[8]=177
	clickResCoords.y[8]=260
	--- Jukoman церкови
	clickResCoords.x[9]=197
	clickResCoords.y[9]=237
	clickResCoords.x[10]=187
	clickResCoords.y[10]=265
	clickResCoords.x[11]=254
	clickResCoords.y[11]=157
	clickResCoords.x[12]=101
	clickResCoords.y[12]=158
	clickResCoords.x[13]=263
	clickResCoords.y[13]=191
	clickResCoords.x[14]=232
	clickResCoords.y[14]=197
	clickResCoords.x[15]=246
	clickResCoords.y[15]=240
	clickResCoords.x[16]=240
	clickResCoords.y[16]=265
	clickResCoords.x[17]=239
	clickResCoords.y[17]=288
	clickResCoords.x[18]=282
	clickResCoords.y[18]=328
	clickResCoords.x[19]=183
	clickResCoords.y[19]=193
	clickResCoords.x[20]=196
	clickResCoords.y[20]=214
	clickResCoords.x[21]=153
	clickResCoords.y[21]=235
	clickResCoords.x[22]=162
	clickResCoords.y[22]=259
	clickResCoords.x[23]=142
	clickResCoords.y[23]=298
	clickResCoords.x[24]=171
	clickResCoords.y[24]=313
	clickResCoords.x[25]=282
	clickResCoords.y[25]=234
	clickResCoords.x[26]=271
	clickResCoords.y[26]=221
	clickResCoords.x[27]=301
	clickResCoords.y[27]=197
	clickResCoords.x[28]=281
	clickResCoords.y[28]=181
	clickResCoords.numOfCoords=28;
	clickResource.coords[2]=clickResCoords
	--- православная церковь:
	clickResource.name[3]="orthodox"
	clickResCoords={['x']={},['y']={}}
	clickResCoords.x[1]=344
	clickResCoords.y[1]=318
	clickResCoords.x[2]=355
	clickResCoords.y[2]=161
	clickResCoords.x[3]=356
	clickResCoords.y[3]=195
	clickResCoords.x[4]=486
	clickResCoords.y[4]=177
	clickResCoords.x[5]=373
	clickResCoords.y[5]=249
	clickResCoords.numOfCoords=10;
	clickResource.coords[3]=clickResCoords
	--- языческое капище:
	clickResource.name[4]="pagan"
	clickResCoords={['x']={},['y']={}}
	clickResCoords.x[1]=324
	clickResCoords.y[1]=281
	clickResCoords.x[2]=346
	clickResCoords.y[2]=286
	clickResCoords.x[3]=349
	clickResCoords.y[3]=264
	clickResCoords.x[4]=304
	clickResCoords.y[4]=285
	clickResCoords.x[5]=320
	clickResCoords.y[5]=311
	clickResCoords.numOfCoords=10;
	clickResource.coords[4]=clickResCoords
	--- Мечети:
	clickResource.name[5]="islam"
	clickResCoords={['x']={},['y']={}}
	clickResCoords.x[1]=423
	clickResCoords.y[1]=39
	clickResCoords.x[2]=402
	clickResCoords.y[2]=68
	clickResCoords.x[3]=432
	clickResCoords.y[3]=40
	clickResCoords.x[4]=471
	clickResCoords.y[4]=7
	clickResCoords.x[5]=453
	clickResCoords.y[5]=44
	clickResCoords.x[6]=426
	clickResCoords.y[6]=63
	clickResCoords.x[7]=440
	clickResCoords.y[7]=95
	clickResCoords.x[8]=436
	clickResCoords.y[8]=119
	clickResCoords.x[9]=437
	clickResCoords.y[9]=131
	clickResCoords.x[10]=448
	clickResCoords.y[10]=132
	clickResCoords.x[11]=507
	clickResCoords.y[11]=121
	clickResCoords.x[12]=505
	clickResCoords.y[12]=75
	clickResCoords.x[13]=421
	clickResCoords.y[13]=158
	clickResCoords.x[14]=396
	clickResCoords.y[14]=139
	clickResCoords.x[15]=117
	clickResCoords.y[15]=138
	clickResCoords.x[16]=127
	clickResCoords.y[16]=130
	clickResCoords.x[17]=109
	clickResCoords.y[17]=113
	clickResCoords.x[18]=94
	clickResCoords.y[18]=103
	clickResCoords.x[19]=58
	clickResCoords.y[19]=13
	clickResCoords.x[20]=122
	clickResCoords.y[20]=23
	clickResCoords.x[21]=166
	clickResCoords.y[21]=3
	clickResCoords.x[22]=480
	clickResCoords.y[22]=298
	clickResCoords.numOfCoords=22;
	clickResource.coords[5]=clickResCoords

	clickResource.numOfResource=5;
end

function clickMap_function()
    if clickAtMap.isClicked==true and ImGui.IsMouseDown(ImGuiMouseButton.ImGuiMouseButton_Left)==true then
        --- Пирамиды
            --Левая                                                --Правая
        if (clickAtMap.xTile==398 and clickAtMap.yTile==53) or (clickAtMap.xTile==400 and clickAtMap.yTile==52) then
            set_event_counter("I_clickedMap_true",1);    
            set_event_counter("CairoCaptured",1);    
            clickAtMap.isClicked=false;
        end

        --- Стоунхендж
        if clickAtMap.xTile==183 and clickAtMap.yTile==267 then
            set_event_counter("I_clickedMap_true",1);    
            set_event_counter("I_clickedMap_stonehenge",1);    
            clickAtMap.isClicked=false;
        end

        --- ресурсы:
        for i=1, clickResource.numOfResource do 
            if clickResource.name[i]~=nil then
                for c=1, clickResource.coords[i].numOfCoords do 
                    if clickResource.coords[i].x[c]==clickAtMap.xTile and clickResource.coords[i].y[c]==clickAtMap.yTile then
                        print(clickResource.name[i]..", coords: "..clickResource.coords[i].x[c]..", "..clickResource.coords[i].y[c]..", numOfCoords: "..clickResource.coords[i].numOfCoords)
                        set_event_counter("I_clickedMap_true",1);    
                        set_event_counter("I_clickedMap_"..clickResource.name[i],1);    
                        clickAtMap.isClicked=false;
                    end
                end
            end
        end
    end
end

den_script.txt(скриты меди2) (Reveal)

	if I_EventCounter I_clickedMap_true = 1
		;--- Чудо захвачено/клинул пирамиду
		if I_EventCounter CairoCaptured = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter CairoCaptured 0
			historic_event pyramids_DISCOVERED event/wonder_pyramids.bik
		end_if
		;--- Стоунхендж
		if I_EventCounter I_clickedMap_stonehenge = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter I_clickedMap_stonehenge 0
			historic_event CLICKEDMAP_STONEHENGE
		end_if
		;--- ресурсы
		if I_EventCounter I_clickedMap_adrian_wall = 1
			set_event_counter I_clickedMap_adrian_wall 0
			set_event_counter I_clickedMap_true 0
			historic_event CLICKEDMAP_ADRIAN_WALL
		end_if
		if I_EventCounter I_clickedMap_catholic = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter I_clickedMap_catholic 0
			historic_event CLICKEDMAP_CATHOLIC event/church_built.bik
		end_if
		if I_EventCounter I_clickedMap_orthodox = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter I_clickedMap_orthodox 0
			historic_event CLICKEDMAP_ORTHODOX event/church_built.bik
		end_if
		if I_EventCounter I_clickedMap_pagan = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter I_clickedMap_pagan 0
			historic_event CLICKEDMAP_PAGAN
		end_if
		if I_EventCounter I_clickedMap_islam = 1
			set_event_counter I_clickedMap_true 0
			set_event_counter I_clickedMap_islam 0
			historic_event CLICKEDMAP_ISLAM event/great_mosque_created.bik
		end_if
	end_if			; конец --- I_clickedMap_true ---.

Пирамиды уже были в версии мода 1.0
Не все описания еще готовы, а за те, что готовы, спасибо огромное камраду Ravelin

[SamaelBC]

DinarMayor, получается в Шотландию теперь через забор ходить, надеюсь хоть штурмовать не придётся ?))
Столько всего добавил уже в мод, аж страшно.

[SamaelBC]

Скрипт: "За здоровье автора!" ,работает.

Свидетельство о проделанной работе)) (Reveal)

Чудеса света:

---

У вольных народов появились купцы!


Ещё получился абордаж(см. скриншот выше), к этому моменту этот адмирал уже 3 отряда кораблей "наловил" и чинятся они в порту(автоматом)как автор описывал.
Правда после очередной битвы два малочисленных отряда слились в один?

[DinarMayor]

SamaelBC

Скрипт: "За здоровье автора!" ,работает.

У меня чуть сердце не прихватило, думал как это так - столько ресурсов)

SamaelBC

Правда после очередной битвы два малочисленных отряда слились в один?

Да, это механика меди2(и рима1 тоже) меня сильно бесит Я бывает исключаю какой-нибудь мелкий отряд из бо лишь бы он не попал в бой и не объединился. Наверно это правиться где-то

Спасибо за тесты и за скрины, камрад!

[SamaelBC]

DinarMayor

это механика меди2(и рима1 тоже) меня сильно бесит

На примере автослияния из Рима, может надоумит где это в Меди (Reveal)

Заходим в папку Scripts/ show_me, находим там файл script_4tpy_dates, открываем его и находим следующие значения

monitor_event CharacterSelected FactionType romans_julii
call_object_shortcut campaign_hud automerge_units
end_monitor

и удаляем их. Всё, у меня после этих манипуляций автослияния не происходило.
Попробуй, может и будет те счастье.

Автор тутора не известен, поэтому не указываю имя.

[DinarMayor]

SamaelBC

call_object_shortcut campaign_hud automerge_units

Это все лишь имитация нажатия кнопки M(или Ь). А сам скрипт - это автообъединение при выборе персонажа.

Если это настраивается, то скорее всего в descr_campaign_db.xml. Позже гляну.

[Jukoman]

DinarMayor

Также не рекомендую получать отказ в дип.переговорах играя за вассала

В смысле? Если играя за вассала попросить скажем торговые отношения, а ии откажет, то скрипт сломается? Или речь о другом отказе?

[DinarMayor]

Jukoman

Если играя за вассала попросить скажем торговые отношения, а ии откажет, то скрипт сломается?

Да, это что-то в движке так устроено. Но это можно обойти - либо отключить дипломатию вассалам, либо написать скрипт-фикс. Кстати, это нужно сделать, точно)

[-Добавлено к сообщению-]

Jukoman

сломается?

Ну, не сломается, а просто перестанет работать для этой фракции(не будет больше передаваться контроль ей), а все остальное будет работать.

[DinarMayor]

DinarMayor 09 March 2023, 01:12

Jukoman

Если играя за вассала попросить скажем торговые отношения, а ии откажет, то скрипт сломается?

Да, это что-то в движке так устроено. Но это можно обойти - либо отключить дипломатию вассалам, либо написать скрипт-фикс. Кстати, это нужно сделать, точно)

[-Добавлено к сообщению-]

Jukoman

сломается?

Ну, не сломается, а просто перестанет работать для этой фракции(не будет больше передаваться контроль ей), а все остальное будет работать.

Вроде пофиксил этот момент

Spoiler (expand)

function vassals_fix3(fac)
	if fac~=LocalFaction then
		print("vassals_fix3 1 "..fac:getFactionName())
--		symbol.fixFac=fac:getFactionName();
		checkVassal(fac);
	end
	if fac==LocalFaction then
		print("vassals_fix3 2 "..gDataCamp.currentFaction:getFactionName())
--		symbol.fixFac=gDataCamp.currentFaction:getFactionName();
		checkVassal(gDataCamp.currentFaction);
	end
end

function checkVassal(fac)
	vassalFact=nil;
	NULLIFIED_ALLIANCE=false;
	if gDataCamp:checkDipStance(dipRelType.suzerain,LocalFaction,fac)==true then

		vassalFact=fac:getFactionName();

		log_always("checkVassal - "..LocalFaction:getFactionName()..", "..vassalFact)
		print("checkVassal - "..LocalFaction:getFactionName()..", "..vassalFact)
	end
end

function reInstallVassal()
	for f=0, 30 do
		local fac = stratmap.game.getFaction(f);
		if vassalFact~=nil and fac:getFactionName()==vassalFact and NULLIFIED_ALLIANCE~=true
			and gDataCamp:checkDipStance(dipRelType.suzerain,LocalFaction,fac)~=true then

			gDataCamp:setDipStance(dipRelType.suzerain,LocalFaction,fac);

			log_always("reInstallVassal - "..LocalFaction:getFactionName()..", "..vassalFact)
			print("reInstallVassal - "..LocalFaction:getFactionName()..", "..vassalFact)
		end
	end
end


function reInstallVassalBreakAlliance(faction, targetFaction)
	if faction~=LocalFaction and targetFaction==LocalFaction then

		gDataCamp:setDipStance(dipRelType.suzerain,LocalFaction,faction);
		gDataCamp:setDipStance(dipRelType.peace,LocalFaction,faction);
		print("reInstallVassalBreakAlliance "..LocalFaction:getFactionName().." "..faction:getFactionName())
		log_always("reInstallVassalBreakAlliance "..LocalFaction:getFactionName().." "..faction:getFactionName())
	end
	if faction==LocalFaction and targetFaction~=LocalFaction then

		gDataCamp:setDipStance(dipRelType.suzerain,LocalFaction,targetFaction);
		gDataCamp:setDipStance(dipRelType.peace,LocalFaction,targetFaction);
		print("reInstallVassalBreakAlliance "..LocalFaction:getFactionName().." "..targetFaction:getFactionName())
		log_always("reInstallVassalBreakAlliance "..LocalFaction:getFactionName().." "..targetFaction:getFactionName())
	end
end


function reInstallVassalWarDeclared(faction, targetFaction)	-- срабатывает и во время onFactionAllianceDeclared
	if faction~=LocalFaction and targetFaction==LocalFaction then
--		and gDataCamp:checkDipStance(dipRelType.war,LocalFaction,faction)==true then

		gDataCamp:setDipStance(dipRelType.suzerain,LocalFaction,faction);
		gDataCamp:setDipStance(dipRelType.war,LocalFaction,faction);
		print("reInstallVassalWarDeclared "..LocalFaction:getFactionName().." "..faction:getFactionName())
		log_always("reInstallVassalWarDeclared "..LocalFaction:getFactionName().." "..faction:getFactionName())
	end
	if faction==LocalFaction and targetFaction~=LocalFaction then
--		and gDataCamp:checkDipStance(dipRelType.war,LocalFaction,targetFaction)==true then

		gDataCamp:setDipStance(dipRelType.suzerain,LocalFaction,targetFaction);
		gDataCamp:setDipStance(dipRelType.war,LocalFaction,targetFaction);
		print("reInstallVassalWarDeclared "..LocalFaction:getFactionName().." "..targetFaction:getFactionName())
		log_always("reInstallVassalWarDeclared "..LocalFaction:getFactionName().." "..targetFaction:getFactionName())
	end
end

Теперь если получить отказ(оскорбить собеседника, так сказать)), будет обратно устанавливаться вассалитет:
-на момент открытия свитка дипломатии проверяется вассал ли собеседник у локальной фракции
-на момент закрытия свитка дипломатии проверяется все ли еще в вассалах эта сама фракция
-если нет, то устанавливаем вновь вассалитет. Исключение, игрок или ИИ сам разорвал союз/вассалитет.

Есть еще один момент, когда может сломаться скрипт вассалов для определенной фракции:
-если объявить войну союзнику или вассалу и на том же ходу сделать его вассалом, то скрипт не будет работать для этой фракции.

Решение, в теории - тесты покажут:
При объявлении войны или союза, при разрыве союза, еще до вступления нового дипломатического состояния в силу, будет устанавливаться вассалитет и сразу нейтралитет. Это никак не отразиться на игре, но будет фиксить баг с вассалитетом.

---

Кто-то просил возможность отключения гарнизонного скрипта. Готово На старте кампании будет задан вопрос.