/*投稿予定日：2018/12/18*/

Int Xmas = 1	//1以外を指定でオマケ曲を再生
If(Xmas=1){

//皆さんのクリスマスが楽しいひと時でありますように

曲名{"Our happiness Christmas"}作者{"レイン望"}
音源初期化|拍子(4,4)|Tempo=140
Function BASE1(Str BASE){[3'BASE']'BASE'6,100'BASE'12,100}
Function CHD1(Str CHORD)		{r4'CHORD'4,30r6'CHORD'12+6.}
Function CHD2(Str CHORD,Str CHORD2)	{r4'CHORD'4,30r6'CHORD2'12+6.}
//主旋律,副旋律
/*	1	メロ
	2	ストリングス
	3	エレピ装飾
	5	クワイア
	6	クリスタル
	9	ハープ		*/
#1Z={ @15o6l2ag#f#edc#"be"a1+1 }
#1A={ o6l4[rag+f+edc+de2"ar6"a12dc+"a"bc+2Div{c+de}2f+2r6c+12f+6g+12a2er6"a12dc+:"a"f+6"e12]"a"b	}
#1B={ v+20o6[crDiv{cde}2drgf6e12c2r6"g12c6d12efec"gr<Div{gab}2>c2r6"g12c6d12efec:c<bag>]c<bag#a1v-20	}
#1C={ o6"a1	}
#2Z={ @49o6v65P(64+16)q105Time(5:1:0)l2a1>c+e<a1g+c+f+1ead1e,15	}
#2A={ Str Str1={c+2.g+6e12f+1}Time(17:1:0)Str1|Time(25:1:0)Str1|Time(53:1:0)Str1|Time(61:1:0)Str1	}
#2B={ v+5l2[c1gb`c2.b6a12gag2.f6e12c1,70"a"g"a"b]|l2a`d`c#ab2+6c#12b4a2g#2EP.T(127,20,!1+1)e1+1,90EP(127)v-5	}
#2C={ v+20l1al2g+ba2+4g+6a12g+c+f#2+4g#6f#12el4"arl2dal4ag#f#el2aDiv{ab`c#}2b`e4`d6`c#12ar6e12a6b12l4`c#`d`c#bf#2+4g#6f#12l2ea4r4dal4ag#f#g#EP.T(127,127,!1,127,30,!1+1+1)a1+1+1+1v-20	}
#3Z={ Time(12:1:0)P(64-16)@5o6v75t.N(-12,0,12)'eg#b'1t(0)	}
#3A={	[o5v95l12r2^6a>ede<|r2^6eag+a|r2^6a>ede<|r2^6eag+a|o6"a1r-1c+2Div{c+g+e}2c+1r-1f+4^6g+24e24f+2|r1^1]/*o6[r1+1+1+2|l4r6a12g+Sub{f+4^6g+24a24bg+b4+6c+24b24a2}l4d4^6e24f+24g+eg+4^6a24g+24f+2|r1+1]*/}
#3B={ o6[Time(34:1:0)/*Sub{e6"b12f6f24g24f6e12+6.}*/c6"g12d6d24e24d6c12+6.|r1+1]	}
#5B={ Time(45:1:0)P(32)@53o5l2v90q110Sub{<a`d`c#ab1ag#e1+1,90>}a`d`c#ab1ag#EP.T(127,20,!1+1)e1+1,90EP(127)	}
#6A={ @99o8q90v60P(127)Str Cr1={l1c#f#l2aede"a1}Time(17:1:0)Cr1|Time(25:1:0)Cr1	}
#6B={ l2[c1gb`c1gag2.f6e12c1,70"a1"b1]"a1+1	}
#6C={ Time(53:1:0)Cr1|Time(61:1:0)Cr1	}
#9Z={	Time(5:1:0)@47v65P(0)o5l12q105[a`c+`e`a`e`c+][eg+b`ebg+][f+a`c+`f+`c+a][c+eg+`c+g+e]|[df+a`daf+]eg+b`ebg+a`c+`e`a`e`c+[df+a`daf+]t.N(0,4,8)'eg+b'1t(0)	}
#9A={	o5[[a`c+`e`a`e`c+][eg+b`ebg+][a`c+`e`a`e`c+][df+a`daf+][c+eg+`c+g+e][f+a`c+:`f+`c+a]`f+`c+`f+[a`c+`e`a`e`c+]df+a`daf+eg+b`ebg+]	}
#9B={	o6[["g"bc"bcecegegb`cbgbgegecec"b]|<"g"be"begegbgb`e>aecec"ac<aeaec|[fa`c`f`ca][gb`d`g`db]>]|o5[a`c+`e`a`e`c+][eg+b`ebg+][3df+a`daf+]eg+b`ebg+	}
#9C={ o5[[a`c+`e`a`e`c+][eg+b`ebg+][f+a`c+`f+`c+a][c+eg+`c+g+e]|[df+a`daf+]c+eg+`c+g+ef+a`c+`f+`c+a[df+a`daf+][eg+b`ebg+]]|t.N(0,16,32)>'c+ea'1+1t(0)}
//ベース
#4Z={ Time(5:1:0)@34q30o3[4a][e]bb6,100b12,100[4a][g#][c#][4f#][e]"a"a6,100"a12,100[4d]r1 }
#4A={ o2[[4a]BASE1(`e)[4a]>BASE1(d)[4c+]BASE1(f+)[4"b]BASE1(e)<] }
#4B={ o3[[4c][d][g][4c]<[b][g][4a][g][`c]BASE1(f)[4g]>][4d]BASE1(c+)<BASE1(a)[f+][g+] }
#4C={ o3[[4a][e]bb6,100b12,100[4a][g#][c#][4f#][e]"a"a6,100"a12,100[4d]BASE1(e)]"a1+1+1+1,100 }
//伴奏
#7Z={ Time(5:1:0)@51P(64)o5q100v80l1'ac#e''eg#c#''f#ac#''c#eg#''df#a''eg#b'2'ac#e'2'df#a'r1 }
#7A={ l1['ac#e''eg#c#''ac#e''df#a''c#eg#''f#ac#''bdf#':'ea2c#'r-2g#2]'eg#c#' }
#7B={ v+5l1['ceg''dfa'2'gbd'2'ceg''dfa''egb''ace''fac''gbd'] 'ac#e''g#bd''f#ac#''df#a'2'eg#b'2v-5 }
#7C={ l1['ac#e''eg#c#''f#ac#''c#eg#''df#a''eg#b'2'ac#e'2'df#a''eg#b']'ade'1+1'ac#e'1+1 }
#8A={ @6o5v85P(64-16)[CHD1(ac#e)CHD1(eg#c#)CHD1(ac#e)CHD1(df#a)CHD1(c#eg#)CHD1(f#ac#)CHD1(bdf#):'eac#'2'eg#c#'2]CHD1(eg#c#) }
#8B={ v+10[CHD1(ceg)CHD2(dfa,gbd)CHD1(ceg)CHD1(dfa)CHD1(egb)CHD1(ace)CHD1(fac)CHD1(gbd)] CHD1(ac#e)CHD1(g#bd)CHD1(f#ac#)'df#a'2'eg#b'2v-10 }
#8C={ v+5[CHD1(ac#e)CHD1(eg#c#)CHD1(f#ac#)CHD1(c#eg#)CHD1(df#a)CHD1(ac#e)CHD1(df#a)CHD1(eg#b)]'ac#e'1+1+1+1v-5 }
//ドラム
Str DRM1={Sub{c}[3f#]d[f#]}Str DRM1A={Sub{crcrrc}[3f#]d[f#]}
#10Z={ o3l12v.Random(10)EP.T(10,127,!1+1+1+1)[16n83,4,80]EP(127)|Sub{[14r4n83,4,90]}Sub{`c#1,,120}[7DRM1]DRM1A|Sub{`c#1,,120}[6DRM1]r2Sub{[2crr]}v.onNote(20,40,60,80,100,120)[6d]v100 }
#10A={ o3l12Sub{[32r4n83,4,80]}[`c#1,,120r-1[7DRM1]DRM1A`c#1,,120r-1[6DRM1]Sub{[4crr]}[d[f#]]f#df#[3d]] }
#10B={ o3l12Sub{[40r4n83,4,90]}[`c#1,,120r-1[7DRM1]DRM1A`c#1,,120r-1[6DRM1]Sub{[4crr]}[d[f#]]f#df#[3d]] `c#1,,120r-1[6DRM1]Sub{[`c#4,,120`a4,,120]}Sub{[4crr]}[d[f#]]f#df#[3d] }
#10C={ o3l12o3l12Sub{[32r4n83,4,80]}[`c#1,,120r-1[7DRM1]DRM1A`c#1,,120r-1[6DRM1]Sub{[4crr]}[d[f#]]f#df#[3d]] }
#10D={ o3l12o3l12Sub{[32r4n83,4,95]}[`c#1,,120r-1[7DRM1]DRM1A`c#1,,120r-1[6DRM1]:Sub{[4crr]}[d[f#]]f#df#[3d]] Sub{`c#2,,120`a2,,120}Sub{[4crr]}[d[f#]]f#df#[3d] `c#1,,120 }
//装飾
#11Z={ @125,5o5Time(3:1:0)EP.T(20,127,!1+1)P.T(0,127,!1+1)c1+1-64&&`c64 EP.T(127,1,!1+1+1+1)P.T(127,0,!1+1+1+1)`c1+1+1+1-64&&c64 }
#11D={ @125,5o5Time(81:1:0)EP.T(127,1,!1+1+1+1)P.T(127,0,!1+1+1+1)`c1+1+1+1-64&&c64 }
//演奏情報
Time(1:1:0)	PLAY(,	#1Z,	#2Z,	#3Z,	#4Z,	,	,	#7Z,	,	#9Z,	#10Z,	#11Z,	)//前奏
Time(13:1:0)PLAY(,	#1A,	#2A,	#3A,	#4A,	,	#6A,	#7A,	#8A,	#9A,	#10A,		)//A
Time(29:1:0)PLAY(,	#1B,	#2B,	#3B,	#4B,	#5B,	#6B,	#7B,	#8B,	#9B,	#10B,		)//B
Time(49:1:0)PLAY(,	#1A,	,	#3A,	#4A,	,	#6C,	#7A,	#8A,	#9A,	#10C,		)//C
Time(65:1:0)PLAY(,	#1C,	#2C,	,	#4C,	,	,	#7C,	#8C,	#9C,	#10D,	#11D,	)//エンディング

}	Else{

曲名{"聖なる夜の鐘が鳴る（オルゴールver.）"}作者{"レイン望"}
音源初期化|拍子(4,4)|Tempo=78
//主旋律
#1Z={	@9o7q100REV(100)CHO(20)P(80) }
#1A={	l8[[rddcdc16"g8.c16c16dc:d16ee16^2]de16g8.ede16d16|c4."b16c16d4.c16d16eg:ec4c"bc16<a8.g16g16`cg`f`e`cg>r1]ba4edcr"acfec"bc8^1 }
#1B={ r-8"g|l8"a4.ed4.c"bcdc4<eab`c4`cb4`cbage8^2r8>"g|"a4ed4c4"b4cdc4cde[gfc]ee4f16e16d2. }
#1C={ r-4"bc|l8[ggga16g8.c"bcggga16g16^4cde4`cb4:gede2d4c4|aaac16d8.efagaedc4r"g16c16fecfecgg8^2r4"bc]>c4d4edc4.<dc|aaac16d8.efageb`c4bgef4.efgaa4b16a16g4^2r4.gfecd16d8.e8^2.^1 }
//副旋律
#2Z={ @9v85o7q100REV(80)CHO(10)P(48)l8[efg`c8^1b4`c4:g4.f16e16c2r1]>d4.e16d16c2r1 }
#2A={ o5l8[[cege`ce:ge]`cb["acecac:ec]ag|fc"acgd"bgecec16b16aeca|:"f"ac"afc"ac"g"bd"bgd"bg]"adfd"bdgd|cege`cgec }
#2B={ o5t.N(0,2)l2'cf''dg''"be'4.t(0)e16b16t.N(0,2)'ea't(0)l8"acfc"bdgdceaeaeag|"acfc"bdgde"bee16b16aeca|fc"af4c"acgd"bg4d"bdt.N(0,4,8)'"bdg'1t(0) }
#2C={ o5l8[[cege`cege]"acecacec"acecaeag|fc"acgd"bde"bee16b16aeca|:fc"af4c"acgd"bg4cdc]fc"af4c"acgd"bg4"bdgt.N(0,2,4)'"bdg'1t(0)|r2+4"b4t.N(0,2,4)'"acf'2'"bdg'2t(0) }
#2D={	Sub{o5l8[[cege`cege]:"acecacec"acfc"bdgd]"acecace>"a16c16|TempoChange(47,!1+1)fecd^2"acfc"bdgdc0>t.N(0,8,16)'ceg'1^1t(0)}o7l8[efg`c8^1b4`c4:g4.f16e16c2r1]>d4.e16d16c2r1}
//演奏情報
Time(1:1:0)PLAY(	,	#1Z,	#2Z)//前奏
Time(9:1:0)PLAY(	,	#1A,	#2A)//A
Time(25:1:0)PLAY(	,	#1B,	#2B)//B
Time(34:1:0)PLAY(	,	#1C,	#2C)//C
Time(53:1:0)PLAY(	,	,	#2D)//エンディング

}