Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2011, 06:40   #11
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Не выдумывай, может ты чего не понимаешь? У тебя если 1, то пробел, пробелы с краев, выводит такое
Код:
     
 ### 
 ### 
 ###
puporev вне форума Ответить с цитированием
Старый 25.07.2011, 08:57   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
не помогает(
давным бы давно запаковали Ваши исходники + Ваш файл с картой в архив и выложили на форум.
Иначе игры в "помогает/не помогает" будут долго продолжаться...

__________________
Цитата:
Сообщение от puporev
У тебя если 1, то пробел, пробелы с краев, выводит такое...
puporev, БИНГО!!!
на 99.9% уверен, что Вы попали в точку!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.07.2011, 10:25   #13
ivannes
Пользователь
 
Аватар для ivannes
 
Регистрация: 16.06.2011
Сообщений: 42
По умолчанию

все понял. а можно вопрос не по теме? как так сделать чтобы нолик сталкиваясь с # останавливался?
Помог? тогда жми на весы
Девушка что оператор мобильной связи, когда денег нет, то она не доступна ©Радио Маяк
ivannes вне форума Ответить с цитированием
Старый 25.07.2011, 10:39   #14
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
как так сделать чтобы нолик сталкиваясь с # останавливался
А как он движется, по каким правилам? Без кода трудно подсказать.

Если все это в матрице, то проверять символ в полях, на которые может пойти нолик.

Последний раз редактировалось Serge_Bliznykov; 25.07.2011 в 14:33.
puporev вне форума Ответить с цитированием
Старый 25.07.2011, 15:41   #15
ivannes
Пользователь
 
Аватар для ivannes
 
Регистрация: 16.06.2011
Сообщений: 42
По умолчанию

а если по координатам? тут я кое-что предпринял, но не получилось
Код:
x:=5;
y:=5;
repeat
gotoXY(x,y);
textcolor(white);
write('O');
key:=readkey;
gotoxy(x,y);
textcolor(black);
write('O');

if key='w' then begin
y:=y-1;
if map[x,y]=#35 then y:=y+1;
end;
if key='a' then begin
x:=x-1;
if map[x,y]=#35 then x:=x+1;
end;
if key='s' then begin
y:=y+1;
if map[x,y]=#35 then y:=y-1;
end;
if key='d' then begin
x:=x+1;
if map[x,y]=#35 then x:=x-1;
end;
Помог? тогда жми на весы
Девушка что оператор мобильной связи, когда денег нет, то она не доступна ©Радио Маяк

Последний раз редактировалось ivannes; 25.07.2011 в 15:44.
ivannes вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
чтение из текстового файла в структуру TRAIN и вывод информации по запросу (Паскаль) Arabic_Coffee Помощь студентам 0 14.05.2011 21:11
СИ чтение чисел из файла, сортировка и вывод Millen Помощь студентам 1 07.03.2011 02:26
Нестандартный вывод из БД sersr Помощь студентам 3 08.11.2010 21:32
if и чтение+вывод из файла .txt webber9989 PHP 4 24.08.2010 22:13
Чтение и вывод ini-файла JoLan Общие вопросы Delphi 5 27.07.2010 21:32