GS-Zone

Torneo 1 vs 1 , 8 cupos. Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

24

Nota » 05 Sep 2010 21:41

Buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Meditate                '/MEDITAR


Abajo poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Ingresar                '/TORNEO
  2.     CreateTorneo                '/CREARTORNEO


buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        Case ClientPacketID.Meditate                '/MEDITAR
  2.             Call HandleMeditate(userindex)


abaajo poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        Case ClientPacketID.Ingresar                '/TORNEO
  2.             Call HandleIngresar(userindex)
  3.  
  4.         Case ClientPacketID.CreateTorneo                '/CREARTORNEO
  5.             Call HandleCreateTorneo(userindex)


buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub HandleMeditate(Byval Userindex as Integer)


y arriba poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub HandleiNGRESAR(ByVal userindex As Integer)
  2. 'Remover paquete
  3.  
  4. Call UserList(userindex).incomingData.ReadByte
  5.  
  6. If Torneo.HayTorneo = 0 Then
  7. Call WriteConsoleMsg(userindex, "No hay ningún torneo en curso.", FontTypeNames.FONTTYPE_INFOBOLD)
  8. Exit Sub
  9. End If
  10.  
  11. 'no caspers
  12.  
  13. If UserList(userindex).flags.Muerto Then
  14. Call WriteConsoleMsg(userindex, "No puedes ingresar al torneo si estas muerto", FontTypeNames.FONTTYPE_INFOBOLD)
  15. Exit Sub
  16. End If
  17.  
  18. If UserList(userindex).flags.InTournament = 1 Then
  19. Call WriteConsoleMsg(userindex, "Ya estás en Torneo", FontTypeNames.FONTTYPE_INFOBOLD)
  20. Exit Sub
  21. End If
  22.  
  23. If Torneo.CuentaDeCupos < 8 then
  24. Torneo.CuentaDeCupos = Torneo.CuentaDeCupos + 1
  25. end if
  26.  
  27. Call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > Has ingresado al torneo", fonttypenames.fonttype_infobold)
  28.  
  29. if Torneo.CuentaDeCupos = 1 then
  30. call warpuserchar(USERINDEX, mapa, x, y, true)
  31. end if
  32.  
  33. if Torneo.CuentaDeCupos = 2 then
  34. call warpuserchar(USERINDEX, mapa, x, y, true)
  35. end if
  36.  
  37. if Torneo.CuentaDeCupos = 3 then
  38. call warpuserchar(USERINDEX, mapa, x, y, true)
  39. end if
  40.  
  41. if Torneo.CuentaDeCupos = 4 then
  42. call warpuserchar(USERINDEX, mapa, x, y, true)
  43. end if
  44.  
  45. if Torneo.CuentaDeCupos = 5 then
  46. call warpuserchar(USERINDEX, mapa, x, y, true)
  47. end if
  48.  
  49. if Torneo.CuentaDeCupos = 6 then
  50. call warpuserchar(USERINDEX, mapa, x, y, true)
  51. end if
  52.  
  53. if Torneo.CuentaDeCupos = 7 then
  54. call warpuserchar(USERINDEX, mapa, x, y, true)
  55. end if
  56.  
  57. if Torneo.CuentaDeCupos = 8 then
  58. call warpuserchar(USERINDEX, mapa, x, y, true)
  59. call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > Cupos finalizados", fonttypenames.fonttype_infobold)
  60. end if
  61.  
  62. End Sub
  63.  
  64. Private Sub HandleCreateTorneo(Byval userindex as integer)
  65.  
  66. 'Remover paquete
  67.  
  68. Call UserList(userindex).incomingData.ReadByte
  69.  
  70. If Torneo.HayTorneo = 0 then
  71. Torneo.HayTorneo = 1
  72. call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > Habilitado, 8 cupos!", fonttypenames.fonttype_infobold)
  73. else
  74. Torneo.HayTorneo = 0
  75. call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > Deshabilitado", fonttypenames.fonttype_infobold)
  76. end if
  77.  
  78. End Sub


Buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Type UserFlags


abajo poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. InTournamenT as byte


Declarar(mod_declaraciones.bas, abajo de option explicit)

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Torneo as tTorneo
  2.  
  3. Type tTorneo
  4. HayTorneo as byte
  5. CuentaDeCupos as byte
  6. end type


buscan el SUB

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub CloseSocket(ByVal userindex As Integer)


y por ahi dice

'mato los comercios seguros

abajo poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    If UserList(userindex).flags.inTournament = 1 Then
  2.     Call WarpUserChar(userindex, 1, 50, 50, True)
  3.  call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > " & userlist(userindex).name & " Ha deslogeado en torneo.", fonttypenames.fonttype_infobold)
  4.     End If


CLIENTE

Buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub WriteMeditate


arriba poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub WriteIngresar()
  2. call outgoingdata.writebyte(Clientpacketid.Ingresar)
  3. end sub
  4.  
  5. Public Sub WriteCreateTorneo()
  6. call outgoingdata.writebyte(Clientpacketid.CreateTorneo)
  7. end sub


Buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Meditate                '/MEDITAR


Abajo poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Ingresar                '/TORNEO
  2.     CreateTorneo                '/CREARTORNEO


buscar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/MEDITAR"


arriba poner

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/TORNEO"
  2.   call writeingresar
  3.  
  4. Case "/CREARTORNEO
  5. Call writeCreateTorneo
  6.  


bay

maTih.-
Última edición por maTih.- el 05 Sep 2010 21:42, editado 1 vez en total

maTih.-
mAnco programEr
302
Oraculo [5]
Registrado: Años de membresía
Ubicación: Bolivia
Mensajes: 1994
Aportes: 90
Arriba

Nota » 05 Sep 2010 22:01

Mierd@ Matih, parece ùltimamente que no estas muy activo, pero que te desarrollas màs que bien en la 0.12.X, y no solo eso si no que haces cosas interesantes :D, muchas gracias por hacer cosas piolas para la 0.12.X, fijate si podes hacer algo lo màs parecido al " TDS " xD :D...

Saludos
Xtreem

Imagen
By Francoxe
II XTREEM II
^[ Inbooker Ao ]^ Busca Programador con mucha exp.
35
Oraculo [2]
Embajador (1)
Premios: 1
Registrado: Años de membresía
Mensajes: 1355
Aportes: 5
Arriba

Nota » 06 Sep 2010 08:26

gracias xtreem!, ahora cuando termine el sistema de party como tds(70 30, 80 20, 90 10) lo aporto =P

maTih.-

maTih.-
mAnco programEr
302
Oraculo [5]
Registrado: Años de membresía
Ubicación: Bolivia
Mensajes: 1994
Aportes: 90
Arriba
#NotaEste post ha sido eliminado por [Z]ion! en 06 Sep 2010 15:41.
Arriba

Nota » 07 Sep 2010 07:39

Josha directo a mi ao matih, muy buen aporte.

Saludos. ^^

No a la S.O.P.A! - Si a la P.O.L.E.N.T.A!

Imagen
Imagen
Samke
Staff Zeiked-Games
260
Narnia AO StaffDragon Ancestral [3]
Usuario omnipresente (1) Embajador (2)
Premios: 3
Registrado: Años de membresía
Ubicación: Castelar
Mensajes: 3194
Aportes: 57
Arriba

Nota » 07 Sep 2010 13:51

no funciona ahh, tengo ganas de matarte

Imagen
Imagen
Joaco1923
Usuario Registrado
Newbie [5]
Registrado: Años de membresía
Mensajes: 152
Arriba

Nota » 07 Sep 2010 13:53

no funciona

tira error variable

del map

.. nada funciono.

Imagen

Imagen

Imagen
retruns
Usuario Inmortal
Newbie [3]
Embajador (1)
Premios: 1
Registrado: Años de membresía
Mensajes: 75
Aportes: 1
Arriba

Nota » 07 Sep 2010 16:43

Yo lo testié recién y anda perfecto, muy buen aporte.

Imagen
Elaine
:!: :!: :!: :!:
18 (+5)
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1194
Aportes: 13
Arriba

Nota » 07 Sep 2010 17:08

MUY BUEN CODE!
Adaptalo para 13.0! kaka

About escribió:Off: Ah, so corte war lvl 49 en la vida real. Re duro.com

On: ¿?

Imagen
Imagen
Bacoo
191
Destructor de Mentes [6]
Embajador (1)
Premios: 1
Registrado: Años de membresía
Mensajes: 780
Aportes: 2
Arriba

Nota » 07 Sep 2010 23:32

No, en el server cuando ya entras dice : ERROR DE SINTAXIS :shock:

Imagen
Imagen
Joaco1923
Usuario Registrado
Newbie [5]
Registrado: Años de membresía
Mensajes: 152
Arriba

Nota » 08 Sep 2010 12:34

pero si no tienen la ingenuidad para darse cuenta que acá

call warpuserchar(USERINDEX, mapa, x, y, true)

tienen que remplazar MAPA , X , Y por las posiciones, no se como podrán tener un servidor.

maTih.-

maTih.-
mAnco programEr
302
Oraculo [5]
Registrado: Años de membresía
Ubicación: Bolivia
Mensajes: 1994
Aportes: 90
Arriba
#NotaEste post ha sido eliminado por [Z]ion! en 08 Sep 2010 13:31.
Arriba

Nota » 08 Sep 2010 18:40

pero ahi no me tira el error me lo tira aca...eso del mapa es mas que obvio
senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > " & userlist(userindex).name & " Ha deslogeado en torneo.", fonttypenames.fonttype_infobold)

Imagen
Imagen
Joaco1923
Usuario Registrado
Newbie [5]
Registrado: Años de membresía
Mensajes: 152
Arriba

Nota » 08 Sep 2010 21:06

ganas de matarme por que me olvidé un paréntesis? okas

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. call senddata(sendtarget.toall, 0 , preparemessageconsolemsg("Torneo > " & userlist(userindex).name & " Ha deslogeado en torneo.", fonttypenames.fonttype_infobold))


ponelo así

maTih.-

maTih.-
mAnco programEr
302
Oraculo [5]
Registrado: Años de membresía
Ubicación: Bolivia
Mensajes: 1994
Aportes: 90
Arriba

Nota » 09 Sep 2010 19:28

no es eso solo, osea matih. gracias por el codigo la verdad esta bueno.. pero me podes ayudar.. osea los pjs van a sus lugares, (cada uno a su coordenada) pero la gente sigue mandando y no se deshabilita el torneo osea le gente pone /torneo y sigue más gente y más... no se frena en 8.. dice cupos llenos pero sigue entrando gente.. y una y otra ves..
despues deshabilito el torneo y lo habilito de vuelta y no van a sus cordenadas los primeros 8 sino que comienzan de la ultima posicion y vienen más que 8...
HIZE TODO COMO ME DIJISTE Y ESTA TODO BIEN :d

Imagen
Imagen
Joaco1923
Usuario Registrado
Newbie [5]
Registrado: Años de membresía
Mensajes: 152
Arriba
Siguiente

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados