/*-----------------------------------------------------------------------------＞

　　　　　　　   　　　　Ｃ　Ｒ　ド　デ　カ　桜　７　Ｆ

＜------------------------------------------------------------------------------*/
Int TEST=0
/* ↑動作させる前に、これを1にして、メッセージウィンドウを１１行ちょうどに表示できるよう */
/* マウスで動かしてテストしてください                                                  。*/
/* （曲名や歌詞、エラーメッセージが出る部分です）                                        */
/* メッセージウィンドウが表示されていなければ、一番下をダブルクリックして下さい          */

Int AUTO=0
/* ↑1にするとコンパイルに時間かかりますが、最大300回転もしくは大当たりまで自動プレイします */

/*

                       どれか３つ揃ったら、大当りです。
ＰＬＡＹ方法

　　まずは、メッセージウィンドウを１１行ちょうどにします。１０行以下でも１２行以上でもだめです。

    再生ボタンを押すと、下枠にある図柄が回転します。
　　回転中は「*」で表されます。
    左、右ともに同じ数字が止まるとリーチとなり、中図柄にも同じ数字が止まると
    みごと大当りとなります。
    本物のパチンコとは違って、そのつど再生ボタンを押さないと回転しませんw
　　（オートモード除く）
　　テキスト音楽サクラでしか動きません。TWM2でも動きません。曲は鳴りますが・・・・

    なお、確率変動大当たりをすると、確変終了するまでオートで動作します。

図柄の種類　　　１２３４５６７８９
確率変動の図柄　１３５７９

リーチアクション
　　通常回転時
　　　　通常リーチ
  　　  通常リーチ→一度揃って全回転
    　　一度揃う→全回転→信頼度１００％

　　確変時
    　　通常リーチ
	  全回転

ワンポイント
    リーチになってから全回転リーチになったらゲキアツです。
    リーチの最初から揃った状態で全回転であれば最強リーチ！信頼度１００％のリーチです。

基本データ
　　大当り確率　　４８分の１　オートモード時のみ３００回転の天井あり
　　確変大当確率　３２分の１　１００回転の天井あり
    ラウンド数　　８Ｒ（通常大当たり）／１６Ｒ（確変大当たり）
    大当り出玉　　約１１００発／約２３００発？（出すぎ？
    確率変動等　　５／９
　　確変パンク　　最大３回で確変はパンクします。４連荘以上はしません。

最後に
　　このままでも十分楽しんで頂けますが、いまのままだと上側のプレイヤーバーや
    左下にある数字によってある程度先が読めてしまい、面白さが半減してしまいます。
    なのでPLAYERのみなさまにはお手数ではございますが、
    その部分を演奏モニター等で隠していただくことをお勧めします。

    オートモードでは、どんなに大ハマリしても３００回転目に大当たりをします。

ライセンス
　　パチンコルーチン：パブリックドメイン
    回転音：CC（営利可）
    大当たり音：パブリックドメイン

たわごと
　　この曲は子供の時（小２、小５）に作った曲を再利用しているのですが、
    全て覚えていないのでパーツとして使いました。   
　　AUTOモードだけ保留玉多め状態の時短モードを搭載しています。
　　手抜きで必ずリーチは＋１かー１で外れます。
    ドキュメントがしゅんさんのコピペなのは許してください。
　　天井が存在したり、確変が強行パンクする仕様は、テキスト音楽サクラでの
    コンパイル時間が長すぎたりしないようにの配慮と、メモリの使い過ぎ予防です。
    
どうでもいいこと
　　v2.0　フォント追加、確率変動、確変用BGM追加、天井追加
　　v1.1　ばぐあった
　　v1.0　できた

*/

作者{"ななこっち★"}

/* タイトルを定義する */
Str B01_1={"□□□□□□□□□"}
Str B01_2={" ＣＲドデカ桜７Ｆ "}

/* フォントを定義する */
Str SPC=  {"　　　　　　　　　"}

Str K00_1={"　■　　■　　■　"}
Str K00_2={"　 ■　 ■　 ■ 　"}
Str K00_3={"　　■  ■  ■  　"}
Str K00_4={"　　　■■■　　　"}
Str K00_5={"　　　　■　　　　"}
Str K00_6={"　　  ■■■　　　"}
Str K00_7={"　　■　■  ■　　"}
Str K00_8={"　 ■　 ■　 ■ 　"}
Str K00_9={"　■　　■　　■　"}

Str S01_1={"　　　　■　　　　"}
Str S01_2={"　　　■■　　　　"}
Str S01_3={"　　■　■　　　　"}
Str S01_4={"　　　　■　　　　"}
Str S01_5={"　　　　■　　　　"}
Str S01_6={"　　　　■　　　　"}
Str S01_7={"　　　　■　　　　"}
Str S01_8={"　　　　■　　　　"}
Str S01_9={"　　■■■■■　　"}

Str S02_1={"　　　■■■　　　"}
Str S02_2={"　　 ■　  ■ 　　"}
Str S02_3={"　　■　　　■　　"}
Str S02_4={"　　　　　　■　　"}
Str S02_5={"　　　　　■　　　"}
Str S02_6={"　　　　■　　　　"}
Str S02_7={"　　　■　　　　　"}
Str S02_8={"　　■　　　　　　"}
Str S02_9={"　　■■■■■  　"}

Str S03_1={"　　　■■■　　　"}
Str S03_2={"　　 ■　  ■ 　　"}
Str S03_3={"　　■　　　■　　"}
Str S03_4={"　　　　　　■　　"}
Str S03_5={"　　　 ■■■　　 "}
Str S03_6={"　　　　　　■　　"}
Str S03_7={"　　■　　　■　　"}
Str S03_8={"　　 ■　  ■ 　　"}
Str S03_9={"　　　■■■　　　"}

Str S04_1={"　　　　■　　　　"}
Str S04_2={"　　  ■■ 　 　　"}
Str S04_3={"　　  ■■　　　　"}
Str S04_4={"　　 ■ ■　　　　"}
Str S04_5={"　  ■  ■　　　　"}
Str S04_6={"　  ■  ■　　　　"}
Str S04_7={"　  ■■■■■　　"}
Str S04_8={"　　 　 ■ 　 　　"}
Str S04_9={"　　　　■　　　　"}

Str S05_1={"　　■■■■■　　"}
Str S05_2={"　　■　　 　 　　"}
Str S05_3={"　　■　　　　　　"}
Str S05_4={"　　■■■■　　　"}
Str S05_5={"　  　　　 ■　 　"}
Str S05_6={"　        　■　　"}
Str S05_7={"　　■　　　■　　"}
Str S05_8={"　　 ■    ■ 　　"}
Str S05_9={"　　　■■■　　　"}

Str S06_1={"　　 ■■■■　 　"}
Str S06_2={"　　■　　　■ 　 "}
Str S06_3={"　　■　　　　　　"}
Str S06_4={"　　■ ■■■　 　"}
Str S06_5={"　  ■■　  ■　  "}
Str S06_6={"　  ■    　■　　"}
Str S06_7={"　　■　　　■　　"}
Str S06_8={"　　 ■    ■ 　　"}
Str S06_9={"　　　■■■　　　"}

Str S07_1={"　　■■■■■  　"}
Str S07_2={"　　　　　　■ 　 "}
Str S07_3={"　　　　　  ■　　"}
Str S07_4={"　　　 　　■ 　  "}
Str S07_5={"　  　　　 ■  　 "}
Str S07_6={"　  　     ■　　 "}
Str S07_7={"　　　　  ■　　　"}
Str S07_8={"　　　    ■　  　"}
Str S07_9={"　　　　　■　　  "}

Str S08_1={"　　　■■■　　　"}
Str S08_2={"　　 ■　  ■ 　　"}
Str S08_3={"　　■　　　■　　"}
Str S08_4={"　　■　　　■　　"}
Str S08_5={"　　 ■■■■ 　　"}
Str S08_6={"　　■　　　■　　"}
Str S08_7={"　　■　　　■　　"}
Str S08_8={"　　 ■　  ■ 　　"}
Str S08_9={"　　　■■■　　　"}

Str S09_1={"　　　■■■　　　"}
Str S09_2={"　　 ■    ■ 　　"}
Str S09_3={"　　■　　　■　　"}
Str S09_4={"　  ■    　■　　"}
Str S09_5={"　   ■　   ■　  "}
Str S09_6={"　　　■■■■　　"}
Str S09_7={"　　　　　　■　　"}
Str S09_8={"　　■　　　■ 　 "}
Str S09_9={"　　 ■■■■　 　"}

Str S10_1={"　　　■■■　　　"}
Str S10_2={"　　 ■    ■ 　　"}
Str S10_3={"　　■　　　■　　"}
Str S10_4={"　  ■    　■　　"}
Str S10_5={"　  ■    　■　　"}
Str S10_6={"　  ■    　■　　"}
Str S10_7={"　　■　　　■　　"}
Str S10_8={"　　 ■    ■ 　　"}
Str S10_9={"　　　■■■　　　"}

Str R00_1={"　　■■■■　　　"}
Str R00_2={"　　■     ■ 　　"}
Str R00_3={"　　■　　　■　　"}
Str R00_4={"　  ■     ■　 　"}
Str R00_5={"　  ■■■■　    "}
Str R00_6={"　　■■　　　　　"} 
Str R00_7={"　　■　■　　　　"}
Str R00_8={"　　■　　■　　  "}
Str R00_9={"　　■　 　 ■　　"}

Str O01_1={"　　　　■　　　　"}
Str O01_2={"　　 　 ■　　 　 "}
Str O01_3={"　■■■■■■■　"}
Str O01_4={"　  　  ■　  　  "}
Str O01_5={"　     ■■  　   "}
Str O01_6={"　　  ■  ■ 　   "}
Str O01_7={"　　 ■　　■　   "}
Str O01_8={"　  ■　　　■ 　 "}
Str O01_9={"　■　 　　　 ■  "}

Str O02_1={"　　■　■　■　　"}
Str O02_2={"　　 ■ ■ ■  　 "}
Str O02_3={"　■■■■■■■　"}
Str O02_4={"　  　  　  　■  "}
Str O02_5={"　  　  　  　■  "}
Str O02_6={"　■■■■■■■　"}
Str O02_7={"　  　  　  　■  "}
Str O02_8={"　  　  　  　■  "}
Str O02_9={"　■■■■■■■　"}

Str O03_1={"　■　　　    ■　"}
Str O03_2={"　■ 　    　 ■  "}
Str O03_3={"　■          ■　"}
Str O03_4={"　 ■     　  ■  "}
Str O03_5={"　  ■       ■   "}
Str O03_6={"　　         ■ 　"}
Str O03_7={"　　    　  ■　  "}
Str O03_8={"　    　　 ■ 　  "}
Str O03_9={"　 　  　 ■      "}

Str O04_1={" 　　■　　　     "}
Str O04_2={" 　　■　　 ■　  "}
Str O04_3={"  ■■■■　　■  "}
Str O04_4={" 　  ■  　       "}
Str O04_5={" 　  ■   　　　  "}
Str O04_6={" 　　■■■■■   "}
Str O04_7={" 　■■　　　 ■　"}
Str O04_8={" ■  ■　　　　■ "}
Str O04_9={" 　■　 　　　■  "}

Str O05_1={" 　　■　　　     "}
Str O05_2={" 　　■　　   　  "}
Str O05_3={"  ■■■　  　    "}
Str O05_4={" 　  ■  　       "}
Str O05_5={" 　  ■  ■■■   "}
Str O05_6={" 　　■■　    ■ "}
Str O05_7={" 　■■　　　  ■ "}
Str O05_8={" ■  ■　　　　■ "}
Str O05_9={" 　　■　 　　■  "}

/* 1文字分の絵柄の表示
  V=絵柄
　Owari=終わりの1ライン分のドット文字列
  Oatari=大当たりの1ライン分のドット文字列
　Round=「R」の1ライン分のドット文字列
　Dummy=「＊」の1ライン分のドット文字列
　E1〜E9＝「1〜9」の1ライン分のドット文字列
*/

Function PEgara(Int V, Str OWari, Str OAtari, Str Round, Str Dmy,
				Str E1, Str E2, Str E3, Str E4, Str E5,
				Str E6, Str E7, Str E8, Str E9, Str E10) {
	Str RET=Dmy
	IF(V=0) { RET=SPC }
	IF(V=1) { RET=E1 }
	IF(V=2) { RET=E2 }
	IF(V=3) { RET=E3 }
	IF(V=4) { RET=E4 }
	IF(V=5) { RET=E5 }
	IF(V=6) { RET=E6 }
	IF(V=7) { RET=E7 }
	IF(V=8) { RET=E8 }
	IF(V=9) { RET=E9 }
	IF(V=10){ RET=E10}
	IF(V=-2){ RET=Round }
	IF(V=-3){ RET=OAtari}
	IF(V=-5){ RET=OWari}
	Result=RET
}

/* 絵柄を表示する
  -1 : ＊
  -2 : R
  -3 : 大当りの文字
  -4 : 何も表示しない
  -5 : おわりの文字
   1〜9：数字
*/

Function View1(V1,V2,V3) {
	Str S11=PEgara(V1,O04_1,O01_1,R00_1,K00_1,S01_1,S02_1,S03_1,S04_1,S05_1,S06_1,S07_1,S08_1,S09_1,S10_1)
	Str S12=PEgara(V2,O05_1,O02_1,R00_1,K00_1,S01_1,S02_1,S03_1,S04_1,S05_1,S06_1,S07_1,S08_1,S09_1,S10_1)
	Str S13=PEgara(V3,O03_1,O03_1,R00_1,K00_1,S01_1,S02_1,S03_1,S04_1,S05_1,S06_1,S07_1,S08_1,S09_1,S10_1)

	Str S21=PEgara(V1,O04_2,O01_2,R00_2,K00_2,S01_2,S02_2,S03_2,S04_2,S05_2,S06_2,S07_2,S08_2,S09_2,S10_2)
	Str S22=PEgara(V2,O05_2,O02_2,R00_2,K00_2,S01_2,S02_2,S03_2,S04_2,S05_2,S06_2,S07_2,S08_2,S09_2,S10_2)
	Str S23=PEgara(V3,O03_2,O03_2,R00_2,K00_2,S01_2,S02_2,S03_2,S04_2,S05_2,S06_2,S07_2,S08_2,S09_2,S10_2)

	Str S31=PEgara(V1,O04_3,O01_3,R00_3,K00_3,S01_3,S02_3,S03_3,S04_3,S05_3,S06_3,S07_3,S08_3,S09_3,S10_3)
	Str S32=PEgara(V2,O05_3,O02_3,R00_3,K00_3,S01_3,S02_3,S03_3,S04_3,S05_3,S06_3,S07_3,S08_3,S09_3,S10_3)
	Str S33=PEgara(V3,O03_3,O03_3,R00_3,K00_3,S01_3,S02_3,S03_3,S04_3,S05_3,S06_3,S07_3,S08_3,S09_3,S10_3)

	Str S41=PEgara(V1,O04_4,O01_4,R00_4,K00_4,S01_4,S02_4,S03_4,S04_4,S05_4,S06_4,S07_4,S08_4,S09_4,S10_4)
	Str S42=PEgara(V2,O05_4,O02_4,R00_4,K00_4,S01_4,S02_4,S03_4,S04_4,S05_4,S06_4,S07_4,S08_4,S09_4,S10_4)
	Str S43=PEgara(V3,O03_4,O03_4,R00_4,K00_4,S01_4,S02_4,S03_4,S04_4,S05_4,S06_4,S07_4,S08_4,S09_4,S10_4)

	Str S51=PEgara(V1,O04_5,O01_5,R00_5,K00_5,S01_5,S02_5,S03_5,S04_5,S05_5,S06_5,S07_5,S08_5,S09_5,S10_5)
	Str S52=PEgara(V2,O05_5,O02_5,R00_5,K00_5,S01_5,S02_5,S03_5,S04_5,S05_5,S06_5,S07_5,S08_5,S09_5,S10_5)
	Str S53=PEgara(V3,O03_5,O03_5,R00_5,K00_5,S01_5,S02_5,S03_5,S04_5,S05_5,S06_5,S07_5,S08_5,S09_5,S10_5)

	Str S61=PEgara(V1,O04_6,O01_6,R00_6,K00_6,S01_6,S02_6,S03_6,S04_6,S05_6,S06_6,S07_6,S08_6,S09_6,S10_6)
	Str S62=PEgara(V2,O05_6,O02_6,R00_6,K00_6,S01_6,S02_6,S03_6,S04_6,S05_6,S06_6,S07_6,S08_6,S09_6,S10_6)
	Str S63=PEgara(V3,O03_6,O03_6,R00_6,K00_6,S01_6,S02_6,S03_6,S04_6,S05_6,S06_6,S07_6,S08_6,S09_6,S10_6)

	Str S71=PEgara(V1,O04_7,O01_7,R00_7,K00_7,S01_7,S02_7,S03_7,S04_7,S05_7,S06_7,S07_7,S08_7,S09_7,S10_7)
	Str S72=PEgara(V2,O05_7,O02_7,R00_7,K00_7,S01_7,S02_7,S03_7,S04_7,S05_7,S06_7,S07_7,S08_7,S09_7,S10_7)
	Str S73=PEgara(V3,O03_7,O03_7,R00_7,K00_7,S01_7,S02_7,S03_7,S04_7,S05_7,S06_7,S07_7,S08_7,S09_7,S10_7)

	Str S81=PEgara(V1,O04_8,O01_8,R00_8,K00_8,S01_8,S02_8,S03_8,S04_8,S05_8,S06_8,S07_8,S08_8,S09_8,S10_8)
	Str S82=PEgara(V2,O05_8,O02_8,R00_8,K00_8,S01_8,S02_8,S03_8,S04_8,S05_8,S06_8,S07_8,S08_8,S09_8,S10_8)
	Str S83=PEgara(V3,O03_8,O03_8,R00_8,K00_8,S01_8,S02_8,S03_8,S04_8,S05_8,S06_8,S07_8,S08_8,S09_8,S10_8)

	Str S91=PEgara(V1,O04_9,O01_9,R00_9,K00_9,S01_9,S02_9,S03_9,S04_9,S05_9,S06_9,S07_9,S08_9,S09_9,S10_9)
	Str S92=PEgara(V2,O05_9,O02_9,R00_9,K00_9,S01_9,S02_9,S03_9,S04_9,S05_9,S06_9,S07_9,S08_9,S09_9,S10_9)
	Str S93=PEgara(V3,O03_9,O03_9,R00_9,K00_9,S01_9,S02_9,S03_9,S04_9,S05_9,S06_9,S07_9,S08_9,S09_9,S10_9)

	Lyric=B01_1+B01_2+B01_1
	Lyric={"　"}
	IF(V1=-4) {
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
		Lyric={"　"}
	} ELSE {
		Lyric=S11+S12+S13
		Lyric=S21+S22+S23
		Lyric=S31+S32+S33
		Lyric=S41+S42+S43
		Lyric=S51+S52+S53
		Lyric=S61+S62+S63
		Lyric=S71+S72+S73
		Lyric=S81+S82+S83
		Lyric=S91+S92+S93
	}
}

