A
Anonymous
Invitado
CONSEGUIS UN HECHIZO AL LLEGAR AL NIVEL
Código:
AOREADY[/b]
Consigues un hechizo al alcanzar X level
--------------------------------------------------------------------------------
Buscamos:
Código:
Sub DecirPalabrasMagicas(ByVal s As String, ByVal userindex As Integer)
On Error Resume Next
Y arriba ponemos:
Código:
Sub AprenderHechizos(ByVal userindex As Integer, ByVal hindex As Integer)
Dim j As Integer
If Not TieneHechizo(hindex, userindex) Then
'Buscamos un slot vacio
For j = 1 To MAXUSERHECHIZOS
If UserList(userindex).Stats.UserHechizos(j) = 0 Then Exit For
Next j
If UserList(userindex).Stats.UserHechizos(j) 0 Then
Call SendData(ToIndex, userindex, 0, "||has aprendido un nuevo hechizo!" & FONTTYPE_INFO)
Else
UserList(userindex).Stats.UserHechizos(j) = hindex
Call UpdateUserHechizos(False, userindex, CByte(j))
End If
Else
Call SendData(ToIndex, userindex, 0, "||ya te lo habias comprado? kakaka" & FONTTYPE_INFO)
End If
End Sub
Ahora buscamos:
Código:
SendUserStatsBox userindex
en el sub checkuserlevel
Y abajo ponemos:
Código:
If UserList(userindex).Stats.ELV = 10 Then Call AprenderHechizos(userindex, 5)
If UserList(userindex).Stats.ELV = 25 Then Call AprenderHechizos(userindex, 8)
EJEMPLO
Código:
en nivel 10 apenderia el hechizo numero 5 del hechizos.dat
en nivel 25 aprenderia el hechizo numero 8 del hechizos.dat
BUENO DE DONDE SAQUE ESTE CODIGO EL QUE LO CREO DICE QUE NO SE PUEDE ADAPTAR AL AOREADY, QUE FUNSIONA PARA TODAS LAS VERSIONES MENOS PARA LA DE AOREADY PORQUE DICE QUE NI DA ADAPTARLO, ALGUIEN LO PUEDE ADAPTAR PARA EL AOREADY?
MUCHAS GRASIAS.