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

　　　　　　　　   　　　　Ｃ　Ｒ　ド　デ　カ　桜　７

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

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

/*

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

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

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

図柄の種類　　１２３４５６７８９

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

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

基本データ
　　大当り確率　　３２分の１
    ラウンド数　　１６Ｒ
    大当り出玉　　約２４００発？（出すぎ？
    確率変動等　　なし

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

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

たわごと
　　この曲は子供の時（小２、小５）に作った曲を再利用しているのですが、
    全て覚えていないのでパーツとして使いました。   
　　AUTOモードだけ保留玉多め状態の時短モードを搭載しています。
　　手抜きで必ずリーチは＋１かー１で外れます。
    ドキュメントがしゅんさんのコピペなのは許してください。

どうでもいいこと
　　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={"　 　  　 ■      "}

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

Function PEgara(Int V, 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}
	Result=RET
}

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

Function View1(V1,V2,V3) {
	Str S11=PEgara(V1,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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)
		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
		'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<=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
}

Int COUNT=0
Function Pachinko() {
	Int Atari=Random(128)	// 大当確率×４
	Int Egara=Random(9)+1	// 仮絵柄
	Int JEgara=Random(9)+1	// 実絵柄
	Int FLAG=1
	Int ATARI=0
	Int DD
	Int DDD
	Int EE
	Int EEE
	IF(Atari=0) {
		// 直大当たり→全回転→全回転
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		// 非同期なのでSubにする
		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; I<=JEgara+9; I++) {
			EEE=(I-1) % 9+1
			View1(EEE,EEE,EEE)
			#Music06
		}
		#Music07
		OAtari(JEgara)
		FLAG=0
		ATARI=1
	}
	IF((Atari==1)||(Atari==2)||(Atari==3)) {
		// リーチ→全回転
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		// 非同期なのでSubにする
		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; I<=JEgara+9; I++) {
			EE=(I-1) % 9+1
			View1(EE,EE,EE)
			#Music06
		}
		#Music07
		OAtari(JEgara)
		FLAG=0
		ATARI=1
	}
	IF((Atari==4)||(Atari==5)||(Atari==6)||(Atari==7)) {
		// リーチ→全回転（外し＋）
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		// 非同期なのでSubにする
		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; 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((Atari==8)||(Atari==9)||(Atari==10)||(Atari==11)) {
		// リーチ→全回転（外しー）
		View1(-1,-1,-1)
		#Music01
		View1(Egara,-1,-1)
		#Music02L
		View1(Egara,-1,Egara)
		#Music02R
		// 非同期なのでSubにする
		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; 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<36) {
			// 通常リーチ
			View1(-1,-1,-1)
			#Music01
			View1(Egara,-1,-1)
			#Music02L
			View1(Egara,-1,Egara)
			#Music02R
	 		// 非同期なのでSubにする
			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
}
ResetXG();ResetGS();

TR(1) r2
TR(2) r2
TR(3) r2
TR(4) r2

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 {
	IF(AUTO=0) {
		Pachinko
	} ELSE {
		For (Int J=0; J<=300; J++) {
			Res=Pachinko
			IF(Res=1) {
				J=300
			}
		}
	}
}