[EO]Equipamentos com adições de EXP em porcentagem

Profane ~ escreveu:Nah, ><

Spooky, leia o que o Genza pediu;

Genza, Quando ele pede para que você adicione algo dentro; vá na form, e dentro do utensilio a qual vc criou e dê um duplo click.

Ex:

Criou uma barra de scroll; Clique nela duas vezes, e você irá para a área de sourcer dentro do sua Scroll.

Por isso "dentro". Acho que eh a forma mais fácil de explicar.

Coloque esse codigo ali dentro.



~

Já Spooky, se está bugando é porque você no ModCombat colocou de forma errada, por isso o conflito entre o Vip e o Item Exp.

Att

Código:

Dim add As Long
        add = 0
        If GetPlayerEquipment(attacker, weapon) > 0 Then
            add = add + Item(GetPlayerEquipment(attacker, weapon)).ExtraEXP
        End If
            
        If GetPlayerEquipment(attacker, Armor) > 0 Then
            add = add + Item(GetPlayerEquipment(attacker, Armor)).ExtraEXP
        End If
        
        If GetPlayerEquipment(attacker, Shield) > 0 Then
            add = add + Item(GetPlayerEquipment(attacker, Shield)).ExtraEXP
        End If
        
        If GetPlayerEquipment(attacker, Helmet) > 0 Then
            add = add + Item(GetPlayerEquipment(attacker, Helmet)).ExtraEXP
        End If
        
        If GetPlayerEquipment(attacker, Enchant) > 0 Then
            add = add + Item(GetPlayerEquipment(attacker, Enchant)).ExtraEXP
        End If