Sativa [Usuario Mundos Unidos]
Mensajes : 10 Temas : 4 Agradeceres : 0 Fecha de inscripción : 30/07/2013 Localización : Visual Basic
| Tema: [APORTE] Comando /Llevar "Nick" Mar 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. | |
|