[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

Сейчас скоро открою тему и перенесу туда все наше общение

To view the link Register

[DinarMayor]

Xamax 13 November 2022, 23:40

Скрипт на наследника кровного норм. Мне кажется ещё не помешает фракции игрока запретить усыновление. Бред, который с первого Рима остался. Только там он оправдан, ибо у римлян была такая практика, усыновлять, а в средние века это портит всю династию

Можно запретить, например, скриптом на смерть усыновленного, иногда приходит сообщение, что усыновленный уже умер до того, как получил сообщение об усыновлении

Скрипт отмены усыновления

Кусочек кода

function onMessageOpen(fac, msgType)
    if msgType==78 or msgType==77 then
        EmulateKey(VK_ESCAPE, true)
        EmulateKey(VK_ESCAPE, false)
        print("onMessageOpen "..msgType)
    end
end

На видео, после боя, приходит сообщение о "Герой дня" - скрипт сразу закрывает это сообщение(имитация нажатия Esc). На начало хода приходит сообщение об усыновление - то же самое, что и с героем.
Сделаю выбор игроку: на начало новой кампании будет приходить сообщение с вопросом "хотите отключить усыновления...".

[Xamax]

А свадьбы это тоже коснётся?

[DinarMayor]

Xamax 27 December 2022, 15:54

А свадьбы это тоже коснётся?

Нет. Но я еще все проверю на всякий)

[DinarMayor]

DinarMayor

Сейчас займусь скриптом, что будет "нейтрализовывать" агентоюнитов

Готово. На момент прихода и/или выполнения миссии будут проверятся стеки игрока на наличие технических юнитов-агентов, что не должны попадать на тактику. Если они есть - уничтожить!

function check_agent_units(msgType)
	if(msgType==52 or msgType==54) then
		kill_agent_units(msgType);
	end
end

function kill_agent_units(msgType)
	for i=0, LocalFaction.stacksNum-1 do
		local stack = LocalFaction:getStack(i);    

		for un=stack.numOfUnits-1, 0, -1 do
			local stack_unit = stack:getUnit(un);
			local unitName = stack_unit.eduEntry.Type;

			if unitName=="Alchemist" or unitName=="Inquisitor" or unitName=="Witch" or unitName=="Princess" then
				stack_unit.alias="-удалить-";		-- исключаем, чтоб население не прибавилось -- 
				stack_unit:kill(); 
				--- позже тут буду заменять на другой юнит --- 
				log_always("--- "..msgType.." миссия - удалили юнит "..unitName.." ---");
			end
		end
	end
end

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

[User_145236]

Если есть желание ,глянь в этом моде много всяких фишек реализовано.https://www.twcenter.net/forums/showthread.php?816598-DOWNLOAD- SSHIP-0-98-ver-September-8th-2022&p=16115575&viewfull=1#post16115575,https: //www.twcenter.net/forums/showthread.php?654754-DOWNLOAD-SSHIP-ver-0-97-patch-H-(Jan- 29th-2021)&p=15956672&viewfull=1#post15956672.
Может что пригодиться.

[DinarMayor]

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

[DinarMayor]

DinarMayor

захватить вражеский корабль

Теперь работает и для ИИ. На выходных успел состряпать Скрипт очень простой и легкий. Во время хода игрока рандомно адмиралам ИИ будут выдаваться такие корабли, как будто он взяли их в абордаж. Можно было бы и после битвы ИИ против ИИ, но так меньше нагрузки, да и видимость та же.

Скрипт (Reveal)

--- абордаж для ИИ 
function give_shipAI()
	once()=nil;
	if shipsTab~=nil 
		and RandomPercent(100) then
		for f=0, 30 do
			local fac = stratmap.game.getFaction(f);
			if fac~=LocalFaction then
				for i=0, fac.stacksNum-1 do
					local stack = fac:getStack(i);
					if stack.leader~=nil 
						and stack.leader:getTypeID()==3
						and once()==true then
						getUnits(stack);
						getShipAI(stack);
					end
				end
			end
		end
	end
end

function once()
	for o=1, 2 do
		if o==1 then
			return true
		elseif
			return false
		end
	end
end

function getUnits(stack)
	for un=0, stack.numOfUnits-1 do
		local unit = stack:getUnit(un);
		return unit
	end
end

function setAlias(unit)
	getUnits(unit).alias="атакующий";
end

function getShipAI(stack)
	local ran_exp = math.random(1, 9);
	local ran_weap = math.random(0, 1);
	if gDataCamp.passedTurnsNum>=0 then
		log_always("getShipAI");
		local i = math.random(1, 15);
		local newShip = stack:createUnit(shipsTab[i],ran_exp,0,ran_weap);
		local random_value = math.random(5, 40);
		newShip.alias="(взят на абордаж)";
		newShip.soldierCountStratMap=random_value;
	elseif gDataCamp.passedTurnsNum>220 then
		log_always("getShipAI>220");
		local i = math.random(16, 18);
		local newShip = stack:createUnit(shipsTab[i],ran_exp,0,ran_weap);
		local random_value = math.random(5, 40);
		newShip.alias="(взят на абордаж)";
		newShip.soldierCountStratMap=random_value;
	elseif gDataCamp.passedTurnsNum>328 then
		log_always("getShipAI>328");
		local i = math.random(19, 23);
		local newShip = stack:createUnit(shipsTab[i],ran_exp,0,ran_weap);
		local random_value = math.random(5, 40);
		newShip.alias="(взят на абордаж)";
		newShip.soldierCountStratMap=random_value;
	end
end

[DinarMayor]

Теперь флот, форты, города и сторожевые башни(последние два делаются еще) будут отображаться и на тактике.

В зависимости где(справа, слева, сверху или снизу) находится объект(флот, форт и т.п.) от атакованной армии, будет меняться тайл под его ногами на заранее сделанную. Плюс сделал рандомность погоды и времени суток на таких тайлах.

Фрагмент скрипта.

Spoiler (expand)

function custom_tiles_tables()
	weather={
		[1]="clear",
		[2]="clear arid",
		[3]="rain",
		[4]="storm",
		[5]="Custom LF",
		[6]="cloudy",
		[7]="cloudy arid",
		[8]="dusty",
		[9]="light fog",
		[10]="heavy fog",
		[11]="france custom",
		[12]="snow",
		[13]="blizzard",
		[14]="clear winter",
		[15]="cloudy winter",
		[16]="light fog winter",
		[17]="heavy fog winter"
	}
	times_of_day={
		[1]="sunrise",
		[2]="morning",
		[3]="midday",
		[4]="afternoon",
		[5]="sunset",
		[6]="night",
	}
end

--- форт --- 
function fortTiles(attacker, defender)
	for f=0, 30 do
		local fac = stratmap.game.getFaction(f);

		for i=0, fac.fortsNum-1 do
			local fort = fac:getFort(i)
			local xFort, yFort = fort.xCoord, fort.yCoord

			if inSquarLeft(defender.character.xCoord, defender.character.yCoord ,xFort, yFort)==true then
				stratmap.objects.replaceTile("fort_on_the_left1",defender.character.xCoord,
defender.character.yCoord,"fort_on_the_left.wfc",weather[math.random(1,
 17)],times_of_day[math.random(1, 6)]);
				log_always("fortTiles on left: fort coords - "..xFort.." "..yFort..", battle coords - "..defender.character.xCoord.." "..defender.character.yCoord);
				return true
			elseif inSquarRight(defender.character.xCoord, defender.character.yCoord ,xFort, yFort)==true then
				stratmap.objects.replaceTile("fort_on_the_right1",defender.character.xCoord,
defender.character.yCoord,"fort_on_the_right.wfc",weather[math.random(1,
 17)],times_of_day[math.random(1, 6)]);
				log_always("fortTiles on right: fort coords - "..xFort.." "..yFort..", battle coords - "..defender.character.xCoord.." "..defender.character.yCoord);
				return true
			elseif inSquarTop(defender.character.xCoord, defender.character.yCoord ,xFort, yFort)==true then
				stratmap.objects.replaceTile("fort_on_the_top1",defender.character.xCoord,
defender.character.yCoord,"fort_on_the_top.wfc",weather[math.random(1,
 17)],times_of_day[math.random(1, 6)]);
				log_always("fortTiles on top: fort coords - "..xFort.." "..yFort..", battle coords - "..defender.character.xCoord.." "..defender.character.yCoord);
				return true
			elseif inSquarBottom(defender.character.xCoord, defender.character.yCoord ,xFort, yFort)==true then
				stratmap.objects.replaceTile("fort_on_the_bottom1",defender.character.xCoord,
defender.character.yCoord,"fort_on_the_bottom.wfc",weather[math.random(1,
 17)],times_of_day[math.random(1, 6)]);
				log_always("fortTiles on bottom: fort coords - "..xFort.." "..yFort..", battle coords - "..defender.character.xCoord.." "..defender.character.yCoord);
				return true
			end
		end
	end
