GS-Zone

Developing the Future...
http://www.gs-zone.org/

Torneo 1 vs 1 , 8 cupos.

Sitio web: http://www.gs-zone.org/torneo_1_vs_1_8_cupos_tcL4.html

NotaPublicado: 05 Sep 2010 21:41
por maTih.-
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.-
NotaPublicado: 05 Sep 2010 22:01
por II XTREEM II
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
NotaPublicado: 06 Sep 2010 08:26
por maTih.-
gracias xtreem!, ahora cuando termine el sistema de party como tds(70 30, 80 20, 90 10) lo aporto =P

maTih.-
NotaPublicado: 06 Sep 2010 14:51
por II XTREEM II
#NotaEste post ha sido eliminado por Cyrus en 06 Sep 2010 15:41.
NotaPublicado: 07 Sep 2010 07:39
por Samke
Josha directo a mi ao matih, muy buen aporte.

Saludos. ^^
NotaPublicado: 07 Sep 2010 13:51
por Joaco1923
no funciona ahh, tengo ganas de matarte
NotaPublicado: 07 Sep 2010 13:53
por retruns
no funciona

tira error variable

del map

.. nada funciono.
NotaPublicado: 07 Sep 2010 16:43
por Elaine
Yo lo testié recién y anda perfecto, muy buen aporte.
NotaPublicado: 07 Sep 2010 17:08
por Bacoo
MUY BUEN CODE!
Adaptalo para 13.0! kaka
NotaPublicado: 07 Sep 2010 23:32
por Joaco1923
No, en el server cuando ya entras dice : ERROR DE SINTAXIS :shock:
NotaPublicado: 08 Sep 2010 12:34
por maTih.-
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.-
NotaPublicado: 08 Sep 2010 13:03
por admin
#NotaEste post ha sido eliminado por Cyrus en 08 Sep 2010 13:31.
NotaPublicado: 08 Sep 2010 18:40
por Joaco1923
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)
NotaPublicado: 08 Sep 2010 21:06
por maTih.-
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.-
NotaPublicado: 09 Sep 2010 19:28
por Joaco1923
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
Todos los horarios son UTC - 3 horas
Página 1 de 2
GS-Zone © 2005-2012
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/