Agus
Admin
Mensajes : 69
Fecha de inscripción : 01/07/2008
 | Tema: /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
| |
|