#Music01={
	Tempo 170
	TR(1)
		音色(Piccolo)
		P(50)
		Expression(100)
		o6q100l16v100
		[rrgr>crgrf8edercre4:<b-2r4:]b-2r4
		rrcrfr>cr<b-8agarfr

	TR(2)
		音色(Strings1)
		P(80)
		Expression(100)
		o4q30l8v90
		[
			[3'b>ce<'][3'a>ce<']['g>ce<']
			[3'ab->d<'][3'gb->d<']['fb->d<']
		]
		[3 '>cdf<']>[3'<b->df']['<a>df']
	TR(3)
		Expression(100)
		v90[5 r1]
	TR(4)
		Expression(100)
		v100[5 r1]
	
}


#Music02L={
	TR(1)
		音色(Violin)
		o6q100
		P(32)
		e-4<q80b8
		P(64)
	TR(2)
		音色(Strings1)
		o5
		P(32)
		'e4.b4.'
		P(64)
	TR(3)
		音色(Cello)
		o4
		P(32)
		l4.'c#g#>c#'
		P(64)
	TR(4)
		音色(Contrabass)
		q95
		o3
		c#4.
}

#Music02R={
	TR(1)
		音色(Violin)
		o6q100
		P(96)
		e-4<q80b8
		P(64)
	TR(2)
		音色(Strings1)
		o5
		P(96)
		'e4.b4.'
		P(64)
	TR(3)
		音色(Cello)
		o4
		P(96)
		l4.'c#g#>c#'
		P(64)
	TR(4)
		音色(Contrabass)
		q95
		o3
		c#4.
}


#Music03={
	TR(1)
		音色(Violin)
		o6q100
		e-8<q80b8
		q100>f1.r2
	TR(2)
		音色(Strings1)
		o5
		'e4b4'
		q100'f1.>c1.<'r2
	TR(3)
		音色(Cello)
		o4
		l4'c#g#>c#<'
		l16
		[rrfr>crfre-8dcdr<b-r]
	TR(4)
		音色(Contrabass)
		q95
		o3
		c#4
		l8
		[<frr>crrfr]
}

#Music03a={
	TR(1)
		音色(Violin)
		q100>f1.r2
	TR(2)
		音色(Strings1)
		q100'f1.>c1.<'r2
	TR(3)
		音色(Cello)
		o4
		l16
		[rrfr>crfre-8dcdr<b-r]
	TR(4)
		音色(Contrabass)
		q95
		l8
		[<frr>crrfr]
}

#Music04={
	TR(1)
		音色(Violin)
		o6q100
		e-8<q80b8
		q100>f2.r4
	TR(2)
		音色(Strings1)
		o5
		'e4b4'
		q100'f2.>c2.<'r4
	TR(3)
		音色(Cello)
		o4
		l4'c#g#>c#<'
		l16
		rrfr>crfre-8dcdr<b-r

	TR(4)
		音色(Contrabass)
		q95
		o3
		c#4
		l8
		<frr>crrfr
}

#Music05={
	TR(1)
		音色(Violin)
		o6q100
		e-8<q80b8>
		P(40)
		q100
		g1.^8f4e-8 f1.r2
			b1.^8a4g#8 a2.r4
		o6q100
		[e-4<q80b8>]
		e-8<q80b8

	TR(2)
		音色(Strings1)
		o5
		P(75)
		'e4b4'q100
		l1^1'a->c<'
		l1.'gb-'r2
		>
		l1^1'c#e'
		l2.'<b>d#f#'r4
		o5
		['e4.b4.']
		'e4b4'
	TR(3)
		音色(Cello)
		o4
		l4'c#g#>c#<'
		l16
		P.onTime(96,32,!1^1)
		[rrfr>crfre-8dcdr<b-r]
		P.onTime(32,96,!1^1)
		[rre-rb->re-rd8c<b->c<ra-r]
		P.onTime(96,32,!1^1)
		[rrar>erarg#8f#ef#rc#r<]
		P.onTime(32,96,!1^1)
		rrg#rbr>g#rf#8ed#erc#r
		o4
		l4.['c#g#>c#<']'c#4g#4>c#4'<
	TR(4)
		音色(Contrabass)
		q95
		o3
		c#4
		l8
		>
		[<frr>crrfr]
		[<e-rrb-rr>e-r]
		[<arr>errar]
		<g#rr>d#rrg#r
		c#4.c#4.c#4
}

