Mirage Source

Sub LoadElements()
Dim FileName As String
Dim i As Long
Dim f As Long

    Call CheckElement
    For i = 1 To MAX_ELEMENTS
        Call SetStatus("Loading elements... " & Int((i / MAX_ELEMENTS) * 100) & "%")
        FileName = App.Path & "\Elements\Element" & i & ".dat"
        f = FreeFile
        Open FileName For Binary As #f
        Get #f, , Element(i)
        Close #f
        DoEvents

    Next
End Sub

Public Sub ElementEditorInit()
    frmElementEditor.txtName.Text = Trim(Element(EditorIndex - 1).Name)
    frmElementEditor.scrlStrong.Value = Element(EditorIndex - 1).Strong
    frmElementEditor.scrlWeak.Value = Element(EditorIndex - 1).Weak
    frmElementEditor.Show vbModal
End Sub