素人がゲームプログラム作成に挑戦
ゲームを買うお金がないから、ゲームを作るというゲームに挑戦！言語はVisual Basic（VB）をメインにC++、C#、Javaは参考程度
Entries
アニメーション その7
- ジャンル : コンピュータ
- スレッドテーマ : Visual Basic
アニメーション その6で押された方向に移動するプログラムを作成しました。
今回は入力された方向に一歩だけ進むように改造していきます。
一歩というのは32×32の画像であれば32ピクセルになります。
32ピクセル動くまでアニメーションさせて32ピクセル動いたらアニメーションを止めればいいわけです。
ということは、画像が32ピクセル動いたかどうかで判定する必要が出てきます。
この条件式は、
�〆�の場所を記録して移動した画像との差が32かどうか
�∈�の場所に32加えた目的座標を作成し、画像を動かして目的座標を超えたかどうか
のどちらかを利用すればいいかと。
ちなみに、今回は�，離僖拭璽鵑鰺�用しました。
どちらのパターンでも座標情報が必要になります。
この座標情報を作成するのはカーソルキーが入力されたときになります。
また、アニメーションさせるかさせないかはフラグを利用していきます。
このフラグもカーソルキーが押されたときに有効にします。
さらに、カーソルキーが押されたときの処理もフラグの状態を利用するようにコードを修正しておきます。
この作業をしておかないと動いている最中に方向変換ができるようになってしまいます。
今回のメインは32ピクセル移動という処理です。
画像の座標はPointではなく少数点のPointFを利用しています。
一回のPaintメソッドで何ピクセル移動するかはコンピュータ次第ですが少数以下の値はかならず発生していしまいます。
これがあると、段々ズレが生じてしまう原因となってしまいます。
そこで対策として画像の場所は浮動小数点のPointF型で管理させますが、もっと大雑把に画像がどこのブロック（マス）に配置されているかを管理するPoint型の座標を用意しておきます。
座標といってもピクセル単位ではなく、ブロック（マス）単位の座標として考えます。
このブロック（マス）座標に32ピクセルを掛ければかならず整数で32の倍数になる座標が作成できます。
これを画像の場所情報として再度設定すれば変な誤差はでなくなります。
上記のことをコードにすると以下のようになります。
以上でキャラクターをカーソルキーで移動させるアニメーションは完成です。
RPGゲームに必要なものはまだまだありますが･･･
次はマップチップに挑戦してみますか。
今回は入力された方向に一歩だけ進むように改造していきます。
一歩というのは32×32の画像であれば32ピクセルになります。
32ピクセル動くまでアニメーションさせて32ピクセル動いたらアニメーションを止めればいいわけです。
ということは、画像が32ピクセル動いたかどうかで判定する必要が出てきます。
この条件式は、
�〆�の場所を記録して移動した画像との差が32かどうか
�∈�の場所に32加えた目的座標を作成し、画像を動かして目的座標を超えたかどうか
のどちらかを利用すればいいかと。
ちなみに、今回は�，離僖拭璽鵑鰺�用しました。
どちらのパターンでも座標情報が必要になります。
この座標情報を作成するのはカーソルキーが入力されたときになります。
また、アニメーションさせるかさせないかはフラグを利用していきます。
このフラグもカーソルキーが押されたときに有効にします。
さらに、カーソルキーが押されたときの処理もフラグの状態を利用するようにコードを修正しておきます。
この作業をしておかないと動いている最中に方向変換ができるようになってしまいます。
今回のメインは32ピクセル移動という処理です。
画像の座標はPointではなく少数点のPointFを利用しています。
一回のPaintメソッドで何ピクセル移動するかはコンピュータ次第ですが少数以下の値はかならず発生していしまいます。
これがあると、段々ズレが生じてしまう原因となってしまいます。
そこで対策として画像の場所は浮動小数点のPointF型で管理させますが、もっと大雑把に画像がどこのブロック（マス）に配置されているかを管理するPoint型の座標を用意しておきます。
座標といってもピクセル単位ではなく、ブロック（マス）単位の座標として考えます。
このブロック（マス）座標に32ピクセルを掛ければかならず整数で32の倍数になる座標が作成できます。
これを画像の場所情報として再度設定すれば変な誤差はでなくなります。
上記のことをコードにすると以下のようになります。
Public Class Form1
Enum Direction
（省略）
End Enum
Dim img As Bitmap = New Bitmap(My.Resources.anime6) 'スプライト画像
Dim imgRect(,) As Rectangle '画像矩形配列
Dim iNo As Integer '表示画像インデックス
Dim direct As Direction 'キャラクターの向いている方向
Dim swatch As Stopwatch = New Stopwatch() 'ストップウォッチ
Dim lastTime As Double '前回実行時の時間
Dim loc As PointF '画像の場所座標
Dim vel As PointF '画像の移動速度･･･ベクトル
Dim pos As Point '画像表示ブロック
Dim dep As PointF '移動時の画像座標
Dim MoveFlg As Boolean '移動アニメーションフラグ
Public Sub New( )
（省略）
End Sub
Sub Init( )
imgRect = New Rectangle(3, 3) { }
For y As Integer = 0 To imgRect.GetUpperBound(0) '行･･･前、後、左、右
For x As Integer = 0 To imgRect.GetUpperBound(1) '列･･･１，２，３，４
imgRect(y, x) = New Rectangle(x * 32, y * 32, 32, 32)
Next
Next
iNo = 0
direct = Direction.down '前向き
lastTime = 0.0
swatch.Reset( )
swatch.Start( )
pos = New Point(0, 0)
loc = New PointF(pos.X * 32, pos.Y * 32)
vel = New PointF(32, 0)
MoveFlg = False
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim nowTime As Double = swatch.ElapsedMilliseconds / 1000.0 'Paintメソッドを実行した瞬間の時間
Dim elapsedTime As Double = nowTime - lastTime
lastTime = nowTime
'画像切り替え処理
iNo = CInt(Fix((nowTime * 2) Mod 4.0F))
If MoveFlg = True Then
loc.X += vel.X * CSng(elapsedTime) 'X座標の移動
loc.Y += vel.Y * CSng(elapsedTime) 'Y座標の移動
If Math.Abs(loc.X - dep.X) >= 32 OrElse Math.Abs(loc.Y - dep.Y) > 32 Then 'XY座標が開始座標から32ピクセル移動しているか
MoveFlg = False
pos.X += vel.X \ 32 'ブロック座標の算出
pos.Y += vel.Y \ 32 'ブロック座標の算出
loc = New PointF(pos.X * 32, pos.Y * 32) 'ブロック座標から変換
End If
End If
'画像描画処理
g.DrawImage(img, loc.X, loc.Y, imgRect(direct, iNo), GraphicsUnit.Pixel)
Me.Invalidate( ) '強制再描画
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If MoveFlg = False Then 'アニメーションしていなければ
Select Case e.KeyCode
Case Keys.Up
direct = Direction.up
vel = New PointF(0, -32)
MoveFlg = True
Case Keys.Down
direct = Direction.down
vel = New PointF(0, 32)
MoveFlg = True
Case Keys.Left
direct = Direction.left
vel = New PointF(-32, 0)
MoveFlg = True
Case Keys.Right
direct = Direction.right
vel = New PointF(32, 0)
MoveFlg = True
End Select
dep = loc '移動開始時の座標を記録
End If
End Sub
End Class
Enum Direction
（省略）
End Enum
Dim img As Bitmap = New Bitmap(My.Resources.anime6) 'スプライト画像
Dim imgRect(,) As Rectangle '画像矩形配列
Dim iNo As Integer '表示画像インデックス
Dim direct As Direction 'キャラクターの向いている方向
Dim swatch As Stopwatch = New Stopwatch() 'ストップウォッチ
Dim lastTime As Double '前回実行時の時間
Dim loc As PointF '画像の場所座標
Dim vel As PointF '画像の移動速度･･･ベクトル
Dim pos As Point '画像表示ブロック
Dim dep As PointF '移動時の画像座標
Dim MoveFlg As Boolean '移動アニメーションフラグ
Public Sub New( )
（省略）
End Sub
Sub Init( )
imgRect = New Rectangle(3, 3) { }
For y As Integer = 0 To imgRect.GetUpperBound(0) '行･･･前、後、左、右
For x As Integer = 0 To imgRect.GetUpperBound(1) '列･･･１，２，３，４
imgRect(y, x) = New Rectangle(x * 32, y * 32, 32, 32)
Next
Next
iNo = 0
direct = Direction.down '前向き
lastTime = 0.0
swatch.Reset( )
swatch.Start( )
pos = New Point(0, 0)
loc = New PointF(pos.X * 32, pos.Y * 32)
vel = New PointF(32, 0)
MoveFlg = False
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim nowTime As Double = swatch.ElapsedMilliseconds / 1000.0 'Paintメソッドを実行した瞬間の時間
Dim elapsedTime As Double = nowTime - lastTime
lastTime = nowTime
'画像切り替え処理
iNo = CInt(Fix((nowTime * 2) Mod 4.0F))
If MoveFlg = True Then
loc.X += vel.X * CSng(elapsedTime) 'X座標の移動
loc.Y += vel.Y * CSng(elapsedTime) 'Y座標の移動
If Math.Abs(loc.X - dep.X) >= 32 OrElse Math.Abs(loc.Y - dep.Y) > 32 Then 'XY座標が開始座標から32ピクセル移動しているか
MoveFlg = False
pos.X += vel.X \ 32 'ブロック座標の算出
pos.Y += vel.Y \ 32 'ブロック座標の算出
loc = New PointF(pos.X * 32, pos.Y * 32) 'ブロック座標から変換
End If
End If
'画像描画処理
g.DrawImage(img, loc.X, loc.Y, imgRect(direct, iNo), GraphicsUnit.Pixel)
Me.Invalidate( ) '強制再描画
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If MoveFlg = False Then 'アニメーションしていなければ
Select Case e.KeyCode
Case Keys.Up
direct = Direction.up
vel = New PointF(0, -32)
MoveFlg = True
Case Keys.Down
direct = Direction.down
vel = New PointF(0, 32)
MoveFlg = True
Case Keys.Left
direct = Direction.left
vel = New PointF(-32, 0)
MoveFlg = True
Case Keys.Right
direct = Direction.right
vel = New PointF(32, 0)
MoveFlg = True
End Select
dep = loc '移動開始時の座標を記録
End If
End Sub
End Class
以上でキャラクターをカーソルキーで移動させるアニメーションは完成です。
RPGゲームに必要なものはまだまだありますが･･･
次はマップチップに挑戦してみますか。
0件のコメント
コメントの投稿
0件のトラックバック
- トラックバックURL
- http://hinagis.blog33.fc2.com/tb.php/30-85b23ba2
- この記事に対してトラックバックを送信する（FC2ブログユーザー）
