Sistema de Consulta (0.11.5)

Tema: Sistema de Consulta (0.11.5) Jue Jun 20, 2013 2:26 pm

Buenas Tardes, les traigo Sistema de Consulta para la versión 0.11.5

Explicación: el GM pone /CONSULTAON de la cual lo ve el usuario en consola el usuario tipea /IRCONSULTA y lo lleva al mapa que ponen ustedes xD.

Comenzamos.
Servidor:

En el Handledata_2 ponemos

Código:: If UCase$(Left$(rData, 16)) = "/CONSULTAON" ThenrData = Right$(rData, Len(rData) - 16)Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(userindex).name& " Está en la sala de consultas tipea /IRCONSULTA." & FONTTYPE_GUILD)Call WarpUserChar(userindex, 20, 50, 50, True) 'Coordenada a la qué lleva al GMConsulta = TrueHayConsulta = FalseExit SubCase "/IRCONSULTA" If UserList(userindex).flags.Privilegios > 1 Then CallSendData(SendTarget.toindex, userindex, 0, "CONSULT") Exit Sub Case "/IRCONSULTA" If UserList(userindex).pos.Map = 70 Then Exit Sub ' 70 EJEMPLO VOFÍ. If Consulta = False Then Call SendData(SendTarget.toindex, userindex, 0, "||Los Game Master no estan atendiendo consultas en este momento intenta mas tarde amiwo." & FONTTYPE_INFO) Exit Sub End If If HayConsulta = True Then Call SendData(SendTarget.toindex, userindex, 0, "||Ya hay una consulta, prueba mas tarde." & FONTTYPE_INFO) Exit Sub End If PosUserConsulta.Map = UserList(userindex).pos.Map PosUserConsulta.X = UserList(userindex).pos.X PosUserConsulta.Y = UserList(userindex).pos.Y Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(userindex).name & " Acaba de entrar en la sala de consultas habilitada por el GM. " & FONTTYPE_INFO) Call WarpUserChar(userindex, 20, 50, 55, True) 'Coordenadas a la qué va el usuario qué tipeo IRCONSULTA HayConsulta = True Exit SubEnd If

Abajo:

Código:: If UCase(Left(rData, 6)) = "/LISTO " ThenrData = Right$(rData, Len(rData) - 6)Dim fex As Stringfex = NameIndex(rData) If fex <= 0 Then Call SendData(SendTarget.toindex, userindex, 0, "||Usuario OFFLINE." & FONTTYPE_INFO) Exit Sub End If If Consulta = False Then Exit Sub Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(userindex).name & " se encuentra en la sala de consultas, tipea /IRCONSULTA." & FONTTYPE_GUILD)HayConsulta = False Call WarpUserChar(fex, PosUserConsulta.Map, PosUserConsulta.X, PosUserConsulta.Y)Exit SubEnd If

Buscamos:

Código:: If UCase$(Left$(rData, 6)) = "/CMSG " Then

Arriba:

Código:: If UCase$(Left$(rData, 19)) = "/CONSULTAOFF" ThenrData = Right$(rData, Len(rData) - 19)Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(userindex).name& " desactivó las consultas." & FONTTYPE_GUILD)Consulta = FalseExit SubEnd If

Declaraciones: ponemos

Código:: Public PosUserConsulta As WorldPosPublic HayConsulta As BooleanPublic Consulta As Boolean

Invitado

Esta bueno, pero para mi es mas comodo el /Consultas .

Igual seguí así y gracias x aportar.

Tema: Re: Sistema de Consulta (0.11.5) Jue Jun 20, 2013 5:01 pm

No lo leí al código pero no es el que libero zaiko pero con otros comandos?

Tema: Re: Sistema de Consulta (0.11.5) Jue Jun 20, 2013 5:22 pm

Gracias por el aporte
Segui Asi.

Tema: Re: Sistema de Consulta (0.11.5) Jue Jun 20, 2013 5:24 pm

Nada que ver, Luciano, no es el que liberó ZaikO.

Tema: Re: Sistema de Consulta (0.11.5) Miér Jun 26, 2013 2:54 pm

Muy bueno

Invitado

JuliánC escribió:: Nada que ver, Luciano, no es el que liberó ZaikO.

Para mi que si es el que uso ZAikO porqué es muy parecido.

Tema: Re: Sistema de Consulta (0.11.5) Sáb Jun 29, 2013 8:41 pm

Te encanta afanar post no? le dije que no es el de ZaikO y me porfias.

Axters>>>>Editado por insultos