Loxley

[goodboy]

игра про РобинГуда сделанная на бейсике
"This game is free but the developer accepts your support by letting you pay what you think is fair for the game"
https://worldxxisoft.itch.io/loxley

[Advertiser]

[jerri]

Как это работает? там бейсика блин почти нет.

[goodboy]

(vars) - (prog) с тобой не согласны.
текст программы ~22Kb, исполняемого кода в RAM нету

[jerri]

(vars) - (prog) с тобой не согласны.
текст программы ~22Kb, исполняемого кода в RAM нету

Чем смотрел?
мне какаято смотрелка вот такое кажет

0 REM LOXLEY© 2022 ARIEL RUIZ
2 BORDER K: CLS : LET F=CODE "A": GO TO .
4 GO TO .: POKE .,CODE "A"+F: IF F<K OR F>L+L THEN GO TO CODE ""
8 PRINT "VAL K/";C$;"[K/ RETURN [";: POKE .,L: POKE .,CODE "A"+F: IF F=L+L THEN PRINT "STR$ PLOT LET [R]<VAL MOVE LLIST LIN RND LLIST RND+ LET LLIST "
10 IF INKEY$<>"" THEN GO TO CODE ""
11 PRINT "[K/";B$;"[K/";A$;"[K/";: GO TO .: PRINT "[K/";C$;"[K/";B$;"[K/";: GO TO .: PRINT "[K/";D$;"[K/";C$;"[K/";: GO TO .: PRINT "[K/";E$;"[K/";D$;"[K/";: GO TO .: PRINT "[K/";F$;"[K/";E$;"[K/";: GO TO .: PRINT "[K/";G$;"[K/";F$;"[K/";: GO TO .: PRINT "[D]?[Q]";
100 PRINT "[C][[C]PP COPY  FORMAT FORMAT COPY [C]ASN ASN COPY [C]USR [C]RNDUSR ABS CIRCLE [C]B STEP [C]RNDUSR ABS CIRCLE [C] PAPER RNDUSR [C]W BORDER RNDUSR [C][K] NEXT RNDUSR [C]u TO RNDUSR [C]VAL CIRCLE RNDUSR [C] CAT DATA RNDUSR [C]";: PRINT "USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";"USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";"USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";: PRINT "f[C]RNDUSR ABS CIRCLE [C]4s[C]RNDUSR ABS CIRCLE [C]W[C]RNDUSR ABS CIRCLE [C]ATTR GO SUB [C]RNDUSR ABS CIRCLE [C]NOT [C]RNDUSR ABS CIRCLE [C]? ERASE [C]RNDUSR ABS CIRCLE [C] MOVE LLIST [C]RNDUSR ABS CIRCLE [C]+ LET [C]RNDUSR ABS CIRCLE [C] LET [C]RNDUSR ABS CIRCLE [C]RND@[C]";: LET F=CODE "I": GO TO .: LET F=CODE "J": LET J=K: GO TO .: LET J=R: PRINT "[B] COPY IN C[D][";
140 FOR Y=K TO .: PRINT "[C]";: IF INKEY$="" THEN NEXT Y: GO TO CODE "d"
142 IF INKEY$=" " THEN PRINT "[D]?[Q]";: GO TO CODE ""
150 POKE .,K: POKE .,CODE "<": PRINT "[D]0[Q][A]";: CLS
151 LOAD "LOXLEY": GO TO CODE "[H]"
9900 PRINT "";: IF INKEY$<>"" THEN GO TO .
9905 POKE .,INT CODE INKEY$: PRINT "[K/";: IF NOT PEEK LK THEN GO TO .
9906 LET F=PEEK LK-CODE "1": RETURN
9911 PRINT "[K/";: FOR Y=K TO .: IF INKEY$<>"" THEN PRINT "[K/";: LET Y=.
9915 PRINT "[K/[C]";: NEXT Y: RETURN
9930 LET N=K: LET J=L+L
9940 PRINT "";: POKE .,J: POKE .,F: PRINT "[6/[K/";
9941 PRINT #CODE "";A$;: PRINT "[K/";: RETURN

[goodboy]

это явно не полный текст игры.
мне что-бы вставить бессмертие пришлось вспоминать в каких переменных хранится номер исполняемой строки

[jerri]

так это не текст игры, а только загрузчик

Круто. А как там анимация сделана ты понял?

[goodboy]

в интро картинки печатаются перемещением буфера принтера на экран.
постоянно меняется недокументированная переменная (23681)
это старший байт адреса буфера принтера
и там похоже ещё и теневой экран задействован

[jerri]

в интро картинки печатаются перемещением буфера принтера на экран.
постоянно меняется недокументированная переменная (23681)
это старший байт адреса буфера принтера

определенно читерство

[goodboy]

однако под категорию "никаких подпрограмм на ассемблере, кроме включенных в сам ZX Spectrum ROM" игра попадает.
а так, да. портирование текста на другую платформу практически невозможно

[vlad-kras]

мне что-бы вставить бессмертие пришлось вспоминать в каких переменных хранится номер исполняемой строки

А как бессмертие получить?