end

function inSquarLeft(x,y,xChar,yChar)
	if(xChar==x-1 and yChar==y) or (xChar==x-1 and yChar==y-1) then 
		return true
	end
end

function inSquarRight(x,y,xChar,yChar)
	if(xChar==x+1 and yChar==y) or (xChar==x+1 and yChar==y+1) then
		return true
	end
end

function inSquarTop(x,y,xChar,yChar)
	if(xChar==x and yChar==y+1) or (xChar==x-1 and yChar==y+1) then 
		return true
	end
end

function inSquarBottom(x,y,xChar,yChar)
	if(xChar==x and yChar==y-1) or (xChar==x+1 and yChar==y-1) then
		return true
	end
end

[DinarMayor]

Сделал и добавил генерацию городов на тактике.

Местоположение, внешний вид и уровень стен соответствуют действительности(как это было бы при штурме например). Кроме башен - и это можно сделать по идее. Плюс нужно бы сделать для каждой плитки по своему файлу .wfc, т.е. север, юг, запад, восток, северо-запад и т.д. - итого 8шт. Сейчас для всех таких объектов проверяется только 4 стороны - справа, слева, сверху или снизу.

Spoiler (expand)

Если сделать для всех 8ми, то это уже будет занимать 3 гигабайта А это я еще со временем буду добавлять такие объекты. Поначалу для каждой культуры продублировал было в соотвествующие папки, но после добавил проверку наличия файла и это необходимость отпала. Например для русской культуры есть только деревня и поселок, а если игра/прога не находит, скажем, большой город в папке русской культуры, то возьмет из папки северной Европы.

Фрагмент скрипта.

Spoiler (expand)

function faction_cultures()	-- fac_creatorNum 
fac_cultures={
	--northern_european
	[0]="northern_european",	--england
	[1]="northern_european",	--france
	[2]="northern_european",	--hre
	[3]="northern_european",	--scotland
	[4]="northern_european",	--ireland
	[5]="northern_european",	--denmark
	[6]="northern_european",	--norway
	[7]="northern_european",	--poland
	[8]="northern_european",	--hungary
	[10]="northern_european",	--lithuania
	[12]="northern_european",	--georgia
	[13]="northern_european",	--spain
	[14]="northern_european",	--portugal
	[15]="northern_european",	--normans
	[16]="northern_european",	--venice
	[17]="northern_european",	--milan
	[18]="northern_european",	--saxons
	[19]="northern_european",	--sicily
	[20]="northern_european",	--papal_states
	[21]="northern_european",	--byzantium
--	[30]="northern_european",	--slave
	--c_rus
	[9]="c_rus",				--novgorod
	[11]="c_rus",				--russia
	--middle_eastern
	[22]="middle_eastern",		--tatar
	[23]="middle_eastern",		--moors
	[24]="middle_eastern",		--turks
	[25]="middle_eastern",		--egypt
	[26]="middle_eastern",		--abbasids
	[27]="middle_eastern",		--mongols
	[28]="middle_eastern",		--timurids
	--mesoamerican
	[29]="mesoamerican"			--aztecs
}
end

function object_location(x,y,xChar,yChar)
	if(xChar==x-1 and yChar==y) or (xChar==x-1 and yChar==y-1) then 
		return "left"
	elseif(xChar==x+1 and yChar==y) or (xChar==x+1 and yChar==y+1) then
		return "right"
	elseif(xChar==x and yChar==y+1) or (xChar==x-1 and yChar==y+1) then 
		return "top"
	elseif(xChar==x and yChar==y-1) or (xChar==x+1 and yChar==y-1) then
		return "bottom"
	end
end

