Реализация препятствия

[[BeNdeR]]

Преветствую! У меня есть файл с цифрами от 1 до 6. Вот так рисую карту:

    for y:=0 to 22 do
       for x:=0 to 28 do
    case  MapMas[x,y] of
     '0':bitbuf.Canvas.Draw(x*cell,y*cell,wall0);
     '1':bitbuf.Canvas.Draw(x*cell,y*cell,steal);
     '2':bitbuf.Canvas.Draw(x*cell,y*cell,ladder);
     '3':bitbuf.Canvas.Draw(x*cell,y*cell,wall1);
     '4':bitbuf.Canvas.Draw(x*cell,y*cell,exit);
     '5':bitbuf.Canvas.Draw(x*cell,y*cell,gold);
     '6':bitbuf.Canvas.Draw(x*cell,y*cell,water);
        end;

Хотел реализовать препятствия типо:

  if keypressed(37) then
     begin
       Player.texture.LoadFromFile('111.bmp');
       if (mapmas[x,y]='0') then 
           begin
              ....
              player.X:=player.X-4;
          end;
       if (mapmas[x,y]='1') then 
           begin
           player.X:=player.X;
           end;

Но не получилось... Подскажите пожалуйста как это можно сделать?

[xrob]

что это такое? это нормально? Кэпу привет! =)

player.X:=player.X;

[[BeNdeR]]

Какая разница! Ну можно и не писать! Лучше подсказал бы, как препятствие реализовать!

[Виталий Желтяков]

Настоятельно советую Вам прочитать журнал "ПРОграммист" №14 (ст. 16-21) про волновой алгоритм. Иначе, Я чувствую, Вы полезете в такие дебри матанализа...

[phomm]

погляди как я сделал практичеси подобную твоей вещь :
http://programmersforum.ru/showthread.php?t=139451

[VintProg]

Реализовать коллизию что-ли?

[Daemonghost]

У меня каждая клетка карты имеет несколько значений, одно из которых - проходимость, типа boolean (т.е. может в этой клетке находится персонаж или нет)
и в обработчике движения персонажа я сравниваю следующую клетку, в которую должен переместится персонаж, с истиной, если возможно - двигаемся иначе - останавливаемся

как реализовать?

 map = packed record  //ячейка карты
    layer1:              Byte;    // низший слой (id текстуры поверхности)
    layer2:              Byte;    // средный слой (id текстуры объекта на поверхности)
    prohod:              boolean; // проходимость
  end;

person = packed record
PosX, PosY:byte; // позиция персонажа в игровом поле
end;

var 
maparray: array [1..6, 1..6] of map;
pers:person;
... 
// при обработке движения персонажа сверяем следующую клетку куда он должен наступить

// обработка движения вниз
if map[x,y+1].prohod then pers.posY:=pers.posY+1// можно двигатся вперед
else // остановится

// обработка движения вверх
if map[x,y-1].prohod then pers.posY:=pers.posY-1// можно двигатся вперед
else // остановится

// обработка движения влево
if map[x-1,y].prohod then pers.posX:=pers.posX-1// можно двигатся вперед
else // остановится

// обработка движения вправо
if map[x+1,y].prohod then pers.posX:=pers.posX+1// можно двигатся вперед
else // остановится

но если речь идет об обходе препятствий - это уже другой алгоритм -
в поисковике набираешь - алгоритм нахождения кратчайшего пути!

[[BeNdeR]]

Как я понимаю в примере реализован граф?А зачем нам слои?И ещё небольшая проблемка

11111111111111111111111111111
10000000000000000000000002001
12330023300000002333330002001
12330023323233333333332332301
12332320000200000000040002001
12000020000200000002333330001
12000020003333333332000002001
12000020000000000033322222001
12033323323300500000020002001
12000020000333333330020002001
12000020000000505000020002001
12003333323323303333020002001
12000000000020000000020002001
13223320000020003330020023001
10000020000023323332330023331
15000333333020000000000020501
13300000000020000000323023301
15000323333333323300020020301
13330020000000000003323330301
10000023333333323000020005301
10000020000000000000020033301
11111116666666666666611111111

многовато true false переписывать. Хотя можно вот так попробывать

case  MapMas[x,y] of
    '0':begin 
              bitbuf.Canvas.Draw(x*cell,y*cell,wall0);
              prohod:=true;
        end;

...
Попробывал... если я обьявляю свой массив типом map, то программа не может считать мой текстовый файл.

[Daemonghost]

Сообщение от [BeNdeR]

Как я понимаю в примере реализован граф?А зачем нам слои?И ещё небольшая проблемка
....
многовато true false переписывать. Хотя можно вот так попробывать

case  MapMas[x,y] of
    '0':begin 
              bitbuf.Canvas.Draw(x*cell,y*cell,wall0);
              prohod:=true;
        end;

...
Попробывал... если я обьявляю свой массив типом map, то программа не может считать мой текстовый файл.

согласен ,что не сможет считать файл, дабы я использую типизированный файл map, а ты текстовый, предлагаю делать еще один файл в котором будут указаны ID, которые используются в карте, а рядом/ниже будет располагаться указатель на проходимость и при загрузки карты ты загружаешь отдельный массив проходимости, а после с согласованием ячейки карты и сравнения этого массива ты получишь тот же самый эффект.

Пример файла
0 1
1 0
2 1
3 1
4 1
5 1
6 0

где 0-6 твои ID, 0 - нельзя пройти, 1 - можно.

Почему слои? поймешь когда будешь пытаться наложить, скажем, стол на пол и отрисовать....

[[BeNdeR]]

А если я буду использовать типизированный файл, то

case  MapMas[x,y] of
    '0':begin 
              bitbuf.Canvas.Draw(x*cell,y*cell,wall0);
              prohod:=true;
        end;

будет работать. Просто мне кроме препятствий ещё и предметы на карте реализовывать.