Problema con la experiencia (0.11.5 by shura v1.4)

  • Iniciador del tema Anonymous
  • Fecha de inicio
Estado
Cerrado para nuevas respuestas.
A

Anonymous

Invitado
bueno pasa lo siguiente kiero poner la experiencia algo mas descente x k no sube nada al modificar el options.ini el valor ExpMult= entre k rango esta permitido x k ponga lo k ponga no variar, la cuestion es k siendo 1 matando una serpiete se pase d level osea k de 300 de experiencia pero x + k aumente ese valor no hace nada :S


thx
 

facundo

Oráculo Lvl 3
Es por que Shura no puso para que multiplique la exp..

trata de hacerlo asi

si tenes el VB busca en el codigo fuente

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>npcfile, <span style="color: #ffffff;">"NPC"</span> & NpcNumero, <span style="color: #ffffff;">"GiveEXP"</span>, <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Npclist<span style="color: #66cc66;">(</span>NpcIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">GiveEXP</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

y cambialo por esto

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>npcfile, <span style="color: #ffffff;">"NPC"</span> & NpcNumero, <span style="color: #ffffff;">"GiveEXP"</span>, <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Npclist<span style="color: #66cc66;">(</span>NpcIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">GiveEXP</span><span style="color: #66cc66;">)</span> * Multiplicador<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

creo que haci estaria bien.. no se
 
A

Anonymous

Invitado
muchas gracias man


otra cosa sabras en k modulo estara esa linea o si hay alguna manera d buscar esa linea especifca en el vb.



thx
 

facundo

Oráculo Lvl 3
Lo que tenes que buscar esta en FileIO.bas..

pero para eso toca control + f y ahi pega el codigo y toca buscar en todo el proyecto :p
 
A

Anonymous

Invitado
'[KEVIN]
'
'[Alejo]
'Modifique un poco el sistema de exp por golpe, ahora
'son 2/3 de la exp mientras esta vivo, el resto se
'obtiene al matarlo.
'Ahora además
Sub CalcularDarExp(ByVal UserIndex As Integer, ByVal NpcIndex As Integer, ByVal ElDaño As Long)

Dim ExpSinMorir As Long
Dim ExpaDar As Long
Dim TotalNpcVida As Long

If ElDaño Npclist(NpcIndex).Stats.MinHP Then ElDaño = Npclist(NpcIndex).Stats.MinHP

'totalnpcvida _____ ExpSinMorir
'daño _____ (daño * ExpSinMorir) / totalNpcVida

ExpaDar = CLng((ElDaño) * (ExpSinMorir / TotalNpcVida))
If ExpaDar Npclist(NpcIndex).flags.ExpCount Then
ExpaDar = Npclist(NpcIndex).flags.ExpCount
Npclist(NpcIndex).flags.ExpCount = 0
Else
Npclist(NpcIndex).flags.ExpCount = Npclist(NpcIndex).flags.ExpCount - ExpaDar
End If

If ExpaDar > 0 Then
If UserList(UserIndex).PartyIndex > 0 Then
Call mdParty.ObtenerExito(UserIndex, ExpaDar, Npclist(NpcIndex).Pos.Map, Npclist(NpcIndex).Pos.X, Npclist(NpcIndex).Pos.Y)
Else
UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.Exp + ExpaDar
If UserList(UserIndex).Stats.Exp > MAXEXP Then _
UserList(UserIndex).Stats.Exp = MAXEXP
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has ganado " & ExpaDar & " puntos de experiencia." & FONTTYPE_FIGHT)
End If

Call CheckUserLevel(UserIndex)
End If

'[/KEVIN]
End Sub


perdon k siga jodiendo en este pedazo de codigo tengo k poner lo k vos decis??????
 
A

Anonymous

Invitado
x mas k ponga el factor multiplicador en 1 0 500 da = matar una serpiente a un nivel 1 d un dardo magico le da 5 % :S
 

facundo

Oráculo Lvl 3
Ahora en la pc que estoy no puedo abrir el server.. despues pruebo.. igual no se si el codigo seria asi..
 
Estado
Cerrado para nuevas respuestas.
Arriba