Sistema de Torneos - Completo y con muchas opciones

» 13 Ene 2012 21:37

miqueas150 escribió:
Shak escribió:
miqueas150 escribió:no es el de twist ao

[ Imagen ]

Es así este sistema

Ese es el formulario a descargar.

Saludos

Tiene un aire igualemtne gracias sirve y mucho Graciaela mande para 12.3

En 12.3 anda

Saludos

» 13 Ene 2012 23:25

"Oro" que vendria a ser, el oro qe se necesita para inscribirse?

» 14 Ene 2012 00:53

Feer159 escribió:"Oro" que vendria a ser, el oro qe se necesita para inscribirse?

Sí

» 14 Ene 2012 01:16

Che costaria mucho para hacer que se puedan elegir las clases al igual que en twist ao ?

» 14 Ene 2012 13:30

Pueden ver una vista previa online del sistema:

Imagen

» 14 Ene 2012 14:27

ta bueno jajaja

, yo le agregaría algo más, como para darle "uso" al oro

cuando entra un usuario

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

optionTorneo.Pozo = optionTorneo.pozo + optiontorneo.OroTorneo
.stats.gld  = .stats.gld - optiontorneo.orotorneo
writeupdategold userindex

desp en el type OPtion_Torneo agregas una variable

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

   pozo  as long

y después le das al ganador el oro que se recaudó

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

userlist(index).stats.gld = userlist(index).stats.gld + optiontorneo.pozo
writeupdategold IDNEX

» 14 Ene 2012 14:32

maTih.- escribió:ta bueno jajaja , yo le agregaría algo más, como para darle "uso" al oro

cuando entra un usuario

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
optionTorneo.Pozo = optionTorneo.pozo + optiontorneo.OroTorneo
.stats.gld = .stats.gld - optiontorneo.orotorneo
writeupdategold userindex

desp en el type OPtion_Torneo agregas una variable

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
pozo as long

y después le das al ganador el oro que se recaudó

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
userlist(index).stats.gld = userlist(index).stats.gld + optiontorneo.pozo
writeupdategold IDNEX

Muy bueno , cuando deje de jugar NFS edito con tu aporte :$

Gracias mati

» 14 Ene 2012 23:02

Matih muy buena tu idea...
Nuevamente, muy lindo el código Shak.

» 15 Ene 2012 13:59

jajaj realmente buenisimo ! el tema es que nose bien como poner las ocsas.. jaja esta mas explicado cmoo se "armo el codigo" que como ponerlo para los novatos como yo en programacion... acosumbrado a leer "pone abajo de esto", busca esto y pega esto.. leo esto y se me complica jajajaja

Gracias igualmente!

» 15 Ene 2012 14:25

Por algo lo hice no te respetan los aportes la onda esvque aprendan sí quieres ayuda para aprender binario mp

Rickytw escribió:jajaj realmente buenisimo ! el tema es que nose bien como poner las ocsas.. jaja esta mas explicado cmoo se "armo el codigo" que como ponerlo para los novatos como yo en programacion... acosumbrado a leer "pone abajo de esto", busca esto y pega esto.. leo esto y se me complica jajajaja

Gracias igualmente!

» 07 Feb 2012 00:41

revivan LINKKK!

» 14 Feb 2012 16:02

Ahora lo subo wachin espera.

SOLO los Usuarios Registrados pueden ver los enlaces!

Si no entienden como poner el código comentan el tema y se los dejo

» 15 Feb 2012 00:43

podés agregar que se eligan clases

, digamos algo así.

creas un txtbox en el formulario, que se pondrian las clases que estan prohibidas , pero bien escritas, ej "CLERIGO, BARDO, PALADIN, ASESINO, GUERRERO, CAZADOR, BANDIDO"

En el paquete envias esta cadena y en el servidor la recibis.

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

blbla = buffer.readasciistring

despues declaras

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

public classProhibida() as string

despues en el paquete, haces esto con la cadena que recibiste.

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

Sub SetearClasesProhibidas(Byval CadenaEnviada as string)
 
'creo un array con la cadena entera
 
dim asd() as string
dim asdfg as long
 
asd = split(cadenaEnviada, ",")
 
'redimensiono el array de classProhibida
 
redim classProhibida(lbound(asd()) to ubound(asd()))
 
'ahora lleno el array principal (classProhibida)
for asdfg = lbound(asd()) to ubound(asdfg())
     classProhibida(asdfg) = asd(asdfg)
next asdfg
 
'listo
 
end sub

ya tenes to2 ahora solo falta comprobar si la clase del usuario que ingresa no es prohibida

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

Function UserClaseProhibida(byval clase as string) as boolean
 
 dim i as long
  
  'Recorremos todas las clases prohibidas y si encontramos la del usuario
  'Devolvemos "true"
  for i = lbound(classprohibida()) to ubound(classprohibida())
       if classProhibida(i) = clase then
          userclaseprohibida = true
          exit function
       end if
  next i
 
'si no salio de la funcion en el bucle entonces no es prohibida
 
userclaseprohibida = false
 
end function

en el paquete participar, pones

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

If UserClaseProhibida(Ucase$(.clase)) then
   writeconsolemsg userindex, "Tu clase no te permite participar en este torneo.", fonttypenames.Fonttype_HOLA
   EXIT SUB
END IF

escribí cualquier cosa pero bueno

DD

» 15 Feb 2012 01:19

Bien Matih estaria para actualizar las descargar jeje.
Un abrazo,

Ya lo voy a implementar a este código, 13.x me da mucha fiaca.

» 04 Mar 2012 00:25

Mithrandir escribió:Bien Matih estaria para actualizar las descargar jeje.
Un abrazo,

Ya lo voy a implementar a este código, 13.x me da mucha fiaca.

Wee, ajajaja, ahí puse la descarga nueva (hace mucho) y ahora la pongo en el tema.

Sistema de Torneos - Completo y con muchas opciones

¿Quién está conectado?