Aldeia RPG

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

Suporte ao desenvolvimento de jogos


3 participantes

    player nao ataca player podem ajudar?

    Snoopy
    Snoopy
    Iniciante
    Iniciante


    Mensagens : 58
    Créditos : 7

    player nao ataca player podem ajudar? Empty player nao ataca player podem ajudar?

    Mensagem por Snoopy Dom maio 18, 2014 2:03 am

    bom galera o titulo ja diz tudo um player não consegue atacar outro nem no ataque nem na magia e o pior e que não da erro pra min postar um Print  aqui. Bom pra ajudar a identificar o erro amanha eu posto toda a sub(to no celular). Valeu a atenção galera.
    tai as tres subs de playerx player:
    Código:
    ' ###################################
    ' ##    Player Attacking Player    ##
    ' ###################################

    Public Sub TryPlayerAttackPlayer(ByVal attacker As Long, ByVal victim As Long)
    Dim blockAmount As Long
    Dim npcNum As Long
    Dim mapNum As Long
    Dim Damage As Long

        Damage = 0

        ' Can we attack the npc?
        If CanPlayerAttackPlayer(attacker, victim) Then
       
            mapNum = GetPlayerMap(attacker)
       
            ' check if NPC can avoid the attack
            If CanPlayerDodge(victim) Then
                SendActionMsg mapNum, "Defendeu!", Pink, 1, (GetPlayerX(victim) * 32), (GetPlayerY(victim) * 32)
                Exit Sub
            End If
            If CanPlayerParry(victim) Then
                SendActionMsg mapNum, "Esquivou!", Pink, 1, (GetPlayerX(victim) * 32), (GetPlayerY(victim) * 32)
                Exit Sub
            End If

            ' Get the damage we can do
            Damage = GetPlayerDamage(attacker)
           
            ' if the npc blocks, take away the block amount
            blockAmount = CanPlayerBlock(victim)
            Damage = Damage - blockAmount
           
            ' take away armour
            Damage = Damage - RAND(1, (GetPlayerStat(victim, Agility) * 2))
           
            ' randomise for up to 10% lower than max hit
            Damage = RAND(1, Damage)
           
            ' * 1.5 if can crit
            If CanPlayerCrit(attacker) Then
                Damage = Damage * 1.5
                SendActionMsg mapNum, "Golpe Critico!", BrightCyan, 1, (GetPlayerX(attacker) * 32), (GetPlayerY(attacker) * 32)
            End If

            If Damage > 0 Then
                Call PlayerAttackPlayer(attacker, victim, Damage)
            Else
                Call PlayerMsg(attacker, "Seu ataque não fez efeito.", BrightRed)
            End If
        End If
    End Sub

    Function CanPlayerAttackPlayer(ByVal attacker As Long, ByVal victim As Long, Optional ByVal IsSpell As Boolean = False, Optional ByVal IsProjectile As Boolean = False) As Boolean

        If Not IsSpell And Not IsProjectile Then
            ' Check attack timer
            If GetPlayerEquipment(attacker, Weapon) > 0 Then
                If GetTickCount < TempPlayer(attacker).AttackTimer + Item(GetPlayerEquipment(attacker, Weapon)).Speed Then Exit Function
            Else
                If GetTickCount < TempPlayer(attacker).AttackTimer + 1000 Then Exit Function
            End If
        End If

        ' Check for subscript out of range
        If Not IsPlaying(victim) Then Exit Function

        ' Make sure they are on the same map
        If Not GetPlayerMap(attacker) = GetPlayerMap(victim) Then Exit Function

        ' Make sure we dont attack the player if they are switching maps
        If TempPlayer(victim).GettingMap = YES Then Exit Function

        If Not IsSpell And Not IsProjectile Then
            ' Check if at same coordinates
            Select Case GetPlayerDir(attacker)
                Case DIR_UP
       
                    If Not ((GetPlayerY(victim) + 1 = GetPlayerY(attacker)) And (GetPlayerX(victim) = GetPlayerX(attacker))) Then Exit Function
                Case DIR_DOWN
       
                    If Not ((GetPlayerY(victim) - 1 = GetPlayerY(attacker)) And (GetPlayerX(victim) = GetPlayerX(attacker))) Then Exit Function
                Case DIR_LEFT
       
                    If Not ((GetPlayerY(victim) = GetPlayerY(attacker)) And (GetPlayerX(victim) + 1 = GetPlayerX(attacker))) Then Exit Function
                Case DIR_RIGHT
       
                    If Not ((GetPlayerY(victim) = GetPlayerY(attacker)) And (GetPlayerX(victim) - 1 = GetPlayerX(attacker))) Then Exit Function
                Case Else
                    Exit Function
            End Select
        End If

        ' Check if map is attackable
        If Not Map(GetPlayerMap(attacker)).Moral = MAP_MORAL_NONE Then
            If GetPlayerPK(victim) = NO Then
                Call PlayerMsg(attacker, "Está area é protegida!", BrightRed)
                Exit Function
            End If
        End If

        ' Make sure they have more then 0 hp
        If GetPlayerVital(victim, Vitals.HP) <= 0 Then Exit Function

        ' Check to make sure that they dont have access
        If GetPlayerAccess(attacker) > ADMIN_MONITOR Then
            Call PlayerMsg(attacker, "Adimistradores não podem atacar players.", BrightBlue)
            Exit Function
        End If

        ' Check to make sure the victim isn't an admin
        If GetPlayerAccess(victim) > ADMIN_MONITOR Then
            Call PlayerMsg(attacker, "Você não pode atacar " & GetPlayerName(victim) & "!", BrightRed)
            Exit Function
        End If

        ' Make sure attacker is high enough level
        If GetPlayerLevel(attacker) < 10 Then
            Call PlayerMsg(attacker, "Você está abaixo do nível 10, você não pode atacar outro jogador ainda!", BrightRed)
            Exit Function
        End If

        ' Make sure victim is high enough level
        If GetPlayerLevel(victim) < 10 Then
            Call PlayerMsg(attacker, GetPlayerName(victim) & " está abaixo do nível 10, você não pode atacar este jogador!", BrightRed)
            Exit Function
        End If
    End Function

    Sub PlayerAttackPlayer(ByVal attacker As Long, ByVal victim As Long, ByVal Damage As Long, Optional ByVal spellNum As Long = 0)
        Dim Exp As Long
        Dim n As Long
        Dim i As Long
        Dim Buffer As clsBuffer

        ' Check for subscript out of range
        If IsPlaying(attacker) = False Or IsPlaying(victim) = False Or Damage < 0 Then
            Exit Sub
        End If

        ' Check for weapon
        n = 0

        If GetPlayerEquipment(attacker, Weapon) > 0 Then
            n = GetPlayerEquipment(attacker, Weapon)
        End If
       
        ' set the regen timer
        TempPlayer(attacker).stopRegen = True
        TempPlayer(attacker).stopRegenTimer = GetTickCount

        If Damage >= GetPlayerVital(victim, Vitals.HP) Then
            SendActionMsg GetPlayerMap(victim), "-" & GetPlayerVital(victim, Vitals.HP), BrightRed, 1, (GetPlayerX(victim) * 32), (GetPlayerY(victim) * 32)
           
            ' send the sound
            If spellNum > 0 Then SendMapSound victim, GetPlayerX(victim), GetPlayerY(victim), SoundEntity.seSpell, spellNum
           
            ' Player is dead
            Call GlobalMsg(GetPlayerName(victim) & " foi morto por " & GetPlayerName(attacker), BrightRed)
            ' Calculate exp to give attacker
            Exp = (GetPlayerExp(victim) \ 10)
           
            If Not frmServer.txtEventoEXP.Text = 0 Then
              Exp = Exp * frmServer.txtEventoEXP.Text
            End If

            ' Make sure we dont get less then 0
            If Exp < 0 Then
                Exp = 0
            End If

            If Exp = 0 Then
                Call PlayerMsg(victim, "Você não perdeu experiencia.", BrightRed)
                Call PlayerMsg(attacker, "Você não recebeu experiencia..", BrightBlue)
            Else
                Call SetPlayerExp(victim, GetPlayerExp(victim) - Exp)
                SendEXP victim
                Call PlayerMsg(victim, "Você perdeu " & Exp & " exp.", BrightRed)
               
                ' check if we're in a party
                If TempPlayer(attacker).inParty > 0 Then
                    ' pass through party exp share function
                    Party_ShareExp TempPlayer(attacker).inParty, Exp, attacker
                Else
                    ' not in party, get exp for self
                    If GetPlayerLevel(attacker) < MAX_LEVELS Then
                    GivePlayerEXP attacker, Exp
                    CheckPlayerLevelUp attacker
                    End If
                End If
            End If
           
            ' purge target info of anyone who targetted dead guy
            For i = 1 To Player_HighIndex
                If IsPlaying(i) And IsConnected(i) Then
                    If Player(i).Map = GetPlayerMap(attacker) Then
                        If TempPlayer(i).target = TARGET_TYPE_PLAYER Then
                            If TempPlayer(i).target = victim Then
                                TempPlayer(i).target = 0
                                TempPlayer(i).targetType = TARGET_TYPE_NONE
                                SendTarget i
                            End If
                        End If
                    End If
                End If
            Next

            If GetPlayerPK(victim) = NO Then
                If GetPlayerPK(attacker) = NO Then
                    Call SetPlayerPK(attacker, YES)
                    Call SendPlayerData(attacker)
    Dim Cem As Long
    Dim Nove As Long
        If Cem = 1 Then
      GiveInvItem attacker, 4, RAND(3, 5)
     
        If Nove = 1 Then
      GiveInvItem attacker, 3, RAND(3, 5)
     
            Else
                    GiveInvItem attacker, 2, 1
                    Call GlobalMsg(GetPlayerName(attacker) & " Agora é um player assassino!", BrightRed)
                End If
    End If
    End If
            Else
            GiveInvItem attacker, 2, 1
                Call GlobalMsg(GetPlayerName(victim) & " has paid the price for being a Player Killer!!!", BrightRed)
                GiveInvItem attacker, 2, 1
            End If

            Call OnDeath(victim)
        Else
            ' Player not dead, just do the damage
            Call SetPlayerVital(victim, Vitals.HP, GetPlayerVital(victim, Vitals.HP) - Damage)
            Call SendVital(victim, Vitals.HP)
           
            ' send vitals to party if in one
            If TempPlayer(victim).inParty > 0 Then SendPartyVitals TempPlayer(victim).inParty, victim
           
            ' send the sound
            If spellNum > 0 Then SendMapSound victim, GetPlayerX(victim), GetPlayerY(victim), SoundEntity.seSpell, spellNum
           
            SendActionMsg GetPlayerMap(victim), "-" & Damage, BrightRed, 1, (GetPlayerX(victim) * 32), (GetPlayerY(victim) * 32)
            SendBlood GetPlayerMap(victim), GetPlayerX(victim), GetPlayerY(victim)
           
            ' set the regen timer
            TempPlayer(victim).stopRegen = True
            TempPlayer(victim).stopRegenTimer = GetTickCount
           
            '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

        ' Reset attack timer
        TempPlayer(attacker).AttackTimer = GetTickCount


    Última edição por Snoopy em Dom maio 18, 2014 6:58 pm, editado 1 vez(es)
    Fadinext
    Fadinext
    Iniciante
    Iniciante


    Mensagens : 33
    Créditos : 8

    player nao ataca player podem ajudar? Empty Re: player nao ataca player podem ajudar?

    Mensagem por Fadinext Dom maio 18, 2014 5:14 pm

    Falando assim fica difícil,não tenho ideia do que seja.
    boasfesta
    boasfesta
    Novato
    Novato


    Mensagens : 27
    Créditos : 9

    player nao ataca player podem ajudar? Empty Re: player nao ataca player podem ajudar?

    Mensagem por boasfesta Seg maio 19, 2014 3:03 am

    As únicas coisas no seu código que podem levar a não atacar e não dar mensagem nenhuma são as seguintes:

    -Dano = 0
    -A vitima ou o atacante não estão "jogando", verifique a função IsPlaying
    -Não estão no mesmo mapa
    -A vitima está recebendo o mapa

    Tenta ver se uma solução drástica pode resolver, basta comentar todos os ifs que levam direto a um "Exit function", como esse:

    Código:
    If TempPlayer(victim).GettingMap = YES Then Exit Function


    Comente colocando ' antes
    Snoopy
    Snoopy
    Iniciante
    Iniciante


    Mensagens : 58
    Créditos : 7

    player nao ataca player podem ajudar? Empty Re: player nao ataca player podem ajudar?

    Mensagem por Snoopy Seg maio 19, 2014 10:38 pm

    Bom consegui resolver trocando essas duas subs e essa function por o de outra engine deste modo funcionou certinho valeu pela atençao galera!.

    Conteúdo patrocinado


    player nao ataca player podem ajudar? Empty Re: player nao ataca player podem ajudar?

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Out 03, 2024 7:44 am