como sacar experiencia por golpe

bueno queria si alguien me puede dar el code de como sacar la experiencia por golpe (version 11.2) y tambien me gustaria saber como hago para hacer las armors de las armadas de 2º, 3º, 4º rango para q no las usen los de rango inferior

otra ves yo

lo q yo quiero es q no de exp por golpe quiero q de la exp al matar el NPC
y quiero sacar el comando /party y otros comandos relacionados al party

sakar el sistema de party no es complicado, y si mal no recuerdo lo de la exp al matar los npc (no exp por golpe) esta en el src de la 0.99 y no creo que alla modificaciones que hacerle, ya que 0.99 y 0.11.2 son muy similares entre si.

yo de nuevo

o sea q pongo el sistema de combate de la 0.99 completo o solo parte del code??

lo de la party ya se como hacerlo

bueno espero q me respondan ya q soy nuevo en esto de programar y estoy con manuales y todo pero hay cosas q no entiendo bien todavia


gracias

Re: yo de nuevo

skay dijo:

o sea q pongo el sistema de combate de la 0.99 completo o solo parte del code??

lo de la party ya se como hacerlo

bueno espero q me respondan ya q soy nuevo en esto de programar y estoy con manuales y todo pero hay cosas q no entiendo bien todavia


gracias

Haz clic para expandir...

mira, veo q te estas esforzando, por eso te voy a dar una mano , a ver

en el servidor esta todo,
'[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


esto lo dijo alejo :O

ay q tener sexoo d?



buscas esto


sub CalcularDarExp

y donde dice

ExpSinMorir = (2 * Npclist(NpcIndex).GiveEXP) / 3


ponele = 0

entendeS= exp sin morir va a ser 0


dsp mira

ExpaDar = CLng((ElDaño) * (ExpSinMorir / TotalNpcVida))



eso va a dar 0 xq 0 / algo es 0 , y algo * 0 es 0 xd asike ai no ay q tokar nada

dsp por ej

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


si tenes eso, yo le sakaria el has ganado :S porq no tiene sentido ganar 0 de exp ^^, el add to var tmb

los borras


buscamos


Sub MuereNpc(ByVal NpcIndex As Integer, ByVal UserIndex As Integer)

y donde dice

Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & MiNPC.flags.ExpCount & " puntos de experiencia." & FONTTYPE_FIGHT)


pones

Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & MiNPC.GiveEXP & " puntos de experiencia." & FONTTYPE_FIGHT)


creo que es MiNPC.GiveEXP

nose , proba y decime

y arriba de eso dice

Call AddtoVar(UserList(UserIndex).Stats.Exp, MiNPC.flags.ExpCount, MAXEXP)

y le pones

Call AddtoVar(UserList(UserIndex).Stats.Exp, MiNPC.GiveEXP, MAXEXP)


entendsite algo?

ok gracias man

lo pruebo esta noche y cuando pueda te digo los resultados


y es mas, me puse tanto las pilas q en enero empiezo un curso de VB

gracias por la mano man despues te digo q resultado dio el codigo



saludos


Skay

ok, a la noche miro, yo creo q anda

me paso esto....

Este es el Sub MuereNpc q tengo

Sub MuereNpc(ByVal NpcIndex As Integer, ByVal UserIndex As Integer)
On Error GoTo errhandler

' Call LogTarea("Sub MuereNpc")

Dim MiNPC As npc
MiNPC = Npclist(NpcIndex)

If (esPretoriano(NpcIndex) = 4) Then
'seteamos todos estos 'flags' acorde para que cambien solos de alcoba
Dim i As Integer
Dim j As Integer
Dim NPCI As Integer

For i = 8 To 90
For j = 8 To 90

NPCI = MapData(Npclist(NpcIndex).Pos.Map, i, j).NpcIndex
If NPCI > 0 Then
If esPretoriano(NPCI) > 0 Then
Npclist(NPCI).Invent.ArmourEqpSlot = IIf(Npclist(NpcIndex).Pos.X > 50, 1, 5)
End If
End If
Next j
Next i
Call CrearClanPretoriano(MAPA_PRETORIANO, Npclist(NpcIndex).Pos.X, Npclist(NpcIndex).Pos.Y)
ElseIf esPretoriano(NpcIndex) > 0 Then
Npclist(NpcIndex).Invent.ArmourEqpSlot = 0
End If

'Quitamos el npc
Call QuitarNPC(NpcIndex)



If UserIndex > 0 Then ' Lo mato un usuario?
If MiNPC.flags.Snd3 > 0 Then Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & MiNPC.flags.Snd3)
UserList(UserIndex).flags.TargetNPC = 0
UserList(UserIndex).flags.TargetNpcTipo = 0

'El user que lo mato tiene mascotas?
If UserList(UserIndex).NroMacotas > 0 Then
Dim t As Integer
For t = 1 To MAXMASCOTAS
If UserList(UserIndex).MascotasIndex(t) > 0 Then
If Npclist(UserList(UserIndex).MascotasIndex(t)).TargetNPC = NpcIndex Then
Call FollowAmo(UserList(UserIndex).MascotasIndex(t))
End If
End If
Next t
End If

If MiNPC.Stats.Alineacion = 0 Then
If MiNPC.Numero = Guardias Then
Call VolverCriminal(UserIndex)
End If
If MiNPC.MaestroUser = 0 Then
Call AddtoVar(UserList(UserIndex).Reputacion.AsesinoRep, vlASESINO, MAXREP)
End If
ElseIf MiNPC.Stats.Alineacion = 1 Then
Call AddtoVar(UserList(UserIndex).Reputacion.PlebeRep, vlCAZADOR, MAXREP)
ElseIf MiNPC.Stats.Alineacion = 2 Then
Call AddtoVar(UserList(UserIndex).Reputacion.NobleRep, vlASESINO / 2, MAXREP)
ElseIf MiNPC.Stats.Alineacion = 4 Then
Call AddtoVar(UserList(UserIndex).Reputacion.PlebeRep, vlCAZADOR, MAXREP)
End If
If Not Criminal(UserIndex) And UserList(UserIndex).Faccion.FuerzasCaos = 1 Then Call ExpulsarFaccionCaos(UserIndex)

'Controla el nivel del usuario
Call CheckUserLevel(UserIndex)

End If ' Userindex > 0


If MiNPC.MaestroUser = 0 Then
'Tiramos el oro
Call NPCTirarOro(MiNPC)
'Tiramos el inventario
Call NPC_TIRAR_ITEMS(MiNPC)
End If

'ReSpawn o no
Call ReSpawnNpc(MiNPC)

Exit Sub

errhandler:
Call LogError("Error en MuereNpc")

End Sub


Y esto es el Sub CalcularDarExp Del SistemaCombate (Code)

'[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
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpaDar, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpaDar & " puntos de experiencia." & FONTTYPE_FIGHT)
End If


Call CheckUserLevel(UserIndex)
End If

'[/KEVIN]
End Sub

Fíjate si podes hacer algo con esto para sacar la exp. por golpe y si necesitas algo mas avísame.
Yo me fije algunas cosas pero no me da la exp. ni por golpe ni por nada

bue......

parece q nadie tiene tiempo pa echarle la mano a un amigo
bue no importa ya voy a aprender

muchas gracias por nada

el mio anda, o acaso no lo rpobaste?

bue.....

si lo probe pero el sub muerenpc es distinto y no se como hacer
intente varias cosas y nada
ya ni me da la exp

y sigo....

mira como estoy al pedo q me puse ajugar al ofi

ya no se como hacer y ensima se poco de programar

si podes fijate ya se q estas ocupado con lo de tu proyecto
pewro cuando tengas un tiempito fijate por favor