[Aportes indexados] Sistema De Aprendisaje De Hechizos

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
Sistema De Aprendisaje De Hechizos

Codigo Para El Servidor

Código:
Sub AprenderHechizo (UserIndex As Integer, UserSexo As String, UserClase As String)
If UserClase = "Mago" Or UserClase = "Clerigo" Or _
   UserClase = "Druida" Or UserClase = "Bardo" Or _
   UserClase = "Asesino" Or UserClase = "Paladin" And _
UserList(UserIndex).Stats.ELV = 5 Then
UserList(UserIndex).Stats.UserHechizos(2) = 1
    Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has Aprendido Curar Veneno!!!")
Exit Sub
End If
Asi Como Esta Escrito Solo Afectaria A Las Clases Magicas, Tmb Deje Otras Posibles Variantes Por Si Las Quieren Usar Que Son UserRaza y UserSexo. Si Queremos Por Ejemplo Que El Hechizo Solo Se Aprenda Si Uno Es Paladin Criminal Lvl 4 Hombre y Enano Lo Que Tenemos QUe Hacer Es:

Código:
Sub AprenderHechizo (UserIndex As Integer, UserSexo As String, UserClase As String)
If  Criminal And _
UserClase = "Paladin" And _
UserList(UserIndex).Raza = "ENANO" And _
UserSexo = "HOMBRE"
UserList(UserIndex).Stats.ELV = 4 Then
UserList(UserIndex).Stats.UserHechizos(2) = 1
    Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has Aprendido Curar Veneno!!!")
Exit Sub
End If
De Esta Forma Solo Lo Aprendera Si Cumple Con Estos Requicitos Que Son Que Sea Paladin Criminal Lvl 4 Y Que Sea Enano Y Hombre, Si Se Cumplen Todos Estos Requicitos Aprendera El Hechizo.
Si En Caso Contrario Queremos Que Lo Aprenda Si No Es Criminal Hay Que Cambiar El If Criminal Por Un If Not Criminal.

Explicacion: Los Usuarios De Clase Magica Vienen Ya Con Dardo Magico El Hechi Es UserList(UserIndex).Stats.UserHechizos(2)
Despues Va = 1 El 1 Reprecenta Al Numero De Hechizo En El Hechizos.dat Y Despues Lo Unico Que Tendrias Q Modificar es El UserList(UserIndex).Stats.ELV = 5 Then 5 = Al Nivel En El QUe Se Aprende Este Hechizo, En Donde Dice:
Código:
    Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has Aprendido Curar Veneno!!!")
Habria Que Reemplazar El Curar Veneno Por El Nombre De Hechizo A Aprender.
Despues Por Ultimo Si Queres Que Requiera De Baston Eso Va En El Hechizos.dat Como Siempre ^^

Suerte
 
Estado
Cerrado para nuevas respuestas.
Arriba