forum.boolean.name
Страница 15 из 16 « Первая < 591011121314 15 16 >
Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)
-   Проекты на Blitz3D (http://forum.boolean.name/forumdisplay.php?f=14)
-   -   Bomberman_Standard_Edition (http://forum.boolean.name/showthread.php?t=79)

Константин 15.07.2006 22:00
Вложений: 2
типа меню тридешное, как вариант для бомбера.Вложение 1368

Константин 18.07.2006 16:06
Re: Bomberman_Standard_Edition
 
Вложений: 2
Функция для работы с ИНИ с Экземпл к ней.
Вложение 1383

дерзай фант!

Fant 19.07.2006 22:28
Re: Bomberman_Standard_Edition
 
По просьбе Bob'a выкладываю игру, ремейк которой мы делаем.

ZanoZa 22.08.2006 10:22
Re: Bomberman_Standard_Edition
 
HI ALL!
Итак к проблеме:
Код:
Const CFieldWidth=15
Const CFieldHeight=15

Dim masPrep(CFieldWidth,CFieldHeight)
Dim masBonuses(CFieldWidth,CFieldHeight)


Type cubes
        Field obj
        Field nomerX, nomerZ
End Type

Graphics3D 800,600

Global  CamX#=75
Global CamY#=90
Global CamZ#=-75

Global  CamRX#=90
Global CamRY#=0
Global CamRZ#=0

camera=CreateCamera()
PositionEntity  camera,CamX#,CamY#,CamZ#
RotateEntity camera, CamRX#,CamRY#,CamRZ#

fncreatelevel()

Repeat
If MouseHit(1)
For a.cubes=Each cubes
EntityColor a\obj,255,0,0
Next
EndIf
UpdateWorld
RenderWorld
Flip
Until KeyHit(1)
End
Function  fnCreateLevel()
cube.cubes = New cubes
scub=CreateCube()
ScaleEntity scub,5,5,5
HideEntity scub


    For x=0 To CFieldWidth-1
          For z=0 To CFieldHeight-1
              If ((x Mod 2)=1) And ((z Mod 2)=1) Then
                    cube.cubes = New cubes
                    cube\obj = CopyEntity(scub)
                   
                    masPrep(x, z)=2
 
                  PositionEntity cube\obj, x * 10 + 5, 5, -z * 10 - 5


                   
                                                                               
              End If
          Next
      Next

    Local kolvo = Rand(90,115)
   
    For i = 1 To kolvo
      cube.cubes = New cubes
      cube\obj = CopyEntity(scub)

                                        Local x_rnd = Rand (1,CFieldWidth-1)
          Local z_rnd = Rand (1,CFieldHeight-1)
         
          While Not (masPrep(x_rnd, z_rnd) = 0)
              x_rnd = Rand (0,CFieldWidth-1)
              z_rnd = Rand (0,CFieldHeight-1)
        Wend
  masPrep(x_rnd, z_rnd)=1
       
          Local posX# = x_rnd * 10 + 5
        Local posZ# = -z_rnd * 10 - 5
                                       
    PositionEntity cube\obj,posX,5,posZ
    EntityColor cube\obj,255,255,0

Next

End Function
по нажатию ЛКМ укбики должны покраситься в красный цвет.
но этого не происходит, и тем более entity does not exist.
Спасибо за внимание...

tormoz 22.08.2006 20:37
Re: Bomberman_Standard_Edition
 
Убери первую строчку в функции создания уровня:
cube.cubes = New cubes

impersonalis 22.08.2006 21:08
Re: Bomberman_Standard_Edition
 
Я что-то не пойму какое отношение это всё иммет к проекту FANT-a?

ZanoZa 22.08.2006 21:49
Re: Bomberman_Standard_Edition
 
ну это я делаю texture viewer чтобы не пытать текстуры на самой игре.
p.s.Кстати кто не в курсе я тоже вучавствую в создании bombermanа :)

Fant 22.08.2006 23:55
Re: Bomberman_Standard_Edition
 
Цитата:
Сообщение от impersonalis
Я что-то не пойму какое отношение это всё иммет к проекту FANT-a?
ZanoZa помогает мне с текстурами. Если он это сделает, то дизайн меню будет тоже его ;)

Fant 21.09.2007 10:34
Re: Bomberman_Standard_Edition
 
Вложений: 2
Немало времени прошло с тех пор, как сюда поступило последнее обновление

Однако же:

1. Пассивный - этот тип имеет обыкновение путешествовать по игровой локации. Если встречает препятствие(любое), поворачивает на 90 (-90) или на 180 (0) градусов (случайно).
2. Странник - этот тип имеет обыкновение путешествовать по игровой локации, поворачивая в случайном направлении(на 90(-90), 180(0) радусов) каждые N количество секунд. Если встречает препятствие(любое), поворачивает на 90 или 180 градусов (случайно).
3. Ловец - этот тип имеет обыкновение путешествовать по игровой локации, поворачивая в случайном направлении(на 90,180,270градусов) каждые N количество секунд. Если встречает препятствие(любое), поворачивает на 90 или 180 градусов (случайно).Если есть возможность видеть ( очень ограниченный радиус видимости) игрока, следует на клетку, где игрок был замечен.
4. Убийца - путешествует по локации(не стоит на месте) . Если встречает препятствие(любое), поворачивает на 90 или 180 градусов (случайно). Если есть возможность видеть игрока, следует за ним (N количество времени). Избегает бомбы (отбегает на безопасное расстояние).

Вот 4 типа ИИ, которые уже сделаны.
* Примечание. 4 тип пока от бомб не убегает, но это не смертельно и временно.

Так же сделаны призы:

Листинг команд:
Жмем tab и в контекстом меню:
Например: en1 -> enter
en1;en2;en3;en4 - создает врагов
prize_rad - увеличивает радиус взрыва на 1
prize_bomb - плюс 1 к максимуму бомб
prize_speed - плюс 1 к скорости игрока
prize_life - плюс 1 к жизням игрока
prize_det - дает возможность взырваться бомбам по детонатору
prize_unsteady - проход сквозь стены
prize_transporent - проход сквозь бомбы

Так они создаются и ... и результат от их "воздействия"

Я написал это так как к уважаемым жильцам форума есть просьба потестить данную программку! Отписаться о всех багах\глюках и, если есть такое желание, о пожеланиях по улучшению

В данный момент работаю над сетью. По локалке можно будет играть (я очень постараюсь) а вот через интернет - не знаю (просто смотрел пример HolyDel'а в FAQ и мне грустно, что у мя все тормозило)

Дизайн докумен сильно не изменился за последнее время.

Вот когда сеть сделаю, то будет ОЧЕНЬ нужен 3d мделлер! так как модельки сам я не сделаю

Хотя и сейчас можно было бы начинать моделлить, но никто не знает про 3dMax (вернее как им пользоваться), так что если у кого-то появитя желание помочь с моделями я буу очень благодарен. Как только такой человек найдется, то скетчи начнут сразу же рисоваться) и пересылаться...

P.s. кто найдет ошибку - тому бонус в подарок) он сможет сам ее исправить ;-)

Это делали:

neRobot

Fant

alcoSHoLiK 22.09.2007 00:32
Re: Bomberman_Standard_Edition
 
При нажатии некоторых клавиш вылетает с MAV.

Fant 22.09.2007 09:30
Re: Bomberman_Standard_Edition
 
Кстати, забыл предупредить! Юзаются клавиши
Курсор
Пробел
Ctrl(если есть детонатор)

Остальные клавиши как бы задействованы, но не юзаются....короче я их забыл "выключить"

Fant 22.09.2007 09:32
Re: Bomberman_Standard_Edition
 
Цитата:
Сообщение от alcoSHoLiK
При нажатии некоторых клавиш вылетает с MAV.
Спасибо за проявленный интерес!

При нажатии важных клавиш? (курсор, пробел мышь, ctrl) или случайных с клавы?

Horror 22.09.2007 11:05
Re: Bomberman_Standard_Edition
 
при нажать на D вроде!
по игре камерой не оч удобно упровлять !
лучшеб она следила за игроком или хотяб смотрела с видом сверху!
а так здорово не считаю графу)

Fant 22.09.2007 14:43
Re: Bomberman_Standard_Edition
 
Цитата:
Сообщение от Horror
при нажать на D вроде!
по игре камерой не оч удобно упровлять !
лучшеб она следила за игроком или хотяб смотрела с видом сверху!
а так здорово не считаю графу)
Действительно) если нажать на D будет ошибка, которой уже нет!

А вот камерой - да. Не то что бы неочень...ей никак. Камера будет настроена уже как последний штрих и будет она "сверху"

Насчет графы - согласен. Но увы, пока нет никого, кто бы смог ее улучшить до надлежащего уровня

alcoSHoLiK 22.09.2007 16:35
Re: Bomberman_Standard_Edition
 
При нажатии на А тоже вываливалось.


Часовой пояс GMT +4, время: 04:33.
Страница 15 из 16 « Первая < 591011121314 15 16 >
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot