CONSEGUIS UN HECHIZO AL LLEGAR AL NIVEL(CODE) AOREADY

Estado
Cerrado para nuevas respuestas.
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.
 
A

Anonymous

Invitado
AOREADY 0.11.2 FINAL

para esa versiòn estoy usando.
Siempre hay que hacer algo a los codes para poder adaptarlos a aoready?
Que hay que hacerles?
 

Khalem

Mica
Colaborador
Ex-Staff
Mira, la verdad que no xD, no hay que hacerles nada, de donde sacaste esos codigos?, por quie AOR trabaj con la v. 0.11.2, tal vez tus codigos esten en 0.11.5, ahora lo leo bien y te respondo bien, y en caso de ser 11.5 te lo paso a 11.2 :).

Suerte!

Edit1: Mira, puse los codigos en el AOR y lo pude compilar perfecto xD, ahora no te peudo decir uqe lo testee por que mi pc no rinde para esas cosas... fijate que te deberia de andar, entra al juego y probalo, en caso de no funcionar, decime si te tira un error o algo... pero sinceramente me pareceria raro xD.
 
A

Anonymous

Invitado
Uy dale sos un genio!
muchas gràsias voy a entrar cada 10 minutos al thread para ver cuando me responde eso y aver si lo pudistes arreglar :)
grasias y voy a tar esperando jeje
 
A

Anonymous

Invitado
mmmmm dijo:
Uy dale sos un genio!
muchas gràsias voy a entrar cada 10 minutos al thread para ver cuando me responde eso y aver si lo pudistes arreglar :)
grasias y voy a tar esperando jeje

che y donde cuelgo este codigo
soy algo noob en vb y todabia no pude compilar nada porque me salen 102 errores xD
saludos
 
Estado
Cerrado para nuevas respuestas.
Arriba