screen 0,900,660


celload"picture\\left_up.png",11
celload"picture\\right_up.png",12
celload"picture\\right_down.png",13
celload"picture\\left_down.png",14
celload"picture\\left_up_2.png",15

pic_top=1

*start

scene=0
player_x=1
player_y=1

gosub *array_make
gosub *draw_game1

repeat//////////////////////////////////////////////////////////////////////////////////////////////

redraw 0
*game_start

color 200,250,250
boxf

gosub *key_action

if scene=0 : gosub *draw_top
if scene>=1 : gosub *gameplay


redraw 1

await 64
loop////////////////////////////////////////////////////////////////////////////////////////////////












*key_action
	arrow_left=0
	arrow_up=0
	arrow_right=0
	arrow_down=0
	stick k
	if k&1 : arrow_left=1
	if k&2 : arrow_up=1
	if k&4 : arrow_right=1
	if k&8 : arrow_down=1
	getkey mouse_left,1
	getkey mouse_right,2
	getkey ctrl_break,3
	getkey mouse_centar,4
	getkey backspace,8
	getkey tab,9
	getkey enter,13
	getkey shift,16
	getkey ctrl,17
	getkey alt,18
	getkey capslock,20
	getkey esc,27
	getkey space,32
	getkey pageup,33
	getkey pagedown,34
	getkey home,36
	if scene=0 : getkey arrow_left,37
	if scene=0 : getkey arrow_up,38
	if scene=0 : getkey arrow_right,39
	if scene=0 : getkey arrow_down,40
	getkey zero,48
	getkey one,49
	getkey two,50
	getkey three,51
	getkey four,52
	getkey five,53
	getkey six,54
	getkey seven,55
	getkey eight,56
	getkey nine,57
	getkey A,65
	getkey B,66
	getkey C,67
	getkey D,68
	getkey E,69
	getkey F,70
	getkey G,71
	getkey H,72
	getkey I,73
	getkey J,74
	getkey K,75
	getkey L,76
	getkey M,77
	getkey N,78
	getkey O,79
	getkey P,80
	getkey Q,81
	getkey R,82
	getkey S,83
	getkey T,84
	getkey U,85
	getkey V,86
	getkey W,87
	getkey X,88
	getkey Y,89
	getkey Z,90
	getkey F1,112
	getkey F2,113
	getkey F3,114
	getkey F4,115
	getkey F5,116
	getkey F6,117
	getkey F7,118
	getkey F8,119
	getkey F9,120
	getkey F10,121
	return

*draw_top
	gosub *top_action
	font"",40,1
	color
	pos 50,50
	mes"iH"
	color 200,100,100
	if pic_top!=1 : boxf 450,50,900,100
	if pic_top=1 : boxf 440,43,900,107
	if pic_top!=2 : boxf 450,120,900,170
	if pic_top=2 : boxf 440,113,900,177
	if pic_top!=3 : boxf 450,190,900,240
	if pic_top=3 : boxf 440,183,900,247
	if pic_top!=4 : boxf 450,260,900,310
	if pic_top=4 : boxf 440,253,900,317
	if pic_top!=5 : boxf 450,330,900,380
	if pic_top=5 : boxf 440,323,900,387
	if pic_top!=6 : boxf 450,400,900,450
	if pic_top=6 : boxf 440,393,900,457
	if pic_top!=7 : boxf 450,470,900,520
	if pic_top=7 : boxf 440,463,900,527
	if pic_top!=8 : boxf 450,540,900,590
	if pic_top=8 : boxf 440,533,900,597
	color
	font"",50,0
	pos 600,50
	mes"LEVEL 1"
	pos 600,120
	mes"LEVEL 2"
	pos 600,190
	mes"LEVEL 3"
	pos 600,260
	mes"LEVEL 4"
	pos 600,330
	mes"LEVEL 5"
	pos 600,400
	mes"LEVEL 6"
	pos 600,470
	mes"LEVEL 7"
	pos 600,540
	mes"LEVEL 8"
	color
	color 250,100,150
	boxf 168,320,300,350
	color
	pos 30,230
	font"MSPSVbN",30,0
	mes"`Vѕ`"
	mes"L[őł܂"
	mes"AvC[͕ǂ\n܂ł܂ɐi݂܂"
	i=0
	repeat 22
		repeat 22
			r=array(cnt,i)
			if r=-1 : color 0,0,0 //wall
			if r=0 : color 250,250,200 //empty
			if r=1 : color 0,250,150 //goal
			if r=9 : color 250,250,200
			boxf cnt*10+50,i*10+400,cnt*10+60,i*10+410
		loop
		i++
	loop
	color 50,50,250
	circle 60,410,70,420
	color
	repeat 22
		line 50,cnt*10+400,270,cnt*10+400
		line cnt*10+50,400,cnt*10+50,620
	loop
	font"MSPSVbN",20,1
	pos 550,630
	color
	mes"\L[+enter ܂ }EXőI"
	return

*draw_game1
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	 array.0. 1=-1, 9, 0, 0,-1, 0, 0, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1
	 array.0. 2=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0. 3=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0,-1,-1,-1, 0, 0, 0, 0,-1, 0, 9,-1
	 array.0. 4=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0,-1, 9, 9, 9, 9, 9, 1,-1, 0, 9,-1
	 array.0. 5=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0,-1, 9, 0, 0, 0,-1,-1,-1, 0, 9,-1
	 array.0. 6=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0. 7=-1, 9, 0, 0,-1, 0, 0, 9, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0. 8=-1, 9, 0, 0,-1, 0, 0, 9,-1, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0. 9=-1, 9, 0, 0,-1, 0, 0, 9,-1, 0, 0, 0, 9, 0,-1, 0, 0, 0, 0, 0, 9,-1
	 array.0.10=-1, 9, 0, 0, 0, 0, 0, 9,-1, 0, 0, 0, 9, 0,-1, 0, 0, 0, 0, 0, 9,-1
	 array.0.11=-1, 9, 0, 0, 0, 0, 0, 9,-1, 0, 0, 0, 9, 0,-1, 0, 0, 0, 0, 0, 9,-1
	 array.0.12=-1, 9, 0, 0, 0, 0, 0, 9,-1, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0.13=-1, 9, 9, 9, 9, 9, 9, 9,-1, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0.14=-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0.15=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1, 0, 9,-1
	 array.0.16=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 9,-1, 0, 9,-1
	 array.0.17=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 9, 9, 9, 9, 9, 9,-1, 0, 9,-1
	 array.0.18=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0,-1,-1,-1,-1, 0, 9,-1
	 array.0.19=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9,-1
	 array.0.20=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	return

*draw_game6
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	 array.0. 1=-1, 9,-1, 1, 9, 9, 9, 9, 9, 0, 0,10,10, 0, 0, 0, 0,-1, 9, 9, 0,-1
	 array.0. 2=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1,-1
	 array.0. 3=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 4=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 5=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 6=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 7=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 8=-1, 9, 9, 0,-1,-1,-1, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0. 9=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0.10=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0.11=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0,-1
	 array.0.12=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0,-1, 0, 0, 0, 9, 0, 0,-1
	 array.0.13=-1, 9, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0,-1, 0, 0, 0, 9, 0, 0,-1
	 array.0.14=-1, 9, 9, 0, 0,-1,-1,-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 0,-1
	 array.0.15=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1, 0, 0,-1,-1, 0, 0,-1
	 array.0.16=-1,-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9,-1, 0, 0, 0, 0, 0, 0,-1
	 array.0.17=-1,10, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0,-1
	 array.0.18=-1,10, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0,-1,-1,-1,-1
	 array.0.19=-1,10, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0,10,10,10,-1
	 array.0.20=-1,-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 0, 0, 0,10,10,10,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	return

*draw_game8
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	 array.0. 1=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0,-1
	 array.0. 2=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 9, 9, 9, 0,-1
	 array.0. 3=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 9, 0, 9, 0,-1
	 array.0. 4=-1, 9, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 9, 0,-1
	 array.0. 5=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 9, 0, 9, 0,-1
	 array.0. 6=-1, 9, 0,-1, 0, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1,-1
	 array.0. 7=-1, 9, 0, 0, 0, 0, 0, 0, 0,-1, 0, 9, 0, 0, 0, 0, 0, 9, 0, 0, 0,-1
	 array.0. 8=-1, 9, 0, 0,-1, 0, 0, 0, 0, 9, 9, 9,-1, 0, 0, 0,-1, 9, 0, 0, 0,-1
	 array.0. 9=-1, 9, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0,-1
	 array.0.10=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1, 0, 0, 0, 0, 0, 0, 9,-1, 0, 0,-1
	 array.0.11=-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 0,-1
	 array.0.12=-1, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 9, 0, 0, 0,-1
	 array.0.13=-1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 1, 0, 0, 9, 0, 0, 0,-1
	 array.0.14=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 9, 0, 0, 0,-1
	 array.0.15=-1, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0,-1, 0, 0, 9, 0, 0, 9, 0,-1, 0,-1
	 array.0.16=-1, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 9, 0,-1, 9, 0, 0, 0,-1
	 array.0.17=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 9, 9, 9, 9, 0, 0, 0,-1
	 array.0.18=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 9, 0, 0, 0,-1
	 array.0.19=-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 9, 9, 0, 0, 0,-1
	 array.0.20=-1, 0, 0,-1, 0,-1, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0,-1, 0, 0, 0,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	return

*draw_game2
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	 array.0. 1=-1, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1
	 array.0. 2=-1, 9,-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1
	 array.0. 3=-1, 9, 0, 9, 0, 0,10,10,10,10,10,10,10,10,10,10, 0, 0,-1, 0, 9,-1
	 array.0. 4=-1, 9, 0, 9,-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 9,-1
	 array.0. 5=-1, 9, 0, 9, 0, 9, 0, 0,10,10,10,10,10,10, 0, 0,-1, 0, 9, 0, 9,-1
	 array.0. 6=-1, 9,10, 9, 0, 9,-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 9, 0, 9,-1
	 array.0. 7=-1, 9,10, 9, 0, 9, 0, 9, 0, 0,10,10,10, 0,-1, 0, 9, 0, 9,10, 9,-1
	 array.0. 8=-1, 9,10, 9,10, 9, 0, 9,-1, 9, 9, 9, 9, 9, 9, 0, 9,10, 9,10, 9,-1
	 array.0. 9=-1, 9,10, 9,10, 9,10, 9, 0, 9, 0, 0,-1, 0, 9,10, 9,10, 9,10, 9,-1
	 array.0.10=-1, 9,10, 9,10, 9,10, 9,10, 9,-1, 1, 9, 0, 9,10, 9,10, 9,10, 9,-1
	 array.0.11=-1, 9,10, 9,10, 9,10, 9,10, 9, 0,-1, 9, 0, 9,10, 9,10, 9,10, 9,-1
	 array.0.12=-1, 9,10, 9,10, 9,10, 9, 0, 9, 9, 9, 9,-1, 9, 0, 9,10, 9,10, 9,-1
	 array.0.13=-1, 9,10, 9,10, 9, 0, 9, 0,-1, 0,10, 0, 0, 9, 0, 9, 0, 9,10, 9,-1
	 array.0.14=-1, 9,10, 9,10, 9, 0, 9, 9, 9, 9, 9, 9, 9, 9,-1, 9, 0, 9,10, 9,-1
	 array.0.15=-1, 9,10, 9, 0, 9, 0,-1, 0, 0,10,10,10, 0, 0, 0, 9, 0, 9, 0, 9,-1
	 array.0.16=-1, 9,10, 9, 0, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1, 9, 0, 9,-1
	 array.0.17=-1, 9, 0, 9, 0,-1, 0, 0, 0,10,10,10,10,10, 0, 0, 0, 0, 9, 0, 9,-1
	 array.0.18=-1, 9, 0, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1, 9,-1
	 array.0.19=-1, 9, 0,-1, 0, 0, 0,10,10,10,10,10,10,10,10,10,10, 0, 0, 0, 9,-1
	 array.0.20=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	return

*draw_game4
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	 array.0. 1=-1, 9,-1, 0, 0, 0, 0, 0, 0, 0,14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1
	 array.0. 2=-1, 9,-1, 0, 0, 0, 0,13, 0, 0,13, 0, 0,13, 0, 0, 0,14, 0, 0, 0,-1
	 array.0. 3=-1, 9, 0, 0, 0, 0, 9, 0, 9, 9, 0, 9, 9, 0, 9, 0, 0, 0, 0, 0, 0,-1
	 array.0. 4=-1, 9, 0, 0, 0, 9,-1,-1, 9, 9, 0, 9,14, 0, 0, 9, 0, 0, 0, 0, 0,-1
	 array.0. 5=-1, 9, 0,-1,12, 0,-1,12, 0, 0, 9, 9, 0, 0,11, 0, 9, 0, 0, 0,11,-1
	 array.0. 6=-1, 9, 0,-1, 9, 0,13, 9, 0, 9, 9, 9, 0, 0, 0, 0, 0,14, 0, 0, 0,-1
	 array.0. 7=-1, 9, 0,-1, 9, 0, 0, 0, 9, 9, 0, 0, 9, 0,14, 0, 9, 0, 0, 0, 0,-1
	 array.0. 8=-1, 9, 0,-1,14, 9, 0, 9, 9, 9, 0, 0, 0, 9, 0,11, 0, 0, 0, 0, 0,-1
	 array.0. 9=-1, 9, 0,13, 0, 0, 9, 9, 0, 0, 9, 0, 9, 0, 9, 0,12, 0, 0, 0, 0,-1
	 array.0.10=-1, 9, 0, 0, 0, 9, 9, 9, 0, 0, 0, 9, 0, 0, 0, 9, 0, 0, 0, 0, 0,-1
	 array.0.11=-1, 9, 0, 0, 9, 9, 0, 0, 9, 0,13, 0, 9, 0, 0, 0, 9, 0, 0, 0, 0,-1
	 array.0.12=-1, 9, 0, 9, 9, 0, 0, 0, 0, 9, 0, 9, 0, 9, 0, 0, 0,14,13,11, 0,-1
	 array.0.13=-1, 9,12, 9, 0, 0, 0, 0, 0, 0, 9, 0, 9, 0, 9, 0, 9, 0, 0, 0, 0,-1
	 array.0.14=-1, 9,13, 9, 0, 0, 0, 0, 0, 0, 0, 9, 0, 9, 0,11,12, 0, 0, 0, 0,-1
	 array.0.15=-1, 9, 0, 9, 9, 0, 0,14, 0, 0, 0, 0, 9, 0, 9, 0,12,-1, 0, 0, 0,-1
	 array.0.16=-1, 9, 0, 0, 9, 9, 0, 0, 0, 0, 0, 0, 0, 9, 0, 9, 0,-1, 0, 0,14,-1
	 array.0.17=-1, 9, 0, 0, 0, 9,11, 0, 0, 0, 0, 0, 0, 0,11, 9, 9,-1, 0, 0, 0,-1
	 array.0.18=-1, 9, 0, 0, 0, 9, 1,-1, 0, 0, 0, 0,14,-1,-1,-1,-1,-1, 0, 0, 0,-1
	 array.0.19=-1, 9,13, 0, 9, 0,-1,-1, 0, 0, 0,11, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1
	 array.0.20=-1,12, 0,12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
	return

*draw_game3
	 array.0. 0=-1,-1,   -1,-1,-1,-1,   -1,-1,   -1,   -1,-1,-1,   -1,   -1,-1,-1,   -1,-1,-1,-1,   -1,-1
	 array.0. 1=-1, 9,    0, 0, 0, 0,    0,-1,    0,    0, 0, 0,    0,    0,-1, 0,    9, 9, 9, 9,51616,-1
	 array.0. 2=-1, 9,    0, 0, 0, 0,    0,-1,    0,21015, 0, 0,    0,    0,-1, 0,    9, 0, 0, 0,    0,-1
	 array.0. 3=-1, 9,    0, 0, 0, 0,    0,-1,    0,    9, 0, 0,    0,    0,-1, 0,    9, 0, 0, 0,    0,-1
	 array.0. 4=-1, 9,    0, 0, 0, 0,    0,-1,    0,    9, 0, 0,    0,    0,-1, 0,    9, 0, 0, 0,    0,-1
	 array.0. 5=-1, 9,    0, 0, 0, 0,    0,-1,    0,    9, 0, 0,    0,    0,-1, 0,40608, 0, 0, 0,    0,-1
	 array.0. 6=-1, 9,    9, 9, 9, 9,11219,-1,    0,    9, 9, 9,    9,30212,-1, 0,    0, 0, 0, 0,    0,-1
	 array.0. 7=-1,-1,   -1,-1,-1,-1,   -1,-1,   -1,   -1,-1,-1,   -1,   -1,-1,-1,   -1,-1,-1,-1,   -1,-1
	 array.0. 8=-1, 0,    0, 0, 0, 0,41605,-1,   13,    0, 0, 0,    0,   14,-1, 0,    0,12,13, 0,    0,-1
	 array.0. 9=-1, 0,    0, 0, 0, 0,    9,-1,    0,   13, 0, 0,   14,    0,-1, 0,   12, 0, 0,13,    0,-1
	 array.0.10=-1, 0,    0, 0, 0, 0,    9,-1,    0,    0,13,14,    0,    0,-1,12,    0, 0, 0, 0,   13,-1
	 array.0.11=-1, 0,    0, 0, 0, 0,    9,-1,    0,    0,12,11,    0,    0,-1,11,    0, 0, 0, 0,   14,-1
	 array.0.12=-1, 0,31306, 9, 9, 9,    9,-1,    0,   12, 0, 0,   11,    0,-1, 0,   11, 0, 0,14,    0,-1
	 array.0.13=-1, 0,    0, 0, 0, 0,    0,-1,   12,    0, 0, 0,    0,   11,-1, 0,    0,11,14, 0,    0,-1
	 array.0.14=-1,-1,   -1,-1,-1,-1,   -1,-1,   -1,   -1,-1,-1,   -1,   -1,-1,-1,   -1,-1,-1,-1,   -1,-1
	 array.0.15=-1,10,   13,13,13,13,   10,-1,20902,    9, 9, 9,    9,    0,-1, 0,    0, 0, 0, 0,    0,-1
	 array.0.16=-1,12,    0, 0, 0, 0,   14,-1,    0,    0, 0, 0,    9,    0,-1, 0,52001, 9, 9, 9,    9,-1
	 array.0.17=-1,12,    0, 0, 0, 0,   14,-1,    0,    0, 0, 0,    9,    0,-1, 0,    0, 0, 0, 0,    9,-1
	 array.0.18=-1,12,    0, 0, 0, 0,   14,-1,    0,    0, 0, 0,    9,    0,-1, 0,    0, 0, 0, 0,    9,-1
	 array.0.19=-1,12,    0, 0, 0, 0,   14,-1,    0,    0, 0, 0,10606,    0,-1, 0,    0, 0, 0, 0,    9,-1
	 array.0.20=-1,10,   11,11,11,11,   10,-1,    0,    0, 0, 0,    0,    0,-1, 0,    0, 0, 0, 0,    1,-1
	 array.0.21=-1,-1,   -1,-1,-1,-1,   -1,-1,   -1,   -1,-1,-1,   -1,   -1,-1,-1,   -1,-1,-1,-1,   -1,-1
	return

