Skip to content

Instantly share code, notes, and snippets.

Public Function SymmetryMorfidTrue(UnitMorfid As UnitClass) As Integer
' Функция возвращает True если Морфид собран в 2D редакторе симетрично.
' Возвращает значение отличное от True если какая то часть не валидна, в битовой маске этого числа
' обозначены неисправные конечности.
' Поэтому проверку на неправильность конечностей надо делать if r <> True , а не if r = false
' О как!
' Она обращает внимание лишь на godc классы редактора ID которого записан в констате Editor2dPartUnitMorfid
' Для реального игрового контроля будет использоваться другой механизм, в котором клиентом на сервер будет передаваться
' список файлов из которых в дальнейшем и будет сформирован юнит. А так же список генетических программ которые
Public Function SymmetryMorfidTrue(UnitMorfid As UnitClass) As Integer
' Функция возвращает True если Морфид собран в 2D редакторе симетрично.
' Возвращает значение отличное от True если какая то часть не валидна, в битовой маске этого числа
' обозначены неисправные конечности.
' Поэтому проверку на неправильность конечностей надо делать if r <> True , а не if r = false
' О как!
' Она обращает внимание лишь на godc классы редактора ID которого записан в констате Editor2dPartUnitMorfid
' Для реального игрового контроля будет использоваться другой механизм, в котором клиентом на сервер будет передаваться
' список файлов из которых в дальнейшем и будет сформирован юнит. А так же список генетических программ которые
' Gambas class file
' GroupUniversalValues
' Класс содержащий дополнительные свойства для юнита или части юнита
' Содержит пачку дополнительных свойств
' Как работать с данным классом
' Нужно сначала запросить номер искомого элемента по имени или ID
' После проверить не равно ли оно -1 что означает отсутствие этого свойства у объекта
' И если всё в порядке то обратиться к массиву Values и извлечь оттуда элемент по нужному номеру
Public Function GetSymmetryDuplication(Part As PartUnitClass) As Boolean[]
'Функция возвращает в виде битовой маски симметрию дублирования части
'Данная функция универсальна и работает со всем созданными в 2D редакторе (первом) проектами частей юнитов
Dim r As New Boolean[32] ' результат в массиве размером 32 бита,
' больше смысла нет, так как переменная определяющая симметрию занимает 32 бита (на 32 разрядных системах)
' Нулевой бит отвечает за саму же конечность и игнорируеться.
' Анализ результатов следует проводить с элемента 1.
' На всякий случай в качестве ограничителя счётчика используйте переменную со значением r.Max
' Использование же числа 31 = (32 - 1) может привести к несовместимости если процедура симметрии будет изменена на более сложную
Public Function SymmetryMorfidTrue(UnitMorfid As UnitClass) As Integer
' Функция возвращает True если Морфид собран в 2D редакторе симетрично.
' Возвращает значение отличное от True если какая то часть не валидна, в битовой маске этого числа
' обозначены неисправные конечности.
' Поэтому проверку на неправильность конечностей надо делать if r <> True , а не if r = false
' О как!
' Она обращает внимание лишь на godc классы редактора ID которого записан в констате Editor2dPartUnitMorfid
' Для реального игрового контроля будет использоваться другой механизм, в котором клиентом на сервер будет передаваться
' список файлов из которых в дальнейшем и будет сформирован юнит. А так же список генетических программ которые
#!/bin/sh
cd Каталог_проекта/
find -type f -not \( -name *.form~ -or -name *.class~ -or -name *.module~ -or -name *.png~ -or -name *.pot~ -or -name *.jpg~ \) -print | xargs -n 1 -I % cp -Rfv --parents "%" ../Каталог_git_репозитория
#!/bin/sh
cd StarE/
find -type f -not \( -name *.form~ -or -name *.class~ -or -name *.module~ -or -name *.png~ -or -name *.pot~ -or -name *.jpg~ \) -print | xargs -n 1 -I % cp -Rfv --parents "%" ../star-e
Public Function SymmetryMorfidTrue(UnitMorfid As UnitClass) As Integer
' Функция возвращает True если Морфид собран в 2D редакторе симетрично.
' Возвращает значение отличное от True если какая то часть не валидна, в битовой маске этого числа
' обозначены неисправные конечности.
'
' Она обращает внимание лишь на godc классы редактора ID которого записан в констате Editor2dPartUnitMorfid
' Для реального игрового контроля будет использоваться другой механизм, в котором клиентом на сервер будет передаваться
' список файлов из которых в дальнейшем и будет сформирован юнит. А так же список генетических программ которые
' будут задействованы в юните
' Генетическая программа это тригер и действие. Тригером может служить фермент или достижение нужной массы определённой частью.
Public Function SymmetryMorfidTrue(UnitMorfid As UnitClass) As Boolean
' Функция возвращает True если Морфид собран в 2D редакторе симетрично.
' Она обращает внимание лишь на godc классы редактора ID которого записан в констате Editor2dPartUnitMorfid
' Для реального игрового контроля будет использоваться другой механизм, в котором клиентом на сервер будет передаваться
' список файлов из которых в дальнейшем и будет сформирован юнит. А так же список генетических программ которые
' будут задействованы в юните
' Генетическая программа это тригер и действие. Тригером может служить фермент или достижение нужной массы определённой частью.
' А действие как выработка другого фермента, так и команда на рост, апоптоз или морфирование определённой части в другую.
' По сути это будут простейшие линейные скриптыиспользующие в качестве условий ферментные флаги.
' Так же некоторые юниты смогут распылять произвольные ферменты при помощи желез запуская те или иные последовательности
Изложу свою мысль. Деньги возникли как тот товар посредник при обмене, они сделали обмен удобным. Но они всё таки являлись информационным средством которое позволило выражать соотношение цены ресурсов, товаров и знаний. Удобная прослойка и абстракция. Товар же который покупали за деньги объединил в себе ресурсы, энергию и услуги. Инкапсулировав их в одну сущность и оценив её деньгами. Но согласитесь, это ведь не оптимально, возможны явные перекосы в итоговых соотношениях из за непрозрачности. К тому же из за этой инкапсуляции цены ресурсов и услуг (труда) начинают коррелировать и иметь друг для друга буферный эффект, прям как два параллельных электрических кабеля. И я думаю сложности регулирования экономики проистекают именно из за такой связи возникающей в товаре. Но сейчас нужное информационное обеспечение может быть выполнено без помощи денег, в их старом понимании когда они были привязаны к золоту. Сегодняшние деньги обеспечены главным образом нашей готовностью за них трудиться, то есть по сути они даже н