VBAで簡易RPGを作る １年 組 番 ＿＿＿＿ プログラム • 骨組み • 実演 • 基本命令復習 • IF構文 • 繰り返し構文 • 作品解説 • 敵思考回路から • 今後の課題 骨組み • 敵思考回路の作成 • ランダム要素をもたすためにクリティカルをつけよう • レベルをつけてジョジョに難しくすれば面白いかも • プレイヤーの行動パターン • まず必要な「通常攻撃」（クリティカルあり） • ここぞというときに使用「スペシャル」（ＭＰ消費） • 戦略の幅が広がる「回復」（ＭＰ消費） • その他必要なプログラム • リセット 実演 本番の前に… 基本命令復習「①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 今後の課題 • ビジュアル面の強化 • 内容の強化 – – – – １対１の改善 システムの強化 確率的かつ戦略的な要素の確立 プログラムの簡略化 • できれば上手く説明できるようにしたいなぁ・・ 終了。 分かりにくい説明でした。わかんねぇぞボケ！という方、もっと詳しく知りたい方、 ぜひ言ってください。詳しく説明したいと思います。
© Copyright 2024 ExpyDoc
