Помогите ограничить уровень

[AngelOfDeath]

Получилось построить уровень для игры
Но не могу понять как сделать чтоб персонаж не выходил за границы уровня
В общем в игре главный персонаж 2
Места куда можно ходить это 1 (почему то ноли не пишет)
А стены это 1
Немного глупо, ноя просто строил уровень))
И ещё не делал игру
Вопрос понятен как сделать так чтоб персонаж не выходил за уровень
Заранее спс
Вот исходник и ехе:

[AngelOfDeath]

Всё нашёл ответ:

procedure TForm1.GoDown;
begin
 if mapXY[charX,CharY+1]=1 then
exit
else
begin
if chary+1<=10 then
begin
CharOldX:=charX;
CharOldY:=CharY;
mapXY[charX, CharY+1]:=2;
mapXY[CharOldX, CharOldY]:=0;
end;
end;
end;

procedure TForm1.GoLeft;
begin
if mapXY[charX-1,CharY]=1 then
exit
else
begin
if charX-1>=0 then
begin
CharOldX:=charX;
CharOldY:=CharY;
mapXY[charX-1, CharY]:=2;
mapXY[CharOldX, CharOldY]:=0;
end;
end;
end;

procedure TForm1.GoRight;
begin
 if (mapXY[charX+1,CharY]=1) then


exit
else
begin
if charX+1<=10 then
begin
CharOldX:=charX;
CharOldY:=CharY;
mapXY[charX+1, CharY]:=2;
mapXY[CharOldX, CharOldY]:=0;
end;
end;
end;

procedure TForm1.GoUp;
begin
 if mapXY[charX,CharY-1]=1 then
exit
else
begin
if chary-1>=0 then
begin
CharOldX:=charX;
CharOldY:=CharY;
mapXY[charX, CharY-1]:=2;
mapXY[CharOldX, CharOldY]:=0;
end;
end;
end;

OFF: Ответ оказался в вашей подписи

Я когда придумал ответ, о том же подумал

p.s. Модераторы можете закрывать тему

[Beermonza]

OFF: Ответ оказался в вашей подписи

Со временем уровень у вас станет болше экрана, тогда заранее советую ввести две переменные которые будут хранить границы экрана, при перемещении персонажа эти границы аналогично будут изменяться, а динамичность сравнения отвяжет вас от статических значений типа charX+1<=10.

[AngelOfDeath]

Ну это пока в будущем
А щас простенький Packman