Оберон-клуб «ВЄДАsoft» :: Просмотр темы - Игра Dash для Java ME, MS-DOS и ZX Spectrum

Оберон-клуб «ВЄДАsoft» https://zx.oberon.org/forum/

Игра Dash для Java ME, MS-DOS и ZX Spectrum https://zx.oberon.org/forum/viewtopic.php?f=27&t=38	Страница 1 из 1

Автор:

Zorko [ 26 ноя 2012, 15:46 ]

Заголовок сообщения:

Игра Dash для Java ME, MS-DOS и ZX Spectrum

После многих экспериментов могу с уверенностью сказать — разработка мидлетов на GPCP возможна.

Анонсирую кроссплатформенную игру Dash, разрабатываемую на Оберон-языках:

https://sourceforge.net/projects/bolderdash/
https://github.com/Oleg-N-Cher/Dash/

Столь различные платформы выбраны чтобы показать практическую мощь Оберон-технологий.

J2ME — 32-битная, как правило, для карманных устройств (мобильных телефонов) с маленьким экраном (разрешение варьируется от 128x128 до 240x320 и выше) глубиной цвета от 256 до 65536 цветов и небольшим количеством кнопок (или сенсором).

MS DOS — 16-битная классика. Кто не помнит Prince of Persia, DOOM или Norton Commander? Для усложнения условий решено ограничиться графикой CGA (320x200, неквадратные точки, 4 цвета, выбираемые из нескольких палитр).

ZX Spectrum — тоже классический 8-битный компьютер 80х - 90х годов. Специфическое строение экрана с атрибутной цветностью (из квадратиков), 48 Кб ОЗУ.

Цель проекта — отделить машинно-независимое представление игры в рамках стандарта языка Оберон-1 от платформенно-зависимых прослоек, разработанных на диалектах Оберон-1, Оберон-2 и Компонентный Паскаль.

Пример портабельного игрового кода:

Код: "OBERON"

Expand Code | Выделить всё

MODULE Dash; (** portable *)
IMPORT
  GrScr, Rsrc, Til := GrTiles;
 
VAR
  title: Rsrc.Resource;
  titleSize: INTEGER;
BEGIN
  Til.SetSize(10, 10, 5, 5);
  title := Rsrc.Open(Rsrc.Title);
  titleSize := Rsrc.TitleSize;
  REPEAT
    Til.PutTile(Rsrc.ReadByte(title), Rsrc.ReadByte(title),
      Rsrc.GetTileByNum(Rsrc.ReadByte(title)));
    DEC(titleSize);
  UNTIL titleSize = 0;
  Rsrc.Close(title);
  GrScr.Repaint;
END Dash.

Пример непортабельной прослойки-биндинга к платформе J2ME на Компонентном Паскале:

Код: "OBERON"

Expand Code | Выделить всё

MODULE Timer; (** non-portable *)
 
IMPORT
  lang := java_lang;
 
PROCEDURE Delay* (msec: INTEGER);
BEGIN
  lang.Thread.sleep(msec);
  RESCUE (interruptedException);
END Delay;
 
END Timer.

Вложения:

Комментарий к файлу: Результат работы примера. GPCP-мидлет, запущенный на мобильном телефоне.

Dash.jpg [ 24.16 КБ | Просмотров: 15863 ]

Страница 1 из 1	Часовой пояс: UTC + 2 часа
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/