(Problem) Hacer un comando nuevo...

Ir abajo

(Problem) Hacer un comando nuevo...

Mensaje por KeoH el 26/9/2017, 9:25 am

Buenas..

Estaba queriendo implementar un código que en teoría debería ser sencillo, se esta convirtiendo para mi (Que no entiendo mucho de programación) en un dolor fuerte de cabeza, el código consiste en escribir /Ciudad  

El problema que no se como hacer recibir los textos que el user manda para identificar a que ciudad a marcado, lo he intentado hacerla con Ucase$ pero no consigo nada...

Código:
Public Sub HandleCiudad(ByVal UserIndex As Integer)

  With UserList(UserIndex)
   Call .incomingData.ReadByte
      
     Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("DEBUG: " & UserList(UserIndex).name & " esta usando comando /Ciudad", FontTypeNames.FONTTYPE_GUILD))
    
    
     Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("DEBUG: Mapa que intenta ir es: " & texto, FontTypeNames.FONTTYPE_GUILD))
    

  End With

End Sub

los sendData del código es lo que le meto dentro para ir comprobando vía juego que me va haciendo jejeje.

KeoH
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 25
Localización : cadiz
Fecha de inscripción : 22/12/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problem) Hacer un comando nuevo...

Mensaje por Toyz el 27/9/2017, 11:27 pm

Mmmmmm.

Función;

Código:

function isCity(strCity as string) as integer

'@@ Código horrible, hardcode. Debería ser automático pero bue.

  dim numberCity as integer

  select case ucase$(strCity)
    case "ULLATHORPE"
        numberCity = 1
  end select

  isCity=numberCity
end function

Llamadas;

Código:

dim data as string
dim numberCity as integer

data = 'el nombre del mapa que envió el usuario desde el cliente
numberCity=isCity(data)
if numberCity then _
    warpuserchar userindex numbercity 50 50 true

Suerte Smile


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problem) Hacer un comando nuevo...

Mensaje por KeoH el 28/9/2017, 6:40 pm

Perfecto, ya lo tengo funcionando!! gracias!

KeoH
Nivel 2
Nivel 2

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 25
Localización : cadiz
Fecha de inscripción : 22/12/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problem) Hacer un comando nuevo...

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.