プログラムの全体をです。
マップは抜いてます。
#pack "yama2.jpg"
#pack "parts.png"
#pack "tamadot.png"
#pack "se_block2"
#pack "se_break3"
#pack "se_foot"
#pack "se_jump2"
#pack "se_puyo"
sx=40:sy=40 ; セルの大きさ
mx=16:my=12 ; マップを並べる大きさ
wx=640:wy=480 ; 画面のサイズ
hitparts=3
mysizex=64:mysizey=64
myspd=4
grav=14
celload "yama2.jpg",1
gsel 1
bgmaxx=ginfo_sx:bgmaxy=ginfo_sy
screen 0,wx,wy
title "珠音のジャンプアップ♪"
; 素材の読み込み
celload "parts.png",2
celdiv 2,sx,sy
celload dir_tv+"tamadot.png",3
celdiv 3,mysizex,mysizey
; 音のデータを登録
mmload dir_tv+"se_block2",0
mmload dir_tv+"se_break3",1
mmload dir_tv+"se_foot",2
mmload dir_tv+"se_jump2",3
mmload dir_tv+"se_puyo",4
mmload dir_tv+"bgm12",5,1
mmload dir_tv+"bgm19",6,1
*gtitle
; タイトル画面
mmplay 5
*gtmain
; タイトル画面のループ
redraw 0
pos 0,0:gmode 0,wx,wy:gcopy 1,0,400
color 255,255,255
font msgothic,40,1
pos 100,100
mes "珠音のジャンプアップ♪"
font msgothic,26,1
pos 148,260
mes "Enterキーを押してスタート"
redraw 1
await 16
stick key
if key&32 : goto *ginit ; [Enter]が押されたか?
goto *gtmain
*ginit
; ゲームスタート時の初期化
stage=1
*start
; マップデータの読み込み
sdim mapd,$10000
notesel mapd
cr="\n"
;
noteget s1,0
;
mapsizex=strlen(s1):if mapsizex<mx : mapsizex=mx
mapsizey=notemax
vmaxx=mapsizex*sx
vmaxy=mapsizey*sy
viewx=0:viewy=vmaxy-wy
vbasey=viewy
vbasex=vmaxx-wx
; マップの初期化
coinmax=0
dim map,mapsizex,mapsizey
y=0
repeat mapsizey
noteget s1,cnt
repeat mapsizex
s2=strmid(s1,cnt,1) ; 1文字だけを取り出す
a=0
if s2!=" " : a=6
if s2="+" : a=5 ;敵
if s2="-" : a=9 ;地面
if s2="＠" : a=10 ;白レンガ
if s2="1" : a=1 ;雲左上
if s2="2" : a=2 ;雲右上
if s2="3" : a=7 ;雲左下
if s2="4" : a=8 ;雲右上
if s2="*" : coinmax=coinmax+1 : a=3
map(cnt,y)=a ; マップデータを代入する
loop
y=y+1
loop
; プレイヤーの初期化
coin=0 ; コインの数
myflag=0
myani=0:mydir=0
myjmp=0:mygrv=0
px=0:py=vmaxy-sy-mysizey
font msgothic,16
mmstop
mmplay 6
*main
; メインループ
redraw 0
gosub *drawbg ; 奥の背景を描画
gosub *drawmap ; マップを描画
gosub *mymove ; プレイヤーの移動
color 255,255,255:pos 0,0
mes "COIN:"+coin+"/"+coinmax
redraw 1
await 16
#const global false 0
#const global true 1
goal_enadlad = false;ゴールの条件チェック
mapx = (x + 10) / sx
mapy = (y + i) / sy
if mapx >= 0 and mapx < mapsizex and mapy >= 0 and mapy < mapsizey :// cell = chr(map(mapx, mapy)) ; マップデータを文字列として取得
if cell = "G" and coin = coinmax : goal_enabled = true ; ゴールが有効になる条件を満たした
goto *main
*main2
; プレイヤーやられ
mmstop
mmplay 1
repeat
redraw 0
gosub *drawbg
gosub *drawmap
gosub *mymove
font msgothic,40,1
pos 150,200
color 255,255,255
mes "回避失敗"
redraw 1
await 16
stick key
if key&32 : break ; [Enter]が押されたか?
loop
goto *gtitle
*main3
; クリア
repeat 600
redraw 0
gosub *drawbg
gosub *drawmap
gosub *mymove
font msgothic,40,1
pos 150,200
color 255,255,255
mes "目標達成"
redraw 1
if cnt=16 : mmstop : mmplay 0
await 16
stick key
if key&32 : break ; [Enter]が押されたか?
loop
goto *gtitle ; クリアしたらタイトルに戻る
*mymove
; プレイヤー操作
stick key,15
x=px:y=py
myrun=0
if myflag!=0 {
mydir=32
myflag=myflag+1
key=0
}
if key&1 : mydir=12 : myrun=1 : x=x-myspd
if key&4 : mydir=28 : myrun=1 : x=x+myspd
if x<0 : x=0
if x>=(vmaxx-mysizex) : x=px
if myrun>0 {
i=mysizey-1 : gosub *myarea
if a>0 {
gosub *chkitem
x=px
}
}
if myjmp>0 : goto *mymove3
; 通常時
if key&16 : myjmp=1 : mygrv=-grav : mmplay 3 : goto *mymove3
i=mysizey : gosub *myarea
if a=0 : myjmp=1 : mygrv=8 : goto *mymove3
goto *mymove2
*mymove3
; ジャンプ中
y=y+mygrv
mygrv=mygrv+1
if mygrv<0 : goto *mymove2
if mygrv>16 : mygrv=16
i=mysizey : gosub *myarea
if a>0 {
mmplay 2
gosub *chkitem
y=(mapy*sy)-mysizey : myjmp=0
mydir=0
}
if y>=vmaxy : gosub *mydead
*mymove2
; プレイヤー描画
px=x:py=y
a=mydir
if myrun>0 {
myani=myani+1
a+=(myani/4)\4
}
gmode 2,mysizex,mysizey
x=px-viewx:y=py-viewy
pos x,y:celput 3,a
i=0
if x<240 : i=(x-240)/40
if x>(wx-320) : i=(x-(wx-320))/40
viewx=limit( viewx+i, 0, vbasex )
i=0
if y<160 : i=(y-160)/40
if y>(wy-240) : i=(y-(wy-240))/40
viewy=limit( viewy+i, 0, vbasey )
return
*myarea
; 自分の足元マップを調べる
mapx=(x+10)/sx
mapy=(y+i)/sy
if mapy>=mapsizey : a=0 : return
if mapy<0 : a=0 : return
a=map(mapx,mapy)
if a>=hitparts : return ; 接触のあるパーツID
mapx=(x+53)/sx
a=map(mapx,mapy)
if a>=hitparts : return ; 接触のあるパーツID
a=0
return
*chkitem
; 障害物・アイテムのチェック
if a=3 {
coin=coin+1
map(mapx,mapy)=0
mmplay 4
return
}
if a<6 {
gosub *mydead
}
return
*mydead
; やられフラグを立てる
myflag=1
return
*drawbg
; 背景描画
startx=-viewx\sx ; マップの表示開始X座標
starty=-viewy\sy ; マップの表示開始Y座標
ofsx=viewx/sx ; マップデータの参照開始X座標
ofsy=viewy/sy ; マップデータの参照開始Y座標
; 奥の背景も少しスクロールさせる
gmode 0,wx,wy
x=0:y=viewy*(bgmaxy-wy)/vbasey
pos 0,0:gcopy 1,x,y
return
*drawmap
; マップ描画
y=0
drawx=mx:if startx!=0 : drawx=drawx+1
drawy=my:if starty!=0 : drawy=drawy+1
gmode 2,sx,sy
repeat drawy
x=0
repeat drawx
a=map(ofsx+x,ofsy+y)
if a>0 : pos x*sx+startx,y*sy+starty:celput 2,a
x=x+1
loop
y=y+1
loop
return
このプログラムではクリアと失敗したときの表示がされない状態になってしまいます。
改善すべきところはどこでしょうか？
(投稿者削除)
