forum.boolean.name - Взрыв бомбочки

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Взрыв бомбочки (http://forum.boolean.name/showthread.php?t=4297)

Fant	30.08.2007 17:37

Взрыв бомбочки

У меня в игре есть массив. В нем хранится вся инфа.
Массив 16 на 16
например пробиваемый кубик там значится как 2, бомба как 4.
Проходимые места это 0. Непроходимые и непробиваемые это 1

Игра - бомбермен. Так вот
111111 - как бы тут получается, что есть поле, окруженное
100001 - непробиваемыми объектами. Есть на поле так же бомба.
100001 - рядом с бомбой 2 пробиваемых кубика. Радиус у бомбы - 3
104221 - то есть если она сработает, то порбиваемые кубики превратятся в 0
100001
111111
То ест станет
111111 - тут взорвалась и исчезла бомба. Изчезли и взорвались кубики
100001
100001
100001
100001
111111
А мне нужно:
111111 - что бы бомба, после того как взорвалась убила только ближайший
100001 - кубик, а тот,Ю который за ней остался жить
100001
100001
100021
100001

Сложность в том, что взрыв делается следующим образом:
distX%=bomb\ArX-partitionable\Arx - По массиву вычисляется расстояние от объекта, который взорвется до бомбы

If Abs(distz)<bomb\radius - если получившаяся дистанция меньше радиуса взрыва

partitionable\life=0 - то грубо говоря убиваем кубик.

А мне нужно как-то проверить, что на данной линии один кубик уже убили, а тот, который за ним, не должен взорваться. Мне предложили метод, но почему-то не сработало:

For z=partitionable\Arz To bomb\ArX
If Playfield(partitionable\Arx,z)<>0 Nevzrivatj=True
Next

Я честное слово точно не знаю как это работает)
partitionable\Arx - массив кубика по х
bomb\arX - массив бомбы по оси х
Я думаю нет смысла показывать, так как для оси z то же самое

Короче я долго мучался и не знаю как это организовать, поэтому прошу помощи

Horror

30.08.2007 18:14

Re: Взрыв бомбочки

как я понял у тя карта это двумерный массив так?
типо ЭРРЭЙ(16,16)

а если взрыв происходит а позициии Х У

то можно организовать взрыв так

уничтожаем кубик в позиции х,у
и все вокруг это (x-1[+1],y-1[+1]) т.е. спокойно можно взаврвать
все соседние 9 клеток!

а если клетка уже взорвана пропускай эту клетку

moka	30.08.2007 18:30

Re: Взрыв бомбочки

Horror, дело в том что если умрёт один то дальше не будут умирать. Я ему предложил варриант: Перебирать Все кубики, далее вычислять попадают ли они на одну из осей, далее проверять на дистанцию взрыва, и только тогда проверять не загораживается ли кубик чем-либо от бомбы, если нет то удалять.

Fant	30.08.2007 20:44

Re: Взрыв бомбочки

Цитата:

Сообщение от MoKa

Да, но данный вариант не работает:)

вот !

moka	30.08.2007 20:53

Re: Взрыв бомбочки

Fant, сделай рабочий. Есть теория а есть алгоритм, это разные вещи, и от алгоритма зависит рабочесть а не от теории :)

Fant	31.08.2007 01:13

Цитата:

Сообщение от MoKa

Однако, мы с тобой вместе птались это сделать, но у нас не получилось.
Если бы я смог тот алгоритм сам реализовать, я бы сюда не писал!

Кто знает как реализовать что я хочу сделать, посмотрите данную тему пожалуйста!

Цитата:

Сообщение от Horror

не совсем понял идею! Можно поподробнее?

impersonalis

31.08.2007 02:21

Re: Взрыв бомбочки

вот

Цитата:

Data 1,1,1,1,1,1
Data 1,0,2,0,0,1
Data 1,0,0,0,0,1
Data 1,2,4,0,2,1
Data 1,0,2,0,0,1
Data 1,1,1,1,1,1

Const xworldsize=6
Const yworldsize=6

