¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse
Mundos Unidos
Banner Invierno Ultimas Noticias

 

 [APORTE] Comando /Llevar "Nick"

Ir abajo 
AutorMensaje
Sativa
[Usuario Mundos Unidos]
[Usuario Mundos Unidos]
Sativa


Mensajes : 10
Temas : 4
Agradeceres : 0
Fecha de inscripción : 30/07/2013
Localización : Visual Basic

[APORTE] Comando /Llevar "Nick" Empty
MensajeTema: [APORTE] Comando /Llevar "Nick"   [APORTE] Comando /Llevar "Nick" I_icon_minitimeMar Jul 30, 2013 5:12 pm

Buscamos:
Código:
If UCase$(Left$(rdata, 5)) = "/SUM " Then
    rdata = Right$(rdata, Len(rdata) - 5)
 
  tIndex = NameIndex(rdata)
    If tIndex <= 0 Then
        Call SendData(SendTarget.ToIndex, userindex, 0, "||El jugador no esta online." & FONTTYPE_INFO)
        Exit Sub
    End If 
  PosUserSum.Map = UserList(tIndex).pos.Map
    PosUserSum.X = UserList(tIndex).pos.X
    PosUserSum.Y = UserList(tIndex).pos.Y
 
    Call SendData(SendTarget.ToIndex, tIndex, 0, "||" & UserList(userindex).name & " há sido trasportado." & FONTTYPE_INFO)
    Call WarpUserChar(tIndex, UserList(userindex).pos.Map, UserList(userindex).pos.X, UserList(userindex).pos.Y + 1, True)
 
  Call LogGM(UserList(userindex).name, "/SUM " & UserList(tIndex).name & " Map:" & UserList(userindex).pos.Map & " X:" & UserList(userindex).pos.X & " Y:" & UserList(userindex).pos.Y, False)
    Call LogGM("EDITADOS", UserList(userindex).name & " sumoneo a: " & UserList(tIndex).name & " al Mapa:" & UserList(userindex).pos.Map & " X:" & UserList(userindex).pos.X & " Y:" & UserList(userindex).pos.Y, False)
    Exit Sub
End If

Arriba:
Código:
'LLeva al usuario sumoneado a el lugar donde estaba antes del sum
If UCase$(Left$(rData, 8)) = "/LLEVAR " Then
rData = Right$(rData, Len(rData) -
tIndex = NameIndex(rData)

    If tIndex <= 0 Then
        Call SendData(SendTarget.toindex, UserIndex, 0, "||El jugador no esta online." & FONTTYPE_INFO)
        Exit Sub
    End If
   
    Call SendData(SendTarget.toindex, tIndex, 0, "||" & UserList(UserIndex).name & " há sido trasportado." & FONTTYPE_INFO)
    Call WarpUserChar(tIndex, PosUserSum.Map, PosUserSum.X, PosUserSum.Y)
Exit Sub
End If

Declaran:

Código:
Public PosUserSum As WorldPos

Explicación: Cuando el gm sumonea a un usuario por algun motivo, con /LLEVAR NICK lo devuelve a donde estaba antes de ser sumoneado.

Lo extraje yo mismo.
Volver arriba Ir abajo
 
[APORTE] Comando /Llevar "Nick"
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Comando /desterrar [11.5]
» [APORTE] Olly Dbg.
» [Aporte]Ervity

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