John Doe's blog


Опять баловался перед праздниками

Sun Jun 15, 2008 12:22 pm

[  Mood: Silly ]

Вспомнилась чудная игра Sokoban времен ZX-Spectrum'а. Там грузчик ящики на складе перетаскивал (вернее переталкивал). Столько времени это игра "убила", что если б все это время - да в мирные цели, то ...
В общем убил я еще пол рабочего дня да свой вечер на ABAP-порт этой программы.
.
Исходник лежит здесь: Sokoban.

Первый уровень сам придумал Cool , остальные спионерил здесь.

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

The Trackback URL for this entry is:

http://www.sapnet.ru/trackback.php?e=22

Page 1 of 1
Author Message

vga
Мастер
Мастер

Joined: 04 Oct 2007
Posts: 1218
Location: Санкт-Петербург

PostPosted: Mon Jun 16, 2008 10:51 am    Post subject:
Reply with quote

С иконками вместо символов круче, чем на спектруме будет Wink

ЗЫ: Первый спектрум поисмел в 90 году.

Back to top View user's profile Send private message Visit poster's website

John Doe
Модератор
Модератор

Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар

PostPosted: Mon Jun 16, 2008 11:55 am    Post subject:
Reply with quote

vga wrote:
С иконками вместо символов круче, чем на спектруме будет Wink

ЗЫ: Первый спектрум поисмел в 90 году.

Беспорно... Только та же проблема что и с цветом - печатается через WRITE (MODIFY LINE не поддерживается), соответственно на 10 ходу - дамп...
Валерий, ты случаем не знаешь как предыдущие листинги убивать? Я б тогда с картинками забацал!

Добавил: нашел выход через сбрасывание SY-LSIND. Скоро будет релиз с картинками...

Back to top View user's profile Send private message

yegorm
Участник
Участник

Joined: 16 Jun 2008
Posts: 1

PostPosted: Mon Jun 16, 2008 3:00 pm    Post subject:
Reply with quote

Привет! Ты выбрал классную игрушку, попробую у себя поставить.

Back to top View user's profile Send private message

John Doe
Модератор
Модератор

Joined: 05 Nov 2007
Posts: 725
Location: КраснАдар

PostPosted: Mon Jun 16, 2008 3:54 pm    Post subject:
Reply with quote

yegorm wrote:
Привет! Ты выбрал классную игрушку, попробую у себя поставить.

Привет Егор! Рад тебя слышать! Как дела?

Back to top View user's profile Send private message

admin
Администратор
Администратор

Joined: 01 Sep 2007
Posts: 1639

PostPosted: Tue Jun 17, 2008 12:15 am    Post subject:
Reply with quote

Тык вроде sy-lsind = 0 релизит предыдущие листинги.

А с этими переменными поиграться не получится?
SY-COLNO (for the current column)
SY-LINNO (for the current line)

Код:
WRITE: / 'row1'.
SY-COLNO = 1.
SY-LINNO = 2.
WRITE: / 'row2'.

Back to top View user's profile Send private message
Display posts from previous:   
Page 1 of 1
Powered by The Blog Mod version 0.2.4 by Hyperion & TheBlogMod.com
Powered by phpBB © 2001, 2002 phpBB Group
Weblog style by Hyperion