Участник:Cypselus/usefultools: различия между версиями
Материал из Dwarf Fortress Wiki
Перейти к навигацииПерейти к поиску
ArexBot (обсуждение | вклад) м (Замена текста — «DF2010:» на «») |
GeloMor (обсуждение | вклад) Нет описания правки |
||
(не показано 8 промежуточных версий 2 участников) | |||
Строка 34: | Строка 34: | ||
}' | }' | ||
</pre> | </pre> | ||
{| class="collapsible collapsed infobox" style="background-color: #f9f9f9;" | {| class="mw-collapsible mw-collapsed infobox" style="background-color: #f9f9f9;" | ||
! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ||
|- | |- | ||
Строка 61: | Строка 61: | ||
* создание wiki-списка существ по критерию, в данном случае по наличию тега [CANOPENDOORS.*?\] | * создание wiki-списка существ по критерию, в данном случае по наличию тега [CANOPENDOORS.*?\] | ||
cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[CANOPENDOORS.*?\]|\[NAME\:(.*?)\:)).*/g) {$a= substr $1,1,4; if ($a eq "NAME") {$b=$2;} else {print "* [[$b]]";};}' | cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[CANOPENDOORS.*?\]|\[NAME\:(.*?)\:)).*/g) {$a= substr $1,1,4; if ($a eq "NAME") {$b=$2;} else {print "* [[$b]]";};}' | ||
{| class="collapsible collapsed infobox" style="background-color: #f9f9f9;" | {| class="mw-collapsible mw-collapsed infobox" style="background-color: #f9f9f9;" | ||
! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ||
|- | |- | ||
Строка 83: | Строка 83: | ||
}' | }' | ||
</pre> | </pre> | ||
{| class="collapsible collapsed infobox" style="background-color: #f9f9f9;" | {| class="mw-collapsible mw-collapsed infobox" style="background-color: #f9f9f9;" | ||
! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ! colspan="2" style="border: 1px solid #aaa; font-weight:bold; background-color: #ccf; padding-left: 1em; padding-right: 1em;" | '''Результат работы''' | ||
|- | |- |
Текущая версия от 20:31, 6 июля 2022
Выход новой версии
- обновить Шаблон:Current/version
- собрать gold plated.
- Скачать пакет изменений, распаковать в ./patch
- Скачать автосборщик и положить в ./
- Опубликовать обновления
- Поправить ссылки в Графическая версия
- обновление характеристик существ
В подавляющем большинстве релизов происходило изменение ./raw файлов для существ, достаточно вставить содержимое файла, добавив в конце строку:
<noinclude>[[Category:Raw files]]</noinclude>
Особым файлом является Creature_standard.txt, из-за его размеров его разделили на 3, при этом в начале каждого идут строки:
creature_standard [OBJECT:CREATURE]
Всякое-разное
- утилита сравнения ./raw разных релизов
- генератор name/raw файлов
cat `find ./raw -iname "*txt"` |perl -wlne ' {SWITCH: if (/.*\[OBJECT\:(.*?)\].*/g) { $obj = lc $1; $OBJ = $1} if (/.*\[(?:PLANT|INORGANIC|CREATURE)\:(.*?)\].*/g) {print "*[[$name]] --> [[$name]] --> [[$name/raw]]<br/> <noinclude>{{raw header|$obj|$item}}</noinclude>{{raw|$fname.txt|$OBJ|$item}}<noinclude>{{raw footer|$obj|$item}}</noinclude>"; $item=$1;} if (/((?:inorganic|plant|creature)_[a-z_]+)\r/g) { $fname=$1;} if (/.*\[(?:NAME|INORGANIC)\:(.*?)[:\]]+.*/g) { $name = lc $1;} }'
Результат работы | |
---|---|
... |
- создание Dwarf file lookup
grep -RF "[POSITION:" ./raw/ |perl -wlne 'print "$2=$1\|" if /\.\/raw\/objects\/(.*)\:.*\:(.*)]/' |sort >"dwarf file lookup"
- поиск петов
cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[PETVALUE\:\d+\]|\[CREATURE\:.*?\])).*/g) {$a= substr $1,1,8; if ($a eq "CREATURE") {$b=$1;} else {print "$1 $b";};}'
- поиск источников шерсти
cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[SHEARABLE_TISSUE_LAYER.*?\]|\[CREATURE\:.*?\])).*/g) {$a= substr $1,1,8; if ($a eq "CREATURE") {$b=$1;} else {print "$1 $b";};}'
- поиск существа по тагу с параметром, например GRASSTRAMPLE
cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[GRASSTRAMPLE.*?]|\[CREATURE\:.*?\])).*/g) {$a= substr $1,1,8; if ($a eq "CREATURE") {$b=$1;} else {print "$1 $b";};}'
- создание частотного словаря значений тега [CV_REMOVE_TAG:] или [BIOME:]
cat `find ./raw -type f` |perl -e 'while (<>){if (/.*\[CV_REMOVE_TAG\:(.*?)\].*/g){if(exists($list{$1})){$list{$1}++;}else{%list = (%list, $1, 1)}}} foreach(sort {$list{$a} <=> $list{$b}} keys %list) {print "$list{$_}\t$_\n";}' cat `find ./raw -type f` |perl -e 'while (<>){if (/.*\[BIOME\:(.*?)\].*/g){if(exists($list{$1})){$list{$1}++;}else{%list = (%list, $1, 1)}}} foreach(sort {$list{$a} <=> $list{$b}} keys %list) {print "$list{$_}\t$_\n";}'
- создание wiki-списка существ по критерию, в данном случае по наличию тега [CANOPENDOORS.*?\]
cat `find ./raw -type f` |perl -wlne 'if (/.*((?:\[CANOPENDOORS.*?\]|\[NAME\:(.*?)\:)).*/g) {$a= substr $1,1,4; if ($a eq "NAME") {$b=$2;} else {print "* $b";};}'
Результат работы | |
---|---|
... |
- то же, но с иконкой
cat `find ./raw -iname "*txt"` |perl -wlne ' {SWITCH: if (/.*\[CANOPENDOORS.*?\].*/g) {print "*$tile [[$name]]";} if (/.*\[(?:CREATURE_TILE)\:(.*?)\].*/g) {$tile=$1;} if (/.*\[(?:NAME)\:(.*?)\:.*/g) {$name=$1;} }'
Результат работы | |
---|---|
... |