Comando /limpiarmundo

Estado
Cerrado para nuevas respuestas.

RojoAmuerte

Newbie Lvl 4
Bueno necesito ayuda lo mas rapido posible estoy abriendo mi sv y necesitaria este comando....q pongas /limpiarmundo y se borren todos los objetos de todos los mapas....incluyendo armas oro todo...y q en consola de el aviso....SE ESTA LIMPIANDO EL MUNDO algo asi..por favor ayuda urgente...:$ :(
 

Hello

Oráculo Lvl 6
habria problemas con los items de las casas, si es un sv trucho las gemitas y eso, los adornitos y toda la merda y eeeeeem me olvido algo :p el codigo esta en el sv es /limpiar q te limpia el mapa , le cambias 1 linea y listo :p
 

RojoAmuerte

Newbie Lvl 4
Por ejemplo solo q borre armas y oro?:p y en mi sv esta ese comando...pero no borra nada:S:S me decis q le agrego a este comando???


'/Clean
If UCase$(rdata) = "/LIMPIAR" Then
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
Call LimpiarMundo
Exit Sub
End If
 

RojoAmuerte

Newbie Lvl 4
La verdad me iba bien pero no entendi la ultima parte....asi kedaria esto??


f MinutosLatsClean >= 15 Then
MinutosLatsClean = 0
Call ReSpawnOrigPosNpcs 'respawn de los guardias en las pos originales
Call LimpiarMundo
Else



Gracias por ayudarme,si podes respondeme xD
 

Khalem

Mica
Colaborador
Ex-Staff
Sí!, así te tiene que quedar :), y en teoría debería funcionar, disculpá que no pueda probarlo, si tenés algún problema por favor avisame pro acña que lo revisamos.

Suerte!
 

RojoAmuerte

Newbie Lvl 4
Mira me tira este error:

Sub LimpiarMundo()

On Error Resume Next

Dim i As Integer

For i = 1 To TrashCollector.Count
Dim d As cGarbage
Set d = TrashCollector(1)
Call EraseObj(ToMap, 0, d.Map, 1, d.Map, d.X, d.Y)
Call TrashCollector.Remove(1)
Set d = Nothing
Dim ObjNuevo As New cGarbage
ObjNuevo.Map = Map
ObjNuevo.X = X
ObjNuevo.Y = Y
If ObjX.ObjIndex > 0 And ObjX.ObjIndex <= UBound(ObjData) Then
'Crea un Objeto
TrashCollector.Add ObjNuevo
MapData(Map, X, Y).OBJInfo = ObjX
Call SendData(sndRoute, sndIndex, sndMap, "HO" & ObjData(ObjX.ObjIndex).GrhIndex & "," & X & "," & Y)
End If
End Sub
 

RojoAmuerte

Newbie Lvl 4
estemmmmm mira jajaja:p

Sub LimpiarMundo()

On Error Resume Next

Dim i As Integer

For i = 1 To TrashCollector.Count
Dim d As cGarbage
Set d = TrashCollector(1)
Call EraseObj(ToMap, 0, d.Map, 1, d.Map, d.X, d.Y)
Call TrashCollector.Remove(1)
Set d = Nothing
Dim ObjNuevo As New cGarbage
ObjNuevo.Map = ToMap
ObjNuevo.X = X
ObjNuevo.Y = Y
If ObjX.ObjIndex > 0 And ObjX.ObjIndex <= UBound(ObjData) Then
'Crea un Objeto
TrashCollector.Add ObjNuevo
MapData(Map, X, Y).OBJInfo = ObjX
Call SendData(sndRoute, sndIndex, sndMap, "HO" & ObjData(ObjX.ObjIndex).GrhIndex & "," & X & "," & Y)
End If
End Sub
 

Blizzard

Oráculo Lvl 5
No creo que sea tomap... pero mira, lo que yo haria seria hacer un bucle con todos los objetos del servidor y que borre solo los que sean armas, armaduras u oro...
Espero q les sirva, muy productivo no fui pero es lo que a simple vista me parecio...
Fijense tambien, que para el metodo que estan usando hay un parametro que define la cantidad de objetos que borras y le estas pasando 1 ahi...
Ahi d representaria a todos los objetos entonces vos estas borrando con el procedimiento eraseobj todos los objetos pero cantidad 1 o sea que si hay 2 de oro en el piso queda 1, proba cambiando ese parametro, ponele 10000

Salu2 y espero que les haya servido...
 
Estado
Cerrado para nuevas respuestas.
Arriba