[Algo]DQ1の復活の呪文解析[Page2]

[Algo]DQ1の復活の呪文解析[Page1]からの続きです。
[プログラムソース]
ブログの容量制限の為、下記に分けて記述しています。
[Algo]DQ1の復活の呪文解析[Page1]
[Algo]DQ1の復活の呪文解析[Page2]
[Algo]DQ1の復活の呪文解析[Page3]
[Algo]DQ1の復活の呪文解析[Page4]

コードのコピー

''' <summary> ''' プレーヤー情報 ''' </summary> ''' <remarks></remarks> Public Class PlayerInformation #Region "変数定義"     ''' <summary>     ''' レベル：出力用     ''' </summary>     ''' <remarks></remarks>     Public Level As Integer = 0     ''' <summary>     ''' プレイヤーの名前     ''' </summary>     ''' <remarks></remarks>     Public Name As PlayerName = Nothing     ''' <summary>     ''' 武器（０～７）     ''' </summary>     ''' <remarks></remarks>     Public Weapon As Integer = 0     ''' <summary>     ''' 鎧（０～７）     ''' </summary>     ''' <remarks></remarks>     Public Armor As Integer = 0     ''' <summary>     ''' 盾（０～３）     ''' </summary>     ''' <remarks></remarks>     Public Shild As Integer = 0     ''' <summary>     ''' 道具（８個）     ''' 各々の要素（０～１４）     ''' </summary>     ''' <remarks></remarks>     Public ItemList() As Integer = New Integer() {0, 0, 0, 0, 0, 0, 0, 0}     ''' <summary>     ''' 魔法の鍵の保持数（０～６）     ''' </summary>     ''' <remarks></remarks>     Public MagicKeyNum As Integer = 0     ''' <summary>     ''' 薬草の保持数（０～６）     ''' </summary>     ''' <remarks></remarks>     Public HerbNum As Integer = 0     ''' <summary>     ''' 経験値（０～６５５３５）     ''' </summary>     ''' <remarks></remarks>     Public Experience As Integer = 0     ''' <summary>     ''' ゴールド（０～６５５３５）     ''' </summary>     ''' <remarks></remarks>     Public Gold As Integer = 0     ''' <summary>     ''' フラグ１     ''' （竜の鱗を装備したことがあるか？）     ''' はい：１、いいえ：０     ''' </summary>     ''' <remarks></remarks>     Public Flag1 As Integer = 0     ''' <summary>     ''' フラグ２     ''' （戦士の指輪を装備しているか？）     ''' はい：１、いいえ：０     ''' </summary>     ''' <remarks></remarks>     Public Flag2 As Integer = 0     ''' <summary>     ''' フラグ３     ''' （ドラゴンを倒したか？）     ''' はい：１、いいえ：０     ''' </summary>     ''' <remarks></remarks>     Public Flag3 As Integer = 0     ''' <summary>     ''' フラグ４     ''' （ゴーレムを倒したか？）     ''' はい：１、いいえ：０     ''' </summary>     ''' <remarks></remarks>     Public Flag4 As Integer = 0     ''' <summary>     ''' フラグ５     ''' （死の首飾りを入手したことがあるか？）     ''' はい：１、いいえ：０     ''' </summary>     ''' <remarks></remarks>     Public Flag5 As Integer = 0     ''' <summary>     ''' 暗号化のキー     ''' </summary>     ''' <remarks></remarks>     Public CryptKey As Integer = 0     ''' <summary>     ''' チェックコード：出力用     ''' </summary>     ''' <remarks></remarks>     Public CheckCode As Integer = 0 #End Region End Class

[VB.NET]PlayerInformation.vb

コードのコピー

''' <summary> ''' プレイヤーの名前 ''' </summary> ''' <remarks></remarks> Public Class PlayerName #Region "変数定義"     ''' <summary>     ''' 名前（文字列）     ''' </summary>     ''' <remarks></remarks>     Private _name As String = Nothing     ''' <summary>     ''' 名前（数値配列）     ''' </summary>     ''' <remarks></remarks>     Private _nameCode() As Integer = Nothing     ''' <summary>     ''' 変換テーブル     ''' </summary>     ''' <remarks></remarks>     Public Shared CONVERT_TABLE() As String = _         New String() { _             "０", "１", "２", "３", "４", _             "５", "６", "７", "８", "９", _             "あ", "い", "う", "え", "お", _             "か", "き", "く", "け", "こ", _             "さ", "し", "す", "せ", "そ", _             "た", "ち", "つ", "て", "と", _             "な", "に", "ぬ", "ね", "の", _             "は", "ひ", "ふ", "へ", "ほ", _             "ま", "み", "む", "め", "も", _             "や", "ゆ", "よ", _             "ら", "り", "る", "れ", "ろ", _             "わ", "を", "ん", _             "っ", "ゃ", "ゅ", "ょ", _             "゛", "゜", "－", "　" _         } #End Region #Region "コンストラクタ"     ''' <summary>     ''' コンストラクタ     ''' </summary>     ''' <param name="name">名前（文字列）</param>     ''' <remarks></remarks>     Public Sub New(ByVal name As String)         '名前（文字列）         Me._name = name.PadRight(4, "　")         '名前（数値配列）         Me._nameCode = DataConverter.ConvertStrToNum(Me._name, CONVERT_TABLE)     End Sub     ''' <summary>     ''' コンストラクタ     ''' </summary>     ''' <param name="nameCode">名前（数値配列）</param>     ''' <remarks></remarks>     Public Sub New(ByVal nameCode() As Integer)         '名前（数値配列）         Me._nameCode = nameCode         '名前（文字列）         Me._name = DataConverter.ConvertNumToString(Me._nameCode, CONVERT_TABLE)     End Sub #End Region #Region "メソッド定義"     ''' <summary>     ''' 名前（文字列）     ''' </summary>     ''' <returns></returns>     ''' <remarks></remarks>     Public Overrides Function ToString() As String         Return Me._name     End Function #End Region #Region "アクセッサ定義"     ''' <summary>     ''' 名前（数値配列）     ''' </summary>     ''' <value></value>     ''' <returns></returns>     ''' <remarks></remarks>     Public ReadOnly Property NameCode() As Integer()         Get             Return Me._nameCode         End Get     End Property #End Region End Class

[VB.NET]PlayerName.vb

続きはこちらから
[Algo]DQ1の復活の呪文解析[Page3]

タグ：解析 復活の呪文 ドラクエ１ ドラゴンクエスト１