TransMoonShine P1

'#########################
'Sistema de Transformação
'########################
'by Profane
'Colar isso no final do frmEditor_Spell no Client


'-------'
' Trans
'-------'
Private Sub chkHasTransform_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Spell(EditorIndex).Transform.HasTransform = chkHasTransform.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "chkHasTransform_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub chkChangeSprite_Click()
 ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Spell(EditorIndex).Transform.ChangeSprite = chkChangeSprite.Value

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "chkChangeSprite_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtTransSprite_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransSprite.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransSprite.Text = CStr(numval)
    End If

    If txtTransSprite.Text = "" Or txtTransSprite.Text = vbNullString Then
       txtTransSprite.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.TransSprite = Abs(txtTransSprite.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransSprite_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtTransTime_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransTime.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransTime.Text = CStr(numval)
    End If

    If txtTransTime.Text = "" Or txtTransTime.Text = vbNullString Then
       txtTransTime.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.TransTimer = Abs(txtTransTime.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransTime_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtTransHp_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransHp.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransHp.Text = CStr(numval)
    End If

    If txtTransHp.Text = "" Or txtTransHp.Text = vbNullString Then
       txtTransHp.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.HpPercent = Abs(txtTransHp.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransHp_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
Private Sub txtTransMp_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransMp.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransMp.Text = CStr(numval)
    End If

    If txtTransMp.Text = "" Or txtTransMp.Text = vbNullString Then
       txtTransMp.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.MpPercent = Abs(txtTransMp.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransMp_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
Private Sub txtTransPoder_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransPoder.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransPoder.Text = CStr(numval)
    End If

    If txtTransPoder.Text = "" Or txtTransPoder.Text = vbNullString Then
       txtTransPoder.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.PoderPercent = Abs(txtTransPoder.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransPoder_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub txtTransDefesa_Change()
Dim textval As String
Dim numval As String
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    textval = txtTransDefesa.Text
    If IsNumeric(textval) Then
      numval = textval
    Else
      txtTransDefesa.Text = CStr(numval)
    End If

    If txtTransDefesa.Text = "" Or txtTransDefesa.Text = vbNullString Then
       txtTransDefesa.Text = vbNullString
    End If

    Spell(EditorIndex).Transform.DefesaPercent = Abs(txtTransDefesa.Text)

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "txtTransDefesa_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub