Profane

TransMoonShine P1

Jul 4th, 2017
194
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '#########################
  2. 'Sistema de Transformação
  3. '########################
  4. 'by Profane
  5. 'Colar isso no final do frmEditor_Spell no Client
  6.  
  7.  
  8. '-------'
  9. ' Trans
  10. '-------'
  11. Private Sub chkHasTransform_Click()
  12.     ' If debug mode, handle error then exit out
  13.    If Options.Debug = 1 Then On Error GoTo errorhandler
  14.    
  15.     Spell(EditorIndex).Transform.HasTransform = chkHasTransform.Value
  16.    
  17.     ' Error handler
  18.    Exit Sub
  19. errorhandler:
  20.     HandleError "chkHasTransform_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  21.     Err.Clear
  22.     Exit Sub
  23. End Sub
  24.  
  25. Private Sub chkChangeSprite_Click()
  26.  ' If debug mode, handle error then exit out
  27.    If Options.Debug = 1 Then On Error GoTo errorhandler
  28.    
  29.     Spell(EditorIndex).Transform.ChangeSprite = chkChangeSprite.Value
  30.    
  31.     ' Error handler
  32.    Exit Sub
  33. errorhandler:
  34.     HandleError "chkChangeSprite_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  35.     Err.Clear
  36.     Exit Sub
  37. End Sub
  38.  
  39. Private Sub txtTransSprite_Change()
  40. Dim textval As String
  41. Dim numval As String
  42. ' If debug mode, handle error then exit out
  43. If Options.Debug = 1 Then On Error GoTo errorhandler
  44.    
  45.     textval = txtTransSprite.Text
  46.     If IsNumeric(textval) Then
  47.       numval = textval
  48.     Else
  49.       txtTransSprite.Text = CStr(numval)
  50.     End If
  51.    
  52.     If txtTransSprite.Text = "" Or txtTransSprite.Text = vbNullString Then
  53.        txtTransSprite.Text = vbNullString
  54.     End If
  55.    
  56.     Spell(EditorIndex).Transform.TransSprite = Abs(txtTransSprite.Text)
  57.    
  58.     ' Error handler
  59.    Exit Sub
  60. errorhandler:
  61.     HandleError "txtTransSprite_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  62.     Err.Clear
  63.     Exit Sub
  64. End Sub
  65.  
  66. Private Sub txtTransTime_Change()
  67. Dim textval As String
  68. Dim numval As String
  69. ' If debug mode, handle error then exit out
  70. If Options.Debug = 1 Then On Error GoTo errorhandler
  71.    
  72.     textval = txtTransTime.Text
  73.     If IsNumeric(textval) Then
  74.       numval = textval
  75.     Else
  76.       txtTransTime.Text = CStr(numval)
  77.     End If
  78.    
  79.     If txtTransTime.Text = "" Or txtTransTime.Text = vbNullString Then
  80.        txtTransTime.Text = vbNullString
  81.     End If
  82.    
  83.     Spell(EditorIndex).Transform.TransTimer = Abs(txtTransTime.Text)
  84.    
  85.     ' Error handler
  86.    Exit Sub
  87. errorhandler:
  88.     HandleError "txtTransTime_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  89.     Err.Clear
  90.     Exit Sub
  91. End Sub
  92.  
  93. Private Sub txtTransHp_Change()
  94. Dim textval As String
  95. Dim numval As String
  96. ' If debug mode, handle error then exit out
  97. If Options.Debug = 1 Then On Error GoTo errorhandler
  98.    
  99.     textval = txtTransHp.Text
  100.     If IsNumeric(textval) Then
  101.       numval = textval
  102.     Else
  103.       txtTransHp.Text = CStr(numval)
  104.     End If
  105.    
  106.     If txtTransHp.Text = "" Or txtTransHp.Text = vbNullString Then
  107.        txtTransHp.Text = vbNullString
  108.     End If
  109.    
  110.     Spell(EditorIndex).Transform.HpPercent = Abs(txtTransHp.Text)
  111.    
  112.     ' Error handler
  113.    Exit Sub
  114. errorhandler:
  115.     HandleError "txtTransHp_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  116.     Err.Clear
  117.     Exit Sub
  118. End Sub
  119. Private Sub txtTransMp_Change()
  120. Dim textval As String
  121. Dim numval As String
  122. ' If debug mode, handle error then exit out
  123. If Options.Debug = 1 Then On Error GoTo errorhandler
  124.    
  125.     textval = txtTransMp.Text
  126.     If IsNumeric(textval) Then
  127.       numval = textval
  128.     Else
  129.       txtTransMp.Text = CStr(numval)
  130.     End If
  131.    
  132.     If txtTransMp.Text = "" Or txtTransMp.Text = vbNullString Then
  133.        txtTransMp.Text = vbNullString
  134.     End If
  135.    
  136.     Spell(EditorIndex).Transform.MpPercent = Abs(txtTransMp.Text)
  137.    
  138.     ' Error handler
  139.    Exit Sub
  140. errorhandler:
  141.     HandleError "txtTransMp_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  142.     Err.Clear
  143.     Exit Sub
  144. End Sub
  145. Private Sub txtTransPoder_Change()
  146. Dim textval As String
  147. Dim numval As String
  148. ' If debug mode, handle error then exit out
  149. If Options.Debug = 1 Then On Error GoTo errorhandler
  150.    
  151.     textval = txtTransPoder.Text
  152.     If IsNumeric(textval) Then
  153.       numval = textval
  154.     Else
  155.       txtTransPoder.Text = CStr(numval)
  156.     End If
  157.    
  158.     If txtTransPoder.Text = "" Or txtTransPoder.Text = vbNullString Then
  159.        txtTransPoder.Text = vbNullString
  160.     End If
  161.    
  162.     Spell(EditorIndex).Transform.PoderPercent = Abs(txtTransPoder.Text)
  163.    
  164.     ' Error handler
  165.    Exit Sub
  166. errorhandler:
  167.     HandleError "txtTransPoder_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  168.     Err.Clear
  169.     Exit Sub
  170. End Sub
  171.  
  172. Private Sub txtTransDefesa_Change()
  173. Dim textval As String
  174. Dim numval As String
  175. ' If debug mode, handle error then exit out
  176. If Options.Debug = 1 Then On Error GoTo errorhandler
  177.    
  178.     textval = txtTransDefesa.Text
  179.     If IsNumeric(textval) Then
  180.       numval = textval
  181.     Else
  182.       txtTransDefesa.Text = CStr(numval)
  183.     End If
  184.    
  185.     If txtTransDefesa.Text = "" Or txtTransDefesa.Text = vbNullString Then
  186.        txtTransDefesa.Text = vbNullString
  187.     End If
  188.    
  189.     Spell(EditorIndex).Transform.DefesaPercent = Abs(txtTransDefesa.Text)
  190.    
  191.     ' Error handler
  192.    Exit Sub
  193. errorhandler:
  194.     HandleError "txtTransDefesa_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
  195.     Err.Clear
  196.     Exit Sub
  197. End Sub
RAW Paste Data