小ワザ/アクション/基本動作

基本的な動き †

[編集]

　2DアクションゲームのHSPサンプルを探したのですが、意外なことにほとんど見つけられませんでした。というわけで、実際にやってみることにしました。
横スクロール型ゲームの企画とは非連動で進めていきます。ご容赦を。

　まずは基本的な動作だけをやってみます。
アクションゲームの基本動作は、

ダッシュ
ジャンプ

と、こんなところでしょうか。
次に基本要素を考えてみます。

重力
（地面との）摩擦
床、壁との衝突

だいたいこんなところでしょう。

　これらの要素を積み込めばアクションゲームっぽい動きが再現できます。
これらの要素を取り込んだものを下のサンプルに用意しました。詳細はサンプルをご覧下さい。

結構適当なつくりになっています。（暇を見て修正します。m(_ _)m）

↑

サンプル †

[編集]

サンプル

ダッシュ †

[編集]

psize = 8
px = 100.0 : py = 300-psize
vx = 0.0 : maxspeed = 6.0
repeat
    ok37 = k37 : ok39 = k39
    getkey K37, 37 : getkey K39, 39        ;←キーと→キーで操作
    if k37 { vx -= 0.1 } : if k39 { vx += 0.1 }
    if (k37^ok37&ok37) | (k39^ok39&ok39) { vx=0.0 } else { px+=vx }    ;押してる間は加速し続ける
    vx = limitf(vx, -maxspeed, maxspeed)    ;速度制限
    redraw 0
    color : boxf : color 255, 255, 255
    line ginfo(12), 300, 0, 300
    circle px-psize, py-psize, px+psize, py+psize    ;キャラクター描写
    redraw 1
    wait 1
loop

↑

ジャンプ †

[編集]

psize = 8
yuka=480
px = 300.0 : py = double(yuka-psize)
jump = 0    ;ジャンプフラグ変数
vy=0.0
repeat
    getkey K32, 32        ;SPACEキー
    if k32&jump=0 { jump=1 : vy=-13.0 : py+=vy }
    if py<yuka-psize { py+=vy : vy+=0.3 }
    if py>yuka-psize { py=double(yuka-psize) : jump=0 }
    redraw 0
    color : boxf : color 255, 255, 255
    circle px-psize, py-psize, px+psize, py+psize    ;キャラクター描写
    redraw 1
    wait 1
loop

↑

コメント †

[編集]

φ(．． )ﾒﾓﾒﾓ -- パタパタ大王 2006-01-26 (木) 06:24:19
実際作ってみると結構面倒ですね。ずいぶん長ったらしくなってしまった…。 -- GENKI? 2006-01-26 (木) 22:20:24
このタイプのゲームでプラグイン使うならどれがいいんでしょう？HSPDXFIX？HSPDX+α？ -- GENKI? 2006-01-26 (木) 22:25:50
こんばんは。段々と完成に近付いていますね。勉強になっています。ところでちょっと気になるのはプレイヤーと見立てた黒くて小さい四角ですが、左方向は壁に当たるとちゃんと止まるのに右方向は壁にめり込んでるような－－；　それとブロックの上に乗っていて左に進めていくとまだ乗っている部分があるけど落ちてしまいます。理由は、判定するブロックの場所をプレイヤーの一番左上の座標から決めているからだと思います。・・・、しかしだからといってそれを補う良い方法は思い浮かんでいません。(ﾉ><)ﾉ　良い考えが浮かばなければ、GENKIさんが言う通り、画面上の全ブロックと当たり判定しないといけないかもしれませんね。わたくしパタパタ大王も、GENKIさんが作っているこのサンプルとkz3さんがずっと前にアップしていた横スクロール（horizon）のサンプルを見てすばやく対応できるように準備しているところです。 -- パタパタ大王 2006-01-28 (土) 21:10:20
仕様です。取り合えず、単なるサンプルプログラムなので１ドットのみをキャラクターとしています。１ドットだと画面上見にくいので右下方向に面積を広げてるだけです。サンプルは極力見やすい単純なものでないと分かりにくいですから。（とかいいながら大きいサイズのキャラクターで判定するのは、まだ出来てないんですけどね。） -- GENKI? 2006-01-28 (土) 23:12:36
対策は簡単。キャラクターの四隅にひとつずつあたり判定用のドットを配置してやればOKだと思います。まだやってないんで分かりませんけどね。 -- GENKI? 2006-01-28 (土) 23:16:21
今年のHSPコンテストは、あの企画とは別にアクションゲーム出してみようかなと思う今日この頃…。 -- GENKI? 2006-01-28 (土) 23:31:48
頼もしいですね＾＾　新しいものを作ることって楽しいですね。それ以外に何の為に学ぶのかという程に。 -- パタパタ大王 2006-01-28 (土) 23:58:01
ここのところGENKIさんだけがスクリプトを示してくれているという状況で、GENKIさんの基礎スクリプトが完成しそうなこの辺りで、企画を言い出したわたくしパタパタ大王もスクリプトを付け足したいところです。（一からスクリプトを組まないとやる気が出ないという？）kz3さんがずっと前に投稿していたhorizonのスクリプトとGENKIさんのこのスクリプトを融合させるべく何日か前から色々試していました。簡単に拡張できることを考えて、ユーザーによる新規命令のパラメータを何個でも受け取れて制限も緩まったHSP3.0で企画を進めていこうと考えています。（GENKIさんの昨日のサンプルを3.0に直すのに、計算の優先度が違うことに気が付かなくて時間がかかってしまいました＾＾；）とりあえず明日から、今日のサンプルを3.0に直して、わたくしが用意しておいた移動のアニメーション処理などと融合させて「横スクロール型ゲーム」にアップし始めようと思います。（あいかわらず長いコメントです・・・－－;） -- パタパタ大王 2006-01-31 (火) 00:11:18
16*16サイズのキャラクターの場合の当たり判定サンプルのモジュール部分を整理しました。だいぶすっきりしたと思います。 -- GENKI? 2006-02-01 (水) 22:59:35
セルサイズよりキャラクタサイズを大きくても、もう少しまともに動くかと思ってましたが甘かったようです。横方向のことしか考えてなかった…。結構愉快な動きをしてくれます。(^ ^; -- GENKI? 2006-02-01 (水) 23:44:08
ここは参考になりますね。横スクロールゲーム作ってますんで（ -- sora? 2006-10-23 (月) 07:12:13
m_ChrPos? ってなんですか？ -- ジャングルサバイバル? 2011-01-13 (木) 10:29:59

↑

障害ブロックとの衝突判定 †

[編集]

障害ブロックとの衝突判定を行います。
PCは、「□」で表示していますが、判定を行っているのは□の中心点１ドットがキャラクター中心だけです。

　障害ブロック四方４面とのとの衝突判定が出来ます。

↑

アルゴリズム †

[編集]

基本的な動作のアルゴリズムはこんな感じ。

移動する前に、障害物が何もなかった場合の移動位置を予測します。
移動先に障害物があれば、障害物があったときの行動をとります。
MAPは32*32で区切ったセルで作られています。（コレを考慮して判定する）
MAPスクロールは、ゲームの仮想空間とウィンドウ内の座標が別物である、と考えると考えやすいです。
3Dでの3D空間とカメラの関係みたいな感じです。

　画面上の全キャラクター（ブロック１つ１つ）と当たり判定をしていては非常に時間がかかるので、判定が必要なキャラクターの部分だけで当たり判定を行います。
　ほんとうは移動前と移動予定地点を線分でつないで、その間に障害物があるかどうか判定しないといけないんですが、とりあえず今のままでもうまく設定すれば問題にはならないでしょう。

↑

1×1ドットのキャラクターを使ったサンプル †

[編集]

　キャラクターサイズを 1*1に限定して作成したサンプルを作成しました。
さすがにこれ(1*1ドット)では見えないので目立つように□で囲んでいます。□の中心の中心の１ドットが衝突判定に使っているキャラクターです。
（しかし、これじゃ画面のスクロールは上限が近すぎてまずいかな？）

↓サンプルです。280行ぐらい（コメント含）あります。

サンプル

;
;	床上判定テストサンプル
;	for HSP 2.61
;
;	操作キー：↑→←
;
 
 
;#########################################################################################
;モジュール部分
#module
 
;----------------------------------
;	初期設定・登録
;
 
;初期化
#deffunc m_ini
    bksizex = 32;16	;ブロック基本サイズ
    bksizey = 32;16
    grv = 50    ;重力加速度
    fyuka = 0
 
    dim ChrPr, 4    ;x100,y100,vx100,vy100
    return
 
;マップブロックの登録
#deffunc m_BBlock val
    mref bblk, 48
    return
 
;----------------------------------
;	情報取得
;
 
;現在キャラクターがいるブロックを取得
#deffunc m_GetChrPosBlk val, val
    mref cpbkx, 16
    mref cpbky, 17
    cpbkx = ChrPr.0/100 / bksizex - (ChrPr.0 ? (bksizey*100) <0)    ;マイナスになったときの処理がめんどくさい
    cpbky = ChrPr.1/100 / bksizey - (ChrPr.1 ? (bksizey*100) <0)
    return
 
;----------------------------------
;	描画関係
;
 
 
;キャラクター描画
#deffunc m_PutChr
    color 0,0,0
    px = ChrPr.0/100 -vwposx
    py = ChrPr.1/100
 
    ;px,pyが中心点
    boxf px-1,py-1 ,px+1,py+1
    sx = 5 : sy = 5
    line px-sx,py-sy, px+sx,py-sy
    line px+sx,py-sy, px+sx,py+sy
    line px+sx,py+sy, px-sx,py+sy
    line px-sx,py+sy, px-sx,py-sy
    color 255,255,255 : pset px,py
 
    return
 
 
;セル表示（ブロックの描画）
#deffunc m_DrwCell
    i=0
    repeat 20    ;横
        repeat 5    ;縦
            if bblk.cnt.i=1 {
                color 0,0,127
                iCellPosX = i*bksizex - vwposx    ;キャラクター座標
                iCellPoxY = cnt*bksizey        ;キャラクター座標
                boxf iCellPosX, iCellPoxY, iCellPosX + bksizex-1, iCellPoxY + bksizey-1
                color 127,127,255
                boxf iCellPosX+1, iCellPoxY+1, iCellPosX + bksizex-2, iCellPoxY + bksizey-2
                color 0,0,0
            }
        loop
        i++
    loop
    return
 
 
;---------------------------------------------
;デバッグ用
;
 
;現在キャラクターがいるブロックを描画
#deffunc mdb_PutChrPosBlk
    m_GetChrPosBlk bx, by
    color 255,127,127
    boxf bx*bksizex-vwposx, by*bksizey, bx*bksizex-vwposx + bksizex-1, by*bksizey + bksizey-1
    return
 
 
;----------------------------------
;	一般処理
;
 
;画面表示位置設定
#deffunc m_ViewPos int
    mref p1, 0
    vwposx = p1
    return
 
 
;キャラクター位置計算＆描画
#deffunc m_ChrPos val, val
    mref vx100, 16    ;速度の100倍
    mref vy100, 17
 
    ;
    ;	摩擦抵抗
    ;
    if fyuka!0 {
        ;床にいるときだけ
        if 0 > vx100 : vx100=vx100+30 : if 0 < vx100 : vx100=0
        if 0 < vx100 : vx100=vx100-30 : if 0 > vx100 : vx100=0
    }
 
    ;---------------------
    ;移動予定地点に障害があるか無いかを判定して動作を決めるような感じ。
    
    ;座標取得（スクリプト書きやすくしてるだけ）
    px100 = ChrPr.0
    py100 = ChrPr.1
 
    ;
    ;	障害ブロックとの衝突判定（移動予定座標）
    ;
    vy100f = vy100 + grv    ;重力
    px100f = px100 + vx100
    py100f = py100 + vy100f
    pxf = px100f/100    ;ウィンドウ座標に変換
    pyf = py100f/100
    bkxf = pxf / bksizex - (pxf ? bksizey <0)    ;ブロック座標に変換
    bkyf = pyf / bksizey - (pyf ? bksizey <0)
    m_GetChrPosBlk bkx, bky    ;現在のブロック座標
 
    ;壁チェック
    fkabe = 0
    if vx100!0 {
        if (bky>=0)&(bky<5) & (bkxf>=0)&(bkxf<100) {
            if bblk.bky.bkxf!0 : fkabe = 1
        }
    }
 
    ;床チェック
    fyuka = 0
    if vy100f>0 {
        if (bkyf>=0)&(bkyf<5) & (bkx>=0)&(bkx<100) {
            if bblk.bkyf.bkx!0 : fyuka = 1
        }
        if (fkabe=0) & (bkyf>=0)&(bkyf<5) & (bkxf>=0)&(bkxf<100) {    ;斜めのブロック
            if bblk.bkyf.bkxf!0 : fyuka = 1
        }
    }
 
    ;天井チェック
    ften = 0
    if vy100f<0 {
        if (bkyf>=0)&(bkyf<5) & (bkx>=0)&(bkx<100) {
            if bblk.bkyf.bkx!0 : ften = 1
        }
        if (fkabe=0) & (bkyf>=0)&(bkyf<5) & (bkxf>=0)&(bkxf<100) {    ;斜めのブロック
            if bblk.bkyf.bkxf!0 : ften = 1
        }
    }
 
    ;
    ;	実際に移動計算
    ;
    if fkabe!0 {
        ;壁に衝突
        vx100 = -1*vx100/2
    }
    if ften!0 {
        ;天井に障害物
        vy100 = -1*vy100
    }
 
    if fyuka!0 {
        ;床にいる
        if vy100>0 : vy100 = 0    ;ジャンプは出来る
            py100 = bkyf *bksizey *100-1
    } else {
        ;空中にいる
        vy100 = vy100 + grv    ;重力
    }
 
    ;
    ;	座標算出
    ;
    px100 = px100 + vx100
    py100 = py100 + vy100
    ChrPr.0 = px100
    ChrPr.1 = py100
 
    mdb_PutChrPosBlk    ;デバッグ用（現在キャラクターがいるブロックを描画）
    m_ViewPos ChrPr.0/100 - (winx/2)        ;キャラクターを常に中心に置く。
    m_PutChr    ;キャラクター描画
 
    return
 
 
 
#global
m_ini
;モジュールここまで
;##############################################
 
 
 
#define MAXSPEED 1000    ;速度限界
 
;
;	MAPデータの作成
;
dim bgimg, 5,100
;    .y.x   上　　　　　下
bgimg.0.0 = 0, 0, 1, 0, 1
bgimg.0.1 = 0, 0, 0, 1, 1
bgimg.0.2 = 0, 0, 0, 0, 1
bgimg.0.3 = 0, 1, 0, 0, 1
bgimg.0.4 = 0, 1, 0, 0, 1
bgimg.0.5 = 1, 0, 1, 0, 1
bgimg.0.6 = 0, 0, 0, 0, 1
bgimg.0.7 = 0, 0, 0, 0, 1
bgimg.0.8 = 0, 0, 0, 0, 0
bgimg.0.9 = 0, 0, 0, 0, 1
bgimg.0.10= 1, 1, 0, 0, 1
bgimg.0.11= 0, 0, 0, 0, 1
bgimg.0.12= 0, 0, 0, 0, 1
bgimg.0.13= 0, 0, 0, 0, 1
bgimg.0.14= 0, 0, 0, 1, 1
bgimg.0.15= 0, 0, 0, 0, 1
bgimg.0.16= 0, 0, 0, 1, 0
bgimg.0.17= 0, 0, 0, 0, 0
bgimg.0.18= 0, 0, 0, 0, 1
bgimg.0.19= 0, 0, 0, 1, 1
m_BBlock bgimg    ;マップブロックの登録
 
 
;マウス初期位置設定
ginfo 2
mouse winx/2+prmx, winy/2+prmy
 
*main
    redraw 0
    color 255, 255, 255 : boxf : color 0, 0, 0 : pos 0,0
 
    stick key, 1+4
 
    if key&1 : vx-=50    ;左右
    if key&4 : vx+=50
    if  MAXSPEED<vx : vx = MAXSPEED        ;上限設定
    if -MAXSPEED>vx : vx = -MAXSPEED
 
    if key&2 : {
        m_GetChrPosBlk bkx, bky
        bkya = bky+1
        if (bkya>=0)&(bkya<5) & (bkx>=0)&(bkx<100) {
            if bgimg.bkya.bkx : vy=-700    ;ジャンプ
        }
    }
    if key&128 : goto *owari
 
    m_DrwCell    ;背景ブロック描画
    m_ChrPos vx, vy    ;キャラクター移動＋描画
 
 
    redraw 1
    await 20
goto *main
 
 
*owari
end

HSP3用をお探しの方はこちら。 [hsp3] ModulelessForHSP3.hsp
簡素化のため、摩擦は考慮していません。

↑

ある程度の大きさを持つキャラクターのサンプル †

[編集]

キャラクターが16*16サイズ（固定）の場合です。
キャラクターのイメージはこんな感じ。縦横偶数サイズなので中心座標が少しずれることに注意。

■□□□□□□□□□□□□□□■
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□■□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□
■□□□□□□□□□□□□□□■

四つ角それぞれを、当たり判定用のセンサーとしています。
この判定方法の欠点は、セルのサイズより大きいキャラクターを作ると、当たり判定が正常に動作しなくなることです。
といってもある程度は機能するはずです。大きくても大丈夫だと思いますが、セルサイズとの比があまり大きくなり過ぎないように注意が必要。

それにしてもマイナスのときの処理がかなりいい加減…もっとスマートなやり方ないですかね。どう考えたらいいのやら…。

サンプル

;
;	床上判定テストサンプル
;	for HSP 2.61
;
;	操作キー：↑→←
;
 
 
;############################################################################################
;モジュール部分
#module
;----------------------------------
;	初期設定・登録
;
 
;初期化
#deffunc m_ini
    bksizex = 32;16	;セル基本サイズ
    bksizey = 32;16
    grv = 50    ;重力加速度
    ChrSizeX = 16    ;bksizex+5 などブロックの最小サイズより大きくはできない。少なくとも今のままでは。
    ChrSizeY = 16
 
    ChrCPosX = ChrSizeX / 2-1    ;左上から中心座標
    ChrCPosY = ChrSizeY / 2-1
    ChrCPosX2= ChrSizeX / 2        ;中心座標から右下座標
    ChrCPosY2= ChrSizeY / 2
    dim ChrPr, 4    ;x100,y100,vx100,vy100
    return
 
;マップ情報の登録
#deffunc m_BBlock val
    mref bblk, 48
    return
 
 
;----------------------------------
;	計算関係
;
 
;指定座標があるセル番号を取得
#deffunc m_GetCellPosX100 val, int
    mref cx, 16
    mref ppx100, 1
    ;マイナスになったときの処理がめんどくさい
    cx = ppx100/100 / bksizex - (ppx100 ? (bksizex*100) <0)
    return
 
#deffunc m_GetCellPosY100 val, int
    mref cy, 16
    mref ppy100, 1
    cy = ppy100/100 / bksizey - (ppy100 ? (bksizey*100) <0)
    return
 
#deffunc m_GetCellPosX val, int
    mref cx, 16
    mref ppx, 1
    cx = ppx / bksizex - (ppx ? bksizex <0)
    return
 
#deffunc m_GetCellPosY val, int
    mref cy, 16
    mref ppy, 1
    cy = ppy / bksizey - (ppy ? bksizey <0)
    return
 
#deffunc m_GetCellPosXY100 val, val, int, int
    mref cx, 16
    mref cy, 17
    mref ppx100, 2
    mref ppy100, 3
    cx = ppx100/100 / bksizex - (ppx100 ? (bksizex*100) <0)
    cy = ppy100/100 / bksizey - (ppy100 ? (bksizey*100) <0)
    return
 
 
;----------------------------------
;	情報取得
;
 
;現在キャラクターがいるセル座標を取得
#deffunc m_GetChrPosBlk val, val
    mref cpbkx, 16
    mref cpbky, 17
    m_GetCellPosXY100 cpbkx, cpbky, ChrPr.0, ChrPr.1
    return
 
;キャラクターのセル上の現在位置取得
#deffunc m_ChrChk
    mref statout, 64
    statout = 0
    if fyuka!0 : statout = 1    ;床上
    return
 
 
;----------------------------------
;	描画関係
;	（サンプルなのでboxfで塗りつぶしです。）
 
;キャラクター描画
#deffunc m_PutChr
    color 0,0,0
    px = ChrPr.0/100 -vwposx
    py = ChrPr.1/100
    boxf px-ChrCPosX,py-ChrCPosY, px+ChrCPosX2,py+ChrCPosY2
;	pos px-ChrCPosX,py-ChrCPosY : mes "大"	;なんとなく
 
    return
 
 
;ブロックの描画
#deffunc m_DrwCell
    i=0
    repeat 20    ;横
        repeat 5    ;縦
            if bblk.cnt.i=1 {
                color 192,192,255
                iCellPosX = i*bksizex - vwposx    ;キャラクター座標
                iCellPoxY = cnt*bksizey        ;キャラクター座標
                boxf iCellPosX, iCellPoxY, iCellPosX + bksizex-1, iCellPoxY + bksizey-1
                color 127,127,255
                boxf iCellPosX+1, iCellPoxY+1, iCellPosX + bksizex-2, iCellPoxY + bksizey-2
                color 0,0,0
            }
        loop
        i++
    loop
    return
 
 
;----------------------------------
;	デバッグ用
;
 
;現在のキャラクター中心座標があるセルを着色
#deffunc mdb_PutChrPosBlk
    m_GetChrPosBlk bx, by
    color 255,127,127
    boxf bx*bksizex-vwposx, by*bksizey, bx*bksizex-vwposx + bksizex-1, by*bksizey + bksizey-1
    return
 
 
;----------------------------------
;	一般処理
;
 
;画面表示位置設定
#deffunc m_ViewPos int
    mref p1, 0
    vwposx = p1
    return
 
 
;キャラクター位置計算＆描画
#deffunc m_ChrPos val, val
    mref vx100, 16    ;速度の100倍
    mref vy100, 17
 
 
    ;---------------------
    ;移動予定地点に障害があるか無いかを判定して動作を決めるような感じ。
    
    ;座標取得（スクリプト書きやすくしてるだけ）
    px100 = ChrPr.0
    py100 = ChrPr.1
 
    ;
    ;	障害ブロックとの衝突判定（移動予定座標）
    ;
    vy100f = vy100 + grv    ;重力
    px100f = px100 + vx100
    py100f = py100 + vy100f
    pxf = px100f/100    ;移動予定座標（ウィンドウ座標）
    pyf = py100f/100
 
;	変数の内容
;	bkyt0	;現在の上端セル座標
;	bkyd0	;現在の下端セル座標
;	bkxl0	;現在の左端セル座標
;	bkxr0	;現在の右端セル座標
;	bkyt1	;予想先の上端セル座標
;	bkyd1	;予想先の下端セル座標
;	bkxl1	;予想先の左端セル座標
;	bkxr1	;予想先の右端セル座標
 
    ;	壁チェック
    fkabe = 0
    if vx100!0 {
        m_GetCellPosY100  bkyt0, py100-(ChrCPosY*100)    ;現在のｙ（上側）
        m_GetCellPosY100  bkyd0, py100+(ChrCPosY2*100)    ;現在のｙ（下側）
        m_GetCellPosX bkxr1, pxf+ChrCPosX2        ;予想進路ｘ（右）
        m_GetCellPosX bkxl1, pxf-ChrCPosX        ;予想進路ｘ（左）
        ;右下
        if (bkyd0>=0)&(bkyd0<5) & (bkxr1>=0)&(bkxr1<100) {
            if bblk.bkyd0.bkxr1!0 : fkabe = 1    ;壁激突フラグが立つ。
        }
        ;左下
        if (bkyd0>=0)&(bkyd0<5) & (bkxl1>=0)&(bkxl1<100) {
            if bblk.bkyd0.bkxl1!0 : fkabe = 1
        }
 
        ;右上
        if (bkyt0>=0)&(bkyt0<5) & (bkxr1>=0)&(bkxr1<100) {
            if bblk.bkyt0.bkxr1!0 : fkabe = 1
        }
        ;左上
        if (bkyt0>=0)&(bkyt0<5) & (bkxl1>=0)&(bkxl1<100) {
            if bblk.bkyt0.bkxl1!0 : fkabe = 1
        }
    }
 
    m_GetCellPosX100  bkxl0, px100-(ChrCPosX*100)    ;現在のｘ（左）
    m_GetCellPosX100  bkxr0, px100+(ChrCPosX2*100)    ;現在のｘ（右）
    m_GetCellPosY bkyd1, pyf+ChrCPosY2        ;予想進路ｙ（下側）
 
    ;	床チェック
    fyuka = 0
    if vy100f>0 {
        ;左下
        if (bkyd1>=0)&(bkyd1<5) & (bkxl0>=0)&(bkxl0<100) {
            if bblk.bkyd1.bkxl0!0 : fyuka = 1    ;床激突フラグが立つ。
        }
        ;右下
        if (bkyd1>=0)&(bkyd1<5) & (bkxr0>=0)&(bkxr0<100) {
            if bblk.bkyd1.bkxr0!0 : fyuka = 1
        }
    }
 
    ;	天井チェック
    ften = 0
    if vy100f<0 {
        m_GetCellPosY bkyt1, pyf-ChrCPosY        ;予想進路ｙ（上側）
        ;左上
        if (bkyt1>=0)&(bkyt1<5) & (bkxl0>=0)&(bkxl0<100) {
            if bblk.bkyt1.bkxl0!0 : ften = 1    ;天井激突フラグが立つ。
        }
        ;右上
        if (bkyt1>=0)&(bkyt1<5) & (bkxr0>=0)&(bkxr0<100) {
            if bblk.bkyt1.bkxr0!0 : ften = 1
        }
    }
 
 
 
    ;
    ;	実際に移動計算
    ;
    if fkabe!0 {
        ;壁に衝突
        vx100 = -1*vx100/2
    }
    if ften!0 {
        ;天井に障害物
        vy100 = -1*vy100
    }
 
    if fyuka!0 {
        ;床にいる
        if vy100>0 : vy100 = 0    ;ジャンプは出来る
        py100 = bkyd1*bksizey *100-1 -(ChrCPosY2*100) -(bkyd1<=0 *100)
    } else {
        ;空中にいる
        vy100 = vy100 + grv    ;重力
    }
 
    ;
    ;	摩擦抵抗
    ;
    if fyuka!0 {
        ;床にいるときだけ
        if 0 > vx100 : vx100=vx100+30 : if 0 < vx100 : vx100=0
        if 0 < vx100 : vx100=vx100-30 : if 0 > vx100 : vx100=0
    }
 
    ;
    ;	座標算出
    ;
    px100 = px100 + vx100
    py100 = py100 + vy100
    ChrPr.0 = px100
    ChrPr.1 = py100
 
    m_ViewPos ChrPr.0/100 - (winx/2)        ;キャラクターを常に中心に置く。
    m_PutChr    ;キャラクター描画
 
    return
 
 
 
#global
m_ini
;モジュールここまで
;############################################################################################
 
 
 
#define MAXSPEED 1000    ;速度限界
 
;
;	MAPデータの作成
;
dim bgimg, 5,100
;    .y.x   上　　　　　下
bgimg.0.0 = 0, 0, 1, 0, 1
bgimg.0.1 = 0, 0, 0, 1, 1
bgimg.0.2 = 0, 0, 0, 0, 1
bgimg.0.3 = 0, 1, 0, 0, 1
bgimg.0.4 = 0, 1, 0, 0, 1
bgimg.0.5 = 1, 0, 1, 0, 1
bgimg.0.6 = 0, 0, 0, 0, 1
bgimg.0.7 = 0, 0, 0, 0, 1
bgimg.0.8 = 0, 0, 0, 0, 0
bgimg.0.9 = 0, 0, 0, 0, 1
bgimg.0.10= 1, 1, 0, 0, 1
bgimg.0.11= 0, 0, 0, 0, 1
bgimg.0.12= 0, 0, 0, 0, 1
bgimg.0.13= 0, 0, 0, 0, 1
bgimg.0.14= 0, 0, 0, 1, 1
bgimg.0.15= 0, 0, 0, 0, 1
bgimg.0.16= 0, 0, 0, 1, 0
bgimg.0.17= 0, 0, 0, 0, 0
bgimg.0.18= 0, 0, 0, 0, 1
bgimg.0.19= 0, 0, 0, 1, 1
m_BBlock bgimg    ;マップブロックの登録
 
 
 
*main
    redraw 0
    color 255, 255, 255 : boxf : color 0, 0, 0 : pos 0,0
 
    stick key, 1+4
 
    if key&1 : vx-=50    ;左右
    if key&4 : vx+=50
    if  MAXSPEED<vx : vx = MAXSPEED        ;上限設定
    if -MAXSPEED>vx : vx = -MAXSPEED
 
    if key&2 : {
        m_ChrChk
        if stat=1 : vy=-700    ;ジャンプ
    }
    if key&128 : goto *owari
 
    m_DrwCell    ;背景ブロック描画
    mdb_PutChrPosBlk    ;デバッグ用（現在キャラクター中心があるセルを描画）
    m_ChrPos vx, vy    ;キャラクター移動＋描画
 
    redraw 1
    await 20
goto *main
 
 
*owari
end

また、公式掲示板の記事「ジャンプアクションゲームの当たり判定がうまくいかない」にDrip?さんによるスクリプト(HSP3)が掲載されています。

添付ファイル:

basic2.hsp 656件 [詳細]

basic.hsp 780件 [詳細]

basic.as 665件 [詳細]

ModulelessForHSP3.hsp 918件 [詳細]

小ワザ/アクション/基本動作

OFFICIAL/関連

TUTORIAL

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

HSP Web-Ring

最新の40件

基本的な動き †

サンプル †

basic.as

basic.hsp

basic2.hsp

ダッシュ †

ジャンプ †

コメント †

障害ブロックとの衝突判定 †

アルゴリズム †

1×1ドットのキャラクターを使ったサンプル †

ある程度の大きさを持つキャラクターのサンプル †