小ワザ/アクションゲーム/ジャンプアクションゲーム

ジャンプアクションゲームをやってみる †

[編集]

　小ワザ/アクション/基本動作の続きです。
ここからは基本的な動き方の範囲から外れるので基本動作とは別ページにしました。
　なお、ここで紹介している方法はほんの一例でしかありません。絶対この方法しかダメと言うわけではなく、他にもさまざまな方法でジャンプアクションを作成することが出来ると思います。

　モジュールを本体スクリプトと別ファイル化していますが、このモジュールは完璧なものではありません。命令は勝手に増えたり減ったり、名前がかわったりすると思うので注意してください。
同じ命令でも互換性を考えずに修正すると思うので注意が必要です。
あくまでも、参考資料としてご覧下さい。(^-^;)

今回は、「キャラクターアニメーション」機能を加えてみました。

↑

複数のキャラクターを表示 †

[編集]

　モジュール部分が肥大化して、みにくくなってきたのでメインスクリプト部分とファイルを分離しました。このモジュールには以下のような命令があります。
現在はキャラクターサイズ等は固定になっていますが、少し書き換えればキャラクターごとに大きさを変えたりなどの拡張は可能だと思います。

初期化
- m_ini :初期化
- m_BBlock :マップデータ登録

内部計算用
- m_GetCellPosX100 :指定したX座標×100のセル座標を取得
- m_GetCellPosY100 :指定したY座標×100のセル座標を取得
- m_GetCellPosX :指定したX座標のセル座標を取得
- m_GetCellPosY :指定したY座標のセル座標を取得
- m_GetCellPosXY100 :指定したXY座標×100のセル座標を取得

キャラクターの速度設定
- m_VaddChr? :指定キャラクターの速度加算
- m_VsubChr? :指定キャラクターの速度減算
- m_VmulChr? :指定キャラクターの速度掛け算
- m_VdivChr? :指定キャラクターの速度割り算
- m_VsetChr? :指定キャラクターの速度を設定
- m_ChrPos? :指定したキャラクターの位置を計算（衝突判定とかもろもろ）

キャラクターの情報取得
- m_GetChrPosCell? :指定したキャラクターがいるセル座標を取得
- m_ChrChk? :指定したキャラクターのブロックとの接触状態を取得
- m_GetVChr :指定したキャラクターの速度を取得
- m_GetPosChr? :指定したキャラクターの座標×100取得

描画
- m_PutChr? :指定したキャラクターを描画
- m_DrwCell? :ブロックの描画
- m_ViewPos? :画面表示位置設定

デバッグ用命令
- mdb_PutChrPosBlk? :指定したキャラクターの中心座標があるセルを着色

↑

モジュール使い方 †

[編集]

キャラクターは速度を指定して移動させます。
次にm_ChrPos?命令を実行すると指定した速度での動きに加えて、障害物などにぶつかった場合のアクションを加えます。またm_ChrPos?命令を実行しないと設定した速度情報が反映されません。
次にm_PutChr?を実行すると画面上にキャラクターを描画します。

基本的な書き方は次のような感じです。

pcid = 0
*main
    redraw 0
    color 255, 255, 255 : boxf : color 0, 0, 0 : pos 0,0
 
    ・・・（速度vx, vyを計算）
 
 
    ;	動作設定
    m_VsetChr vx, vy, pcid    ;速度を設定
    m_ChrPos pcid    ;キャラクターを実際に移動させる
    m_GetVChr vx, vy, pcid    ;移動後の速度取得
 
    ;	描画
    m_DrwCell    ;背景ブロック描画
    m_PutChr pcid    ;キャラクター描画
 
 
    redraw 1
    await 20
goto *main

↑

サンプル †

[編集]

しょぼいサンプルを掲載します。

サンプル:モジュール

m008.as

 
 
;############################################################################################
;モジュール部分
#module
 
;	ChrID	:キャラクターID
;	ChrPr	:キャラクター情報	/	各キャラクターの座標、速度、map上の状態、などなどの情報を入れます。
;	px100, py100	:キャラクターの座標×100
;	vx100, vy100	:キャラクターの速度×100
;	px, py	:キャラクターの座標
;	vx, vy	:キャラクターの速度
;	bksizex, bksizey	:セルのサイズ
;	grv	:重力加速度
;	ChrSizeX, ChrSizeY	:キャラクターサイズ
;	bblk	:マップデータ
 
;----------------------------------
;	初期設定・登録
;
 
;初期化
#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
 
    ;キャラクターのパラメータ（今は４つまでとしていますが、必要に応じて増やせます。）
    ;登録可能な最大キャラクター数：256	（この数字に根拠はない。）
    ;（今はキャラクターID0をPCとしています。）
    dim ChrPr, 5, 256    ;x100,y100,vx100,vy100, fmap . ChrID
    ;x100,y100	:現在位置
    ;vx100,vy100	:現在速度
    ;fmap	;mapとの衝突判定結果
    ;ChrID	:キャラクターID
 
    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_VaddChr int, int, int
    mref pvx100, 0    ;速度の100倍
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID += pvx100
    ChrPr.3.ChrID += pvy100
    return
 
;キャラクター速度減算
#deffunc m_VsubChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID -= pvx100
    ChrPr.3.ChrID -= pvy100
    return
 
;キャラクター速度掛け算
#deffunc m_VmulChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID = ChrPr.2 * pvx100
    ChrPr.3.ChrID = ChrPr.3 * pvy100
    return
 
;キャラクター速度割り算
#deffunc m_VdivChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    if pvx100*pvy100!0 {
        ChrPr.2.ChrID = ChrPr.2.ChrID / pvx100
        ChrPr.3.ChrID = ChrPr.3.ChrID / pvy100
    }
    return
 
;キャラクター速度設定
#deffunc m_VsetChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID = pvx100
    ChrPr.3.ChrID = pvy100
    return
 
 
;----------------------------------
;	情報取得
;
 
;現在キャラクターがいるセル座標を取得
#deffunc m_GetChrPosCell val, val, int
    mref cpbkx, 16
    mref cpbky, 17
    mref ChrID, 2
    m_GetCellPosXY100 cpbkx, cpbky, ChrPr.0.ChrID, ChrPr.1.ChrID
    return
 
;キャラクターのブロックとの接触状態を取得
#deffunc m_ChrChk int
    mref ChrID, 0
    mref statout, 64
    statout = 0
    ;0:衝突なし、1:床上、2:天井、4:
    statout = ChrPr.4.ChrID
    return
 
 
;キャラクター速度取得
#deffunc m_GetVChr val, val, int
    mref pvx100, 16
    mref pvy100, 17
    mref ChrID, 2
    pvx100 = ChrPr.2.ChrID
    pvy100 = ChrPr.3.ChrID
    return
 
;キャラクター座標取得
#deffunc m_GetPosChr val, val, int
    mref ppx100, 16
    mref ppy100, 17
    mref ChrID, 2
    ppx100 = ChrPr.0.ChrID
    ppy100 = ChrPr.1.ChrID
    return
 
 
;----------------------------------
;	描画関係
;	（サンプルなのでboxfで塗りつぶしです。）
 
;キャラクター描画
#deffunc m_PutChr int
    mref ChrID, 0
    color 0,0,0
    px = ChrPr.0.ChrID/100 -vwposx
    py = ChrPr.1.ChrID/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 int
    mref ChrID, 0
    m_GetChrPosCell bx, by, ChrID
    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 int
    mref p1, 0
    ChrID2 = p1
 
    ;---------------------
    ;移動予定地点に障害があるか無いかを判定して動作を決めるような感じ。
    
    ;座標取得（スクリプト書きやすくしてるだけ）
    px100 = ChrPr.0.ChrID2
    py100 = ChrPr.1.ChrID2
    vx100 = ChrPr.2.ChrID2
    vy100 = ChrPr.3.ChrID2
 
    ;
    ;	障害ブロックとの衝突判定（移動予定座標）
    ;
    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.ChrID2 = px100
    ChrPr.1.ChrID2 = py100
    ChrPr.2.ChrID2 = vx100
    ChrPr.3.ChrID2 = vy100
    ChrPr.4.ChrID2 = fkabe*4 + (ften*2) + fyuka
 
 
;	mes ""+ChrID2 +" : "+ ChrPr.0.ChrID2 + ", "+ ChrPr.1.ChrID2 + ", "+ ChrPr.2.ChrID2 + ", "+ ChrPr.3.ChrID2 + ", "+ ChrPr.4.ChrID2	;デバッグ用
 
    return
 
 
 
#global
m_ini
;モジュールここまで
;############################################################################################

サンプル:本体

at008.as

;
;	ジャンプアクションゲームのサンプル
;	for HSP 2.61
;
;	操作キー：↑→←
;
 
#include "m008.as"
 
 
#define MAXSPEED 1000    ;速度限界
pcid = 0
 
;
;	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 {
        m_ChrChk pcid    ;床上にいるかどうかチェック
        if stat&1 : vx-=50    ;左
    }
    if key&4 {
        m_ChrChk pcid
        if stat&1 : vx+=50    ;右
    }
    if  MAXSPEED<vx : vx = MAXSPEED        ;上限設定
    if -MAXSPEED>vx : vx = -MAXSPEED
 
    if key&2 : {
        m_ChrChk pcid
        if stat&1 : vy=-700    ;ジャンプ
    }
    if key&128 : goto *owari
 
    ;
    ;	キャラクター動作設定
    ;
    ;PC
    m_VsetChr vx, vy, pcid    ;速度を設定
    m_ChrPos pcid    ;キャラクターを実際に移動させる
    m_GetVChr vx, vy, pcid    ;移動計算後の速度取得
    ;NPC
    m_VaddChr 20,0,10
    m_ChrPos 10
 
    ;PCを中心に表示する
    m_GetPosChr px100, py100, pcid    ;現在位置取得
    m_ViewPos px100/100 - (winx/2)    ;キャラクターを常に中心に表示する。
 
    ;
    ;	描画
    ;
    m_DrwCell    ;背景ブロック描画
    ;PC
    mdb_PutChrPosBlk pcid    ;デバッグ用（現在キャラクター中心があるセルを描画）
    m_PutChr pcid    ;キャラクター描画
    ;NPC
;	mdb_PutChrPosBlk 10
    m_PutChr 10
 
 
    redraw 1
    await 20
goto *main
 
 
*owari
end

モジュール中の「（今はキャラクターID0をPCとしています。）」という一文は削除し忘れです。 -- GENKI? 2006-02-05 (日) 21:25:44

↑

キャラクターアニメーションを実装してみる †

[編集]

アニメーションの表示はサブウィンドウに画像を読み込んでそこから必要な部分だけを繰り返しコピペする方法です。
あとはアニメーションのカウント（コマ数を数える）と、どれを表示するか、の管理だけです。これらの管理は今回もChrPr?に詰め込みました。

アニメーション命令
- m_SetChrDrc? :キャラクターの種別を登録
- m_ChngChrAni? :アニメーションの種類を指定
- m_CntChrAni? :アニメーション用カウンタ

↑

サンプルスクリプト [#pd5f865 †

[編集]

サンプル:モジュール

m010.as

 
 
;############################################################################################
;モジュール部分
#module
 
;	ChrID	:キャラクターID
;	ChrPr	:キャラクター情報	/	各キャラクターの座標、速度、map上の状態、などなどの情報を入れます。
;	px100, py100	:キャラクターの座標×100
;	vx100, vy100	:キャラクターの速度×100
;	px, py	:キャラクターの座標
;	vx, vy	:キャラクターの速度
;	bksizex, bksizey	:セルのサイズ
;	grv	:重力加速度
;	ChrSizeX, ChrSizeY	:キャラクターサイズ
;	bblk	:マップデータ
 
;----------------------------------
;	初期設定・登録
;
 
;初期化
#deffunc m_ini
    bksizex = 32;16	;セル基本サイズ
    bksizey = 32;16
    grv = 50    ;重力加速度
    ChrSizeX = 16    ;bksizex+5 などブロックの最小サイズより大きくはできない。少なくとも今のままでは。
    ChrSizeY = 32
 
    ChrCPosX = ChrSizeX / 2-1    ;左上から中心座標
    ChrCPosY = ChrSizeY / 2-1
    ChrCPosX2= ChrSizeX / 2        ;中心座標から右下座標
    ChrCPosY2= ChrSizeY / 2
 
    ;キャラクターのパラメータ（今は7つまでとしていますが、必要に応じて増やせます。）
    ;登録可能な最大キャラクター数：256	（この数字に根拠はない。）
    dim ChrPr, 7, 256    ;x100,y100,vx100,vy100, fmap, ChrPtId, ChrDctn . ChrID
    ;x100,y100	:現在位置
    ;vx100,vy100	:現在速度
    ;fmap	;mapとの衝突判定結果
    ;ChrPtId	:キャラクターの種別id
    ;ChrDctn	:キャラクターの向いている方向、アクション状態など（どのアニメを使用するか）
    ;ChrID	:キャラクターID
 
    ;キャラクターアニメーション設定
    screen 2    ;デバッグ用（実際使用する際はbufferを使用する。）
;	buffer 2
    picload "chara00.bmp"    ;ファイルが必要です。
    gsel 0, 1
    chracnts = 1    ;キャラクターアニメーション用
    gmode 2,32,32
 
    return
 
;マップ情報の登録
#deffunc m_BBlock val
    mref bblk, 48
    return
 
 
;キャラクターの種別設定
#deffunc m_SetChrDrc int, int
    mref ChrID, 0
    mref ChrPtId, 1
    ChrPr.5.ChrID = ChrPtId        ;キャラクター種類の設定（この設定でアニメーションする。）
    return
 
;キャラクターのアクションアニメーション変更
#deffunc m_ChngChrAni int, int
    mref ChrID, 0
    mref p2, 1
    ChrPr.6.ChrID = p2
    return
 
#deffunc m_CntChrAni
    ;アニメーション用カウント
    chrcnt2++
    if chrcnt2>5 : chracnt+=chracnts : chrcnt2 = 0    ;６ループに１コマアニメーション
    if chracnt>2 : chracnt-=2 : chracnts =-1    ;アニメーションは0～2の3コマ。
    if chracnt<0 : chracnt+=2 : chracnts = 1
        ;今回のサンプルはどのアニメーションも３コマ限定なのでアニメーション用カウンタは１個を共有できる。
        ;キャラクターごとに変えるならキャラクターごとにカウントすればokだと思います。
    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_VaddChr int, int, int
    mref pvx100, 0    ;速度の100倍
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID += pvx100
    ChrPr.3.ChrID += pvy100
    return
 
;キャラクター速度減算
#deffunc m_VsubChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID -= pvx100
    ChrPr.3.ChrID -= pvy100
    return
 
;キャラクター速度掛け算
#deffunc m_VmulChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID = ChrPr.2 * pvx100
    ChrPr.3.ChrID = ChrPr.3 * pvy100
    return
 
;キャラクター速度割り算
#deffunc m_VdivChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    if pvx100*pvy100!0 {
        ChrPr.2.ChrID = ChrPr.2.ChrID / pvx100
        ChrPr.3.ChrID = ChrPr.3.ChrID / pvy100
    }
    return
 
;キャラクター速度設定
#deffunc m_VsetChr int, int, int
    mref pvx100, 0
    mref pvy100, 1
    mref ChrID, 2
    ChrPr.2.ChrID = pvx100
    ChrPr.3.ChrID = pvy100
    return
 
 
;----------------------------------
;	情報取得
;
 
;現在キャラクターがいるセル座標を取得
#deffunc m_GetChrPosCell val, val, int
    mref cpbkx, 16
    mref cpbky, 17
    mref ChrID, 2
    m_GetCellPosXY100 cpbkx, cpbky, ChrPr.0.ChrID, ChrPr.1.ChrID
    return
 
;キャラクターのブロックとの接触状態を取得
#deffunc m_ChrChk int
    mref ChrID, 0
    mref statout, 64
    statout = 0
    ;0:衝突なし、1:床上、2:天井、4:
    statout = ChrPr.4.ChrID
    return
 
 
;キャラクター速度取得
#deffunc m_GetVChr val, val, int
    mref pvx100, 16
    mref pvy100, 17
    mref ChrID, 2
    pvx100 = ChrPr.2.ChrID
    pvy100 = ChrPr.3.ChrID
    return
 
;キャラクター座標取得
#deffunc m_GetPosChr val, val, int
    mref ppx100, 16
    mref ppy100, 17
    mref ChrID, 2
    ppx100 = ChrPr.0.ChrID
    ppy100 = ChrPr.1.ChrID
    return
 
 
;----------------------------------
;	描画関係
;	（サンプルなのでboxfで塗りつぶしです。）
 
;キャラクター描画
#deffunc m_PutChr int
    mref ChrID, 0
 
    if ChrPr.5.ChrID = 0 {
        color 0,0,0
        px = ChrPr.0.ChrID/100 -vwposx
        py = ChrPr.1.ChrID/100
        boxf px-ChrCPosX,py-ChrCPosY, px+ChrCPosX2,py+ChrCPosY2
    ;	pos px-ChrCPosX,py-ChrCPosY : mes "大"	;なんとなく
    }
 
    if (ChrPr.5.ChrID = 1)|(ChrPr.5.ChrID = 2) {
        px = ChrPr.0.ChrID/100 -vwposx -16    ;16 = 画像xサイズ / 2
        py = ChrPr.1.ChrID/100 -ChrCPosY
        pos px, py
 
        ;キャラクター種別によってアニメーション用画像を変更する。
        if ChrPr.5.ChrID = 1 : csx = 0 : csy = 0
        if ChrPr.5.ChrID = 2 : csx = 3 *3*32 : csy = 1 *4*32
                ;今回は規定値を設定したが直接、「左から何番目、上から何番目」と指定できるようにするのもいいでしょう。
 
        ;アニメーション表示
        gcopy 2, chracnt*32 + csx, ChrPr.6.ChrID * 32 + csy        ;コピペ
    }
 
    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 int
    mref ChrID, 0
    m_GetChrPosCell bx, by, ChrID
    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 int
    mref p1, 0
    ChrID2 = p1
 
    ;---------------------
    ;移動予定地点に障害があるか無いかを判定して動作を決めるような感じ。
    
    ;座標取得（スクリプト書きやすくしてるだけ）
    px100 = ChrPr.0.ChrID2
    py100 = ChrPr.1.ChrID2
    vx100 = ChrPr.2.ChrID2
    vy100 = ChrPr.3.ChrID2
 
    ;
    ;	障害ブロックとの衝突判定（移動予定座標）
    ;
    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.ChrID2 = px100
    ChrPr.1.ChrID2 = py100
    ChrPr.2.ChrID2 = vx100
    ChrPr.3.ChrID2 = vy100
    ChrPr.4.ChrID2 = fkabe*4 + (ften*2) + fyuka
 
 
;	mes ""+ChrID2 +" : "+ ChrPr.0.ChrID2 + ", "+ ChrPr.1.ChrID2 + ", "+ ChrPr.2.ChrID2 + ", "+ ChrPr.3.ChrID2 + ", "+ ChrPr.4.ChrID2	;デバッグ用
 
    return
 
 
 
#global
m_ini
;モジュールここまで
;############################################################################################

サンプル:本体

at010.as

;
;	ジャンプアクションゲームのサンプル
;	for HSP 2.61
;	アニメーション表示テスト
;
;	操作キー：↑→←
;
 
#include "m010.as"
 
 
#define MAXSPEED 1000    ;速度限界
pcid = 0
 
;
;	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    ;マップブロックの登録
 
 
;
;	キャラクターアニメ初期設定
;
m_SetChrDrc pcid, 1        ;PCキャラクター種別登録
m_ChngChrAni pcid, 1    ;右向きアニメ
m_SetChrDrc 10, 2        ;NPCキャラクター種別登録
m_ChngChrAni 10, 1        ;右向きアニメ
 
 
;
;	メインループ
;
*main
    redraw 0
    color 255, 255, 255 : boxf : color 0, 0, 0 : pos 0,0
    m_CntChrAni        ;アニメーション用カウンタ（コレを実行しないとアニメーションしない）
 
    ;
    ;	キー入力受け付け
    ;
    stick key, 1+4
    if key&1 {
        m_ChrChk pcid    ;床上にいるかどうかチェック
        if stat&1 : vx-=50    ;左
        m_ChngChrAni pcid, 3    ;左向きアニメ
    }
    if key&4 {
        m_ChrChk pcid
        if stat&1 : vx+=50    ;右
        m_ChngChrAni pcid, 1    ;右向きアニメ
    }
    if  MAXSPEED<vx : vx = MAXSPEED        ;上限設定
    if -MAXSPEED>vx : vx = -MAXSPEED
 
    if key&2 : {
        m_ChrChk pcid
        if stat&1 : vy=-700    ;ジャンプ
    }
    if key&128 : goto *owari
 
 
    ;
    ;	キャラクター動作設定
    ;
    ;PC
    m_VsetChr vx, vy, pcid    ;速度を設定
    m_ChrPos pcid    ;キャラクターを実際に移動させる
    m_GetVChr vx, vy, pcid    ;移動計算後の速度取得
    ;NPC
    m_VaddChr 20, 0,10
    m_ChrPos 10
 
    ;PCを中心に表示する
    m_GetPosChr px100, py100, pcid    ;現在位置取得
    m_ViewPos px100/100 - (winx/2)    ;キャラクターを常に中心に表示する。
 
 
    ;
    ;	描画
    ;
    m_DrwCell    ;背景ブロック描画
    ;PC
;	mdb_PutChrPosBlk pcid	;デバッグ用（現在キャラクター中心があるセルを描画）
    m_PutChr pcid    ;キャラクター描画
    ;NPC
;	mdb_PutChrPosBlk 10	;デバッグ用
    m_PutChr 10
 
 
    redraw 1
    await 20
goto *main
 
 
*owari
end

↑

サンプルがなぜHSP2ばかりなのか †

[編集]

単純にHSP2になれているからです。なれている分だけデバッグもしやすいもので…。また、HSP2だろうがHSP3だろうがどっちだろうがアルゴリズムはほとんど変わりようがありませんし。というわけで、別に深い意味はありません。(^ ^;
（HSP2からHSP3への移殖は容易でも、HSP3からHSP2への移殖は難しいだろうな、というのもちょっとありますけど…。） - GENKI?

↑