function file_exists(name)
   local f=io.open(name,"r")
   if f~=nil then io.close(f) log_always("return true") return true else log_always("return false") return false end
end

function file_wfc(cultureID, name)
	if file_exists(M2TWEOP.getModPath().."/data/world/maps/campaign/imperial_campaign/
custom_tiles/"..cultureID..name)==false then			-- main_functions.lua 
		local name = "northern_european"..name;
		return name
	else
		local name = cultureID..name;
		return name
	end
end

--- поселения --- 
function settTiles(attacker, defender)
	for f=0, 30 do
		local fac = stratmap.game.getFaction(f);
		for i=0, fac.settlementsNum-1 do
			local settlement = fac:getSettlement(i);
			local objLoc = object_location(defender.character.xCoord, defender.character.yCoord ,settlement.xCoord, settlement.yCoord);		-- main_functions.lua 
			if objLoc~=nil then
				local cultureID = fac_cultures[settlement.fac_creatorNum];
				local fileName = "/"..build(settlement).."_on_the_"..objLoc..".wfc";

				stratmap.objects.replaceTile("sett_on_the_"..objLoc,defender.character.
xCoord,defender.character.yCoord,file_wfc(cultureID,fileName),weath,times);
				log_always("sett_on_the_"..objLoc..", "..defender.character.xCoord..", "..defender.character.yCoord..", "..file_wfc(cultureID,fileName)..", "..weath..", "..times);
			end
		end
	end
end

function build(settlement)
	for b=0, settlement.buildingsNum-1 do
		local building=settlement:getBuilding(b);
		if building:getType()=="core_building" or building:getType()=="core_castle_building" then
			local str = building:getName();
			return str;
		end
	end
	return "village";
end

Если кто-то пытается что-то понять в этих скриптах( ), то скажу, что log_always() - это функция вообще не нужна для работы скриптов. Это мне для выявления ошибок. Вот, например, фрагмент того, что этот скрипт напечатал в моем лог файле DenMod.lua.game.script.txt:

Sun Jan 29 01:52:06 2023 [lua.game.script] --- onGeneralAssaultsGeneral - hre  vs slave  ---
Sun Jan 29 01:52:06 2023 [lua.game.script] --- onGeneralAssaultsGeneral - hre  vs slave  ---
Sun Jan 29 01:52:06 2023 [lua.game.script] return true
Sun Jan 29 01:52:06 2023 [lua.game.script] return true
Sun Jan 29 01:52:06 2023 [lua.game.script] sett_on_the_top, 406, 301, c_rus/wooden_pallisade_on_the_top.wfc, clear, sunrise
Sun Jan 29 01:52:06 2023 [lua.game.script] --- onUngarrisonedSettlement - Moscow
Sun Jan 29 01:52:06 2023 [lua.game.script] --- addGarSettUnit - Moscow --- 
Sun Jan 29 01:52:06 2023 [lua.game.script] --- onPreBattlePanelOpen - hre ---
Sun Jan 29 01:52:07 2023 [lua.game.script] panel_check 1

-"onGeneralAssaultsGeneral - hre vs slave" - немцы атаковали мятежников(проверяется дважды, т.к. в эвенте две стороны - атакующий и обороняющийся) и в этом эвенте/функции вызывается функция замены тайлов(плиток)
-"return true" - проверка доходит до функции settTiles(поселения), там проверяется наличие файла и если он есть, то печатает "return true". Если бы был "return false", то прога начала бы искать файл в папке northern_european(а там есть все файлы)
-"sett_on_the_top, 406, 301, c_rus/wooden_pallisade_on_the_top.wfc, clear, sunrise" - замена тайла на координатах 406, 301 состоялась
-"onUngarrisonedSettlement - Moscow" и "addGarSettUnit - Moscow" - гарнизон вышел подкреплением и добавить гарнизонные юниты гарнизону Москвы(для мятежников делаю как раз).
-"onPreBattlePanelOpen - hre" - открылась панель "Развертывание войск"
-"panel_check 1" - германикус активизировался(во время нажатии кнопки "вступить в бой" задается счетчик)

Вот почему я прошу обязательно лог файлы при вылетах.

Позже перенесу некоторые сообщения в тему скриптов - сюда больше народу ходит, потому решил было тут писать.