VBAで簡易RPGを作る
1年 組
番 ____
プログラム
• 骨組み
• 実演
• 基本命令復習
• IF構文
• 繰り返し構文
• 作品解説
• 敵思考回路から
• 今後の課題
骨組み
• 敵思考回路の作成
• ランダム要素をもたすためにクリティカルをつけよう
• レベルをつけてジョジョに難しくすれば面白いかも
• プレイヤーの行動パターン
• まず必要な「通常攻撃」(クリティカルあり)
• ここぞというときに使用「スペシャル」(MP消費)
• 戦略の幅が広がる「回復」(MP消費)
• その他必要なプログラム
• リセット
実演
本番の前に…
基本命令復習「①IF構文」
If <条件文> Then
<条件文が正しければ行う命令>
Else
<条件文が正しくなれければ行う命令>
End If
Else
Sub shikou()
MsgBox "(敵しゃん)波紋疾走!!"
lev = Cells(4, 1)
Cells(13, 5) = Cells(13, 5) - 20
If lev = 1 Then
End If
If Cells(1, 1) >= 0.66 Then
End If
MsgBox "(敵しゃん)ゴルァ!"
End If
Cells(13, 5) = Cells(13, 5) - 10
If lev = 3 Then
Else
For i = 1 To 3
MsgBox "(敵しゃん)波紋疾走!!"
If Cells(3, i) >= 2 Then
Cells(13, 5) = Cells(13, 5) - 20
MsgBox "(敵しゃん)追加ダメージ!!"
End If
Cells(13, 5) = Cells(13, 5) - 5
Else
Else
If Cells(3, 5) <= 30 Then
End If
If Cells(1, 1) >= 0.66 Then
Next i
MsgBox "(敵しゃん)強ゴルァ!"
Else
Cells(13, 5) = Cells(13, 5) - 15
End If
Else
MsgBox "(敵しゃん)強波紋疾走!!" End Sub
Cells(13, 5) = Cells(13, 5) - 25
End If
Else
If Cells(1, 1) >= 0.66 Then
MsgBox "(敵しゃん)ゴルァ!"
Cells(13, 5) = Cells(13, 5) - 10
本番の前に…
基本命令復習「②くりかえし構文」
For i = 1 To <繰り返す回数>
<繰り返したい命令>
Next i
今後の課題
• ビジュアル面の強化
• 内容の強化
–
–
–
–
1対1の改善
システムの強化
確率的かつ戦略的な要素の確立
プログラムの簡略化
• できれば上手く説明できるようにしたいなぁ・・
終了。
分かりにくい説明でした。わかんねぇぞボケ!という方、もっと詳しく知りたい方、
ぜひ言ってください。詳しく説明したいと思います。
ダウンロード

プレゼンテーションの実行