[Aportes indexados] Para Hechizos: ExclusivoRaza

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
Para Hechizos: ExclusivoRaza

En el servidor

En declaraciones buscar
Código:
PalabrasMagicas As String
Abajo poner
Código:
ExclusivoRaza As String ' [GS] Exclusivo Raza
En ES buscar
Código:
Hechizos(Hechizo).Revivir = val(Leer.DarValor("Hechizo" & Hechizo, "Revivir"))
Abajo poner
Código:
Hechizos(Hechizo).ExclusivoRaza = UCase$(Leer.DarValor("Hechizo" & Hechizo, "ExclusivoRaza")) ' [GS] ExclusivoRaza
En InvUsuario buscar
Código:
Call AgregarHechizo(UserIndex, Slot)
                Call UpdateUserInv(False, UserIndex, Slot)
Remplazar por
Código:
' [GS] ExclusivoRaza
If LenB(Hechizos(Obj.HechizoIndex).ExclusivoRaza) = 0 Or Hechizos(Obj.HechizoIndex).ExclusivoRaza = UserList(UserIndex).Raza Then
                    Call AgregarHechizo(UserIndex, Slot)
                    Call UpdateUserInv(False, UserIndex, Slot)
                Else
                    Call SendData(ToIndex, UserIndex, 0, "||Tú raza no puede aprender este hechizo." & FONTTYPE_INFO)
End If
' [GS]
En modHechizos buscar
Código:
Function PuedeLanzar(ByVal UserIndex As Integer, ByVal HechizoIndex As Integer) As Boolean
Abajo poner
Código:
' [GS] ExclusivoRaza
If LenB(Hechizos(HechizoIndex).ExclusivoRaza) > 0 And Hechizos(HechizoIndex).ExclusivoRaza <> UserList(UserIndex).Raza Then
    Call SendData(ToIndex, UserIndex, 0, "||Tú raza no puede lanzar este hechizo." & FONTTYPE_INFO)
    PuedeLanzar = False
    Exit Function
End If
' [/GS]
Idem ExclusivoClase a pedido de Shura
 
Estado
Cerrado para nuevas respuestas.
Arriba