Module1.bas

Attribute VB_Name = "Module1"
Public path As String
Public pathfx1 As String
Public pathfx2 As String
Public temp As String
Public modo As Integer
Public gold As Integer
Type per
    nome As String * 50
    raca As String * 3
    sexo As String * 1
    foto As String * 200
    ouro As Integer
    vida As Integer
    mana As Integer
    pvida As Integer
    pmana As Integer
    pc As Integer
    exp As Long
    ar As Boolean
    terra As Boolean
    fogo As Boolean
    agua As Boolean
    forca As Boolean
    natureza As Boolean
    meta As Boolean
    nnegra As Boolean
    nbranca As Boolean
    invoca As Boolean
End Type
Public reg As per