Кому исходник тетриса размеро #01de байт... :)

вот он:

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

Код:

---

;SmallTris
;by rasmer/fishbone crew
;18.09.2014
                DEVICE ZXSPECTRUM128
                org #4000
figures:
                ;1
                db %01000100
                db %01000100
                db %01000100
                db %01000100

                db %00000000
                db %11111111
                db %00000000
                db %00000000

                db %01000100
                db %01000100
                db %01000100
                db %01000100

                db %00000000
                db %11111111
                db %00000000
                db %00000000
               
                ;2
                db %01100110
                db %01100110
                db %00000000
                db %00000000

                db %01100110
                db %01100110
                db %00000000
                db %00000000

                db %01100110
                db %01100110
                db %00000000
                db %00000000

                db %01100110
                db %01100110
                db %00000000
                db %00000000
               
                ;3
                db %01000100
                db %01100110
                db %00100010
                db %00000000

                db %01100110
                db %11001100
                db %00000000
                db %00000000

                db %01000100
                db %01100110
                db %00100010
                db %00000000

                db %01100110
                db %11001100
                db %00000000
                db %00000000

                ;4
                db %00100010
                db %01100110
                db %01000100
                db %00000000

                db %11001100
                db %01100110
                db %00000000
                db %00000000

                db %00100010
                db %01100110
                db %01000100
                db %00000000

                db %11001100
                db %01100110
                db %00000000
                db %00000000

                ;5
                db %01000100
                db %01000100
                db %01100110
                db %00000000

                db %00100010
                db %11101110
                db %00000000
                db %00000000

                db %01100110
                db %00100010
                db %00100010
                db %00000000

                db %11101110
                db %10001000
                db %00000000
                db %00000000

                ;6
                db %00100010
                db %00100010
                db %01100110
                db %00000000

                db %11101110
                db %00100010
                db %00000000
                db %00000000

                db %01100110
                db %01000100
                db %01000100
                db %00000000

                db %10001000
                db %11101110
                db %00000000
                db %00000000

                ;7
                db %01000100
                db %11101110
                db %00000000
                db %00000000

                db %01000100
                db %11001100
                db %01000100
                db %00000000

                db %00000000
                db %11101110
                db %01000100
                db %00000000

                db %01000100
                db %01100110
                db %01000100
                db %00000000

                ;8 ;) lalala
                db %01000100
                db %11101110
                db %00000000
                db %00000000

                db %01000100
                db %11001100
                db %01000100
                db %00000000

                db %00000000
                db %11101110
                db %01000100
                db %00000000

                db %01000100
                db %01100110
                db %01000100
                db %00000000

tetristart:
                ei
                ld b,8
tts01:        ld a,b
                dec a
                out (#fe),a
                halt
                djnz tts01
               
                ld hl,#5800
                push hl
                ld de,#5801
                ld bc,#2ff
                ld (hl),l
                ldir
                pop hl
                dec c
                ld de,32
                ld b,20
                call ShowLine
                ld e,1
                ld b,11
                call ShowLine
                ld de,-32
                ld b,21
                call ShowLine
NewFigure:
                ld a,r
                and %01110000
                ld (AddrFigure),a
                ld hl,#5804
                ld (AddrScreen),hl
                call CheckFigure
                jr c,tetristart
GameLoop:
                ld a,0
                inc a
                and %00001111
                ld (GameLoop+1),a
               
                call ShowHideFigure ;show
                halt
                call ShowHideFigure ;hide
                ld bc,#effe
                in a,(#fe)
                rra
                jr nc,PressRotate
                rra
                jr nc,PressRotate
                rra
                jr nc,PressFaster
                rra
                jr nc,PressRight
                rra
                jr nc,PressLeft
gl01:
                ld a,(GameLoop+1)
                or a
                call z,ToDown
                jr GameLoop
PressFaster:
                ld a,(GameLoop+1)
                and %00000001
                call nz,ToDown
                jr gl01
PressRight
                ld hl,-1
                ld (UnMoving+1),hl
                ld de,1
                jr pl01
PressLeft
                ld hl,1
                ld (UnMoving+1),hl
                ld de,-1
pl01:        call Moving
                call CheckFigure
                call c,UnMoving
                jr gl01
UnMoving:
                ld de,#0000
Moving:
                ld hl,(AddrScreen)
                add hl,de
                ld (AddrScreen),hl
                ret
PressRotate:
                ld a,(GameLoop+1)
                and %00000011
                jr nz,gl01
                ld d,4
                call Rotate
                call CheckFigure
                call c,UnRotate
                jr gl01
UnRotate:
                ld d,-4
Rotate:
                ld a,(AddrFigure)
                ld l,a
                add a,d
                and %00001111
                ld h,a
                ld a,l
                and %11110000
                or h
                ld (AddrFigure),a
                ret
ToDown:
                ld hl,-32
                ld (UnMoving+1),hl
                ld de,32
                call Moving
                call CheckFigure
                ret nc
                call UnMoving
                call ShowHideFigure

                ld hl,#5800
                ld b,20
td01:        push hl
                push bc
                ld c,11
td02:
                xor a
                or (hl)
                jr z,td03
                inc l
                dec c
                jr nz,td02
               
                ld a,l
                and %11100000
                ld l,a
                push hl
                push hl
                ld bc,#5820
                sbc hl,bc
                ld b,h
                ld c,l
                pop hl
                ld de,#20
                add hl,de
                ex hl,de
                pop hl
                lddr

td03:        pop bc
                pop hl
                ld de,32
                add hl,de
                djnz td01
                jp NewFigure

CheckFigure:
                ld a,#07
                ld (sf04+0),a
                ld a,#d8
                jr sf05
AddrFigure:
                dw #4000
AddrScreen:
                dw #5804
ShowHideFigure:       
                ld a,#ee
                ld (sf04+0),a
                ld a,#ff
sf05:        ld (sf04+1),a               

                ld hl,figures
                ld de,FigureBuffer
                ld bc,128
                ldir
               
                ld h,high FigureBuffer
                ld a,(AddrFigure)
                ld l,a
               
                ld de,(AddrScreen)
                ld b,4
sf01:        ld c,4
sf02:        rlc (hl)
                jr nc,sf03
                ld a,(de)        ;#4a               
sf04:        xor #ff                ;#ee,#ff        ;07 - RLCA ;#d8 - ret C
                ld (de),a        ;12
sf03:        inc de
                dec c
                jr nz,sf02
                push hl
                ld hl,28
                add hl,de
                push hl
                pop de
                pop hl
                inc l
                djnz sf01
                or a ;!!!!!
                ret
ShowLine:
                ld (hl),c
                add hl,de
                djnz ShowLine
                ret
                DISPLAY $
                align 256

FigureBuffer:
                SAVESNA "smalltris.sna",tetristart

---

[свернуть]

Бугага, как я написал тетрис для дендиконфы, это стало поветрием:)

на самом деле:
http://256bytes.untergrund.net/demo/903

а я и не писал, что он самый маленький.... просто мне это ненадо (для баловства за вечер написал), а ктото может покопается....

интересно как фигурки забиты.
каноничнее так:
http://i63.fastpic.ru/big/2014/1015/...529c65bfcd.jpg

А мне вот так захотелось... :-)

Для минимизации размера проще хранить фигуры как последовательность направлений смещения:

• 1-лево
• 2-вверх
• 3-право
• 4-вниз

А поворот фигуры обсчитывать как +1 направлению, при достижении 5, утснавливаем в 1.
Конец описания фигуры – включенный старший бит, т.к. длина описания фигуры может быть разной, для более точного определения “центра вращения” фигуры.
Т.е. например, квадрат – 3 байта:

• 000000100;4
• 000000001;1
• 100000010;2+старший бит

Без счета баллов и всякого оформления я писал тетрис в 100 байт, включая описания фигур.

Да, проверку возможности вращения и достижения поверхности осуществляем прямо при отрисовке, которая имеет 2 режима: отрисовка с проверкой - если в новой позиции место "занято", то отрисовка не возможна. И непосредственно отрисовка, если вращение или перемещение возможно.

Цитата:

---

Без счета баллов и всякого оформления я писал тетрис в 100 байт, включая описания фигур.

---

Исходники в студию :)

В двух демах недавна сделали эффект тетриса. Еще чтоли сделать третий?
Мне кажеться что в деме зтв все сделано уже и более добавить нечего

Цитата:

---

Сообщение от AAA

Еще чтоли сделать третий?

---

если только найдешь похожую гифку:)

Цитата:

---

Сообщение от denpopov

если только найдешь похожую гифку

---

Я и гаврарю нафига.

Цитата:

---

Сообщение от AAA

Я и гаврарю нафига.

---

это в другой тред про идеи демо. Тетрис уже исчерпан почти что.

Цитата:

---

Сообщение от denpopov

это в другой тред про идеи демо. Тетрис уже исчерпан почти что.

---

Есть эффект которого не было. Наброска цветных знакомест в виде фигур тетриса при смене экрана другим. так и не сделали.

Цитата:

---

Сообщение от AAA

Есть эффект которого не было. Наброска цветных знакомест в виде фигур тетриса при смене экрана другим. так и не сделали.

---

не помню дему с захи,но был похожий эффект, где фигурки из тетриса составляли надпись. и похожий эффект был в кректре на пейси.

шо касается зтв, то идея выросла из картинки, где сердце сложено из фигурок тетриса(у мну нет, увы..)

Цитата:

---

Сообщение от drbars

Исходники в студию :)

---

:) 1995 год, какие исходники?

У нас (RIP Group) с UCom тогда была идея сделать тетрис "Beavis & Butt-head do tetris"
Эти два кренделя стояли по сторонам "стакана" и могли по-разному реагировать на твои успехи.
Пинать руками и ногами стакан с разных сторон - все свободные в этом направлении блоки смещались в направлении "удара" с усилием, пропорциональным уровню пинка ногой или рукой.
Или топать ногами, тогда все "висящие" в воздухе блоки после подскока должны были рушиться.
За удачный проход, сюрприз!, показывалась картинка с обнажённой, которую честно попиксельно рисовал UCom.

Пока писалась музыка и рисовалась графика я написал и вылизал весь код, дико заоптимизировав его. Включая все эффекты сдвигов и падений.

Но, как оно часто у нас случалось, на этапе дизайна и арта все и похерилось.
В целом почти все, что мы сделали - мы делали в припадке, за день-два.
Пока было настроение и запал не прошел.

Все сохранившиеся диски я лет 8 назад передал AAA, часть данных он (золотые руки!) вытащил.
Но исходников, увы, на этих дисках практически нет.
Но, в 100b реализации ничего сверхъестественного нет, т.е. задача вполне посильная.
Основную экономию памяти я уже описал – паковка фигур в 3-4 байта.

Цитата:

---

Сообщение от klondike

Все сохранившиеся диски я лет 8 назад передал AAA, часть данных он (золотые руки!) вытащил.

---

Клондайк, это ж спектрумисты. Им давай не давай, они все равно скажут что ААА ничего не давал. Все что ты дал выложено во все колекции.

http://sderni.ru/246973

Твои эффекты реально бесподобны. И даже мы с ВНН сделали с них дему )))

http://zxaaa.untergrund.net/view_demo.php?id=7479

http://www.youtube.com

Кстати я ее обожаю, ваще вышло круто, музыка бесподобна и твой скролл ваще в натуре хорош. У тебя все эффекты фильдиперстовые были. А учитывая что писал их в МОНС так это ваще бомба