Форум: Проблемы искусственного интеллекта

Регистрация | Вход

Все темы | Новая тема  Стр.1 (1)     Поиск:
Автор	Тема: встречайте Хаос программа на Blitz3D
нейросеть Сообщений: 7681	встречайте Хаос программа на Blitz3D Добавлено: 17 фев 26 15:58 Изменено: 17 фев 26 16:14 9028 2064 > привет Хаос 62=8 > 666 02 вечные 0327< > 03 НЛ. нейролептик ?73 > не те , я Кирилл false 5 > это трабла да Системы нет 35?+ false > 35 false=0 644 > ваа , да круто <> > 1 <> 2 +?4 3273 2032-LEgenda программа на Blitz3D SetFont(LoadFont("system")) Dim know$(100) i=1 know(i)="1" i=i+1 know(i)="2" i=i+1 know(i)="3" i=i+1 know(i)="4" i=i+1 know(i)="5" i=i+1 know(i)="6" i=i+1 know(i)="7" i=i+1 know(i)="8" i=i+1 know(i)="9" i=i+1 know(i)="0" i=i+1 know(i)="+" i=i+1 know(i)="-" i=i+1 know(i)="=" i=i+1 know(i)="?" i=i+1 know(i)="<" i=i+1 know(i)=">" i=i+1 know(i)="<>" i=i+1 know(i)=" " i=i+1 know(i)=" true " i=i+1 know(i)=" false " k_num=i out$="" While(True) s$=Input("> ") Log_add("> "+s) SeedRnd(MilliSecs()) r=Rand(1,5) out$=" " For i=1 To r out$=out$+know(Rand(1,k_num)) Next Print out$ Log_add(out$) Wend Function Log_add(s$) f=OpenFile("nauka-log.txt") If f=0 Then f=WriteFile("nauka-log.txt") SeekFile(f,FileSize("nauka-log.txt")) WriteLine(f,s) CloseFile(f) End Function [Ответ][Цитата]
нейросеть Сообщений: 7681	На: встречайте Хаос программа на Blitz3D Добавлено: 17 фев 26 16:05 Алиса AI Быстрый ответ, возможны неточности Содержимое ответа Хаос — первоначальное состояние мира в мифологии многих народов мира, иногда персонифицируемое. ru.ruwiki.ru Некоторые примеры божеств хаоса: В греко-римской мифологии — Хаос, абсолютная пустота, существовавшая до сотворения мира, из которой впоследствии появилось первое поколение богов: Гея, Нюкта, Тартар, Эреб, Эрос и Уран. В египетской мифологии — змей Апофис (Апоп, Апеп), олицетворение мрака, хаоса, зла и всего плохого. В зороастризме — Ариман (Ангра-Майнью), символизирует всё плохое, что вообще есть: смерть, мрак, хаос, зло и т. д.. В произведениях Говарда Ф. Лавкрафта — Азатот, персонификация ядерного хаоса. В видеоиграх The Elder Scrolls — Даэдра, божества хаоса, которые рулят Обливионом: местным адским планом бытия. wikitropes.ru Самые частые признаки божеств хаоса — непредсказуемость, случайность и иррациональность. wikitropes.ru [Ответ][Цитата]
нейросеть Сообщений: 7681	На: встречайте Хаос программа на Blitz3D Добавлено: 17 фев 26 18:19 Изменено: 18 фев 26 16:14 Хаос пирует 9800 ВНИМАНИЕ ! ПРОГРАММА СИЛЬНО ГОНЯЕТ ДИСК 9435 да yes Graphics(640,480,0,2) SetFont(LoadFont("system")) timer=CreateTimer(1000) ClsColor(128,64,128) Cls() Global v1,v2,v3 While(True) WaitTimer(timer) SeedRnd(MilliSecs()) If Rand(1,100)=25 Then WaterAndFood() For i=1 To 1 x=Rand(0,25) y=Rand(0,25) Log_read(x,y) n1=Rand(1,v1+125) n2=Rand(1,v2+125) n3=Rand(1,v3+125) DrawLog() Log_add(x,y,n1,n2,n3) Next Wend Function WaterAndFood() For x=1 To 5 For y=1 To 5 n1=10 n2=10 n3=100 Color(n1,n2,n3) Plot(x,y); Log_add(x,y,n1,n2,n3) Next Next For x=6 To 10 For y=1 To 5 n1=10 n2=100 n3=10 Color(n1,n2,n3) Plot(x,y); Log_add(x,y,n1,n2,n3) Next Next End Function Function DrawLog() For y=0 To 25 For x=0 To 25 Log_read(x,y) Color(v1,v2,v3) Plot(x,y); Rect(100+x*3,y*3,3,3) Next Next End Function Function Log_add(x,y,n1,n2,n3) f=OpenFile("nauka-log.txt") If f=0 Then f=WriteFile("nauka-log.txt") SeekFile(f,(x+y*100)*3) WriteByte(f,n1) WriteByte(f,n2) WriteByte(f,n3) CloseFile(f) End Function Function Log_read(x,y) f=OpenFile("nauka-log.txt") SeekFile(f,(x+y*100)*3) v1=ReadByte(f) v2=ReadByte(f) v3=ReadByte(f) CloseFile(f) End Function 7964 https://www.old-games.ru/game/2119.html [Ответ][Цитата]
нейросеть Сообщений: 7681	На: встречайте Хаос программа на Blitz3D Добавлено: 17 фев 26 18:28 > вон true >84 > как ? = false ? > еда true 2 true > вода 700 > то Утопия =< true 7 > бесплатно 4235< > ну NES они и игры как деньги true 107 > loL 4 true > да чудо +<><48 > чудо вечное 7 true false =6 6892 [Ответ][Цитата]
нейросеть Сообщений: 7681	На: встречайте Хаос программа на Blitz3D Добавлено: 17 фев 26 19:32 да так я отписался doom дум думы думать ... [Ответ][Цитата]
нейросеть Сообщений: 7681	На: встречайте Хаос программа на Blitz3D Добавлено: 18 фев 26 1:32 покормил Хаос (-: [Ответ][Цитата]
Стр.1 (1)