Важная информация

User Tag List

Страница 2 из 4 ПерваяПервая 1234 ПоследняяПоследняя
Показано с 11 по 20 из 31

Тема: Snake в 93 байт

  1. #11
    Guru Аватар для ZX_NOVOSIB
    Регистрация
    24.12.2006
    Адрес
    р.п. Маслянино, Новосибирская обл.
    Сообщений
    4,280
    Спасибо Благодарностей отдано 
    7
    Спасибо Благодарностей получено 
    3
    Поблагодарили
    2 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    TRD кто-нибудь выложит?
    _

  2. #12
    Veteran Аватар для ZEman
    Регистрация
    28.10.2005
    Адрес
    Омск
    Сообщений
    1,926
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    а готовый результат не можете выложить ?

  3. #13
    Master
    Регистрация
    31.01.2007
    Адрес
    Москва
    Сообщений
    574
    Спасибо Благодарностей отдано 
    1
    Спасибо Благодарностей получено 
    1
    Поблагодарили
    1 сообщение
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Код:
    	in	a, (0xfe)
    	rra
    	rra
    	jr	c, $+4
    	ld	c, 0xe0
    	rra
    	jr	c, $+4
    	ld	c, 0x20
    	rra
    	jr	c, $+4
    	ld	c, 0x01
    	rra
    	jr	c, $+3
    	ld	c, e
    	ld	a, c
    	rla
    	sbc	a, a
    	ld	b, a
    И убираем инициализацию b, -1. Спорные места еще есть с виду.
    Вообще показательный тред, все это не о чем, ценности не имеет, половина народа даже не запускала, но спасибки понаставила, деградация в чистом виде. Просто заставляет лишний раз задуматься, нафига стараться, если даже последним реально срать.

  4. #14
    Activist Аватар для Kalantaj
    Регистрация
    15.04.2008
    Адрес
    г. Кривой Рог, Украина
    Сообщений
    379
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    ex hl,de
    Нет такой команды. Есть ex de,hl
    Вместо ld (hl),33 должно быть ld (hl),#33 (если я правильно понял).
    И да... Длина - 94 байта а не 93.

    - - - Добавлено - - -

    Цитата Сообщение от ZX_NOVOSIB Посмотреть сообщение
    TRD кто-нибудь выложит?
    Цитата Сообщение от ZEman Посмотреть сообщение
    а готовый результат не можете выложить ?
    Эх лентяи
    Держите - сделал TRD:
    Вложения Вложения

  5. #15
    Master
    Регистрация
    31.01.2007
    Адрес
    Москва
    Сообщений
    574
    Спасибо Благодарностей отдано 
    1
    Спасибо Благодарностей получено 
    1
    Поблагодарили
    1 сообщение
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    А ну конечно, еще убрать ненужный ex и вместо него проинициализировать hl. Еще -1

    - - - Добавлено - - -

    Еще можно начать с ld h, 0x5b, тогда немного загадится буфер принтера и в 128 не заработает, но это вроде как и не требуется. Короче 90 без проблем получается.

    Вообщем суммарно

    Скрытый текст

    Код:
    	device	zxspectrum48
    	org	#8000
    begin
    	ld	h, #5b
    rabbit1
    	ld	(hl), e
    	ld	a, r
    	cp	l
    	jr	z, rabbit2
    	inc	(hl)
    rabbit2
    	dec	hl
    	bit	3, h
    	jr	nz, rabbit1
    	ld	c, l
    	ld	hl, 0x598f
    ;---
    l1
    	ld	(hl), 0x21
    	ld	d, 0x5a
    move1
    	ld	a, (de)
    	dec	a
    	cp	0xfe
    	jr	nc, move2
    	ld	(de), a
    move2
    	jr	nz, move3
    	dec	(hl)
    move3
    	dec	de
    	bit	3, d
    	jr	nz, move1
    ;---
    	xor	a
    	out	(0xfe), a
    clr	
    	ld	(de), a
    	dec	de
    	bit	6, d
    	jr	nz, clr
    ;---
    	in	a, (0xfe)
    	rra
    	rra
    	jr	c, $+4
    	ld	c, 0xe0
    	rra
    	jr	c, $+4
    	ld	c, 0x20
    	rra
    	jr	c, $+4
    	ld	c, 0x01
    	rra
    	jr	c, $+3
    	ld	c, e
    	ld	a, c
    	rla
    	sbc	a, a
    	ld	b, a
    ;---
    	ld	a, (hl)
    	and	00100000b
    	add	hl, bc
    	or	(hl)
    	inc	a
    	cp	7
    	jr	nc, begin
    	ld	a, h
    	inc	a
    	and	00000011b
    	jr	z, begin
    ; 	bit	0, c
    ; 	jr	z, l1
    ; 	ld	a, l
    ; 	sub	c
    ; 	xor	l
    ; 	and	0xe0
    ; 	jr	nz, begin
    	jr l1
    	display	/A,$-0x8000
    	savesna	"snake.sna", 0x8000
    [свернуть]
    Последний раз редактировалось krt17; 13.04.2018 в 00:58.

  6. #16
    Master
    Регистрация
    31.01.2007
    Адрес
    Москва
    Сообщений
    574
    Спасибо Благодарностей отдано 
    1
    Спасибо Благодарностей получено 
    1
    Поблагодарили
    1 сообщение
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    84 байта, с небольшим уменьшением скорости, при этом мне стало комфортнее играть.

    Скрытый текст

    Код:
    	device	zxspectrum48
    	org	#8000
    begin
    	ld	h, #5b
    rabbit1
    	ld	a, r
    	ld	(hl), e
    	cp	l
    	jr	z, rabbit2
    	inc	(hl)
    rabbit2
    	dec	hl
    	bit	3, h
    	jr	nz, rabbit1
    	ld	c, l
    	ld	hl, 0x598f
    ;---
    l1
    	ld	(hl), 0x21
    	ld	d, 0x5a
    move1
    	ld	a, (de)
    	dec	a
    	cp	0xfe
    	jr	nc, move2
    	ld	(de), a
    move2
    	jr	nz, move3
    	dec	(hl)
    move3
    	dec	de
    	bit	6, d
    	jr	nz, move1
    ;---
    	xor	a
    	out	(0xfe), a
    	in	a, (0xfe)
    	rra
    	rra
    	jr	c, $+4
    	ld	c, 0xe0
    	rra
    	jr	c, $+4
    	ld	c, 0x20
    	rra
    	jr	c, $+4
    	ld	c, 0x01
    	rra
    	jr	c, $+3
    	ld	c, e
    	ld	a, c
    	rla
    	sbc	a, a
    	ld	b, a
    ;---
    	ld	a, (hl)
    	and	00100000b
    	add	hl, bc
    	or	(hl)
    	inc	a
    	cp	7
    	jr	nc, begin
    	ld	a, h
    	inc	a
    	and	00000011b
    	jr	z, begin
    	jr l1
    	display	/A,$-0x8000
    	savesna	"snake.sna", 0x8000
    [свернуть]

    Завтра еще гляну, вроде еще можно подужать, жаль что все игроки в "оптимизацию" молчат.

  7. #16
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  8. #17
    Veteran
    Регистрация
    07.10.2006
    Адрес
    Павлоград, Днепропетровская обл., Украина
    Сообщений
    1,141
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Играть неинтересно, всё съел, и дальше делать нечего.
    В классическом Питоне, когда один кролик на поле, но после его съедения увеличивается длина питона и появляется следующий кролик, интереснее.

    upd. К тому же ГСЧ на регистре R слабоват, если выдавать сразу пачку кроликов (виден паттерн расстановки), а вот по одному - было бы ок.
    Последний раз редактировалось weiv; 13.04.2018 в 23:25.

  9. #18
    Guru Аватар для goodboy
    Регистрация
    27.02.2005
    Адрес
    москва
    Сообщений
    10,858
    Записей в дневнике
    1
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    а почему нет столкновения с боковыми стенками ?

  10. #19
    Master
    Регистрация
    31.01.2007
    Адрес
    Москва
    Сообщений
    574
    Спасибо Благодарностей отдано 
    1
    Спасибо Благодарностей получено 
    1
    Поблагодарили
    1 сообщение
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от weiv Посмотреть сообщение
    Играть неинтересно
    Да не, там все нормально у автора, съел все игре конец, молодец, начинай сначала. Это просто калантай умудрился нагадить в трд версии. Так то 23 человека абсолютно счастливы от этой игры, и еще двое от испорченной версии вдвойне

  11. #20
    Veteran
    Регистрация
    07.10.2006
    Адрес
    Павлоград, Днепропетровская обл., Украина
    Сообщений
    1,141
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от krt17 Посмотреть сообщение
    Да не, там все нормально у автора, съел все игре конец, молодец, начинай сначала. Это просто калантай умудрился нагадить в трд версии. Так то 23 человека абсолютно счастливы от этой игры, и еще двое от испорченной версии вдвойне
    Ну всё равно, если бы появлялся один кролик за другим, и длина питона увеличивалась от минимума до упора, было бы интереснее, по-моему. Может, займусь на досуге, переделаю.

    - - - Добавлено - - -

    Но что мне в этой змейке нравится - что она радужная) Ну и длина кода впечатляет, конечно.

Страница 2 из 4 ПерваяПервая 1234 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. БАЙТ БЭМЗ :)
    от stepmotor в разделе Память
    Ответов: 16
    Последнее: 01.03.2019, 22:24
  2. Байт 48
    от Arceny в разделе Unsorted
    Ответов: 87
    Последнее: 28.03.2017, 23:35
  3. SNAKE ESCAPE
    от DenisGrachev в разделе Игры
    Ответов: 17
    Последнее: 09.12.2016, 11:30
  4. Ответов: 24
    Последнее: 20.09.2010, 22:25
  5. Диагностика п/к Байт
    от klingon в разделе Unsorted
    Ответов: 14
    Последнее: 24.05.2010, 18:03

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •