[EO] Upgrade "StunPlayer" v2.0

Código:

'if a stunning spell, stun the player
        If SpellNum > 0 Then
            If Spell(SpellNum).StunDuration > 0 Then StunPlayer Victim, SpellNum
            ' DoT
            If Spell(SpellNum).Duration > 0 Then
                AddDoT_Player Victim, SpellNum, Attacker
            End If
        End If
    End If

Código:

'if a stunning spell, stun the player
        If SpellNum > 0 Then
            If Spell(SpellNum).StunDuration > 0 Then StunPlayer Attacker, Victim, SpellNum
            ' DoT
            If Spell(SpellNum).Duration > 0 Then
                AddDoT_Player Victim, SpellNum, Attacker
            End If
        End If
    End If

Código:

Public Sub StunPlayer(ByVal Index As Long, ByVal SpellNum As Long)
    ' check if it's a stunning spell
    If Spell(SpellNum).StunDuration > 0 Then
        ' set the values on index
        TempPlayer(Index).StunDuration = Spell(SpellNum).StunDuration
        TempPlayer(Index).StunTimer = GetTickCount
        ' send it to the index
        SendStunned Index
        ' tell him he's stunned
        PlayerMsg Index, "You have been stunned.", BrightRed
    End If
End Sub

Código:

Public Sub StunPlayer(ByVal Attacker As Long, ByVal Victim As Long, Optional ByVal SpellNum As Long = 0)
Dim Stun As Long
Dim Unstun As Long

 Stun = GetPlayerStat(Attacker, Agility)
 Unstun = GetPlayerStat(Victim, Agility)
 
 ' Check if attacker has more or equal agility than victim
 If Stun <= Unstun Then
  Exit Sub
End If

 Stun = Stun * 0.01 ' 1%
 Unstun = Unstun * 0.01 '1%

    ' check if it's a stunning spell
    If Spell(SpellNum).StunDuration > 0 Then
        ' set the values on index
        TempPlayer(Victim).StunDuration = Spell(SpellNum).StunDuration + Stun - Unstun
        TempPlayer(Victim).StunTimer = GetTickCount
        ' send it to the index
          SendStunned Victim
        ' tell him he's stunned
        PlayerMsg Victim, "Você foi paralizado por: " & TempPlayer(Victim).StunDuration & " segundos.", Cyan
    End If
End Sub

Código:

GetPlayerStat(Attacker, Endurance) ' status atacante baseado em defesa
GetPlayerStat(Attacker, Strength) ' status atacante baseado em força
GetPlayerStat(Attacker, Intelligence) ' status atacante baseado em inteligência
GetPlayerStat(Attacker, Willpower) ' status atacante baseado em força de vontade
GetPlayerStat(Attacker, Agility) ' status atacante baseado em agilidade

Código:

GetPlayerStat(Vitima/Atacante , Status)

afonsobr escreveu:Muito bom! Poxa, esse sistema deve ser um dos mais engenhosos e geniais. Obrigado por compartilhar conosco! +1!

lucas100vzs escreveu:BlueZac ,

Desta maneira, quem ataca, caso tenha mais agilidade que quem recebe, vai aumentar a quantidade. Funciona assim:

Passos:

-Ter mais agilidade que o oponente.(Nem menos nem igual, é maior)
-Tendo mais agilidade, pegue 1% da agilidade do atacante menos (-) 1% da agilidade de quem recebe, e soma aos segundos de paralisia da magia do atacante.
-Feito isso, temos um tempo de stun baseado em status mais(+) tempo de paralisia de uma magia.

Código:

Public Sub StunPlayer(ByVal Attacker As Long, ByVal Victim As Long, Optional ByVal SpellNum As Long = 0)
Dim Stun As Long
Dim Unstun As Long

 Stun = GetPlayerStat(Attacker, WillPower)'modifique aki o status
 Unstun = GetPlayerStat(Victim, WillPower)'modifique aki tbm
 
 ' Check if attacker has more or equal WillPower than victim
 If Stun <= Unstun Then
  Exit Sub
End If

 Stun = Stun * 0.01 ' 1%
 Unstun = Unstun * 0.01 '1%

    ' check if it's a stunning spell
    If Spell(SpellNum).StunDuration > 0 Then
        ' set the values on index
        TempPlayer(Victim).StunDuration = Spell(SpellNum).StunDuration + Stun - Unstun
        TempPlayer(Victim).StunTimer = GetTickCount
        ' send it to the index
          SendStunned Victim
        ' tell him he's stunned
        PlayerMsg Victim, "Você foi paralizado por: " & TempPlayer(Victim).StunDuration & " segundos.", Cyan
    End If
End Sub