	font "lr ",22,1
	objsize 200
*s1
	gosub *clear
	mes "SBl͂̐Vnɑ𓥂ݓꂽB"
	mes "VȐɊ҂ƕsȂEEE"
	mes "@"
	mes "uꉞЂÂAXɂłł
	mes "邩EEEv"
	button "Ƃo",*s2
	stop
*s2
	cls
	gosub *clear
	mes "߂ĂɗƂ̓^NV[ŃAp[g"
	mes "܂ŉ^ł񂾁EEE"
	mes "X܂ł͗]艓Ȃ玩]Ԃłs"
	mes "oX߂ɂ邩AoXł"
	button "]Ԃōs",*s3
	button "oXōs",*s4
	stop
*s3
	cls
	gosub *clear
	mes "uVCƂ]Ԃōsv"
	mes "Vyn̕󂯂ȂAX֌"
	bike=1
	button "X",*s5
	stop
*s4
	cls
	gosub *clear
	mes "uɖ肢낤EEEv"
	mes "vl̓oXɌB"
	mes "@"
	mes "loX҂Ăl󂯂"
	mes "iHPHj"
	mes "T[}ƎvlPĂB"
	mes "u̗[JāBvԂɍ~ȁv"
	mes "iA]Xɂ͒łȂȁEEEj"
	mes "@"
	mes "ĂɃoXĂEEE"
	tenki=1
	button "X",*s5
	stop
*s5
	cls
	gosub *clear
	mes "SݓXAbcVbvAt@[Xgt[hEEE"
	mes "ĕʂ̊XAVԂɂɂ邱Ƃ"
	mes "ȂB"
	if bike==1 : mes "iAoXASݓX̑OJłȁj"
	mes "@"
	if bike==0 : mes "uĂ݂邩EEEv"
	if bike==1 : mes "usĂ݂邩EEEv"
	mes "X̒Sł낤班Ă݂邱Ƃɂ"
	button "ړ",*s6
	stop
*s6
	cls
	gosub *clear
	mes "Ԑlʂ肪ȂȂĂB"
	mes "uh⍂i̓XڗĂEEE"
	mes "uIv"
	mes "̕UԂƁAႢ荞ŁAj"
	mes "oĂEEEЂ肩II"
	mes "ɂ͏΂ŎႢjȂċȂI"
	button "ǂ",*s7
	button "߂",*s8
	stop
*s7
	cls
	gosub *clear
	mes "l͉lɂ̒jǂ"
	if bike==0 {
		mes "A͂߂̋肷EEE"
		mes "SɌĂ܂EEE"
		mes "u͂͂A]ԂłĂ΁EEEv"
		mes "̑̒x݂ȂA߂"
		mes "K[h[ɍ|ꂽ𐮂B"
	}
	if bike==1 {
		mes "j͏łĂ̂A܂ɂȂ"
		mes "ȂΎ]Ԃ瓦킯Ȃ"
		mes "@"
		mes "߂܂Ƃɂ́A]łނĂ܂"
		mes "jx@ɈnB͏ɖԂ邾낤B"
		mes "܂Â͍Dł͂Ȃ̂"
		mes "̌tāȀ𗣂ꂽB"
	}
	mes "@"
	mes "ƂŁAԂCɂȂ"
	good=1
	button "v݂",*s9
	stop
*s8
	cls
	gosub *clear
	mes "uǂ悤ƎvA߂EEE"
	mes "@"
	if bike==0 {
		mes "]ԂȂ܂A̋𑖂ċl߂ق"
		mes "̑ɂ͎gȂEEE"
	}
	if bike==1 {
		mes "Hn⌚Al݂ɕĂ܂Ύ]Ԃ"
		mes "܂ɂȂ邾EEEƂāA]Ԃ"
		mes "Ă킯ɂsȂEEE"
	}
	mes "ƁASɂ₵cAdȂB"
	mes "@"
	mes "΂炭AĉAXȂȂĂ̂"
	mes "X̒Sɖ߂邱ƂɂB\nāA炢낤EEE"
	button "v݂",*s9
	stop
*s9
	cls
	gosub *clear
	mes "uSEEEv"
	mes "グƁAłĂƂɂ͐̂"
	mes "DFɂȂĂEEE"
	if tenki==1 {
		mes "uΗ[JȂ񂾁EEEv"
		mes "Ɍ镨Ȃ̂Ŗl͋AHɂ"
		button "Ap[gɖ߂",*s11
	}
	if tenki==0 {
		mes "@"
		mes "uǁAXŐHׂĂEEEv"
		button "HׂĂ",*s10
		button "Ap[gɖ߂",*s11
	}
	stop
*s10
	cls
	gosub *clear
	mes "vAXEEE"
	mes "ǃt@[Xgt[hł܂"
	mes "@"
	mes "OɂłĂ݂ƁAςςƉJ~Ă"
	mes "uňEEEv"
	if good==0 {
		mes "ûƂЂǂȂ炩ȁv"
		mes "Ƌ΂ȂAJ̒AHɂ"
	}
	if good==1 {
		mes "uoXŗ΂悩̂EEEv"
		mes "̉^̂ȂɂȂAHɂ"
	}
	button "Ap[gɖ߂",*s11
	stop
*s11	
	cls
	gosub *clear
	mes "͂낢ȂƂEEE"
	mes "VynȂł͂ł낤B"
	mes "ꂩ̐y݂B"
	wait 200
	end
*clear
	cls
	clrobj
	color 255,255,255
	boxf 0,0,winx,winy
	color 0,0,0
	pos 50,50
	return

