Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 /LIMPIARMUNDO

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: /LIMPIARMUNDO   Vie Ago 01, 2008 8:32 pm

Código:

'Ladder /limpiarmundo
Case "/LIMPIARMUNDO"
If UserList(UserIndex).flags.Privilegios > 0 Then
Call SendData(ToAll, 0, 0, "||Servidor> Limpiando Mundo." & FONTTYPE_SERVER)
Dim MapaActual As Integer
MapaActual = 1
For MapaActual = 1 To NumMaps
For Y = YMinMapSize To YMaxMapSize
For X = XMinMapSize To XMaxMapSize
If MapData(MapaActual, X, Y).OBJInfo.ObjIndex > 0 Then _

If ItemNoEsDeMapa(MapData(MapaActual, X, Y).OBJInfo.ObjIndex) Then Call EraseObj(ToMap, UserIndex, MapaActual, 10000, MapaActual, X, Y)
End If


Next X
Next Y
Next MapaActual
end if
Exit Sub
'Ladder /limpiarmundo
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
/LIMPIARMUNDO
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.2-
Cambiar a: