SHARE
TWEET

TransMoonShine P1

Profane Jul 4th, 2017 (edited) 167 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top