Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Engines » Elysium » Tutoriais » Mudando A FrmitemEditor Para Texto

Mudando A FrmitemEditor Para Texto

Ir para baixo  Mensagem [Página 1 de 1]

1Mudando A FrmitemEditor Para Texto Empty Mudando A FrmitemEditor Para Texto Sáb Dez 29, 2012 6:11 pm

DrayonDuarte

DrayonDuarte

Olá pessoal, pelo imprevisto anterior o tópico do lucas roberto teve que ser excluído pelo membro estar inativo e não dar mais noticias sobre a arrumação do link!

~ Começando ~

Client~Side / ModGameLogic procure por

Código:
    Public Sub ItemEditorInit()

e troque todo o código para

Código:
    Public Sub ItemEditorInit()
    Dim i As Long
        EditorItemY = Int(Item(EditorIndex).Pic / 6)
        EditorItemX = (Item(EditorIndex).Pic - Int(Item(EditorIndex).Pic / 6) * 6)
     
        frmItemEditor.scrlClassReq.Max = Max_Classes

        frmItemEditor.picItems.Picture = LoadPicture(App.Path & "\GFX\Itens.bmp")
     
        frmItemEditor.txtName.Text = Trim(Item(EditorIndex).Name)
        frmItemEditor.txtDesc.Text = Trim(Item(EditorIndex).desc)
        frmItemEditor.cmbType.ListIndex = Item(EditorIndex).Type
     
        If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (frmItemEditor.cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then
            frmItemEditor.fraEquipment.Visible = True
            frmItemEditor.fraAttributes.Visible = True
            frmItemEditor.fraBow.Visible = True
         
            If Item(EditorIndex).Data1 >= 0 Then
                frmItemEditor.scrlDurability.Value = Item(EditorIndex).Data1
            Else
                frmItemEditor.scrlDurability.Value = Item(EditorIndex).Data1 * -1
            End If
            frmItemEditor.scrlStrength.Text = Item(EditorIndex).Data2
            frmItemEditor.scrlStrReq.Text = Item(EditorIndex).StrReq
            frmItemEditor.scrlDefReq.Text = Item(EditorIndex).DefReq
            frmItemEditor.scrlSpeedReq.Text = Item(EditorIndex).SpeedReq
            frmItemEditor.scrlMagicReq.Text = Item(EditorIndex).MagicReq
            frmItemEditor.scrlClassReq.Value = Item(EditorIndex).ClassReq
            frmItemEditor.scrlAccessReq.Value = Item(EditorIndex).AccessReq
            frmItemEditor.scrlAddHP.Text = Item(EditorIndex).AddHP
            frmItemEditor.scrlAddMP.Text = Item(EditorIndex).AddMP
            frmItemEditor.scrlAddSP.Text = Item(EditorIndex).AddSP
            frmItemEditor.scrlAddStr.Text = Item(EditorIndex).AddStr
            frmItemEditor.scrlAddDef.Text = Item(EditorIndex).AddDef
            frmItemEditor.scrlAddMagi.Text = Item(EditorIndex).AddMagi
            frmItemEditor.scrlAddSpeed.Text = Item(EditorIndex).AddSpeed
            frmItemEditor.scrlAddEXP.Text = Item(EditorIndex).AddEXP
            frmItemEditor.scrlAttackSpeed.Value = Item(EditorIndex).AttackSpeed
            If Item(EditorIndex).Data3 > 0 Then
                frmItemEditor.chkBow.Value = Checked
            Else
                frmItemEditor.chkBow.Value = Unchecked
            End If
         
            If Item(EditorIndex).Data1 > 0 Then
                frmItemEditor.chkRepair.Value = Checked
            Else
                frmItemEditor.chkRepair.Value = Unchecked
            End If
         
            frmItemEditor.cmbBow.Clear
            If frmItemEditor.chkBow.Value = Checked Then
                For i = 1 To 100
                    frmItemEditor.cmbBow.AddItem i & ": " & Arrows(i).Name
                Next i
                frmItemEditor.cmbBow.ListIndex = Item(EditorIndex).Data3 - 1
                frmItemEditor.picBow.Top = (Arrows(Item(EditorIndex).Data3).Pic * 32) * -1
                frmItemEditor.cmbBow.Enabled = True
            Else
                frmItemEditor.cmbBow.AddItem "Nenhum"
                frmItemEditor.cmbBow.ListIndex = 0
                frmItemEditor.cmbBow.Enabled = False
            End If
        Else
            frmItemEditor.fraEquipment.Visible = False
        End If
     
        If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_POTIONADDHP) And (frmItemEditor.cmbType.ListIndex <= ITEM_TYPE_POTIONSUBSP) Then
            frmItemEditor.fraVitals.Visible = True
            frmItemEditor.scrlVitalMod.Text = Item(EditorIndex).Data1
        Else
            frmItemEditor.fraVitals.Visible = False
        End If
     
        If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_SPELL) Then
            frmItemEditor.fraSpell.Visible = True
            frmItemEditor.scrlSpell.Value = Item(EditorIndex).Data1
        Else
            frmItemEditor.fraSpell.Visible = False
        End If

        frmItemEditor.Show vbModal
    End Sub

procure por


Código:
    Public Sub ItemEditorOk()

mude tudo para:


Código:
    Public Sub ItemEditorOk()
        Item(EditorIndex).Name = frmItemEditor.txtName.Text
        Item(EditorIndex).desc = frmItemEditor.txtDesc.Text
        Item(EditorIndex).Pic = EditorItemY * 6 + EditorItemX
        Item(EditorIndex).Type = frmItemEditor.cmbType.ListIndex

        If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (frmItemEditor.cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then
            Item(EditorIndex).Data1 = frmItemEditor.scrlDurability.Value
            If frmItemEditor.chkRepair.Value = 0 Then Item(EditorIndex).Data1 = Item(EditorIndex).Data1 * -1
            Item(EditorIndex).Data2 = frmItemEditor.scrlStrength.Text
            If frmItemEditor.chkBow.Value = Checked Then
                Item(EditorIndex).Data3 = frmItemEditor.cmbBow.ListIndex + 1
            Else
                Item(EditorIndex).Data3 = 0
            End If
            Item(EditorIndex).StrReq = frmItemEditor.scrlStrReq.Text
            Item(EditorIndex).DefReq = frmItemEditor.scrlDefReq.Text
            Item(EditorIndex).SpeedReq = frmItemEditor.scrlSpeedReq.Text
            Item(EditorIndex).MagicReq = frmItemEditor.scrlMagicReq.Text
         
            Item(EditorIndex).ClassReq = frmItemEditor.scrlClassReq.Value
            Item(EditorIndex).AccessReq = frmItemEditor.scrlAccessReq.Value
         
            Item(EditorIndex).AddHP = frmItemEditor.scrlAddHP.Text
            Item(EditorIndex).AddMP = frmItemEditor.scrlAddMP.Text
            Item(EditorIndex).AddSP = frmItemEditor.scrlAddSP.Text
            Item(EditorIndex).AddStr = frmItemEditor.scrlAddStr.Text
            Item(EditorIndex).AddDef = frmItemEditor.scrlAddDef.Text
            Item(EditorIndex).AddMagi = frmItemEditor.scrlAddMagi.Text
            Item(EditorIndex).AddSpeed = frmItemEditor.scrlAddSpeed.Text
            Item(EditorIndex).AddEXP = frmItemEditor.scrlAddEXP.Text
            Item(EditorIndex).AttackSpeed = frmItemEditor.scrlAttackSpeed.Value
        End If
     
        If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_POTIONADDHP) And (frmItemEditor.cmbType.ListIndex <= ITEM_TYPE_POTIONSUBSP) Then
            Item(EditorIndex).Data1 = frmItemEditor.scrlVitalMod.Text
            Item(EditorIndex).Data2 = 0
            Item(EditorIndex).Data3 = 0
            Item(EditorIndex).StrReq = 0
            Item(EditorIndex).DefReq = 0
            Item(EditorIndex).SpeedReq = 0
            Item(EditorIndex).MagicReq = 0
            Item(EditorIndex).ClassReq = 0
            Item(EditorIndex).AccessReq = 0
         
            Item(EditorIndex).AddHP = 0
            Item(EditorIndex).AddMP = 0
            Item(EditorIndex).AddSP = 0
            Item(EditorIndex).AddStr = 0
            Item(EditorIndex).AddDef = 0
            Item(EditorIndex).AddMagi = 0
            Item(EditorIndex).AddSpeed = 0
            Item(EditorIndex).AddEXP = 0
            Item(EditorIndex).AttackSpeed = 0
        End If

Procure por


Código:
    If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_PET) Then

mude para:


Código:
        If (frmItemEditor.cmbType.ListIndex = ITEM_TYPE_PET) Then
            Item(EditorIndex).Data1 = frmItemEditor.scrlPet.Text
            Item(EditorIndex).Data2 = frmItemEditor.scrlPetLevel.Text
            Item(EditorIndex).Data3 = 0
            Item(EditorIndex).StrReq = 0
            Item(EditorIndex).DefReq = 0
            Item(EditorIndex).SpeedReq = 0
            Item(EditorIndex).MagicReq = 0
            Item(EditorIndex).ClassReq = 0
            Item(EditorIndex).AccessReq = 0

Agora baixe a form e adicione ao seu client!
download frmitemeditor

Exemplo:
Spoiler:


Creditos:

Lucas Roberto

Ir para o topo  Mensagem [Página 1 de 1]

 » Engines » Elysium » Tutoriais » Mudando A FrmitemEditor Para Texto

Tópicos semelhantes

-

» Proteção para sua Packet

Permissões neste sub-fórum
Não podes responder a tópicos