1

OSCOSS
http://zxaaa.net/view_demo.php?id=7537
http://zxdemos.ru/img/posts/posts_4/6424.png

2

youtube.com/watch?v=MOxOl8Lqv7M

3

Улучшил качество видео демы входящей в аналы ААА.

4

расскажи, как разломал?

небольшое howto

ставим бряк на 0x8aae - вызов функции хеширования строки
на выходе в DE - хеш

далее хеш и сама строка копируются по адресам
0х4397    hash
0х4399    string, zero terminated


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

в HL - указатель на текущий опкод
в А - сам опкод
вот опкод который нас интересует
0х60 - сравнение хеша строки с аргументами в ленте пикода, и переход на адрес пикода если не равно.

вот все хеши с которыми идёт сравнение

hashes:
    0563    warning, need 128k mode
    31f8    ZUAF=AB        this is ending

    26c6    GREETINGS
    ea56    MORPHING
    1980    AAA
    0109    TITUS
    bc18    TETRIS
    032b    POP ROLLER
    3ba7    VNN
    08ef    DMM

опкод 0х05 по всей видимости - расшифровать блок
расшифровка - это простой XOR со строкой - поэтому даже зная хеш расшифровать блок не получится.
)) - так видимо задумывал автор, но он сделал маленькое упущение, которое заключается в том что после этой расшифровки первые 0x20
байт оказываются одинаковыми для всех частей )

для начала я проверил эту догадку, зная как раз два кода 'AAA' и 'VNN' - после

расшифровки они на выходе имеют такую хекс строку:

0C137025CFFB70B5
1FB57BC5FC738504
749563BC9BCF7D50
238C32CD1698D967

ну а дальше дело техники
1.подменяем хеш из списка
2.доходим до программы декcора - сохраняем зашифрованные 0х20 байт
3.ксорим их с хекс строкой выше
4.и получайм искомую строку )

https://zxdemos.ru/uploads/images/2/13480fbe157d043e73b566fdeeeb6179.jpg

5

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

ROBUS"
Ха ... Я думал что Лёша выложил поправленную версию. Я заметил этот просчёт когда отправил ААА первую сборку. Видать вторая сборка не попала к нему. Эти 20 байт это вот эта строчка:

  Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START

Да это мой промах был, лепил всё в кучу, и получилось, что первым всегда грузился один и тот же кусок. А выглядит текст первой сборки в компиляторе вот так:

;O-OPEN TRD                   "PATH\file"
;o-OPEN BOOT.B                "NAME.B"
;C-CLOSE TRD                  "PATH\file"
;L-LOAD                       "PATH\file",Start,Size
;U-LOAD/UNPACK                "PATH\file",Start,Size
;P-PAGE                       Page
;E-FLUSH & EXEC               Start
;R-REDEFINE CMD               "CMD",Value
;G-GoTo                       Label
;g-GoSub                      Label
;I-GoToIF                     A,<=>,B,Label
;i-GoSubIF                    A,<=>,B,Label
;T-RET
;l-Label
;K-Start Coding OUT DATA      CodingString
;k-End Coding OUT DATA

        ReDef   :"L","..\loados.inc"CMD.L
        ReDef   :"U","..\loados.inc"CMD.U
        ReDef   :"X","..\loados.inc"CMD.X
        ReDef   :"x","..\loados.inc"CMD.XX
        ReDef   :"E","..\loados.inc"CMD.E
        ReDef   :"P","..\loados.inc"CMD.P
        ReDef   :"G","..\loados.inc"CMD.G
        ReDef   :"g","..\loados.inc"CMD.GG
        ReDef   :"I","..\loados.inc"CMD.I
        ReDef   :"i","..\loados.inc"CMD.II
        ReDef   :"T","..\loados.inc"CMD.T
        ReDef   :1,"..\loados.inc"CMD.COM1
        ReDef   :2,"..\loados.inc"CMD.COM2
        ReDef   :3,"..\loados.inc"CMD.COM3
        ReDef   :4,"..\loados.inc"CMD.COM4
        ReDef   :5,"..\loados.inc"CMD.COM5
        ReDef   :6,"..\loados.inc"CMD.COM6
        ReDef   :"K","..\loados.inc"CMD.K

        OpenTRD :"..\oscoss.trd",1664
        OpenFile:"boot.B"

        StartKEY:"48"
         GoTo   :Loading48K
        StopKEY

;        StartKEY:"ASD"
;         Pack   :"test.cod","test.txt"START
;         Exec   :"test.txt"START
;        StopKEY


;        Load    :"..\DOS\dsq.bin","..\DOS\dosdsq.inc"DSQ.START

;LOA.PTR_MEM = 128 128K MODE
;LOA.PTR_MEM =  48  48K MODE
        GoToIF  :"..\loader.inc"LOA.PTR_MEM = 48, Loading48K


;A=0 - Uncnown Model
;A=1 - Pentagon
;A=2 - Spectrum 128
;A=3 - Scorpion
;A=4 - Spectrum Lvov
;A=5 - TURBO MODE
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 5,  LoadingTurboMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 0,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 2,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 3,  LoadingNeedPentagonMode
        GoToIF  :"..\loader.inc"LOA.PTR_VER = 4,  LoadingNeedPentagonMode



;EPILOGUE
        StartKEY:"ZUAF=AB"
         Page    :"..\MODE\epilogue.txt"MUSIC.PAGE
         Pack    :"..\MODE\epilogue.mus","..\MODE\epilogue.txt"MUSIC.START
         Page    :17
         Load    :"..\MODE\epilogue.p17",49152
         Page    :19
         Load    :"..\MODE\epilogue.p19",49152
         Page    :20
         Load    :"..\MODE\epilogue.p20",49152
         Page    :16
         Pack    :"..\MODE\epilogue.cod","..\MODE\epilogue.txt"START
         Exec    :"..\MODE\epilogue.txt"START
        StopKEY



;HIDDEN-1
        StartKEY:"GREETINGS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-1.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\idiotics.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\kumar.bin","..\MODE\hidden.txt"MUSIC.DATA
l:LabelHidEXEC
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-2
        StartKEY:"MORPHING"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-2.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level1.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level2.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-3
        StartKEY:"AAA"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-3.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level3.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level4.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-4
        StartKEY:"TITUS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-4.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level5.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level6.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-5
        StartKEY:"TETRIS"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-5.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\level7.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\level8.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-6
        StartKEY:"POP ROLLER"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-6.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\move.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\never.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-7
        StartKEY:"VNN"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-7.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\poor.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\shaman.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY
;HIDDEN-8
        StartKEY:"DMM"
         Pack    :"..\MODE\hidden.cod","..\MODE\hidden.txt"START
         Pack    :"..\GRAPHICS\WARNING\hidden-8.scr","..\MODE\hidden.txt"PICDATA
         Pack    :"..\MUSIC\HIDDEN\stick.bin","..\MODE\hidden.txt"MUSIC.DATA
         GoToIF  :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LabelHidEXEC
         Pack    :"..\MUSIC\HIDDEN\percuss.bin","..\MODE\hidden.txt"MUSIC.DATA
         Exec    :"..\MODE\hidden.txt"START
        StopKEY


;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_RU.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end

l:MainLoading
        Page    :"..\MUSIC\jetset.txt"MUSIC.PAGE
        Pack    :"..\MUSIC\jetset.cod","..\iorq.inc"MUSIC.START
        GoSub   :XaraLoading
        Pack    :"..\CODE\iorq.cod","..\iorq.inc"IORQ.START
        Pack    :"..\CODE\main.cod","..\main.inc"MAIN.START
        Exec    :"..\iorq.inc"IORQ.START






;XARA PACKs
l:XaraLoading
;EFF FINISH ... Start Loader
;        XaraPack:"..\EFFECT\finish.bin"
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
;        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B00","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerA
        XaraPack:"..\EFFECT\jokera.bin"
        XaraPack:"..\GRAPHICS\JOKER\jokera.bin"
;EFF Long Girl
;        XaraPack:"..\EFFECT\logr.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaGIRL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaGIRL1
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b00"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b01"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b02"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b03"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b04"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b05"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b06"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b07"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b08"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b09"
        XaraPack:"..\GRAPHICS\LONGGIRL\logr.b0a"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_YI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B01","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Long Girl MESSAGE
        XaraPack:"..\EFFECT\lomsg.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_IT.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Life
        XaraPack:"..\EFFECT\life.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a2.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a1.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_a0.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__b.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__c.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__d.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__e.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif__f.bin"
        XaraPack:"..\GRAPHICS\LIFE\lif_f0.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_HI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B02","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF JokerB MackDonalds
        XaraPack:"..\EFFECT\jokerb.bin"
        XaraPack:"..\GRAPHICS\JOKER\jokerb.bic"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_FR.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B03","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Nude Mellona
        XaraPack:"..\EFFECT\nude.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-03.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-04.bin"
        XaraPack:"..\GRAPHICS\NUDE\melly-05.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_FI.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF SPACE SPACE SPACE SPACE SPACE SPACE EFF
;        Xara    :"..\EFFECT\_space_.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_UA.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B04","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Head
        XaraPack:"..\EFFECT\head.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 0 ,LoaHEADA
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx2 = 1 ,LoaHEADB
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_PL.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B05","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF Greetings
        XaraPack:"..\EFFECT\greets.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 0 ,LoaGREE0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 1 ,LoaGREE1
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 2 ,LoaGREE2
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 3 ,LoaGREE3
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 4 ,LoaGREE4
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 5 ,LoaGREE5
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 6 ,LoaGREE6
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx8 = 7 ,LoaGREE7
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_ES.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B06","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF WomanMan
        XaraPack:"..\EFFECT\wo_ma.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_DE.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;EFF Multicolor Move
        XaraPack:"..\EFFECT\multic.bin"
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B07","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF ZebraGirl
        XaraPack:"..\EFFECT\zebra_g.bin"
;=== LOADER MESSAGE
        Load    :"..\MODE\cryp.cod","..\MODE\cryp.txt"START
        Pack    :"..\GRAPHICS\WARNING\cryp_EN.scr","..\MODE\cryp.txt"CRYPDATA
        Exec    :"..\MODE\cryp.txt"START
;=== LOADER MESSAGE end
;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B08","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP
;EFF FINISH ... Start Loader
        XaraPack:"..\EFFECT\finish.bin"
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 0 ,LoaFuckVAL0
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 1 ,LoaFuckVAL1
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 2 ,LoaFuckVAL2
        GoSubIF :"..\loader.txt"LOA.PTR_RNDx4 = 3 ,LoaFuckVAL3

;EFF Piano
;        XaraPack:"..\EFFECT\piano.bin"
;        Xara:"..\EFFECT\c_tnl.bin"
;        Xara:"..\EFFECT\c_tunel.bin"
;        Xara:"..\EFFECT\chunka.bin"
;        Xara:"..\EFFECT\mult_g.bin"
;        Xara:"..\EFFECT\thunka.bin"

;=== LOADER QR-CODE STEP
     Load    :"..\MODE\loaqr.cod","..\MODE\loaqr.txt"START
     Pack    :"..\GRAPHICS\LOADER\steps.B09","..\MODE\loaqr.txt"PICDATA
     Exec    :"..\MODE\loaqr.txt"START
;==== LOADER QR-CODE STEP


        Return


l:LoaFuckVAL0
        XaraPack:"..\GRAPHICS\FUCK\fuck.bin"
        Return
l:LoaFuckVAL1
        XaraPack:"..\GRAPHICS\FUCK\luck.bin"
        Return
l:LoaFuckVAL2
        XaraPack:"..\GRAPHICS\FUCK\love.bin"
        Return
l:LoaFuckVAL3
        XaraPack:"..\GRAPHICS\FUCK\lovefuck.bin"
        Return

l:LoaGIRL0
        XaraPack:"..\EFFECT\logr.bin"
        Return
l:LoaGIRL1
        XaraPack:"..\EFFECT\logr1.bin"
        Return


l:LoaHEADA
        XaraPack:"..\EFFECT\head0.bin"
        XaraPack:"..\EFFECT\head3.bin"
        Return
l:LoaHEADB
        XaraPack:"..\EFFECT\head1.bin"
        XaraPack:"..\EFFECT\head2.bin"
        Return

l:LoaGREE0
        XaraPack:"..\QR-CODE\txt_o00.bin"
        Return
l:LoaGREE1
        XaraPack:"..\QR-CODE\txt_o01.bin"
        Return
l:LoaGREE2
        XaraPack:"..\QR-CODE\txt_o02.bin"
        Return
l:LoaGREE3
        XaraPack:"..\QR-CODE\txt_o03.bin"
        Return
l:LoaGREE4
        XaraPack:"..\QR-CODE\txt_o04.bin"
        Return
l:LoaGREE5
        XaraPack:"..\QR-CODE\txt_o05.bin"
        Return
l:LoaGREE6
        XaraPack:"..\QR-CODE\txt_o06.bin"
        Return
l:LoaGREE7
        XaraPack:"..\QR-CODE\txt_o07.bin"
        Return

l:Loading48K
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\48.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Pack    :"..\MODE\starwars.cod","..\MODE\starwars.txt"START
        Exec    :"..\MODE\starwars.txt"START

l:LoadingTurboMode
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\turbo.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Page    :"..\MODE\pianogir.txt"MUSIC.PAGE
        Pack    :"..\MODE\pianogir.mus","..\MODE\pianogir.txt"MUSIC.START
        Page    :"..\MODE\pianogir.txt"PIAG_P
        Pack    :"..\GRAPHICS\NINBER\piagirl.big","..\MODE\pianogir.txt"PIAG
        Page    :"..\MODE\pianogir.txt"PIAM_P
        Pack    :"..\GRAPHICS\NINBER\piagirl.bim","..\MODE\pianogir.txt"PIAM
        Page    :16
        Pack    :"..\MODE\pianogir.cod","..\MODE\pianogir.txt"START
        Exec    :"..\MODE\pianogir.txt"START

l:LoadingNeedPentagonMode
        Load    :"..\MODE\warning.cod","..\MODE\warning.txt"START
        Pack    :"..\GRAPHICS\WARNING\pentagon.bin","..\MODE\warning.txt"WARNDATA
        Exec    :"..\MODE\warning.txt"START
        Pack    :"..\MODE\needpent.cod","..\MODE\needpent.txt"START
        Exec    :"..\MODE\needpent.txt"START





;l:TestLoading
;
;        Pack    :"test.cod","test.txt"START
;        Exec    :"test.txt"START
;        Return

        CloseTRD:"---.trd"

        RenameFile:,"boot.B","OSCOSS.B"
        RenameFile:,"boot.B","OSCOSS.L"
        RenameFile:,"boot.B","OSCOSS.I"
        RenameFile:,"boot.B","OSCOSS.N"
        RenameFile:,"boot.B","OSCOSS.C"

"

6

Кстати те QR-коды что выводятся, это не готовые спрайты, а генерятся на ходу из заданного текста.

7

kalantaj сказал:

Кстати те QR-коды что выводятся, это не готовые спрайты, а генерятся на ходу из заданного текста.

Если нет визуального отличия в коде нет необходимости. В демо нужно поэтапно демонстрировать крутость кода, надо чтобы люди задавали вопрос да как он это сделал? Ведь крута! А робус так может. См кубик треугольный с заливкой.

8

Та именно в коде сделано для экономии памяти - не надо хранить в памяти спрайты.