if PktDamageTo >= gMinPlayerIdx and PktDamageTo <= gMaxPlayerIdx then ' Primer check, si el que recibe el daño es un character
if PlayerID = PktDamageTo then ' Segundo check, si el Character que recibe el daño somos nosotros
if Atacker(PlayerID) >= gMinPlayerIdx and Atacker(PlayerID) <= gMaxPlayerIdx or Atacker(PlayerID) >= (gMinPlayerIdx AND &H7FFF) and Atacker(PlayerID) <= (gMaxPlayerIdx AND &H7FFF) then ' Tercer check, si el que nos ataca es un character
if ActualSG(PlayerID) > 0 THEN ' Tenemos SG
Player = GetPlayerAddress(PlayerID)
Player->HP += Pktdamage
if ActualSG(PlayerID) > PktDamage THEN
ActualSG(PlayerID) -= PktDamage
SgWentZero(PlayerID) = &H0
else
ActualSG(PlayerID) = &H0
SgWentZero(PlayerID) = &H1
endif
pProtocol(8) = pProtocol(5)
pProtocol(9) = pProtocol(6)
pProtocol(5) = &H0
pProtocol(6) = &H0
else ' no keda SG
pProtocol(8) = &H0
pProtocol(9) = &H0
endif
else ' Nos ataco un Mob
pProtocol(8) = &H0
pProtocol(9) = &H0
endif
else ' No estamos recibiendo el daño nosotros
if ActualSG(PktDamageTo) > &H0 THEN
pProtocol(8) = pProtocol(5)
pProtocol(9) = pProtocol(6)
pProtocol(5) = &H0
pProtocol(6) = &H0
else ' no le queda SG mostremos que sacamos vida
if SgWentZero(PktDamageTo) = &H0 Then
pProtocol(8) = &H0
pProtocol(9) = &H0
else
SgWentZero(PktDamageTo) = &H0
pProtocol(8) = pProtocol(5)
pProtocol(9) = pProtocol(6)
pProtocol(5) = &H0
pProtocol(6) = &H0
endif
endif
endif
else ' Se esta dañando un mob
pProtocol(8) = &H0
pProtocol(9) = &H0
endif
End If