Reference
  Util\Party.txt
  Util\CommonDialog.txt
End Reference

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CreatePartyStatusWindow
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Procedure CreatePartyStatusWindow(x, y, width, height)

  Dim hWnd = CreateEmptyInfoWindow(x, y, width, height, 10, 4)
  Return hWnd

End Procedure

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'UpdatePartyStatusWindow
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Procedure UpdatePartyStatusWindow(hWnd)
  GetInfoWindowCell(hWnd, 1, 1).Text = "なまえ"
  GetInfoWindowCell(hWnd, 5, 1).Text = "ＨＰ"
  GetInfoWindowCell(hWnd, 7, 1).Text = "ＭＰ"
  GetInfoWindowCell(hWnd, 9, 1).Text = "Ｌｖ "
  Dim we = GetPartyMembers()
  For i = 1 To we.Count
    Dim who = we[i]
    GetInfoWindowCell(hWnd, 1, i).Text = who.Name
    GetInfoWindowCell(hWnd, 5, i).Text = who.HP
    GetInfoWindowCell(hWnd, 7, i).Text = who.MP
    GetInfoWindowCell(hWnd, 10, i).Text = who.Level
  Next
End Procedure

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CreateNameListBox
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Procedure CreateNameListBox(theList, x, y, width, height, _
  scProc, scParam, caption, index)
  Dim labels = CreateArrayList(theList.Count)
  For i = 1 To theList.Count
    labels[i] = theList[i].Name
  Next
  Return CreateMenu(x, y, width, height, _
    scProc, scParam, caption, labels, Nothing, index)
End Procedure
