Petwalk ZX Spectrum 48k BASIC 10 Liner

<р> PETWALK для BASIC 10 Liner Конкурс 2011 - ДИКИЙ КАТЕГОРИЯ

<р> Инструкции: (английский)

Вы это собака Джарли, и сегодня ты пошел гулять в парк. Вы должны найти кость и принеси это твоему владельцу ВОЗ будет где-нибудь в парке.

Когда ты находишь кость и отдаешь ее своему хозяину ты можешь пойти в другой парк. В игре 5 разных парков.

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

<р> Чтобы избежать детей, вы можете оставлять помет разбросаны по парку, что остановит их на мгновение. Но будь будьте осторожны и не наступите на свой собственный помет, это также приведет к потере времени.

<р> Клавиатура:

•  Влево: O
•  Вправо: P
• Вверх: Q
• Вниз: A
•  Экскремент: M, Н, Б или ПРОСТРАНСТВО

<р> Загрузите игру:

<р> Используйте эмулятор ZX Spectrum 48k. например Fuse (https://sourceforge.net/projects/fuse-emulator/). В левом нижнем углу Fuse вы увидите модель Spectrum. ты используешь. Если вы видите модель, отличную от Spectrum 48K, вы должны измените модель в опции «Машина — Выбрать» (или F9) и выберите вариант Spectrum 48K.

<р> К загрузите игру, откройте файл petwalk.tap в опции «Файл — Открыть». <р> Чтобы запустить игру, нажмите R (для ВЫПУСК) и ВВОД. При первой загрузке игры и до тех пор, пока эмулятор не закрывается и не перезагружается, он должен сгенерировать графика. После завершения игры ее можно перезапустить с помощью RUN и ENTER и не требует регенерации графики.

<р> Инструкции: (испанский)

<р> Эрес эль Перро Ярли И я получил шанс попасть на вуэльту за парком. Дебес встречает эль уэсо и я люблю тебя, когда ты находишься в парке.

<р> Когда ты встречаешь его, Я хочу, чтобы ты любил меня в другом парке. Эль-Джуэго включает в себя 5 парков разные.

<р> В парке «Сей ниньос» очередь ты преследуешь, чтобы играть вместе, и ты молестаран, вот что у тебя есть пердер фуэрса. Наблюдайте за тем, что огонь не уговаривает Серо.

<р> Чтобы уйти из Лос-Ниньос puedes dejar экскременты разделились по парку, что произошло в этот момент. Перо vigila no pisar uno de tus propios excrementos que también te harán Perder Time.

<р> Текладо:

• Искьерда: О
• Дереча: П
• Арриба: Вопрос
• Абахо: А
• Экскременты: M,N,B o ESPACIO

<р> В игру:

Утилиза Эмулятор ZX Spectrum 48k для примера Fuse ( https://sourceforge.net/projects/fuse-emulator/ ). На нижнем этаже находится предохранитель, видимый на модели. Спектр использован. Если вы видите другой вариант Spectrum 48K, вам нужно камбьяр-эль-модель о в опции «Машина» – выберите (o F9) выбор опции Спектр 48К.

<р> Пара Cargar el Juego Abre el Fichero petwalk.tap в опции Файл – Открыть.

<р> Для выброса пульсовой игры R (параметр RUN) и ENTER. La primera vez que se carga el juego, y mientras no se cierre el emulador o no se resetee debegenerar los графики. Если партия закончится, вы можете возобновить ее с помощью RUN и ВВОД и не требуется восстанавливать графику.

Фуэнте код:

1 ВОССТАНОВЛЕНИЕ: ПРОЧИТАТЬ x,y,a,v,w,z,m,n,d,o,p,q,s,e,f,a$,b$,u$,d$,c$,k : DIM m$(30,5): DIM s$(5): LET t$="БУДЬТЕ ХОРОШЕЙ СОБАКОЙ! ПРИНЕСИТЕ КОСТЬ!": ГРАНИЦА 5: БУМАГА 6: CLS : ПЕЧАТЬ НА 20,2;"Генерация графики . ..": FOR i=0 TO 4-5*(PEEK 65368=164): ПРОЧТИТЕ e$: FOR j=1 TO LEN e$ ШАГ 2: ПЕЧАТАЙТЕ НА 20,21; OVER 1;"....": POKE 65367+(j/2)+(i*32),(16*( КОД (e$(j))-48))+ КОД (e$(j+1) ))-48: СЛЕДУЮЩИЙ j: СЛЕДУЮЩИЙ i: ПЕРЕХОД К 10: ДАННЫЕ 0,-2,0,0,0,1,5,5,0,5,5,1,8,20,0,"\c \d\f\g\d\d\e\e\e\e\e","\h\h\i\j\k\h\i\j\k","\b\a\a \a\b","\n\o\p\q","009011210016053016018300511029263002037031821",1 2 LET x=x+((IN 57342=190)-(IN 57342=189))*(a=0): LET y=y+((IN 65022=190)-(IN 64510=190))*(a= 0): LET z=(x<>v)+(y<>w): LET t=(z>0)*(ATTR (y,x)>=32): LET x=(x*t)+ (v*(t=0)): LET y=(y*t)+(w*(t=0)): LET z=(x=v)*(y=w)+2*(xv)+3*(yw): LET b=(IN 32766<>191)*(z>1)
3 LET m= m+SGN (x-m)*((PEEK PEEK 23672)>l)*(d=0): LET n=n+SGN (y-n)*((PEEK PEEK 23672)>l)*(d=0): LET q=(м<>о)+(n<>p): LET t=(q>0)*(ATTR (n,m)>=32): LET m=(m*t)+(o*(t=0)): LET n =(n*t)+(p*(t=0)): LET q=(m=o)*(n=p)+2*(mo)+4* (np)
4 LET g=ATTR (y,x): LET c=8*(g=48)+10*(g=33)*(h= 1): LET c=c*(c>0)+5*(x=m)*(y=n)*(c=0): LET c=c*(c>0)+7*(c= 0): LET a=5*(g=34)-(a>0): LET d=5*(ATTR (n,m)=34)-(d>0): LET h=h+(g=39) ): LET f=f+5*(g=39)+(d=5)+10*(g=33)*(h=1): LET k=k+(c=10): LET c=c- 4*(k=6): ПЕЧАТЬ БУМАГИ 6;AT 5,24;f;AT 6,23;h: ПЕРЕЙДИТЕ К c
5. ПУСТЬ e=e-1: ПЕЧАТЬ БУМАГИ 6;AT 4,25; e,: BEEP .03,30: ПЕРЕЙДИТЕ К 6+1*(e>0): DATA ":45842995:815228>7814521044113>70002030<5<3:227:0040<23<3>424181","0002433< 7<4282811018103818181<08081<1818381018101818087>18282424","181810385<1:28241818187>181824241818001<3:5:24440006070?18?0>06 0","385438003?78286<80808080808080800101010101010101??00000000000000","00000000000000??0018141: 364>?>00"
6 ДЛЯ j=1 ДО 30: ЗВУКОВОЙ СИГНАЛ .01,5+j: СЛЕДУЮЩИЙ j: ПЕЧАТЬ БУМАГИ 2; INK 7;НА 18,0;"ВЫ СЛИШКОМ УСТАЛИ, ЧТОБЫ ПРОДОЛЖАТЬ" И (k<6);"МЫ ВЕРНЕМСЯ ДРУГОЙ ДЕНЬ" И (k<6);"НАЖМИТЕ ВЫПУСК + ВВОД, ЧТОБЫ ИГРАТЬ СНОВА" И (k <6): БУМАГА ДЛЯ ПЕЧАТИ 4; INK 1;НА 18,0;" МОЛОДЕЦ! ВЫ ЗАВЕРШИЛИ СВОЮ  " И (k=6);" ПРОГУЛКА ПО ПАРКАМ УСПЕШНО " И (k=6); "НАЖМИТЕ ВЫПУСК + ВВОД, ЧТОБЫ ИГРАТЬ СНОВА" И (k= 6): STOP 7 PRINT AT y,x;a$(z);AT w,v;" " AND (z>1); INK 2;AT w,v;"\r" AND (b=1): LET v=x: LET w=y: PRINT AT n,m;b$(q);AT p,o;" " AND ( q>1): LET o=m: LET p=n: ПЕРЕЙТИ К 2
8 ПЕЧАТЬ НА 10+INT ((s-1)/5),20+s-5*ИНТ ((с-1)/5); OVER 1;" ": LET s=s+5*(y=16)-5*(y=1)+(x=16)-(x=0): LET x=x*(x>0)* (x<16)+15*(x=0)+1*(x=16): ПУСТЬ y=y*(y>1)*(y<16)+15*(y=1)+2*( y=16): СЛУЧАЙНО s+k: LET m=3+(RND*0)+INT (RND*11): LET n=m+1: LET v=x: LET w=y: LET o=m: LET p=n
9 LET s$=m$(s): НАПЕЧАТАЙТЕ БУМАГУ 4;НА 2,1;,: БУМАГА 3: ЧЕРНИЛА 7: НАПЕЧАТАЙТЕ НА 2,1;u$;u$ И (s $(3)="0");AT 2,11;u$: FOR i=3 TO 14: LET t=(i<6)+(i>11): PRINT PAPER 4; INK 0;AT i,1;,: PRINT AT i,1;"\b" AND (t+(s$(1)="0"));AT i,15;"\b" AND (t+(s $(2)="0"));AT i,3+RND*10;"\a" AND (i>3)*(i<14): СЛЕДУЮЩИЙ i: ПЕЧАТЬ БУМАГИ 4; INK 0;AT 15,1;,: PRINT AT 15,1;u$;u$ AND (s$(4)="0");AT 15,11;u$: PAPER 4: INK 0: PRINT AT 11,8; INK 7;"\l" AND (s$(5)="3")*(h=0); ЧЕРНИЛА 1;"\m" И (s$(5)="2"): БУМАГА ДЛЯ ПЕЧАТИ 6;AT 4,17;"ПРОЧНОСТЬ:";e,;AT 5,17;"ТОЧКИ:";f;AT 6,17;"BONES:";h: ПЕЧАТЬ НА y,x;a$(z);AT n,m;b$(q): ПЕЧАТЬ НА 10+INT ((s-1)/5),20 +s-5*INT ((s-1)/5); ЯРКИЙ 1;" ";CHR$ 8; OVER 1;("\n"+CHR$ 8) AND s$(1)="0";("\o"+CHR$ 8) AND s$(2)="0";("\p" +CHR$ 8) И s$(3)="0";("\q"+CHR$ 8) И s$(4)="0": ПЕРЕЙДИТЕ К 2
10 ДОКУМЕНТУ 6: ПУСТЬ o =1+(k-1)*9: LET r=VAL c$(o TO 2+o): LET s=VAL c$(3+o TO 4+o): LET g=VAL c$(5+ o TO 6+o): LET h=VAL c$(7+o TO 8+o): PRINT AT 0,9;"-- PET WALK --";AT 20,0;,,;AT 2,17 ;"PARK: ";k;AT 16,9;"2021 BY AVLIXA";AT 17,4;"FOR BASIC 10 LINER CONTEST";AT 8,17;"ДВИЖЕНИЕ: OPQA";AT 9,17;"ЭКСКРЕМЕНТЫ :M,SPC";AT 10,17;,;AT 11,17;,;AT 12,17;,;AT 13,17;,;AT 14,17;,;AT 15,17;,: РАНДОМИЗИРОВАТЬ r : ДЛЯ i=1 ДО 30: LET l=((i-1)/5<>INT ((i-1)/5)): LET u=(i>5): LET t=RND*0+INT (RND*2)*((i/5)<>INT (i/5)): LET w=INT (RND*2)*(i<26): LET m$(i,2)=STR$ (t): LET m$(i,4)=STR$ (w): LET p=0*(i=1)+VAL (m$(i-1*(i>1),2))*l *(i>1): LET v=0*(i<6)+VAL (m$(i-5*(i>5),4))*u*(i>5): LET m$(i ,1)=STR$ (p): LET m$(i,3)=STR$ (v): LET m$(i,5)=STR$ ((i=s)+2*(i=g) +3*(i=h)): ПЕЧАТЬ НА 20,i;t$(i): BEEP .01,20: LET i=i-(m$(i,1 TO 4)="0000")*( i<30): СЛЕДУЮЩИЙ i: LET x=8: LET y=8: LET h=0: LET l=180-20*k: ПЕРЕЙДИТЕ К 8