Dim MAP(xworldsize,yworldsize)

Function EPI(x,y)
MAP(x,y)=0
Local R=1;<========Raidus
Local C

C=0
For i=x+1 To xworldsize
If C=R Exit
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0
DebugLog "del "+i+";"+y
Exit
EndIf
C=C+1
Next
C=0
For i=x-1 To 1 Step -1
If C=R Exit
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0
DebugLog "del "+i+";"+y
Exit
EndIf
C=C+1
Next
C=0
For i=y+1 To yworldsize
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
C=0
For i=y-1 To 1 Step -1
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
End Function

Function drawmap()
Cls:Locate 0,0
For iy=1 To yworldsize
s$=""
For ix=1 To xworldsize
s=s+MAP(ix,iy)
Next
Print s
Next
Print "["+MilliSecs()+"] press any key For Next draw"
WaitKey()
End Function

;=load
For iy=1 To yworldsize
For ix=1 To xworldsize
Read MAP(ix,iy)
Next
Next
;=
Graphics 800,600,32
SetFont LoadFont("arial",20)
FlushKeys()
drawmap()
;=bomb
For iy=1 To yworldsize
For ix=1 To xworldsize
If MAP(ix,iy)=4
EPI(ix,iy)
EndIf
Next
Next
drawmap()

Fant	31.08.2007 10:32

Re: Взрыв бомбочки

Цитата:

Сообщение от impersonalis

вот

Спасибо! Это то, что нужно!

А проще или понятнее этот код представить можно? Или напихать его комментами?

А то я читаю и у меня только прееменные мигают перед глазами. Я конечно надеюсь, что за много времени яя может и пойму смысл вышенаписанного, но более иной стиль (оформление кода) или комментарии существенно облегчат мне задачу

impersonalis

31.08.2007 15:06

Re: Взрыв бомбочки

Цитата:

;описываем карту
Data 1,1,1,1,1,1
Data 1,0,2,0,0,1
Data 1,0,0,0,0,1
Data 1,2,4,0,2,1
Data 1,0,2,0,0,1
Data 1,1,1,1,1,1

;размеры по абсциссе и ординате
Const xworldsize=6
Const yworldsize=6

;массив карты
Dim MAP(xworldsize,yworldsize)

;функция взрыва
Function EPI(x,y)
MAP(x,y)=0
Local R=1;<========Raidus
Local C;путь взрывной волны

C=0
;-> двигаемся
For i=x+1 To xworldsize
If C=R Exit;радиус пройден
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0;взрываем точку
DebugLog "del "+i+";"+y
Exit;волна исчерпала себя
EndIf
C=C+1;увеличиваем пройденное
Next
C=0
;<-двигаемя
For i=x-1 To 1 Step -1
If C=R Exit
If MAP(i,y)<>0 And MAP(i,y)<>1
MAP(i,y)=0
DebugLog "del "+i+";"+y
Exit
EndIf
C=C+1
Next
C=0
;\/ двигаемся
For i=y+1 To yworldsize
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
C=0
;/\ двигаемся
For i=y-1 To 1 Step -1
If C=R Exit
If MAP(x,i)<>0 And MAP(x,i)<>1
MAP(x,i)=0
DebugLog "del "+x+";"+i
Exit
EndIf
C=C+1
Next
End Function

Function drawmap()
Cls:Locate 0,0
For iy=1 To yworldsize
s$=""
For ix=1 To xworldsize
s=s+MAP(ix,iy)
Next
Print s
Next
Print "["+MilliSecs()+"] press any key For Next draw"
WaitKey()
End Function

;=load
For iy=1 To yworldsize
For ix=1 To xworldsize
Read MAP(ix,iy)
Next
Next
;=
Graphics 800,600,32
SetFont LoadFont("arial",20)
FlushKeys()
drawmap()
;=bomb
For iy=1 To yworldsize
For ix=1 To xworldsize
If MAP(ix,iy)=4
EPI(ix,iy)
EndIf
Next
Next
drawmap()

даж не знаю - чего там комментить =/

Fant	31.08.2007 23:51

Re: Взрыв бомбочки

Цитата:

Сообщение от impersonalis

даж не знаю - чего там комментить =/

ну, я как начну это реализовывать думаю появятся вопросы! А за комментарии Спс!

Fant	03.09.2007 22:50

Re: Взрыв бомбочки

Вообщем не получается. Вот функция моя. Не знаю почему не получается. Пытался воспроизвести идею Imper'а

Код:

bomb.bombs = First bombs

If bomb<>Null Then fnUpdateBomb(X,Z) - в цикле

-------------------------------------

 

Function fnUpdateBomb(x,z)

For bomb.bombs = Each bombs

Local Rad=16

Local ExplWay

ExplWay=0

If bomb<>Null Then 

bomb\lifetime = bomb\lifetime+1

bomb\ArX = Int(((EntityX (bomb\obj)+5)/10))

bomb\ArZ= Int(((EntityZ (bomb\obj)+5)/10))

 

x=bomb\ArX

z=bomb\Arz

If (bomb\lifetime=60 ) 

 

 

;-> äâèãàåìñÿ

For i=bomb\ArX+1 To 16

If ExplWay=Rad Exit;ðàäèóñ ïðîéäåí

If playfield(X,Z)<>0 And Playfield(X,Z)<>1

playfield(X,Z)=0;âçðûâàåì òî÷êó

Exit;âîëíà èñ÷åðïàëà ñåáÿ

EndIf

ExplWay=ExplWay+1;óâåëè÷èâàåì ïðîéäåííîå

Next

ExplWay=0

;<-äâèãàåìÿ

For i=bomb\ArX-1 To 1 Step -1

If ExplWay=Rad Exit

If playfield(X,Z)<>0 And playfield(X,Z)<>1

playfield(X,Z)=0

Exit

EndIf

ExplWay=ExplWay+1

Next

ExplWay=0

 

;\/ äâèãàåìñÿ

For i=bomb\ArZ+1 To 16

If ExplWay=Rad Exit

If playfield(X,Z)<>0 And playfield(X,Z)<>1

playfield(X,Z)=0

Exit

EndIf

ExplWay=ExplWay+1

Next

ExplWay=0

;/\ äâèãàåìñÿ

For i=bomb\ArZ-1 To 1 Step -1

If ExplWay=Rad Exit

If playfield(X,Z)<>0 And playfield(X,Z)<>1

playfield(X,Z)=0

Exit

EndIf

ExplWay=ExplWay+1

Next 

Next 

end function

Может я что-то с массивом напутал? Вообще у меня в начале массив:

Const ArrayPlayfieldX=16
Const ArrayPlayfieldZ=16

Dim Playfield(ArrayPlayfieldX,ArrayPlayfieldZ)

Сейчас почему-то вообще...ничего не работает, но и ошибки никакой нет.

moka	04.09.2007 15:35

Re: Взрыв бомбочки

Ну да тут только в массиве отчищаються квады, а удалять кубики исходя отчищен ли массив это уже тебе проверять. Просто как я понял impersonalis предпологал что у тебя зависимость такая: Массив > Объекты, а у тебя наоборот, поэтому тебе нужно ещё и объекты отчищать.

Fant	04.09.2007 15:40

Re: Взрыв бомбочки

Цитата:

Сообщение от MoKa

Все удаляется. Я проверял. Если убрать все нагромождения, то все ок (но и удаляются ВСЕ кубики ряда, а не по одному)

Код:

Function fnUpdateRndCube()

For partitionable.partitionableCube=Each partitionableCube

partitionable\Arx = Int(((EntityX (partitionable\obj)+5)/10))

partitionable\Arz= Int(((EntityZ (partitionable\obj)+5)/10))

If playfield (partitionable\Arx,partitionable\ArZ)=0 *******************************

FreeEntity partitionable\obj

Delete partitionable

End If 

Next

End Function

Часовой пояс GMT +4, время: 08:06.