Принц 1221

Игра по мотивам всемирно известного «Принца Персии». Написана Сергеем Бобровым (sb3d) в 2014 году.

Задача предельно проста — разобраться с системой кнопок и дверей, и, не угодив на смертельные шипы, добраться до выхода, расположенного в правом нижнем углу (в начале игры закрыт дверью). Но сколь проста задача, столь непросто ее решить. Самому пришлось основательно побродить по карте, упираясь в ловушки и тупики. Основная проблема: на карте есть и неактивные стены и активные двери, но выглядят они все одинаково, поэтому после нажатия кнопки надо лазить по карте и смотреть, не исчезла ли какая «стена». Тем более, что некоторые двери открывать не имеет смысла, ведут они либо в тупик, либо в ловушку.

Игровая карта (клик, чтобы открыть):

Игровое прохождение (GIF): КЛИК

Игровой код (TXT файл):

1 GOSUB 94: A=3.4
2 I=0: GOSUB 30: B=1: I=A: FOR A=0 TO 9 STEP 3: GOTO 18
3 NEXT A: A=I: I=9: GOTO 9
//
4 I=1: C=0: GOTO 70
5 GOTO 8
6 H=G: C=0: GOTO 2
7 PRINT "Died": END
8 I=ASCI KEY: IF I=0 THEN 8: IF I<55; C=.2: IF I=52; C=-C
9 D=J: B=8: IF I=56; D=15: I=-1: IF 0=LEN T$(8+A) THEN 70: I=1.7
10 FOR E=A TO F=A+C*D STEP C+.1: IF 3=LEN T$(8+E) THEN 8: NEXT E: GOTO 16
//
15 IF A=F THEN 4+LEN V$(18+A): IF I<J; A=A+C: B=B+I: I=I-.566
16 A=A+C: IF J<=ABS(A-J); A=9.4-.9*INT A: G=G+C: GOTO 2
18 E=J*FRAC A: CSR A: FOR D=A+16 TO A+18: $=L$+V$(E)+L$
19 LETC K$(D)+ MID(B+LEN K$(D),7-LEN K$(D)-LEN W$(D)) +W$(D)
20 PRINT K$;: E=E-J: NEXT D: IF B>1 THEN 15: GOTO 3
//
30 GOSUB G: D=D(J*FRAC G): FOR F=29 TO 18 STEP -1: $="V": E$=$
31 D=D*.1: GOSUB 34+10*FRAC D: IF I>=0; I$(F)=$
32 IF I<=0; U$(F)=E$
33 NEXT F
34 RETURN
35 E$="": RETURN
36 GOSUB 35
37 $="": RETURN
38 E$="KLV": RETURN
39 IF H=G THEN 34: E$="VH": RETURN
40 IF 2=ABS(H-G); RETURN
41 $="VEE": E$="EEEV": RETURN
42 $="V4LE": RETURN
//
55 E=71500140: F=106187: RETURN
56 D=71600140508: E=52044360: F=701345370: RETURN
57 D=782047310880: E=703880106: F=543107880: RETURN
58 D=703456034058: E=56380: F=380617: RETURN
59 PRINT "Win": END
//
70 G=G+I: GOSUB 30: CSR A+1: LETC S$: PRINT K$;
71 FOR E=-I*3 TO -E STEP I: FOR D=18 TO 29: $=L$+U$(D)+"V"+I$(D)+L$
72 IF 15<LEN $; LETC MID(5+E+LEN U$(D),7): CSR D-18: PRINT K$;
73 NEXT D: NEXT E: GOTO 2
//
94 VAC: DEFM 24: D=16: E=254: F=186: G=56: H=40: I=108: FOR A TO 14
95 $="": B=2^A: FOR J=-2 TO 4: K=48+FRAC(E(J)/B)*32: IF K>=58; K=K+7
96 $=$+CHR K: NEXT J: L$(A)=$: NEXT A: K$=CHR 96: RETURN

Видео: