Skip to content

Instantly share code, notes, and snippets.

@sapegin

sapegin/gist:2320517

Created April 6, 2012 14:49
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save sapegin/2320517 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save sapegin/2320517 to your computer and use it in GitHub Desktop.
Download ZIP
LABIR.BAS, circa 1997
Raw
gistfile1.vb
ON TIMER(666) GOSUB timeroff
TIMER ON
ON KEY(7) GOSUB kadr
KEY(7) ON
ON KEY(8) GOSUB prosmotr
KEY(8) ON
ON KEY(4) GOSUB nazhatienazvonock
KEY(4) ON
ON KEY(10) GOSUB exitt
KEY(10) ON
CLS : SCREEN 13
'### ПАУК (БОЛЬШОЙ И СТРАШНЫЙ) ###########################
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,7,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,8,5,0,8,0,7,0,8,0,5,8,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,5,0,0,5,8,0,8,5,0,0,5,8,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,8,5,0,0,0,0,8,5,0,0,0,5,8,0,0,0,0,5,8,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,8,5,0,0,0,0,8,5,5,0,5,5,8,0,0,0,0,5,8,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,8,5,0,0,0,8,6,6,6,6,6,8,0,0,0,5,8,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,8,5,0,0,0,8,8,8,8,8,0,0,0,5,8,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,14,6,8,8,0,8,0,8,8,6,14,8,0,0,0,0,0,0,0,0,0,0,0
DATA 0,8,8,8,0,0,0,0,0,0,0,0,6,7,7,8,8,8,8,8,7,7,6,0,0,0,0,0,0,0,0,8,8,8,0
DATA 0,5,5,5,8,0,0,0,0,0,0,0,0,7,7,1,1,8,1,1,7,7,0,0,0,0,0,0,0,0,8,5,5,5,0
DATA 0,0,0,0,5,0,0,0,0,0,0,14,6,7,7,1,1,1,1,1,7,7,6,14,0,0,0,0,0,5,0,0,0,0,0
DATA 0,0,0,0,5,8,0,0,0,0,0,14,6,7,7,7,1,1,1,7,7,7,6,14,0,0,0,0,8,5,0,0,0,0,0
DATA 0,0,0,0,0,5,8,0,0,0,8,14,6,7,7,7,7,1,7,7,7,7,6,14,8,0,0,8,5,0,0,0,0,0,0
DATA 0,0,0,0,0,0,5,8,0,8,5,0,6,6,7,7,7,7,7,7,7,6,6,0,5,8,0,8,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,5,8,8,5,0,0,6,6,7,0,0,0,7,6,6,0,0,5,8,8,5,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,5,8,5,0,0,6,6,0,0,1,1,1,0,0,6,6,0,0,5,8,5,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,5,0,0,0,6,6,1,1,0,0,0,1,1,6,6,0,0,0,5,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,14,6,0,0,0,0,0,0,0,6,14,8,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,8,5,14,6,1,1,1,1,1,1,1,6,14,5,8,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,8,5,5,0,0,6,0,0,0,0,0,6,0,0,5,5,8,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,6,1,0,1,6,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,5,1,5,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,5,5,5,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0
DATA 0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,5,0,5,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0
DATA 0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0
DATA 0,0,0,0,0,0,8,5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,8,8,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8,8,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,8,5,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0
FOR y = 101 TO 136
x = 100
FOR K = 1 TO 35
READ c
PSET (x, y), c
x = x + 1
NEXT K
NEXT y
DIM pauck(((38 * 2 + 7) / 8) * 37)
GET (98, 101)-(136, 137), pauck
'&&& ПАУТИНА (ЛЕВАЯ) &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
DATA 17,0,16,6,16,6,13,12,13,12,9,19,9,19,0,22,43,0,45,16,45,16,39,31,39,31,23,48,23,48,0,62,74,0,79,30,79,30,69,58,69,58,51,81,51,81,0,100,0,0,90,33,0,0,80,68,0,0,50,103
LINE (100, 1)-(1, 1), 7
LINE -(1, 100), 7
FOR PL1 = 1 TO 15
READ a, B, c, d
LINE (a, B)-(c, d), 7
NEXT PL1
DIM pautinal(((59 * 2 + 7) / 8) * 65)
GET (1, 66)-(60, 1), pautinal
CLS
'&&& ПАУТИНА (ПРАВАЯ) &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
DATA 623,0,624,6,624,6,627,12,627,12,631,19,631,19,640,22,597,0,595,16,595,16,601,31,601,31,617,48,617,48,640,62,566,0,561,30,561,30,571,58,571,58,589,87,589,87,640,100,640,0,550,33,640,0,560,68,640,0,590,103
LINE (1, 1)-(60, 1), 7
LINE -(60, 130), 7
FOR PR2 = 1 TO 15
READ a, B, c, d
LINE (a - 580, B)-(c - 580, d), 7
NEXT PR2
DIM pautinar(((59 * 2 + 7) / 8) * 65)
GET (1, 66)-(60, 1), pautinar
CLS
'### ДВЕРЬ ######################
DRAW "bm 100,180; c6 u120 l5 d60 l3 u3 l2 d10 r2 u4 r3 d58 r5 "
PAINT (97, 170), 6
LINE (94, 100)-(94, 160), 0
DIM dver(((12 * 2 + 7) / 8) * 122)
GET (89, 182)-(101, 60), dver
'### СКЕЛЕТ ОБЫКНОВЕННЫЙ (СМОТРИТ ВЛЕВО) #####################################
CLS : SCREEN 13
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,0,0,0,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8,7,7,7,8,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,8,0,8,7,7,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,8,7,7,7,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,0,7,7,8,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,15,0,15,0,0,7,7,7,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,7,7,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,7,7,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,7,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,0,0,0,0,0,8,8,8,0,0,0,0,0,0,7,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,8,8,7,7,7,7,7,7,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,7,7,0,0,0,0,7,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,7,8,7,0,0,0,0,7,0,0,0,0,0,0,7,7,7,0
DATA 0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,0,0,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,7,0,7,7,7,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,7,7,7,7,7,7,8,7,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,7,7,7,7,8,7,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,8,7,7,8,8,7,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0,7,7,7,7,7,7,0,7,7,0,0,7,7,7,7,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,7,0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,7,0,7,0,7,0
DATA 0,7,0,7,0,7,0,0,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,7,0,7,0,0,7,0,7,0,7,0
DATA 0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,0,7,0,7,0
DATA 0,0,0,7,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,0,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,8,8,0,0,0,0
FOR y = 101 TO 163
x = 100
FOR K = 1 TO 40
READ c
PSET (x, y), c
x = x + 1
NEXT K
NEXT y
DIM sceletnormall(((45 * 2 + 7) / 8) * 66)
GET (99, 165)-(145, 99), sceletnormall
'### СКЕЛЕТ ОБЫКНОВЕННЫЙ (СМОТРЯЩИЙ ПРАВО) ###################################
CLS
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,0,0,0,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8,7,7,7,8,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,8,0,8,7,7,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,8,7,7,7,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,0,7,7,8,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,15,0,15,0,0,7,7,7,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,7,7,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,7,7,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,7,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,0,0,0,0,0,8,8,8,0,0,0,0,0,0,7,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,8,8,7,7,7,7,7,7,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,7,7,0,0,0,0,7,0,0,0,0,0,0,7,7,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,7,8,7,0,0,0,0,7,0,0,0,0,0,0,7,7,7,0
DATA 0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,0,0,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,7,0,7,7,7,0,0,0,0,0,0,0,0,7,7,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,7,7,7,7,7,7,8,7,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,7,7,7,7,8,7,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,8,8,7,7,8,8,7,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,0,7,7,7,7,7,7,0,7,7,0,0,7,7,7,7,7,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,7,0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,7,0,7,0,7,0
DATA 0,7,0,7,0,7,0,0,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,7,0,7,0,0,7,0,7,0,7,0
DATA 0,7,0,7,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,0,7,0,7,0
DATA 0,0,0,7,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,0,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,8,8,0,0,0,0
FOR y = 101 TO 163
x = 100
FOR K = 1 TO 40
READ c
PSET (x, y), c
x = x - 1
NEXT K
NEXT y
DIM sceletnormalr(((52 * 2 + 7) / 8) * 66)
GET (53, 164)-(105, 98), sceletnormalr
'### СКЕЛЕТ ОБЫКНОВЕННЫЙ [ЭТАП 2] (СМОТРЯЩИЙ ВПРАВО) ###################################
CLS
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,0,0,0,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8,7,7,7,8,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,8,0,8,7,7,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,8,7,7,7,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,0,7,7,8,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,15,0,15,0,0,7,7,7,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,7,7,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,7,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,0,0,0,0,0,8,8,8,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,8,8,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,7,0,0,0,0,7,7,7,7,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,7,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,7,7,7,7,7,7,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,7,7,7,7,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,8,7,7,8,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,0,0,7,7,0,7,7,7,7,7,7,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,0,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,0,0,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 7,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,8,7,7,7,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,7,7,7,8,8,0,0,0,0,0,0,0,0
FOR y = 101 TO 161
x = 100
FOR K = 1 TO 48
READ c
PSET (x, y), c
x = x - 1
NEXT K
NEXT y
DIM sceletnormalr2(((60 * 2 + 7) / 8) * 64)
GET (45, 163)-(105, 99), sceletnormalr2
'### СКЕЛЕТ ОБЫКНОВЕННЫЙ [ЭТАП 2] (СМОТРЯЩИЙ ВЛЕВО) ###################################
CLS : SCREEN 13
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,8,0,0,0,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8,7,7,7,8,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,8,0,8,7,7,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,8,0,8,8,8,0,8,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,8,7,7,7,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,0,7,7,8,8,8,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,15,0,15,0,0,7,7,7,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, 7, 0, 0, 0, 0, 0, 0, 0, 7, 7, 0, 0, 0, 7, 7, 0, 0, 0, 0, 0, 0, 0, 0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,7,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,7,7,0,0,0,0,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,7,7,7,7,7,7,7,8,8,8,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,7,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,7,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,0,0,0,0,0,8,8,8,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,8,8,8,7,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,7,0,0,0,0,7,7,7,7,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,7,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,7,8,8,8,7,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,7,7,7,7,7,7,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,7,7,7,7,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,8,8,7,7,8,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,7,0,0,7,7,0,7,7,7,7,7,7,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,7,0,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,7,0,7,0,7,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,7,0,0,0,7,0,7,0,7
DATA 0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,7,0,7,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0
DATA 7,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,7,7,0,0,0,0,0,0,0,0,0
DATA 7,7,0,0,0,0,7,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,7,0,0,0,7,7,0,0,0,0,0,0,0,0
DATA 0,0,8,7,7,7,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,7,7,7,8,8,0,0,0,0,0,0,0,0
FOR y = 101 TO 161
x = 100
FOR K = 1 TO 48
READ c
PSET (x, y), c
x = x + 1
NEXT K
NEXT y
DIM sceletnormall2(((67 * 2 + 7) / 8) * 64)
GET (92, 163)-(160, 99), sceletnormall2
'### ДВИЖЕНИЕ СКЕЛЕТА ####################################
CLS
ywoda = 55
d = .06
dver = 0
sceletx = 5
scelety = 120
polozhenie = 1
GOSUB room1
PUT (sceletx, scelety), sceletnormalr, PSET
startoflabirint:
IF napravlenie$ = "r" THEN
IF polozhenie = 1 THEN PUT (sceletx, scelety), sceletnormalr, PSET: putscelet = 0
IF polozhenie = 0 THEN PUT (sceletx, scelety), sceletnormalr2, PSET: putscelet = 0
END IF
IF napravlenie$ = "l" THEN
IF polozhenie = 1 AND putscelet = 1 THEN LINE (sceletx, scelety)-(sceletx + 100, scelety + 50), 0, BF:
IF polozhenie = 1 THEN PUT (sceletx, scelety), sceletnormall, PSET: putscelet = 0
IF polozhenie = 0 THEN PUT (sceletx, scelety), sceletnormall2, PSET: putscelet = 1
END IF
a$ = INKEY$
'IF RIGHT$(a$, 1) = "H" THEN scelety = scelety - 5: napravlenie$ = "l"
IF RIGHT$(a$, 1) = "M" THEN sceletx = sceletx + 5: napravlenie$ = "r": polozhenie = polozhenie - 1: FOR p = 1 TO 300: NEXT p
IF RIGHT$(a$, 1) = "K" THEN sceletx = sceletx - 5: napravlenie$ = "l": polozhenie = polozhenie - 1: FOR p = 1 TO 300: NEXT p
'IF RIGHT$(a$, 1) = "P" THEN scelety = scelety + 5: napravlenie$ = "l"
IF polozhenie < 0 THEN polozhenie = 1
IF sceletx < 3 THEN GOSUB roomsl
IF sceletx > 250 THEN GOSUB roomsr
IF pauk1$ = "yes" THEN
PUT (xpauk, ypauk), pauck, PSET
ypauk = ypauk + d
IF ypauk > 150 THEN d = -.06
IF ypauk < ogranpauk THEN d = .06
END IF
IF pauk2$ = "yes" THEN
PUT (xpauk2, ypauk2), pauck, PSET
ypauk2 = ypauk2 + d
IF ypauk2 > 150 THEN d = -.06
IF ypauk2 < ogranpauk2 THEN d = .06
END IF
'IF POINT(sceletx + 5, scelety + 5) = 8 THEN BEEP
IF sceletx < xpauk + 25 AND sceletx > xpauk - 25 AND scelety > ypauk - 50 AND scelety < ypauk + 5 THEN BEEP
IF room = 1 THEN
PSET (97, ywoda - 2), 0
PSET (97, ywoda), 9
ywoda = ywoda + .07
IF ywoda > 190 THEN ywoda = 55
END IF
GOTO startoflabirint
udar:
IF napravlenie$ = "r" THEN
'PUT (sceletx, scelety), sceletudarr, PSET
FOR p = 1 TO 1000: NEXT p
LINE (sceletx, scelety)-(sceletx + 60, scelety + 50), 0, BF
END IF
IF napravlenie$ = "l" THEN
LINE (sceletx, scelety)-(sceletx + 60, scelety + 50), 0, BF
'PUT (sceletx - 15, scelety), sceletudarl, PSET
FOR p = 1 TO 1000: NEXT p
LINE (sceletx - 15, scelety)-(sceletx + 60, scelety + 50), 0, BF
END IF
RETURN
'### *** ROOMS: *** ROOM 1 #####################
room1:
room = 1: ypauk = 63: ogranpauk = 63: xpauk = 142: pauk1$ = "yes"
ypauk2 = 62: ogranpauk2 = 62: xpauk2 = 241: pauk2$ = "yes"
CLS
PUT (102, 12), pautinal, PSET
DRAW "bm 1,1;c8 d20 r100 u10 r218 u10 l318"
'PAINT (3, 3), 7, 8
LINE (100, 11)-(1, 11), 8
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 5), c, 8
LINE (x, 1)-(x, 11), 8
NEXT x
FOR x = 17 TO 100 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 15), c, 8
LINE (x, 11)-(x, 21), 8
NEXT x
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 195), c, 8
LINE (x, 189)-(x, 200), 8
NEXT x
DRAW "bm 1,22;c1 d5 r93 d25 r7 u8 r3 d3 r2 u8 l2 d3 l3 u20 l99"
PAINT (2, 24), 9, 1
PUT (260, 12), pautinar, PSET
PUT (102, 12), pautinal, PSET
DRAW "bm 1,1;c8 d20 r100 u10 r218 u10 l318"
LINE (100, 11)-(1, 11), 8
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 5), c, 8
LINE (x, 1)-(x, 11), 8
NEXT x
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 195), c, 8
LINE (x, 189)-(x, 200), 8
NEXT x
DRAW "bm 1,22;c1 d5 r93 d25 r7 u8 r3 d3 r2 u8 l2 d3 l3 u20 l99"
PAINT (2, 24), 9, 1
PUT (260, 12), pautinar, PSET
PSET (95, 189), 9
PSET (96, 189), 9
PSET (97, 189), 9
PSET (98, 189), 9
PSET (99, 189), 9
RETURN
'### ROOM 2 (PAINT) ###############################
room2:
ypauk = 63: ogranpauk = 63: xpauk = 143: pauk1$ = "yes"
pauk2$ = "no"
CLS
PUT (102, 12), pautinal, PSET
DRAW "bm 1,1;c8 d20 r100 u10 r218 u10 l318"
LINE (100, 11)-(1, 11), 8
FOR x = 1 TO 313 STEP 30
LINE (x, 1)-(x, 11), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 5), c + 18, 8
NEXT x
PAINT (315, 5), c + 19, 8
FOR x = 17 TO 100 STEP 30
LINE (x, 11)-(x, 21), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 15), c + 18, 8
NEXT x
PAINT (95, 15), c + 19, 8
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
LINE (x, 189)-(x, 200), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 195), c + 18, 8
NEXT x
PAINT (315, 195), c + 19, 8
RETURN
'### ROOM 3 (PAINT) ######################################
room3:
CLS
ypauk = 62: ogranpauk = 62: xpauk = 140: pauk1$ = "yes"
pauk2$ = "no"
PUT (159, 12), pautinar, PSET
DRAW "bm 1,1;c8 r318 d20 l100 u10 r100 l318 u10"
LINE (100, 11)-(1, 11), 8
FOR x = 1 TO 313 STEP 30
LINE (x, 1)-(x, 11), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 5), c + 18, 8
NEXT x
PAINT (315, 5), c + 19, 8
FOR x = 237 TO 320 STEP 30
LINE (x, 11)-(x, 21), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 15), c + 18, 8
NEXT x
PAINT (315, 15), c + 19, 8
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
LINE (x, 189)-(x, 200), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 195), c + 18, 8
NEXT x
PAINT (315, 195), c + 19, 8
RETURN
'### ROOM 4 (PAINT) ####################
room4:
CLS
ypauk = 63: ogranpauk = 63: xpauk = 130: pauk1$ = "yes"
pauk2$ = "no"
PUT (30, 12), pautinar, PSET
PUT (89, 12), pautinal, PSET
DRAW "bm 1,1;c8 d10 r218 d10 r100 u20 l318"
LINE (220, 11)-(320, 11), 8
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 5), c, 8
LINE (x, 1)-(x, 11), 8
NEXT x
FOR x = 230 TO 320 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 15), c, 8
LINE (x, 11)-(x, 21), 8
NEXT x
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
cc = INT(RND(1) * 12): c = cc + 20
PAINT (x + 5, 195), c, 8
LINE (x, 189)-(x, 200), 8
NEXT x
RETURN
'### ROOM 5 (PAINT) #####################
room5:
pauk1$ = "no": pauk2$ = "no"
dver = 0
CLS
PUT (213 - 50, 67), dver, PSET
PUT (165 - 50, 12), pautinar, PSET
PUT (251 - 50, 12), pautinal, PSET
CIRCLE (200 - 50, 90), 4, 15
PAINT (200 - 50, 90), 15
CIRCLE (200 - 50, 90), 1, 4
PAINT (200 - 50, 90), 4
DRAW "bm 1,1;c8 d10 r318 u10 l318"
'PAINT (3, 3), 7, 8
LINE (220, 11)-(320, 11), 8
FOR x = 1 TO 313 STEP 30
LINE (x, 1)-(x, 11), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 5), c + 18, 8
NEXT x
PAINT (315, 5), c + 19, 8
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
LINE (x, 189)-(x, 200), 8
c = INT(RND(1) * 10)
PAINT (x - 5, 195), c + 18, 8
NEXT x
PAINT (315, 195), c + 19, 8
DRAW "bm 200,11;c8 d178 l25 u178 "
PAINT (245 - 50, 15), 4, 8
FOR y = 11 TO 180 STEP 20
LINE (225 - 50, y)-(250 - 50, y), 8
LINE (225 - 50, y + 10)-(250 - 50, y + 10), 8
LINE (233 - 50, y)-(233 - 50, y + 10), 8
IF y < 170 THEN LINE (228 - 50, y + 10)-(228 - 50, y + 20), 8
IF y < 170 THEN LINE (242 - 50, y + 10)-(242 - 50, y + 20), 8
NEXT y
RETURN
' ### ROOM 6 ########################
room6:
CLS
pauk1$ = "no": pauk2$ = "no"
PUT (65, 12), pautinar, PSET
PUT (251, 12), pautinal, PSET
'zvonok
CIRCLE (100, 90), 4, 15
PAINT (100, 90), 15
CIRCLE (100, 90), 1, 4
PAINT (100, 90), 4
'dver
LINE (150, 67)-(224, 189), 6, BF
DRAW "bm 155,117 c0 r2 f2 d10 l1 u10 l1 d10 r2 g2 l2"
DRAW "bm 1,1;c8 d10 r318 u10 l318"
LINE (220, 11)-(320, 11), 8
FOR x = 1 TO 313 STEP 30
c = INT(RND(1) * 10)
LINE (x, 1)-(x, 11), 8
PAINT (x + 10, 5), c + 18, 8
NEXT x
DRAW "bm 1,189;c8 d10 r318 u10 l318 "
FOR x = 1 TO 313 STEP 30
LINE (x, 189)-(x, 200), 8
c = INT(RND(1) * 10)
PAINT (x + 5, 195), c + 18, 8
NEXT x
DRAW "bm 250,11;c8 d178 l25 u123 l75 "
DRAW "bm 125,11;c8 d178 r25 u123 "
PAINT (150, 20), 4, 8
FOR y = 11 TO 180 STEP 20
LINE (225, y)-(250, y), 8
LINE (225, y + 10)-(250, y + 10), 8
LINE (233, y)-(233, y + 10), 8
IF y < 170 THEN LINE (228, y + 10)-(228, y + 20), 8
IF y < 170 THEN LINE (242, y + 10)-(242, y + 20), 8
NEXT y
FOR y = 11 TO 180 STEP 20
LINE (125, y)-(150, y), 8
LINE (125, y + 10)-(150, y + 10), 8
LINE (133, y)-(133, y + 10), 8
IF y < 70 THEN LINE (128, y + 10)-(128, y + 20), 8
IF y < 70 THEN LINE (142, y + 10)-(142, y + 20), 8
NEXT y
FOR y = 11 TO 63 STEP 20
LINE (150, y)-(224, y), 8
LINE (150, y + 10)-(224, y + 10), 8
LINE (160, y)-(160, y + 10), 8
LINE (185, y)-(185, y + 10), 8
LINE (210, y)-(210, y + 10), 8
IF y > 23 THEN
LINE (172, y - 10)-(172, y), 8
LINE (200, y - 10)-(200, y), 8
END IF
NEXT y
LINE (172, 62)-(172, 66), 8
LINE (200, 62)-(200, 66), 8
LINE (170, 73)-(170, 183), 0
LINE (188, 73)-(188, 183), 0
LINE (206, 73)-(206, 183), 0
LINE (221, 73)-(224, 80), 0, BF
LINE (221, 176)-(224, 183), 0, BF
PSET (222, 75), 15
PSET (222, 78), 15
PSET (222, 178), 15
PSET (222, 181), 15
RETURN
'### ПЕРЕХОД В ДРУГУЮ КОМНАТУ #########################
roomsl:
IF room = 1 THEN BEEP: sceletx = sceletx + 5
IF room = 2 THEN sceletx = 245: room = 1: GOSUB room1
IF room = 3 THEN sceletx = 245: room = 2: GOSUB room2
IF room = 4 THEN sceletx = 245: room = 3: GOSUB room3
IF room = 5 THEN sceletx = 245: room = 4: GOSUB room4
IF room = 6 THEN sceletx = 245: room = 5: GOSUB room5
RETURN
roomsr:
IF room = 5 THEN sceletx = 5: room = 6: GOSUB room6
IF room = 4 THEN sceletx = 5: room = 5: GOSUB room5
IF room = 3 THEN sceletx = 5: room = 4: GOSUB room4
IF room = 2 THEN sceletx = 5: room = 3: GOSUB room3
IF room = 1 THEN sceletx = 5: room = 2: GOSUB room2
RETURN
' ### НАЖАТИЕ НА ЗВОНОК ############################
nazhatienazvonock:
IF room = 5 OR room = 9 OR room = 13 OR room = 18 AND sceletx > 160 AND sceletx < 170 THEN
FOR I = 1 TO 10:
SOUND 1195, .4
SOUND 2571, .4
NEXT I
dver = 1
LINE (sceletx, scelety - 25)-(sceletx + 60, scelety + 67), 0, BF
sceletx = 202
END IF
IF room = 6 OR room = 10 OR room = 14 OR room = 19 AND sceletx > 100 AND sceletx < 130 THEN
FOR I = 1 TO 10:
SOUND 1195, .4
SOUND 2571, .4
NEXT I
dver1 = 1
LINE (sceletx, scelety - 30)-(sceletx + 60, scelety + 67), 0, BF
'sceletx = 252
GOSUB levels
END IF
RETURN
exitt:
END
kadr:
DIM kadr1(((318 * 2 + 7) / 8) * 198)
GET (1, 1)-(319, 199), kadr1
kadrs = 1
BEEP
RETURN
prosmotr:
PUT (1, 1),
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment