[Aportes indexados] Equipar oro automaticamente

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
en el modulo npcs del servidor buscar:

Código:
Sub NPCTirarOro(MiNPC As npc, ByVal UserIndex As Integer)
 
'SI EL NPC TIENE ORO LO AUTO-EQUIPA AL USER
If MiNPC.GiveGLD = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||No has ganado oro al matar esta criatura." & FONTTYPE_FIGHT) 'desabilitar linea si queremos que no envie el MSG.
End If
If MiNPC.GiveGLD > 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & MiNPC.GiveGLD & " monedas de oro." & FONTTYPE_FIGHT) 'desabilitar linea si no queremos que envie el MSG.
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
Call SendUserStatsBox(UserIndex)
End If
Dsp Buscas:
Código:
Call NPCTirarOro(MiNPC)
Y lo reemplazas por esto:
Código:
'Auto-Ekipamos el oro
Call NPCTirarOro(MiNPC, UserIndex)
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Una pregunta, ¿Que UserIndex es?, por lo que vi en ninguna parte se lo define ¬¬
 

^[GS]^

GS-Zone Admin
Administrador
j0z... tiene razon tavo :p ademas.... el "codigo esta mal" :p parece hecho por alguien sin idea :p porque la verdad no se puede poner que al morir el NPC envie el oro... :p sino ... que el oro se envia "cuando nosotros lo matamos" :p
 

^^NuMi^^

Newbie Lvl 1
Código:
Sub NPCTirarOro(MiNPC As npc, ByVal UserIndex As Integer)
 
'SI EL NPC TIENE ORO LO AUTO-EQUIPA AL USER
If MiNPC.GiveGLD = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||No has ganado oro al matar esta criatura." & FONTTYPE_FIGHT) 'desabilitar linea si queremos que no envie el MSG.
End If
If MiNPC.GiveGLD > 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & MiNPC.GiveGLD & " monedas de oro." & FONTTYPE_FIGHT) 'desabilitar linea si no queremos que envie el MSG.
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
Call SendUserStatsBox(UserIndex)
End If
Dsp Buscas:
Código:
Call NPCTirarOro(MiNPC)
Y lo reemplazas por esto:
Código:
'Auto-Ekipamos el oro
Call NPCTirarOro(MiNPC, UserIndex)
 

Zacron

Newbie Lvl 1
Muy bueno el comando pero como hago para que mande el SendData dsp de lo que dice Has ganado "MiNpc.GiveExp" de experiencia.
 

RojoAmuerte

Newbie Lvl 4
No entendi q hay q reemplazar y poner esto..

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Sub</span> NPCTirarOro<span style="color: #66cc66;">(</span>MiNPC <span style="color: #b1b100;">As</span> npc, ByVal UserIndex <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span><span style="color: #66cc66;">)</span> </li><li style="" class="li2">&nbsp;</li><li style="" class="li1"><span style="color: #808080;">'SI EL NPC TIENE ORO LO AUTO-EQUIPA AL USER </span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> MiNPC.<span style="color: #66cc66;">GiveGLD</span> = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> </li><li style="" class="li1"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No has ganado oro al matar esta criatura."</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span> <span style="color: #808080;">'desabilitar linea si queremos que no envie el MSG. </span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> MiNPC.<span style="color: #66cc66;">GiveGLD</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> </li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Has ganado "</span> & MiNPC.<span style="color: #66cc66;">GiveGLD</span> & <span style="color: #ffffff;">" monedas de oro."</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span> <span style="color: #808080;">'desabilitar linea si no queremos que envie el MSG. </span></li><li style="" class="li1">UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> + MiNPC.<span style="color: #66cc66;">GiveGLD</span> </li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendUserStatsBox<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]


Expliquen mejor porq no todos sabemos como ustedes..:$
 

Hello

Oráculo Lvl 6
"elcapo(?)" te vas a comer un ban por el tiem´po entre lo que reviviste y hoy che no lees el reglamento?


y si no tira mas de 100k es porque en el ao no podes tirar mas de 100k ( fijate que en el tiraroro dice que si la cantidad es mayor o igual a 100k haga un exit sub..)
 

elcapo(?)

Aprendiz Lvl 5
Zacron dijo:
Muy bueno el comando pero como hago para que mande el SendData dsp de lo que dice Has ganado "MiNpc.GiveExp" de experiencia.
tengo un problema:
no encuentro esto:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'SI EL NPC TIENE ORO LO AUTO-EQUIPA AL USER</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> MiNPC.<span style="color: #66cc66;">GiveGLD</span> = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No has ganado oro al matar esta criatura."</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span> <span style="color: #808080;">'desabilitar linea si queremos que no envie el MSG.</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> MiNPC.<span style="color: #66cc66;">GiveGLD</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Has ganado "</span> & MiNPC.<span style="color: #66cc66;">GiveGLD</span> & <span style="color: #ffffff;">" monedas de oro."</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span> <span style="color: #808080;">'desabilitar linea si no queremos que envie el MSG.</span></li><li style="" class="li1">UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> + MiNPC.<span style="color: #66cc66;">GiveGLD</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendUserStatsBox<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
tampoco encuentro
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Call</span> NPCTirarOro<span style="color: #66cc66;">(</span>MiNPC<span style="color: #66cc66;">)</span></li></ol></div>[/vb]
 

Hello

Oráculo Lvl 6
ES EN EL SERVIDOR

ALGUIEN BANEE A ESTE PIBE NO ENTIENDE QUE NO SE PUEDE REVIVIR DIOSSSSS
 
Estado
Cerrado para nuevas respuestas.
Arriba