*draw_game7
	 array.0. 0=-1,   -1,-1,-1,   -1,   -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1,   -1,-1,-1,   -1,-1
	 array.0. 1=-1,    9, 0,-1,21508,    0, 0, 0, 0, 0, 0,10,10,10,10,   10, 0,    0, 0, 1,   -1,-1
	 array.0. 2=-1,    9, 0,-1,    0,    0, 0, 0, 0, 0, 0, 0, 0, 0, 0,    9, 0,   10,10,-1,10119,-1
	 array.0. 3=-1,    9, 0,-1,   -1,   -1,-1,-1, 0, 0, 0, 0, 0, 0, 0,    9, 0,   10,-1, 0,    9,-1
	 array.0. 4=-1,    9, 0,-1,   13,    0, 9, 9, 9, 9, 9, 9, 9, 9, 9,    9, 0,   -1, 0, 0,    9,-1
	 array.0. 5=-1,    9, 0,-1,    0,    0, 9,-1, 0, 0, 0, 0, 0, 0, 0,41705,-1,41505, 0, 0,    9,-1
	 array.0. 6=-1,    9, 0,-1,32016,    0, 9, 0, 0, 0, 0, 0, 0, 0, 0,   -1, 0,    0, 0, 0,    9,-1
	 array.0. 7=-1,    9, 0,-1,    9,    0, 9, 0, 0, 0, 0, 0, 0, 0,-1,    0, 0,    0, 0, 0,    9,-1
	 array.0. 8=-1,    9, 0, 0,    9,    0, 9, 0, 0, 0, 0, 0,10,-1, 0,20401, 0,    0, 0, 0,    9,-1
	 array.0. 9=-1,    9, 0, 0,    9,    0, 9, 0, 0, 0, 0,10,-1,14, 0,    0, 0,    0, 0, 0,    9,-1
	 array.0.10=-1,    9, 0, 0,    9,    0, 9, 0, 0, 0,10,-1, 0, 0, 0,    0,-1,    0, 0, 0,    9,-1
	 array.0.11=-1,    9, 0, 0,    9,    0, 9, 0, 0,10,-1, 0, 0, 0, 0,    0,-1,    0, 0, 0,    9,-1
	 array.0.12=-1,    9, 0, 0,    9,    0, 9, 0,10,-1, 0, 0, 0, 0,-1,    0, 0,    0, 0, 0,    9,-1
	 array.0.13=-1,    9, 0, 0,    9,    0, 9, 0,-1,-1, 0, 0, 0, 0,-1,    0, 0,    0, 0, 0,   14,-1
	 array.0.14=-1,    9, 0, 0,    9,    9, 9,-1,-1, 0, 0,12,-1, 0,-1,    0,-1,    0, 0, 9,    0,-1
	 array.0.15=-1,    9, 0, 0,   -1,   -1,-1,10, 0, 0, 0,-1,-1, 0, 0,    0,-1,    0, 9, 0,    0,-1
	 array.0.16=-1,    9, 0, 0,   10,   10,10, 0, 0, 0, 0, 0, 0, 0, 0,    9, 9,    9, 9, 9,30406,-1
	 array.0.17=-1,    9, 0,10,   10,   10,10, 0, 0, 0, 0, 0, 0, 0, 9,    0, 9,    0, 0, 0,   14,-1
	 array.0.18=-1,    9, 0,10,   10,   10, 0, 0, 0, 0, 0, 0, 0, 9, 0,    9, 0,    0, 0, 0,   10,-1
	 array.0.19=-1,12002,-1,10,   10,   10, 0, 0, 0, 0, 0, 0, 9, 0, 9,    0, 0,    0, 0,10,   10,-1
	 array.0.20=-1,   -1,10,10,   10,    0, 0, 0, 0, 0, 0,12, 9, 9, 0,   11, 0,    0, 0,10,   10,-1
	 array.0.21=-1,   -1,-1,-1,   -1,   -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1,   -1,-1,-1,   -1,-1
	return

*draw_game5
	 array.0. 0=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1
	 array.0. 1=-1, 9, 9, 9, 9, 9, 9, 9, 9, 9,    9, 9, 9, 9, 9, 9, 9, 9, 9, 9,    9,-1
	 array.0. 2=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0, 0, 0, 0, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 3=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0, 0, 0, 0, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 4=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,   -1,-1, 0, 0, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 5=-1, 0, 0, 0, 0, 0, 0, 0, 0,-1,12013, 0,-1, 0, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 6=-1, 0, 0, 0, 0, 0, 0, 0,-1, 0,    9, 0, 0,-1, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 7=-1, 0, 0, 0, 0, 0, 0, 0,-1, 0,    9, 0, 0,-1, 0, 0, 0, 0, 0, 0,    9,-1
	 array.0. 8=-1, 0, 0, 0, 0, 0, 0,-1, 0, 0,    9, 0, 0, 0,-1, 0, 0, 0, 0, 0,    9,-1
	 array.0. 9=-1, 0, 0, 0, 0, 0,-1, 0, 0, 0,    9, 0, 0, 0, 0,-1, 0, 0, 0, 0,    9,-1
	 array.0.10=-1, 0, 0, 0, 0,-1, 9, 9, 9, 9,    9, 9, 9, 9, 9, 9,-1, 0, 0, 0,    9,-1
	 array.0.11=-1, 0, 0, 0,-1, 9, 9, 9, 9, 9,    9, 0, 0, 0, 0, 9, 0,-1, 0, 0,    9,-1
	 array.0.12=-1, 0, 0,-1, 0, 9, 9, 0, 0,-1,   -1,-1, 0, 0, 0, 9, 0, 0,-1, 0,    9,-1
	 array.0.13=-1, 0,-1, 0, 0, 9, 9, 0,-1, 0,    0, 0,-1, 0, 0, 9, 0, 0, 0,-1,11005,-1
	 array.0.14=-1,-1,-1, 0, 0, 9, 9,-1, 0, 0,    0, 0, 0,-1, 0, 9, 0, 0,-1,-1,   -1,-1
	 array.0.15=-1, 0, 0,-1,-1,-1,10,-1, 0, 0,    0, 0,-1, 1, 9, 9,-1,-1, 0, 0,    0,-1
	 array.0.16=-1, 0, 0, 0, 0, 0,-1,-1, 0, 0,    0,-1, 0, 0, 0,-1, 0, 0, 0, 0,    0,-1
	 array.0.17=-1, 0, 0, 0, 0, 0, 0, 0,-1, 0,    0,-1,10,-1,-1, 0, 0, 0, 0, 0,    0,-1
	 array.0.18=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0,-1,-1, 0, 0, 0, 0, 0, 0, 0,    0,-1
	 array.0.19=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0,-1
	 array.0.20=-1, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0, 0, 0, 0, 0, 0, 0, 0, 0, 0,    0,-1
	 array.0.21=-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,   -1,-1
	return

*gameplay
	gosub *game_action
	gosub *draw_array
	gosub *draw_gamerule
	if array(player_x,player_y)=1 : clear=1 : gosub *draw_clear
	return
	

*draw_gamerule
	color
	font"MSPSVbN",15,0
	pos 830,25
	mes"/8"
	pos 670,50
	font"MSPSVbN",20,0
	mes"`Vѕ`"
	mes"vC[͈ɂ\ni߂܂"
	mes"L[őł܂"
	pos 697,150
	mes": vC[ł"
	pos 697,180
	mes": S[ł"
	pos 697,210
	mes": ǂł"
	pos 697,240
	mes": GƎɂ܂"
	pos 697,270
	mes": ̌ɐi݂܂"
	pos 697,300
	mes": Fɔт܂"
	mes"  (ނ܂)"
	pos 707,630
	mes"EscőIʂɖ߂"
	color 50,50,250
	circle 670,150,690,170
	color 0,250,150
	boxf 670,180,690,200
	color
	boxf 670,210,690,230
	color 255,50,50
	boxf 670,240,690,260
	pos 670,270
	celput 15,,0.35,0.35,0
	color 200,200,0
	boxf 670,300,690,320
	color
	font"MSPSVbN",40,0
	pos 680,5
	mes"LEVEL "+scene+""
	return

*top_action
	if mousex>450 & mousex<895 & mousey>50 & mousey<100 : pic_top=1
	if mousex>450 & mousex<895 & mousey>120 & mousey<170 : pic_top=2
	if mousex>450 & mousex<895 & mousey>190 & mousey<240 : pic_top=3
	if mousex>450 & mousex<895 & mousey>260 & mousey<310 : pic_top=4
	if mousex>450 & mousex<895 & mousey>330 & mousey<380 : pic_top=5
	if mousex>450 & mousex<895 & mousey>400 & mousey<450 : pic_top=6
	if mousex>450 & mousex<895 & mousey>470 & mousey<520 : pic_top=7
	if mousex>450 & mousex<895 & mousey>540 & mousey<590 : pic_top=8
	if arrow_down=1 & pic_top!=8 : pic_top++ : await 64
	if arrow_up=1 & pic_top!=1 : pic_top-- : await 64
	if pic_top=1 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game1 : scene=1
	if pic_top=2 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game2 : scene=2
	if pic_top=3 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game3 : scene=3
	if pic_top=4 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game4 : scene=4
	if pic_top=5 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game5 : scene=5
	if pic_top=6 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game6 : scene=6
	if pic_top=7 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game7 : scene=7
	if pic_top=8 : if mouse_left=1 || enter=1 : gosub *array_make : gosub *draw_game8 : scene=8
	if space=1 & ctrl=1 : end
	return

*game_action
	if arrow_left=1 : gosub *go_left
	if arrow_up=1 : gosub *go_up
	if arrow_right=1 : gosub *go_right
	if arrow_down=1 : gosub *go_down
	if esc=1 : goto *start
	return

*array_make
	dim array,22,22
	return

*draw_array
	color 200,250,250
	boxf
	i=0
	repeat 22
		repeat 22
			r=array(cnt,i)
			if r=-1 : color 0,0,0 //wall
			if r=0 : color 250,250,200 //empty
			if r=1 : color 0,250,150 //goal
			if r=9 & tab=0 : color 250,250,200 //answer
			if r=9 & tab=1 : color 250,250,250 //answer
			if r=10 : color 255,50,50 //death
			if r=11 : ix=cnt : gosub *oblique : continue //<^
			if r=12 : ix=cnt : gosub *oblique : continue //^>
			if r=13 : ix=cnt : gosub *oblique : continue //v>
			if r=14 : ix=cnt : gosub *oblique : continue //<v
			if r>=10000 & r<20000 : color 200,200,0
			if r>=20000 & r<30000 : color 0,200,200
			if r>=30000 & r<40000 : color 200,200,250
			if r>=40000 & r<50000 : color 200,100,200
			if r>=50000 & r<60000 : color 100,100,100
			boxf cnt*30,i*30,cnt*30+30,i*30+30
		loop
		i++
	loop
	color 50,50,250
	circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
	color
	repeat 22
		line 0,cnt*30,660,cnt*30
		line cnt*30,0,cnt*30,660
	loop
	return

*oblique
	if array(ix,i)=11 : pos ix*30,i*30 : celput 11,,0.5,0.5,0
	if array(ix,i)=12 : pos ix*30,i*30 : celput 12,,0.5,0.5,0
	if array(ix,i)=13 : pos ix*30,i*30 : celput 13,,0.5,0.5,0
	if array(ix,i)=14 : pos ix*30,i*30 : celput 14,,0.5,0.5,0
	return

*draw_clear
	pic_clear=2
	await 64
	repeat
		if scene=8 : pic_clear=1
		gosub *key_action
		gosub *clear_action
		redraw 0
		color 180,150,200
		boxf 250,100,650,530
		color 180,250,200
		if pic_clear!=1 : boxf 280,350,420,450
		if pic_clear=1 : boxf 271,341,429,459
		color 250,200,200
		if pic_clear!=2 & scene!=8 : boxf 480,350,620,450
		if pic_clear=2 & scene!=8 : boxf 471,341,629,459
		font"",50,0
		color
		pos 300,130
		mes"CLAER!!"
		font"",30,0
		pos 297,382
		mes"x"
		pos 492,382
		if scene!=8 : mes"֐i"
		pos 500,480
		mes"EscŖ߂"
		redraw 1
	if clear=0 : break
	await 16
	loop
	return

*clear_action
	if arrow_right=1 & pic_clear!=2 : pic_clear++
	if arrow_left=1 & pic_clear!=1 : pic_clear--
	if mousex>280 & mousex<420 & mousey>350 & mousey<450 : pic_clear=1
	if mousex>480 & mousex<620 & mousey>350 & mousey<450 & scene!=8 : pic_clear=2
	if pic_clear=1 : if mouse_left=1 || enter=1 : gosub *re_game
	if pic_clear=2 : if mouse_left=1 || enter=1 : scene++ : gosub *re_game
	if esc=1 : goto *start
	return

*re_game
	if scene=9 : goto *start
	gosub *array_make
	if scene=1 : gosub *draw_game1
	if scene=2 : gosub *draw_game2
	if scene=3 : gosub *draw_game3
	if scene=4 : gosub *draw_game4
	if scene=5 : gosub *draw_game5
	if scene=6 : gosub *draw_game6
	if scene=7 : gosub *draw_game7
	if scene=8 : gosub *draw_game8
	player_x=1
	player_y=1
	clear=0
	return

*go_left
	direc=1
	repeat
		redraw 0
		if array(player_x-1,player_y)=-1 : direc=0
		if direc=1 : player_x--
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=1 : break
		redraw 1
	await 16
	loop
	return

*go_up
	direc=3
	repeat
		redraw 0
		if array(player_x,player_y-1)=-1 : direc=0
		if direc=3 : player_y--
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=3 : break
		redraw 1
	await 16
	loop
	return

*go_right
	direc=5
	repeat
		redraw 0
		if array(player_x+1,player_y)=-1 : direc=0
		if direc=5 : player_x++
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=5 : break
		redraw 1
	await 16
	loop
	return

*go_down
	direc=7
	repeat
		redraw 0
		if array(player_x,player_y+1)=-1 : direc=0
		if direc=7 : player_y++
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=7 : break
		redraw 1
	await 16
	loop
	return

*go_left_up
	direc=2
	repeat
		redraw 0
		if array(player_x-1,player_y-1)=-1 : direc=0
		if direc=2 : player_x-- : player_y--
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=2 : break
		redraw 1
	await 16
	loop
	return

*go_right_up
	direc=4
	repeat
		redraw 0
		if array(player_x+1,player_y-1)=-1 : direc=0
		if direc=4 : player_x++ : player_y--
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=4 : break
		redraw 1
	await 16
	loop
	return

*go_right_down
	direc=6
	repeat
		redraw 0
		if array(player_x+1,player_y+1)=-1 : direc=0
		if direc=6 : player_x++ : player_y++
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=6 : break
		redraw 1
	await 16
	loop
	return

*go_left_down
	direc=8
	repeat
		redraw 0
		if array(player_x-1,player_y+1)=-1 : direc=0
		if direc=8 : player_x-- : player_y++
		color 50,50,250
		circle player_x*30,player_y*30,player_x*30+30,player_y*30+30
		gosub *gimmick
		gosub *draw_array
		gosub *draw_gamerule
		if direc!=8 : break
		redraw 1
	await 16
	loop
	return

*gimmick
	if array(player_x,player_y)=10 : player_x=1 : player_y=1 : direc=0
	if array(player_x,player_y)=11 : gosub *go_left_up
	if array(player_x,player_y)=12 : gosub *go_right_up
	if array(player_x,player_y)=13 : gosub *go_right_down
	if array(player_x,player_y)=14 : gosub *go_left_down
	if array(player_x,player_y)>10000 : gosub *teleport
	return

*teleport
	direc=0
	p=array(player_x,player_y)
	p=p\10000
	tele_x=p/100
	tele_y=p\100
	player_x=tele_x
	player_y=tele_y
	return







