;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
;	yӏ
;
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.var L890 yy[W y`FbN
? yy[W = 1

.loop
	.system room_music
		BASE: x[X
		BASE: BGM01: yy[W== 1
		BASE: BGM02: yy[W== 2
		BASE: BGM03: yy[W== 3
		BASE: BGM04: yy[W== 4
		BASE: BGM05: yy[W== 5
		BASE: BGM06: yy[W== 6
		BASE: BGM07: yy[W== 7
		BASE: BGM08: yy[W== 8
		BASE: BGM09: yy[W== 9
		BASE: BGM10: yy[W==10
		BASE: BGM11: yy[W==11
		BASE: BGM12: yy[W==12
		BASE: BGM13: yy[W==13
		BASE: BGM14: yy[W==14
		BASE: BGM15: yy[W==15
		BASE: BGM16: yy[W==16
		BASE: BGM17: yy[W==17
		BASE: BGM18: yy[W==18
		BASE: BGM19: yy[W==19
		BASE: BGM20: yy[W==20
		BASE: BGM21: yy[W==21
		BASE: BGM22: yy[W==22
		BASE: BGM23: yy[W==23
		BASE: BGM24: yy[W==24
		BASE: BGM25: yy[W==25
		BASE: BGM26: yy[W==26
		BASE: BGM27: yy[W==27
		BASE: ED:    yy[W==28
		BASE: OP:    yy[W==29
		BUTTON:  1: BGM01: @BGM01: yy[W== 1
		BUTTON:  2: BGM02: @BGM02: yy[W== 2
		BUTTON:  3: BGM03: @BGM03: yy[W== 3
		BUTTON:  4: BGM04: @BGM04: yy[W== 4
		BUTTON:  5: BGM05: @BGM05: yy[W== 5
		BUTTON:  6: BGM06: @BGM06: yy[W== 6
		BUTTON:  7: BGM07: @BGM07: yy[W== 7
		BUTTON:  8: BGM08: @BGM08: yy[W== 8
		BUTTON:  9: BGM09: @BGM09: yy[W== 9
		BUTTON: 10: BGM10: @BGM10: yy[W==10
		BUTTON: 11: BGM11: @BGM11: yy[W==11
		BUTTON: 12: BGM12: @BGM12: yy[W==12
		BUTTON: 13: BGM13: @BGM13: yy[W==13
		BUTTON: 14: BGM14: @BGM14: yy[W==14
		BUTTON: 15: BGM15: @BGM15: yy[W==15
		BUTTON: 16: BGM16: @BGM16: yy[W==16
		BUTTON: 17: BGM17: @BGM17: yy[W==17
		BUTTON: 18: BGM18: @BGM18: yy[W==18
		BUTTON: 19: BGM19: @BGM19: yy[W==19
		BUTTON: 20: BGM20: @BGM20: yy[W==20
		BUTTON: 21: BGM21: @BGM21: yy[W==21
		BUTTON: 22: BGM22: @BGM22: yy[W==22
		BUTTON: 23: BGM23: @BGM23: yy[W==23
		BUTTON: 24: BGM24: @BGM24: yy[W==24
		BUTTON: 25: BGM25: @BGM25: yy[W==25
		BUTTON: 26: BGM26: @BGM26: yy[W==26
		BUTTON: 27: BGM27: @BGM27: yy[W==27
		BUTTON: 28: ED:    :      yy[W==28
		BUTTON: 29: OP:    :      yy[W==29
		BUTTON: 101: PLAY
		BUTTON: 102: STOP
		BUTTON: 103: NEXT
		BUTTON: 104: BACK
		BUTTON: cancel: ߂
	.case  1
		? yy[W= 1
		.gosub REPLAY
	.case  2
		? yy[W= 2
		.gosub REPLAY
	.case  3
		? yy[W= 3
		.gosub REPLAY
	.case  4
		? yy[W= 4
		.gosub REPLAY
	.case  5
		? yy[W= 5
		.gosub REPLAY
	.case  6
		? yy[W= 6
		.gosub REPLAY
	.case  7
		? yy[W= 7
		.gosub REPLAY
	.case  8
		? yy[W= 8
		.gosub REPLAY
	.case  9
		? yy[W= 9
		.gosub REPLAY
	.case 10
		? yy[W=10
		.gosub REPLAY
	.case 11
		? yy[W=11
		.gosub REPLAY
	.case 12
		? yy[W=12
		.gosub REPLAY
	.case 13
		? yy[W=13
		.gosub REPLAY
	.case 14
		? yy[W=14
		.gosub REPLAY
	.case 15
		? yy[W=15
		.gosub REPLAY
	.case 16
		? yy[W=16
		.gosub REPLAY
	.case 17
		? yy[W=17
		.gosub REPLAY
	.case 18
		? yy[W=18
		.gosub REPLAY
	.case 19
		? yy[W=19
		.gosub REPLAY
	.case 20
		? yy[W=20
		.gosub REPLAY
	.case 21
		? yy[W=21
		.gosub REPLAY
	.case 22
		? yy[W=22
		.gosub REPLAY
	.case 23
		? yy[W=23
		.gosub REPLAY
	.case 24
		? yy[W=24
		.gosub REPLAY
	.case 25
		? yy[W=25
		.gosub REPLAY
	.case 26
		? yy[W=26
		.gosub REPLAY
	.case 27
		? yy[W=27
		.gosub REPLAY
	.case 28
		? yy[W=28
		.bgm ED
	.case 29
		? yy[W=29
		.bgm OP
	.case 101
		.gosub REPLAY
	.case 102
		.bgm
	.case 103
		.loop
			? yy[W = yy[W + 1
			.gosub CHECK
			.break if y`FbN
		.end
		.gosub REPLAY
	.case 104
		.loop
			? yy[W = yy[W - 1
			.gosub CHECK
			.break if y`FbN
		.end
		.gosub REPLAY
	.case 0
		.bgm fade
		.load title
	.end
.end
.load title


;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	vC
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.sub REPLAY
	.gosub CHECK
	.if !y`FbN
		.return 
	.end
	.switch yy[W
	.case  1
		.bgm BGM01
	.case  2
		.bgm BGM02
	.case  3
		.bgm BGM03
	.case  4
		.bgm BGM04
	.case  5
		.bgm BGM05
	.case  6
		.bgm BGM06
	.case  7
		.bgm BGM07
	.case  8
		.bgm BGM08
	.case  9
		.bgm BGM09
	.case 10
		.bgm BGM10
	.case 11
		.bgm BGM11
	.case 12
		.bgm BGM12
	.case 13
		.bgm BGM13
	.case 14
		.bgm BGM14
	.case 15
		.bgm BGM15
	.case 16
		.bgm BGM16
	.case 17
		.bgm BGM17
	.case 18
		.bgm BGM18
	.case 19
		.bgm BGM19
	.case 20
		.bgm BGM20
	.case 21
		.bgm BGM21
	.case 22
		.bgm BGM22
	.case 23
		.bgm BGM23
	.case 24
		.bgm BGM24
	.case 25
		.bgm BGM25
	.case 26
		.bgm BGM26
	.case 27
		.bgm BGM27
	.case 28
		.bgm ED
	.case 29
		.bgm OP
	.end
.end


;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;	`FbN
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
.sub CHECK
	.if 29 < yy[W
		? yy[W = 1
	.end
	.if yy[W < 1
		? yy[W = 29
	.end
	.switch yy[W
	.case  1
		?y`FbN = @BGM01
	.case  2
		?y`FbN = @BGM02
	.case  3
		?y`FbN = @BGM03
	.case  4
		?y`FbN = @BGM04
	.case  5
		?y`FbN = @BGM05
	.case  6
		?y`FbN = @BGM06
	.case  7
		?y`FbN = @BGM07
	.case  8
		?y`FbN = @BGM08
	.case  9
		?y`FbN = @BGM09
	.case 10
		?y`FbN = @BGM10
	.case 11
		?y`FbN = @BGM11
	.case 12
		?y`FbN = @BGM12
	.case 13
		?y`FbN = @BGM13
	.case 14
		?y`FbN = @BGM14
	.case 15
		?y`FbN = @BGM15
	.case 16
		?y`FbN = @BGM16
	.case 17
		?y`FbN = @BGM17
	.case 18
		?y`FbN = @BGM18
	.case 19
		?y`FbN = @BGM19
	.case 20
		?y`FbN = @BGM20
	.case 21
		?y`FbN = @BGM21
	.case 22
		?y`FbN = @BGM22
	.case 23
		?y`FbN = @BGM23
	.case 24
		?y`FbN = @BGM24
	.case 25
		?y`FbN = @BGM25
	.case 26
		?y`FbN = @BGM26
	.case 27
		?y`FbN = @BGM27
	.case 28
		?y`FbN = 1
	.case 29
		?y`FbN = 1
	.end
.end

