Pondo a frmSpellEditor para text!
Página 1 de 1 • Compartilhe •
Pondo a frmSpellEditor para text!
Começando
Antes de tudo vamos baixar a frmSpellEditor para ficar mais facil
Client~Side
Procure por:
Mude para:
Procure por:
Mude para:
Procure por:
Mude para:
Creditos
Ricardo XD
Antes de tudo vamos baixar a frmSpellEditor para ficar mais facil
Client~Side
Procure por:
- Código:
Public Sub SpellEditorInit()
Dim I As Long
frmSpellEditor.cmbClassReq.AddItem "Todas as Classes"
For I = 1 To Max_Classes
frmSpellEditor.cmbClassReq.AddItem Trim(Class(I).Name)
Next I
frmSpellEditor.txtName.Text = Trim(Spell(EditorIndex).Name)
frmSpellEditor.cmbClassReq.ListIndex = Spell(EditorIndex).ClassReq
frmSpellEditor.scrlLevelReq.Value = Spell(EditorIndex).LevelReq
frmSpellEditor.cmbType.ListIndex = Spell(EditorIndex).Type
frmSpellEditor.scrlVitalMod.Value = Spell(EditorIndex).Data1
frmSpellEditor.scrlCost.Value = Spell(EditorIndex).MPCost
frmSpellEditor.scrlSound.Value = Spell(EditorIndex).Sound
If Spell(EditorIndex).Range = 0 Then Spell(EditorIndex).Range = 1
frmSpellEditor.scrlRange.Value = Spell(EditorIndex).Range
frmSpellEditor.scrlSpellAnim.Value = Spell(EditorIndex).SpellAnim
frmSpellEditor.scrlSpellTime.Value = Spell(EditorIndex).SpellTime
frmSpellEditor.scrlSpellDone.Value = Spell(EditorIndex).SpellDone
frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE
frmSpellEditor.Show vbModal
End Sub
Mude para:
- Código:
Public Sub SpellEditorInit()
Dim I As Long
frmSpellEditor.cmbClassReq.AddItem "Todas as Classes"
For I = 1 To Max_Classes
frmSpellEditor.cmbClassReq.AddItem Trim(Class(I).Name)
Next I
frmSpellEditor.txtName.Text = Trim(Spell(EditorIndex).Name)
frmSpellEditor.cmbClassReq.ListIndex = Spell(EditorIndex).ClassReq
frmSpellEditor.scrlLevelReq.Text = Spell(EditorIndex).LevelReq
frmSpellEditor.cmbType.ListIndex = Spell(EditorIndex).Type
frmSpellEditor.scrlVitalMod.Text = Spell(EditorIndex).Data1
frmSpellEditor.scrlCost.Text = Spell(EditorIndex).MPCost
frmSpellEditor.scrlSound.Text = Spell(EditorIndex).Sound
If Spell(EditorIndex).Range = 0 Then Spell(EditorIndex).Range = 1
frmSpellEditor.scrlRange.Text = Spell(EditorIndex).Range
frmSpellEditor.scrlSpellAnim.Text = Spell(EditorIndex).SpellAnim
frmSpellEditor.scrlSpellTime.Text = Spell(EditorIndex).SpellTime
frmSpellEditor.scrlSpellDone.Text = Spell(EditorIndex).SpellDone
frmSpellEditor.chkArea.Value = Spell(EditorIndex).AE
frmSpellEditor.Show vbModal
End Sub
Procure por:
- Código:
Public Sub SpellEditorOk()
Spell(EditorIndex).Name = frmSpellEditor.txtName.Text
Spell(EditorIndex).ClassReq = frmSpellEditor.cmbClassReq.ListIndex
Spell(EditorIndex).LevelReq = frmSpellEditor.scrlLevelReq.Value
Spell(EditorIndex).Type = frmSpellEditor.cmbType.ListIndex
Spell(EditorIndex).Data1 = frmSpellEditor.scrlVitalMod.Value
Spell(EditorIndex).Data3 = 0
Spell(EditorIndex).MPCost = frmSpellEditor.scrlCost.Value
Spell(EditorIndex).Sound = frmSpellEditor.scrlSound.Value
Spell(EditorIndex).Range = frmSpellEditor.scrlRange.Value
Spell(EditorIndex).SpellAnim = frmSpellEditor.scrlSpellAnim.Value
Spell(EditorIndex).SpellTime = frmSpellEditor.scrlSpellTime.Value
Spell(EditorIndex).SpellDone = frmSpellEditor.scrlSpellDone.Value
Spell(EditorIndex).AE = frmSpellEditor.chkArea.Value
Call SendSaveSpell(EditorIndex)
InSpellEditor = False
Unload frmSpellEditor
End Sub
Mude para:
- Código:
Public Sub SpellEditorOk()
Spell(EditorIndex).Name = frmSpellEditor.txtName.Text
Spell(EditorIndex).ClassReq = frmSpellEditor.cmbClassReq.ListIndex
Spell(EditorIndex).LevelReq = frmSpellEditor.scrlLevelReq.Text
Spell(EditorIndex).Type = frmSpellEditor.cmbType.ListIndex
Spell(EditorIndex).Data1 = frmSpellEditor.scrlVitalMod.Text
Spell(EditorIndex).Data3 = 0
Spell(EditorIndex).MPCost = frmSpellEditor.scrlCost.Text
Spell(EditorIndex).Sound = frmSpellEditor.scrlSound.Text
Spell(EditorIndex).Range = frmSpellEditor.scrlRange.Text
Spell(EditorIndex).SpellAnim = frmSpellEditor.scrlSpellAnim.Text
Spell(EditorIndex).SpellTime = frmSpellEditor.scrlSpellTime.Text
Spell(EditorIndex).SpellDone = frmSpellEditor.scrlSpellDone.Text
Spell(EditorIndex).AE = frmSpellEditor.chkArea.Value
Call SendSaveSpell(EditorIndex)
InSpellEditor = False
Unload frmSpellEditor
End Sub
Procure por:
- Código:
SpellDone = scrlSpellDone.Value
SpellAnim = scrlSpellAnim.Value
SpellTime = scrlSpellTime.Value
Mude para:
- Código:
SpellDone = scrlSpellDone.Text
SpellAnim = scrlSpellAnim.Text
SpellTime = scrlSpellTime.Text
Creditos
Ricardo XD
RicardoxD- Mensagens : 89

» XIM4 - Adaptador para usar mouse e teclado no PS4/Xone
» TOP 5 - Jogos para Perder um Amigo
» Sugestões de nomes para o novo espaço
» 7 Wonders para 2 jogadores
» 25 Coisas que qualquer um pode fazer para melhorar seu desempenho no jogo!
» TOP 5 - Jogos para Perder um Amigo
» Sugestões de nomes para o novo espaço
» 7 Wonders para 2 jogadores
» 25 Coisas que qualquer um pode fazer para melhorar seu desempenho no jogo!
Página 1 de 1
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum