Извините, ничего не найдено.

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

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

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

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

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

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

moka · 30.08.2007, 18:30

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

Fant · 30.08.2007, 20:44

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

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

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

вот !

moka · 30.08.2007, 20:53

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

Fant · 31.08.2007, 01:13

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

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

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

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

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

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

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

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

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

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

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

impersonalis · 31.08.2007, 02:21

вот

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

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

вот

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

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

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

impersonalis · 31.08.2007, 15:06

;описываем карту
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

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

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

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

Fant · 03.09.2007, 22:50

Вообщем не получается. Вот функция моя. Не знаю почему не получается. Пытался воспроизвести идею 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

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

Fant · 04.09.2007, 15:40

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

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

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

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