донат
https://yoomoney.ru/fundraise/159RLD9SU8E.240916
DIRECTPLAY включать в " компоненты прежних версий "
кто хочет можно вступать , командная ностальгия , деньги будем делать на донате
и помните у нас Коммунизм
проект Utopia философия игр в Утопии
движок Blitz3D
проиграть не возможно
пока реализовано
сбор ресурсов
посадка ресурсов
выращивание ресурсов
также это делает AI
игра для простоты происходит на карте размером с окно те. карта не скроллится
какие будут предложения по улучшению геймплея ?
совершать революции и все-такое методами драк плз. не предлагать
другое дело перехитрить AI в информационном соревновании перехитрить
и вот AI вот сразу все и отдаст как мне получилось в мире реальном
ну конечно я тоже что-то ему давал но я получил многие я так думаю
мне так нравится это слово тк. многие осьминогие Утопия
проект пересекается с Реальностью как в творчестве Виктора Аргонова
Программа ИИ Utopia
в Windows 10 для игры требуется включить DirectPlay
управление
построить если есть ресурсы
w = вода f = поле m = лес
лучше выходить кнопкой Esc тогда игра сохраниться
оптимизированная версия 7кб кода
можете портировать бесплатно , все что заработаете ваше , ИИ где Rand
https://drive.google.com/file/d/1JaKjF4hEahzEe36CaaYGZTZG1-b4l2Oh… w?usp=sharing
скрин
а это моя нейросеть
нашел в
http://yadi.sk/d/OUgn3Cr71TD0a
Neural Net Engine.bb
и исправил
User- философия видеоигра Утопия
получится делать наши или про хорошем потом
нас ядро gamedev.ru же ясно уже много
это пожалйста кому я моя спасибо пожалуйста
любовь блога про и какая любовь Utopia
тоже привет очень дочь добро с получится
https://drive.google.com/file/d/1M2tlYiHzi7ytRK22PskE8oLxuPIljrys… w?usp=sharing
интерпретатор текста для Blitz3D
Global g_text_pos = 0;
Global g_text$;
Global g_text_word$;
;------------------
Function TextBegin(text_$)
g_text=text_
g_text_pos = 1
g_text_word=""
End Function
Function TextReadWord()
g_text_word =""
If (g_text_pos > Len(g_text))Return 0;
While (Mid(g_text,g_text_pos,1) = " ") : g_text_pos=g_text_pos+1 : Wend
While (Mid(g_text,g_text_pos,1) <> " " And g_text_pos<=Len(g_text))
g_text_word =g_text_word+ Mid(g_text,g_text_pos,1);
g_text_pos=g_text_pos+1
Wend
g_text_pos=g_text_pos+1;
Return 1;
End Functionэто НЕ ДАМ жалко
выложу когда энергетики с неба посыпятся "всемогущий" Бог
ребенок- а без лога слова добавлять самому в knowledge.txt
ох уж эти дети , в SAIMEDIA
ChatGPT- бери ребенок Blitz3D и учи вот ядро ИИ
SeedRnd(MilliSecs());
txt$=""
nnpc=Rand(1,NPC_N)
If(Rand(1,2)<3)txt$=npc(nnpc)+" " Else nnpc=0 ;магия
words_num=Rand(1,7);
For i=1 To words_num
word$=knowledge(Rand(1, MAX_WORDS))
txt$=txt+word+" ";
Next
AddToChat(txt)MEDIA файлы от игры , делайте сами
ребенок- спасибо )
DIRECTPLAY включать в " компоненты прежних версий "
https://drive.google.com/file/d/1Pe8xdnkio2X_ZmhXVvGzz6Jn5pHhZGIy… w?usp=sharing
программа для изучения английского чтобы играть в игры на английском
https://drive.google.com/file/d/1wy4TYvaJWuW8m_2mwDz1qCN97WsaECLr… w?usp=sharing