#Music06={
	TR(1)
		音色(OrchestraHit)
		o6q100
		P(48)
		f4
	TR(2)
		音色(OrchestraHit)
		o5
		P(64)
		l4
		'f>c'
	TR(3)
		音色(OrchestraHit)
		o4
		P(80)
		l4
		'f>cf'
	TR(4)
		音色(Timpani)
		Expression(120)
		o3
		l8
		fc
}

#Music07={
	TR(1)
		音色(OrchestraHit)
		o6q100
		f1
	TR(2)
		音色(OrchestraHit)
		o5
		l1
		'f>cf'
	TR(3)
		音色(OrchestraHit)
		o4
		l1
		'f>cf'
	TR(4)
		音色(Timpani)
		o3
		l8
		Sub {
			Expression.onTime(40,120,!2)
			r2
			Expression.onTime(120,40,!2)
		}
		Sub{[66 f 66 ]}
		r1
}

#melody11={
	TR(1)
		Tempo 150
		音色(Violin)
		o7
		l8
		P(40)
		c<afc>
		d<bgb
		'e>c<'r'db'r'e>c'r

	TR(2)
		音色(PizzicatoStrings)
		o5
		P(70)
		l8
		r'cf''fa''a>c<'
		r'dg''gb''b>d<'
		'e>c<'r'db'r'e>c'r
	TR(3)
		音色(PizzicatoStrings)
		o3
		l4
		f2g2
		>c<g>c2
	TR(4)
		r1r1
}

#melody12={
	TR(1)
		音色(Violin)
		o6
		M.onNoteWave(0,30,!4.)
		l8cd
		e4.efedc
		e2r4ef
		g4.gagfe
		f2.r4
		f4def4.f
		e4cde4.f
		d4<b>cd4.e
		c2r4
	TR(2)
		音色(PizzicatoStrings)
		o5
		r4
		l8
		v70
		r'ce''eg''ce'
		r'cf''fa-''cf'
		r'ce''eg''g>c<''>ce<'rrr
		r'eg''gb''eg'
		r'<a>g''c#a''<a>g'
		r'df''fa''df'fefg
		r'cf''fa''cf'
		r'cf''fa-''cf'
		r'ce''eg''ce'
		r'c#e''ea''c#e'
		r'df''fa''df'
		r'<b>f''fg''<b>f'
		r'ce''eg''ce''e>c<'
		r
	TR(3)
		音色(PizzicatoStrings)
		o4
		l8
		v90
		c4.cc4.c
		c4.cc2
		e4.e<a4.a>
		d4.ddc#de
		f4.ff4.f
		e4.e<a4.a>
		d4.d<g4.g>
		c4.cc2
	TR(4)
		[8 r1]

}

#melody13={
	Tempo 110
	TR(1)
		音色(Violin)
		r4
		f4def4.f
		TempoChange(110,80,!1^1^1^1)
		e4cde4.f
		d4<b>cd4.e
		c1^1
		M(0)
	TR(2)
		音色(Cello)
		l2
		r4
		o4
		q100
		'fa>c<'
		'fa->c<'
		'eg>c<'
		'ea>c#<'
		'fa>d<'
		'fg>d<'
		l1'fa>d<'
		l1'eg>c<'

	TR(3)
		音色(Contrabass)
		o2
		l1
		q100
		f
		e2a2
		d2g2
		c1^1
	TR(4)
		[5 r1]

}

Function OAtari(Int Egara) {
	Tempo 80
	Sub{
		View1(-3,-3,-3)
		r1
		View1(0,1,-2)
		r1
	}
	#melody11
	View1(Egara,Egara,Egara)
	#melody12
	Int I
	For (I=2; I<=7; I++) {
		Sub { r-1 View1(I / 10, (I-1)%10+1,-2) } 
		View1(Egara,Egara,Egara)
		#melody12
	}
	Sub{r-1 View1(0,8,-2) }
	View1(Egara,Egara,Egara)
	Sub { [3 r1] View1( -5,-5,-5) }
	#melody13
}

Function KOAtari(Int Egara) {
	Tempo 80
	Sub{
		View1(-3,-3,-3)
		r1
		View1(0,1,-2)
		r1
	}
	#melody11
	View1(Egara,Egara,Egara)
	#melody12
	Int I
	For (I=2; I<=15; I++) {
		Sub { r-1 View1(I / 10, (I-1)%10+1,-2) } 
		View1(Egara,Egara,Egara)
		#melody12
	}
	Sub{r-1 View1(1,6,-2) }
	View1(Egara,Egara,Egara)
	#melody13
}

Function RndInit(Int V) {
	Int RND=Random(V)
	Int DMY
	For(Int I=0; I<=RND; I++) {
		DMY=Random(10)
	}
}

Int COUNT=0
Function KMusic(CNT,MD) {
	Str Music
	Int C
	IF(MD=0) {
		C=CNT % 8
	}
	IF(MD=1) {
		C=CNT+10
	}
	IF(C=0) {
		Music={
			TR(1)
				Tempo 170
				音色(Piccolo)
				v110Expression(100)
				o6r8l16gf# gab>c defg ab>cd
			TR(2)
				音色(Strings1)
				o4l8q30
				v100Expression(100)
				[2 r['g>ce<']]r'g>ce<'
			TR(3)
				音色(Contrabass)
				o3l8
				v100Expression(100)
				crrgrr>cr<
			TR(4)
				v100Expression(100)
				r1
		}
	}
	IF(C=1) {
		Music={
			TR(1)
				[6 ed#]efed#
			TR(2)
				[2 r['fb->d<']]r'fb->d<'
			TR(3)
				b-rrfrrdr
			TR(4)
				r1
		}
	}

	IF(C=2) {
		Music={
			TR(1)
				ecrc <grge recr c<gre
			TR(2)
				[2 r['g>ce<']]r'g>ce<'
			TR(3)
				crrgrr>cr<
			TR(4)
				r1
		}
	}
	IF(C=3) {
		Music={
			TR(1)
				[6 dc#]deff#
			TR(2)
				[2 r['fb->d<']]r'fb->d<'
			TR(3)
				b-rrfrrdr
			TR(4)
				r1
		}
	}
	IF(C=4) {
		Music={
			TR(1)
				grf#g rr>cr< b>crr erd#e
			TR(2)
				[2 r['g>ce<']]r'g>ce<'
			TR(3)
				crrgrr>cr<
			TR(4)
				r1
		}
	}
	IF(C=5) {
		Music={
			TR(1)
				fref  rrdr   c#drr <b-agf
			TR(2)
				[2 r['fb->d<']]r'fb->d<'
			TR(3)
				b-rrfrrdr
			TR(4)
				r1
		}
	}

	IF(C=6) {
		Music={
			TR(1)
				grf#g rr>cr< b>crr erd#e
			TR(2)
				[2 r['g>ce<']]r'g>ce<'
			TR(3)
				crrgrr>cr<
			TR(4)
				r1
		}
	}
	IF(C=7) {
		Music={
			TR(1)
				[6 fe] dc<b-a
			TR(2)
				[2 r['fb->d<']]r'fb->d<'
			TR(3)
				b-rrfrrdr
			TR(4)
				r1
		}
	}
	IF(C=10) {
		Music={
			TR(1)
				音色(Violin)
				o6q100
				P(32)
				e-4<q80b8
				P(64)
			TR(2)
				音色(Strings1)
				o5
				P(32)
				'e4.b4.'
				P(64)
			TR(3)
				音色(Cello)
				o4
				P(32)
				l4.'c#g#>c#'
				P(64)
			TR(4)
				音色(Contrabass)
				q95
				o3
				c#4.
		}
	}

	IF(C=11) {
		Music={
			TR(1)
				音色(Violin)
				o6q100
				P(96)
				e-4<q80b8
				P(64)
			TR(2)
				音色(Strings1)
				o5
				P(96)
				'e4.b4.'
				P(64)
			TR(3)
				音色(Cello)
				o4
				P(96)
				l4.'c#g#>c#'
				P(64)
			TR(4)
				音色(Contrabass)
				q95
				o3
				c#4.
		}
	}
	IF(C=12) {
		Music={
			TR(1)
				音色(Violin)
				o6q100
				e-8<q80b8
				P(64)
			TR(2)
				音色(Strings1)
				o5
				'e4b4'
				P(64)
			TR(3)
				音色(Cello)
				o4
				l4'c#g#>c#'
				P(64)
			TR(4)
				音色(Contrabass)
				q95
				o3
				c#4
		}
	}
	IF(C=13) {
		Music={
			TR(1)
				音色(Violin)
				o6q100
				b-8r8
				P(64)
			TR(2)
				音色(Strings1)
				o5
				'g#4>d#4'
				P(64)
			TR(3)
				音色(Cello)
				o4
				l4'g#d#>g#'
				P(64)
			TR(4)
				音色(Contrabass)
				q95
				o3
				g#4
		}
	}
	IF(C=14) {
		Music={
			TR(1)
				音色(Piccolo)
				o7q100l16
				b-2.^agb-agfagfedc<bag#
			TR(2)
				r2.r1
			TR(3)
				r2.r1
			TR(4)
				r2.r1
		}
	}
	IF(C=15) {
		Music={
			TR(1)
				[2 r1]
			TR(2)
				[2 r1]
			TR(3)
				[2 r1]
			TR(4)
				[2 r1]
		}
	}

	Music
}

// 確変
Function KPachinko(Int KakuhenFlag) {
	Int Atari
	Int Egara
	Int JEgara
	Int Egara1
	Int Egara2
	Int Egara3
	Int Dmy
	Int FLAG
	Int ATARI
	Int DD
	Int DDD
	COUNT=0

	For (Int I=0; I<100; I++) {
		RndInit(1000)
		Atari=Random(128)	// 大当確率×４
		RndInit(10)
		Egara=Random(9)+1	// 仮絵柄
		RndInit(10)
		JEgara=Random(9)+1// 実絵柄

		// 確変を強行パンクさせる
		IF(KakuhenFlag==0) {
			IF((JEgara % 2) == 1) {	JEgara=Random(9)+1	}
			IF((JEgara % 2) == 1) {	JEgara=Random(9)+1	}
			IF((JEgara % 2) == 1) {	JEgara=Random(9)+1	}
			IF((JEgara % 2) == 1) {	JEgara=Random(9)+1	}
			IF((JEgara % 2) == 1) {	JEgara=2			}
		}
		IF(I=99) {
			Atari=0
		}
		FLAG=1

		IF(Atari<2) {
			// リーチ→全回転（あたり）
			Sub{KMusic(COUNT,0)}
			View1(-1,-1,-1)
			r4.
			View1(Egara,-1,-1)
			r4.
			View1(Egara,-1,Egara)
			r4
			View1(Egara,Egara,Egara)

			TempoChange(80,40,!1)
			For (Int I=Egara; I<=JEgara+9; I++) {
				DD=(I-1) % 9+1
				DDD=(DD) % 9+1
				View1(DD,DD,DD)
				#Music06
			}
			View1(DD,DD,DD)
			#Music07
			FLAG=0

			IF((JEgara==1)||(JEgara==3)||(JEgara==5)||(JEgara==7)||(JEgara==9)) {
				KOAtari(JEgara)
				ATARI=2
			} ELSE {
				OAtari(JEgara)
				ATARI=1
			}
			FLAG=0
			COUNT=0
		}
		// 通常リーチ（あたり）
		IF((FLAG=1)&&(Atari<4)) {
			Egara3=Random(9)+1
			IF(JEgara=Egara3) {
				Egara3=Random(9)+1
			}
			IF(JEgara=Egara3) {
				Egara3=Random(9)+1
			}
			Sub{KMusic(COUNT,0)}
			View1(-1,-1,-1)
			r4.
			View1(JEgara,-1,-1)
			r4.
			View1(JEgara,-1,JEgara)
			r4
			Int TE=(JEgara-1)%9+1
			View1(JEgara,TE,JEgara)

			View1(JEgara,TE,JEgara)
			KMusic(0,1)
			TE=(JEgara+0)%9+1
			View1(JEgara,TE,JEgara)
			KMusic(1,1)
			TE=(JEgara+1)%9+1
			View1(JEgara,TE,JEgara)
			KMusic(2,1)
			Key(1)

			TE=(JEgara+2)%9+1
			View1(JEgara,TE,JEgara)
			KMusic(0,1)
			TE=(JEgara+3)%9+1
			View1(JEgara,TE,JEgara)
			KMusic(1,1)
			TE=(JEgara+4)%9+1
			View1(JEgara,TE,JEgara)
			KMusic(2,1)
			For (Int J=2; J<=5; J++) {
				Key(J)
				TE=(JEgara+J+3)%9+1
				View1(JEgara,TE,JEgara)
				KMusic(2,1)
			}
			TE=(JEgara+J+8)%9+1
			View1(JEgara,JEgara,JEgara)
			Key(0)
			KMusic(3,1)
			KMusic(5,1)

			IF((JEgara==1)||(JEgara==3)||(JEgara==5)||(JEgara==7)||(JEgara==9)) {
				KOAtari(JEgara)
				ATARI=2
			} ELSE {
				OAtari(JEgara)
				ATARI=1
			}
			FLAG=0
			COUNT=0
		}
		IF((FLAG=1)&&(Atari<8)) {
			// リーチ→全回転（外し＋）
			Sub{KMusic(COUNT,0)}
			View1(-1,-1,-1)
			r4.
			View1(Egara,-1,-1)
			r4.
			View1(Egara,-1,Egara)
			r4
			View1(Egara,Egara,Egara)

			TempoChange(80,40,!1)
			For (Int I=Egara; I<=JEgara+9; I++) {
				DD=(I-1) % 9+1
				DDD=(DD) % 9+1
				View1(DD,DD,DD)
				#Music06
			}
			View1(DD,DDD,DD)
			#Music07
			FLAG=0
			COUNT=0
		}
		// 通常リーチ（はずれ）
		IF((FLAG=1)&&(Atari<12)) {
			Egara1=Random(9)+1
			Egara3=Random(9)+1
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			Sub{KMusic(COUNT,0)}
			View1(-1,-1,-1)
			r4.
			View1(Egara1,-1,-1)
			r4.
			View1(Egara1,-1,Egara1)
			r4
			Int TE=(Egara1-1)%9+1
			View1(Egara1,TE,Egara1)

			View1(Egara1,TE,Egara1)
			KMusic(0,1)
			TE=(Egara1+0)%9+1
			View1(Egara1,TE,Egara1)
			KMusic(1,1)
			TE=(Egara1+1)%9+1
			View1(Egara1,TE,Egara1)
			KMusic(2,1)
			Key(1)

			TE=(Egara1+2)%9+1
			View1(Egara1,TE,Egara1)
			KMusic(0,1)
			TE=(Egara1+3)%9+1
			View1(Egara1,TE,Egara1)
			KMusic(1,1)
			TE=(Egara1+4)%9+1
			View1(Egara1,TE,Egara1)
			KMusic(2,1)
			For (Int J=2; J<=5; J++) {
				Key(J)
				TE=(Egara1+J+3)%9+1
				View1(Egara1,TE,Egara1)
				KMusic(2,1)
			}
			TE=(Egara1+J+9)%9+1
			View1(Egara1,TE,Egara1)
			Key(0)
			KMusic(3,1)
			KMusic(4,1)

			FLAG=0
			COUNT=0
		}

		IF(FLAG=1) {
			Egara1=Random(9)+1
			Dmy=Random(12)
			Egara2=Random(9)+1
			Dmy=Random(16)
			Egara3=Random(9)+1
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			Sub{KMusic(COUNT,0)}
			View1(-1,-1,-1)
			r4.
			View1(Egara1,-1,-1)
			r4.
			View1(Egara1,-1,Egara2)
			r4
			COUNT++
			Sub{KMusic(COUNT,0)}
			View1(Egara1,Egara3,Egara2)
			COUNT++
			r1
		}
		IF(ATARI>0) {
			Exit
		}
	}
	Result=ATARI
}

// 通常
Function Pachinko(Int AtariFlag) {
	RndInit(1000)
	Int Atari=Random(240)	// 大当確率×５
	RndInit(10)
	Int Egara=Random(9)+1	// 仮絵柄
	RndInit(10)
	Int JEgara=Random(9)+1	// 実絵柄
	Int FLAG=1
	Int ATARI=0
	Int DD
	Int DDD
	Int EE
	Int EEE

	IF(AtariFlag==1) {
		Atari=0
	}

	IF(Atari=0) {
		// 直大当たり→全回転→全回転
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		Sub {
			For (Int I=Egara; I<=(Egara) + 8*4+4; I++) {
				EEE=(I-1) % 9+1
				View1(EEE,EEE,EEE)
				r8..
			}
		}
		#Music05
		TempoChange(80,40,!1)
		For (Int I=Egara+1; I<=JEgara+9; I++) {
			EEE=(I-1) % 9+1
			View1(EEE,EEE,EEE)
			#Music06
		}
		#Music07
		IF((JEgara==1)||(JEgara==3)||(JEgara==5)||(JEgara==7)||(JEgara==9)) {
			KOAtari(JEgara)
			ATARI=2
		} ELSE {
			OAtari(JEgara)
			ATARI=1
		}
		FLAG=0
	}
	IF((FLAG==1) && (Atari<= 4)) {
		// リーチ→全回転
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		Sub {
			For (Int I=Egara; I<=(Egara) + 8*4+4; I++) {
				View1(Egara,(I-1) % 9+1,Egara)
				r8..
			}
		}
		#Music05
		TempoChange(80,40,!1)
		For (Int I=Egara+1; I<=JEgara+9; I++) {
			EE=(I-1) % 9+1
			View1(EE,EE,EE)
			#Music06
		}
		#Music07
		IF((JEgara==1)||(JEgara==3)||(JEgara==5)||(JEgara==7)||(JEgara==9)) {
			KOAtari(JEgara)
			ATARI=2
		} ELSE {
			OAtari(JEgara)
			ATARI=1
		}
		FLAG=0
	}
	IF((FLAG==1) && (Atari<= 20)) {
		// リーチ→全回転（外し＋）
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		Sub {
			For (Int I=Egara; I<=(Egara) + 8*4+4; I++) {
				View1(Egara,(I-1) % 9+1,Egara)
				r8..
			}
		}
		#Music05
		TempoChange(80,40,!1)
		For (Int I=Egara+1; I<=JEgara+9; I++) {
			DD=(I-1) % 9+1
			DDD=(DD) % 9+1
			View1(DD,DD,DD)
			#Music06
		}
		View1(DD,DDD,DD)
		#Music07
		FLAG=0
	}
	IF((FLAG==1) && (Atari<= 36)) {
		// リーチ→全回転（外しー）
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		Sub {
			For (Int I=Egara; I<=(Egara) + 8*4+4; I++) {
				View1(Egara,(I-1) % 9+1,Egara)
				r8..
			}
		}
		#Music05
		TempoChange(80,40,!1)
		For (Int I=Egara+1; I<=JEgara+9; I++) {
			DD=(I-1) % 9+1
			DDD=(DD + 8)
			IF(DDD>9) { DDD=DDD-9 }
			View1(DD,DD,DD)
			#Music06
		}
		View1(DD,DDD,DD)
		#Music07
		FLAG=0
	}
	IF(FLAG=1) {
		IF(Atari<50) {
			// 通常リーチ
			View1(-1,-1,-1)
			#Music01
			View1(Egara,-1,-1)
			#Music02L
			View1(Egara,-1,Egara)
			#Music02R
			Int C
			Sub {
				For (Int I=Egara; I<=(Egara) + 8*4+4; I++) {
					C=(I) % 9+1
					View1(Egara,(I-1) % 9+1,Egara)
					r8..
				}
			}
			#Music05
			View1(Egara,C,Egara)
			#Music03a
		} ELSE {
			// 通常目
			Int Egara1=Random(9)+1
			Int Dmy=Random(12)
			Int Egara2=Random(9)+1
			IF(Egara1=Egara2) {
				Egara2=Random(9)+1
			}
			IF(Egara1=Egara2) {
				Egara2=Random(9)+1
			}
			Dmy=Random(16)
			Int Egara3=Random(9)+1
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			IF(Egara1=Egara3) {
				Egara3=Random(9)+1
			}
			View1(-1,-1,-1)
			#Music01
			View1(Egara1,-1,-1)
			#Music02L
			View1(Egara1,-1,Egara2)
			#Music02R
			View1(Egara1,Egara3,Egara2)
			IF(COUNT>1) {
				#Music04
			} ELSE {
				#Music03
			}
			COUNT++
		}
	}
	Result=ATARI
}
Int Res
IF(TEST=1) {
	Lyric={"ＯＫ！！Int TEST=0にしてプレイしよう。これ以上表示されてもおかしくなるよ。"}
	Lyric={"あと1行"}
	Lyric={"あと2行"}
	Lyric={"まだまだ3行"}
	Lyric={"まだまだ4行"}
	Lyric={"まだまだ5行"}
	Lyric={"まだまだ6行"}
	Lyric={"まだまだ7行"}
	Lyric={"まだまだ8行"}
	Lyric={"まだまだ9行"}
	Lyric={"まだまだ10行"}

} ELSE {
	ResetXG();ResetGS();

	#r={
		TR(1) r2
		TR(2) r2
		TR(3) r2
		TR(4) r2
	}

	#r

	IF(AUTO=0) {
		Res=Pachinko(0)
		IF(Res=2) {
			#r#r
			Res=KPachinko(1)
		}
		IF(Res=2) {
			#r#r
			Res=KPachinko(0)
		}
	} ELSE {
		For (Int LOOP=1; LOOP<=299; LOOP++) {
			Res=Pachinko(0)
			IF(Res=1||Res=2) {
				LOOP=300
			}
			IF(Res=2) {
				#r#r
				Res=KPachinko(1)
			}
			IF(Res=2) {
				#r#r
				Res=KPachinko(0)
			}
		}
		IF(Res=0) {
			Res=Pachinko(1)
			IF(Res=2) {
				#r#r
				Res=KPachinko(1)
			}
			IF(Res=2) {
				#r#r
				Res=KPachinko(0)
			}
		}
	}

}