GS-Zone
Facebook Twitter

Torneos by sonter 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

7

Nota » 30 May 2009 22:52

Bueno,,Aca dejo el codigo de un torneo espero que les guste

Si encuentran error avisen por ke a mi me anda de 10

SERVIDOR
Buscamos:

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


Y arriba agregamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(rdata) = "/ACT1v1" Then
  2.          hay_torneo = 0
  3.         Else
  4.         hay_torneo = 1
  5. Call SendData(ToAll, 0, 0, "||Se han activado los duelos" & FONTTYPE_FIGHT)
  6.         Exit Sub
  7.         End If
  8. If UCase$(rdata) = "/DESACTIVAR1v1" Then
  9.         Hay_torneo = 1
  10.         Else
  11.         Hay_torneo = 0
  12. Call SendData(ToAll, 0, 0, "||Se han desactivado los duelos" & FONTTYPE_FIGHT)
  13.         Exit Sub
  14.         End If
  15. If UCase$(rdata) = "/TORNEOS" Then
  16.         frmtorneos.Show
  17. Exit sub
  18. end If
  19.            
  20.  
  21. Case "/PARTICIPAR"
  22.  
  23. If entorneo Then
  24.                 Dim jugadores As Integer
  25.                 jugadores = val(GetVar(App.Path & "/logs/torneo.log", "CANTIDAD", "CANTIDAD"))
  26.                 Dim jugador As Integer
  27.                 For jugador = 1 To jugadores
  28.                     If UCase$(GetVar(App.Path & "/logs/torneo.log", "JUGADORES", "JUGADOR" & jugador)) = UCase$(UserList(UserIndex).Name) Then Exit Sub
  29.                 Next
  30.                 Call WriteVar(App.Path & "/logs/torneo.log", "CANTIDAD", "CANTIDAD", jugadores + 1)
  31.                Call WriteVar(App.Path & "/logs/torneo.log", "JUGADORES", "JUGADOR" & jugadores + 1, UserList(UserIndex).Name)
  32.                Call SendData(ToIndex, UserIndex, 0, "9T")
  33.                Call SendData(ToAdmins, 0, 0, "2U" & UserList(UserIndex).Name)
  34.     If EsNewbie(UserIndex) Then  ' Evitamos q entren personajes newbies
  35.     Call SendData(ToIndex, UserIndex, 0, "||¡Los newbies no pueden jugar torneos!" & FONTTYPE_INFO)
  36.     Exit Sub
  37.     End If
  38. If UserList(UserIndex).POS.Map = 191 Then
  39.     Call SendData(ToIndex, UserIndex, 0, "||Desde aqui no puedes poner el copmando /ULLA" & fONTTYPE_SERVER)
  40.     Exit Sub
  41.     End If    
  42. If UserList(UserIndex).flags.Muerto Then ' Evitamos q entren personajes Muertos
  43.                     Call SendData(ToIndex, UserIndex, 0, "||¡Estás Muerto! No puedes ingresar al torneo!" & FONTTYPE_INFO)
  44.                 Exit Sub
  45.                 End If
  46.                 If MapInfo(191).NumUsers = 0 Then ' GALLE! Sumoneamos a los 8 primeros participantes.
  47.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  48.    ParticipanteTorneo(1) = UserIndex
  49.    Call WarpUserChar(ParticipanteTorneo(1), 191, 49, 78, True)
  50.    End If
  51.    If MapInfo(191).NumUsers = 1 Then
  52.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  53.    ParticipanteTorneo(2) = UserIndex
  54.    Call WarpUserChar(ParticipanteTorneo(2), 191, 54, 78, True)
  55.    End If
  56.    If MapInfo(191).NumUsers = 2 Then
  57.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  58.    ParticipanteTorneo(3) = UserIndex
  59.    Call WarpUserChar(ParticipanteTorneo(3), 191, 59, 78, True)
  60.    End If
  61.    If MapInfo(191).NumUsers = 3 Then
  62.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  63.    ParticipanteTorneo(4) = UserIndex
  64.    Call WarpUserChar(ParticipanteTorneo(4), 191, 49, 81, True)
  65.    End If
  66.    If MapInfo(191).NumUsers = 4 Then
  67.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  68.    ParticipanteTorneo(5) = UserIndex
  69.    Call WarpUserChar(ParticipanteTorneo(5), 191, 54, 81, True)
  70.    End If
  71.    If MapInfo(191).NumUsers = 5 Then
  72.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  73.    ParticipanteTorneo(6) = UserIndex
  74.    Call WarpUserChar(ParticipanteTorneo(6), 191, 59, 81, True)
  75.    End If
  76.    If MapInfo(191).NumUsers = 6 Then
  77.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  78.    ParticipanteTorneo(7) = UserIndex
  79.    Call WarpUserChar(ParticipanteTorneo(7), 191, 49, 84, True)
  80.    End If
  81.    If MapInfo(191).NumUsers = 7 Then
  82.        Call SendData(ToIndex, UserIndex, 0, "||Has entrado al torneo." & FONTTYPE_INFO)
  83.    ParticipanteTorneo(8) = UserIndex
  84.    Call WarpUserChar(ParticipanteTorneo(8), 191, 59, 84, True)
  85.    Call SendData(ToAll, 0, 0, "||CUPO LLENO! FINALIZARON LAS INSCRIPCIONES!" & FONTTYPE_FENIX)
  86.    End If
  87.            End If
  88.            Exit Sub
  89.  


Luego creamos un nuevo modulo con el nombre

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



Dentro de ese formulario agregamos dos commandbuttons,que digan Activar Torneos
Y otro que diga desactivar torneos



Cklikeamos dos veces en el activar torneos y en el codigo ponemos:


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData("/act1v1")


Y en el de desactivar torneos pornemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData("/desactivar1v1")
  2.  


Y en el modulo Declaraciones, debajo de Option Explicit. Agregamos:


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Public ParticipanteTorneo(1 To 8) As Integer


Nota:
En donde dice "MapInfo(191)", reemplanzen el 191 por el numero de mapa que uds eligieron como mapa de Sala de Espera..
Y luego donde dice, por ejemplo: "(ParticipanteTorneo(8), 191, 59, 84, True)" Cambien las coordenadas a donde desean q el jugador sea sumoneado.. para todos los participantes, es decir para PARTICIPANTETORNEO(1), (2), (3), etc..
Entonces,Lo que hace es activar los retos,desactivarlos,/participar los users ponen etc
Última edición por Sonter el 08 Jun 2009 11:35, editado 1 vez en total

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 01 Jun 2009 23:42

Me parece que quisiste modificarlo par que paresca tuyo = aporte = aporte ajja
Lo testeste? Me parece que en minusculas no te va a andar, osea los /COMERCIAR por ejemplo anda en amyusculas, en minusculas /comerciar no anda
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14428
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 03 Jun 2009 02:22

tomii no te cansas de aportar xD jajajaj

Muy bueno ademas k sea desactivavle y activable

Hablando x msn:
luminum escribió:Al parecer, GS , tu vida es tan emocionante como la de una babosa muerta

Luminum... ♫ Design your world ♫
Imagen
Imagen

Imagen

style escribió:
Matute! escribió:te oxidan los genitales -.-'


JAJAJAJAJA matute avos se te oxidan por que no lo usas con la gordita jajajaja.
luminum
Draw Your Dreams & Design your Life
14
Oraculo [5]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 2169
Aportes: 31
Premios: 2
Embajador (2)
Arriba

Nota » 07 Jun 2009 10:48

Gracias,Igual los Moderadores,No te toman los aportes,Pero weno,Me gusta mucho esta seccion

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 07 Jun 2009 17:15

Sonter escribió:Gracias,Igual los Moderadores,No te toman los aportes,Pero weno,Me gusta mucho esta seccion


Tas equibocado Sonter... Si te los toman, pero si aportas siempre lo mismo, activar y desactivar o cosas que estan en el foro o algo, no te los toman.

Imagen
Naaan!
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)
Arriba

Nota » 08 Jun 2009 11:37

Si te entiendo NaaaN Pero,Sin La lista de codigos ya aportados me parece dificil buscarlos aver si los aportaron o no

Saludos

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 08 Jun 2009 13:25

Sonter escribió:Si te entiendo NaaaN Pero,Sin La lista de codigos ya aportados me parece dificil buscarlos aver si los aportaron o no

Saludos


3 meses en la comunidad CON ESA CUENTA, y no sabes nada?.

Está el indice con TODOS LOS APORTES, si te fijaras bien...


Perdonen mods, paro con el desvirtuo, pero si no sabe buscar, contesto :P

Imagen
Naaan!
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)
Arriba

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

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