
;	ＨＳＰを覚えながら作ったです・・・超へぼいですが、許してやってくださいです。
;	操作はスペースキーでジャンプできます。ショットは・・・まだです(;´Д`)
;	ジャンプの部分は某サイトのパクリなのです。ごめんなさい。


	scx=640 : scy=480		;screenのＸ、Ｙ座標
	screen 0,scx,scy
	title "ロックモナーつくりかけ　その煮"
	
	
	px=0 : py=350         ;キャラクターの初期座標
	dis=5                 ;キャラクターの移動値（変更すると移動具合が変化します。）
	jmax=18               ;ジャンプ最大値
	jmaxd=jmax+1	

	muki=0			;右向きで0、左向きで1	
	tama=0			;弾の状態　0で弾なし
	anime=0	: Hanime=0	;歩きアニメの状態、0で移動停止
	Stime=0			;shottime

;モナーの表示関連　　　Mは右、Hは左、Jはジャンプ、Dはダッシュの略
	dim migi,24,1
	dim hidari,24,1		
	dim Mjump,32,1
	dim Hjump,32,1
	dim Mshot,32,1
	dim Hshot,32,1
	dim MJshot,32,1
	dim HJshot,32,1
	dim Mani1,32,1
	dim Mani2,32,1
	dim Mani3,32,1
	dim Hani1,32,1
	dim Hani2,32,1
	dim Hani3,32,1
	dim MDani1,32,1
	dim MDani2,32,1
	dim MDani3,32,1
	dim HDani1,32,1
	dim HDani2,32,1
	dim HDani3,32,1	

	migi  = "\n　　 　 ＿__\n　　　/＼_/＼\n　　 б/´∀｀）\n　　 し|＿＿|∪\n　 　 /＼_／ヽ\n　　（＿／＼＿）"
	hidari= "\n　　　 ＿＿\n　　 /＼_／＼\n　　 （´∀｀ б\n　 し.|＿＿|∪\n　　 /＼_／ ヽ\n　（＿／ ＼＿）"
	Mjump= "\n　　 　　 ＿__\n　∩　 /＼_/＼ ∩\n　ヽ＼6/ ´∀｀） ﾉ\n　　＼ |＿＿|／\n　 　　 |＼／＼\n　　 　 |　| ＼_ノ\n　　　　∪"
	Hjump = "\n　　　　_＿_\n ∩ /＼_／＼∩\n l ヽ（´∀｀ б ﾉ\n　＼ |＿＿|／\n　　／＼_／|\n　 （ _／｜｜\n　　　　　  ∪"	
	Mshot = "\n　　　  　＿__\n　　 　 /＼_/＼\n　    _бﾉ´∀｀）\n　　　∪ | ＿ 〉[⊇\n　　　ノ　 人_／〕\n　　（＿／ /＿）"
	Hshot = "\n　　　＿＿\n　　/＼_／＼\n　　（´∀｀ б\n⊆］〉＿＿と ）\n　　〈 ＼_／ ヽ\n　　（＿/ ＼＿）"
	MJshot = "\n　　　　  ＿__\n　∩　 /＼_/＼\n　ヽ＼6/ ´∀｀）\n　　＼ |＿＿_ 〉[⊇\n　　　　|＼／＼ \n　　　　|　| ＼_ノ\n　　　　∪"
	HJshot = "\n　　 　 _＿_\n 　　/＼_／＼∩\n　　_（´∀｀ б ﾉ\n⊆] 〈 ＿＿|／\n　　／＼_／|\n　 （ _／｜｜\n　 　 　 　 ∪"

	Mani1 = "\n　　　 _＿__\n　 　 /＼_/＼\n　 _бﾉ ´∀｀）ｎ\n　Ｕ /__＿_入_ノ\n　_ /　,＼ノl\n ﾍノ＿ |＿）"
	Mani2 = " 　　 ＿＿\n　 　/＼_/＼\n　 бﾉ ´∀｀）\n　 /　　　 /i\n 　ヽ`っ=/'´\n　　 ヽ/Ｊ\n　　ζ」" 
	Mani3 = "\n　 　　 ＿＿\n　　 　/＼_/＼\n　　_бﾉ ´∀｀）\n 　 レ/ ＿つ/\n　 _/　人／〉\n ﾍノ＿ |＿）" 
	Hani1 = "\n　　 　 ＿＿\n　　　/＼_／l\n　∩（´∀｀ б\n　 ヽ人＿__ ﾆ⊃\n　　　 /　　ﾉへ\n　　 （＿/ヽへ_）"
	Hani2 = "　　 　 ＿＿_\n　　　/＼_／l\n　　 （´∀｀ б\n　 　 _l　　, 　>\n　 　Ц=（_／\n　　　　ヾゝ ヽ\n　　　　　とノ"
	Hani3 = "\n　　 　 ＿＿_\n　　　/＼_／l\n　　 （´∀｀ б\n　　と＾ー　＼ ⊃\n　　　 ﾌ￣　ﾉvっ\n　　 （＿/＾＼／"


	MDani1 = "\n　　　 _＿__\n　 　 /＼_/＼\n　 _бﾉ ´∀｀）\n　Ｕ /__＿_入[⊇\n　_ /　,＼ノl\n ﾍノ＿ |＿）\n"
	MDani2 = " 　　 ＿＿\n　 　/＼_/＼\n　 бﾉ ´∀｀）\n　 /　　　 /[二⊇\n 　ヽ`っ=/\n　　 ヽ/Ｊ\n　　ζ」" 
	MDani3 = "\n　 　　 ＿＿\n　　 　/＼_/＼\n　　_бﾉ ´∀｀）\n 　 レ/ ＿二[⊇\n　 _/　人／〉\n ﾍノ＿ |＿）"
	HDani1 = "\n　　 　 ＿＿\n　　　/＼_／l\n　　 （´∀｀ б\n  ⊆］二人＿ﾆ⊃\n　　　 /　　ﾉへ\n　　 （＿/ヽへ_）"
	HDani2 = "　　 　 ＿＿_\n　　　/＼_／l\n　　 （´∀｀ б\n　⊆］〉　　, 　>\n　 　　^|=（_／\n　　　　ヾゝ ヽ\n　　　　　とノ"
	HDani3 = "\n　　 　 ＿＿_\n　　　/＼_／l\n　　 （´∀｀ б\n　⊆］〉＾ー　＼ ⊃\n　　　 ﾌ￣　ﾉvっ\n　　 （＿/＾＼／"


	font "ＭＳ Ｐゴシック" ,12


	repeat
		redraw 0 
		color 239,239,239 : boxf : color : line 0,434,640,434 

		if key=0 :anime=0 : Hanime=0	

			Stime=0
		
		stick key,1+2+4+8+16+64
		
		if key!0 : gosub *ctrl


		gosub *hyouji
		
			if tama>0 : tama+1 : if tama>10 : tama=0

		pos 0,0
		mes "カーソルキー = "+key
		mes "状態 （0地上 1昇 2降） jump = "+jump
		mes "高さ = "+j
		mes "向き（0右 1左）= "+muki
		mes "弾（未完成） = "+tama	
		mes "横の位置 = "+px
		mes "縦の位置 = "+py
		mes "右走り = "+anime
		mes "左走り = "+Hanime
		mes "Stime = "+Stime
		mes "＊カーソルキーで移動、スペースでジャンプです。Ctrlで弾は・・・まだ出ないです(;´Д`)"
		redraw 1
		await 15
	loop


*ctrl

	if key!5 : if key!7 : if key!13 {
		if key&1 : Hanime+1 : if px>0 : px-dis : muki=1 		;向き判定
		if key&4 : anime+1  : if px<(scx-100) : px+dis : muki=0	;右向きで0、左向きで1
	}

        ;スペースでジャンプ開始
	if key&16 : if jump=0 : j=jmax : jump=1 

	if key&64 : tama+1 

	if key=64 : Stime=1
	if key=66 : Stime=1
	if key=72 : Stime=1

	return


*hyouji
	color : pos px,py 

				if key=5 : anime=0 : Hanime=0
				if key=7 : anime=0 : Hanime=0
				if key=13 : anime=0 : Hanime=0
;弾を打ってないとき
	if tama=0{
			if muki=0{
				if jump=0 {
						if anime=0 : mes migi
						if anime!0 : gosub *Mdash
					}
				if jump=1 : mes Mjump : py-=j : j-=1 : if j=0 : jump=2
				if jump=2 : pos px,py : mes Mjump : py+=j : j+=1 : if j=jmaxd : jump=0
				}

			if muki=1{
				if jump=0 {

					if Hanime=0 : mes hidari
					if Hanime!0 : gosub *Hdash
				}
				if jump=1 : mes Hjump : py-=j : j-=1 : if j=0 : jump=2
				if jump=2 : pos px,py : mes Hjump : py+=j : j+=1 : if j=jmaxd : jump=0
			}
	}
;弾を打ってるとき
	if tama!0{
			if muki=0{
				if jump=0 {
						if Stime=0{
							if anime=0 : mes Mshot
							if anime!0 : gosub *MDshot
						}
						if Stime=1 : mes Mshot
					}
				if jump=1 : mes MJshot : py-=j : j-=1 : if j=0 : jump=2
				if jump=2 : pos px,py : mes MJshot : py+=j : j+=1 : if j=jmaxd : jump=0
				}

			if muki=1{
				if jump=0 {
					if Stime=0{
						if Hanime=0 : mes Hshot
						if Hanime!0 : gosub *HDshot
						}
						if Stime=1 : mes Hshot
				}
				if jump=1 : mes HJshot : py-=j : j-=1 : if j=0 : jump=2
				if jump=2 : pos px,py : mes HJshot : py+=j : j+=1 : if j=jmaxd : jump=0
			}
	}

	if j=jmaxd:j=0
return


*Mdash
		pos px,py 
		if anime>0  : if anime<11 : mes Mani1 
		if anime>10 : if anime<21 : mes Mani2
		if anime>20 : if anime<31 : mes Mani3
		if anime>30 : if anime<41 : mes Mani2
		if anime>40 : mes Mani1 : anime=0
	
return


*Hdash
		pos px,py 
		if Hanime>0  : if Hanime<11 : mes Hani1
		if Hanime>10 : if Hanime<21 : mes Hani2
		if Hanime>20 : if Hanime<31 : mes Hani3
		if Hanime>30 : if Hanime<41 : mes Hani2
		if Hanime>40 : mes Hani1 : Hanime=0
return

*MDshot

		pos px,py 
		if anime>0  : if anime<11 : mes MDani1 
		if anime>10 : if anime<21 : mes MDani2
		if anime>20 : if anime<31 : mes MDani3
		if anime>30 : if anime<41 : mes MDani2
		if anime>40 : mes MDani1 : anime=0

return


*HDshot
		pos px,py 
		if Hanime>0  : if Hanime<11 : mes HDani1
		if Hanime>10 : if Hanime<21 : mes HDani2
		if Hanime>20 : if Hanime<31 : mes HDani3
		if Hanime>30 : if Hanime<41 : mes HDani2
		if Hanime>40 : mes HDani1 : Hanime=0
return