Mata todos los ncps del mapa

Estado
Cerrado para nuevas respuestas.

Khalem

Mica
Colaborador
Ex-Staff
Realmente no comprendí... Como vas a tener 2000 NPCs en un mapa? Seguro que vas a tener lag XD.

En fin, el código está lindo, calculoq eu lo probaste, aunque te falto:[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><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;">"Se borraron todos los ncps de este mapa"</span> & FONTTYPE_FIGHT<span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Suerte ^^
 
A

Anonymous

Invitado
Yo te recomiendo que pongas la parte de síntaxis del comando en mayúscula, porque sinó no te lo va a tomar.

En lugar de:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/MataNcps"</span> <span style="color: #b1b100;">Then</span></li></ol></div>[/vb]
Usa:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/MATANPCS"</span> <span style="color: #b1b100;">Then</span></li></ol></div>[/vb]

Con el UCase$() estas comparando en el contenido de rdata en mayúsculas.

Suerte.
 

RojoAmuerte

Newbie Lvl 4
'Quita todos los NPCs del mapa
If UCase$(rdata) = "/MataNcps" Then
For Y = YMinMapSize To YMaxMapSize
For X = XMinMapSize To XMaxMapSize
If X > 0 And Y > 0 And X 0 Then Call QuitarNPC(MapData(UserList(UserIndex).Pos.Map, X, Y).NpcIndex)
Next X
Next Y
Call SendData ToIndex, UserIndex, 0, "Se borraron todos los ncps de este mapa" & FONTTYPE_FIGHT

Exit Sub


Edita eso sino alguien q no sepa no sabe hacer andar el code...;) Saludos
 

RojoAmuerte

Newbie Lvl 4
'Quita todos los NPCs del mapa
If UCase$(rdata) = "/MataNcps" Then
For Y = YMinMapSize To YMaxMapSize
For X = XMinMapSize To XMaxMapSize
If X > 0 And Y > 0 And X 0 Then Call QuitarNPC(MapData(UserList(UserIndex).Pos.Map, X, Y).NpcIndex)
Next X
Next Y
Call SendData ToIndex, UserIndex, 0, "Se borraron todos los ncps de este mapa" & FONTTYPE_FIGHT

Exit Sub


Edita eso sino alguien q no sepa no sabe hacer andar el code...;) Saludos



EDIT: De paso digo...alguien podria hacer un code parecido pero q sea para objetos ????
 
Estado
Cerrado para nuevas respuestas.
Arriba