Sistema de canjeo 0.11.5

    Comparte
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Sistema de canjeo 0.11.5

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 10:35 pm

    Explicación: Al poner /CANJEAR se abre un formulario con images (cada image representa el objeto a canjearse) y CommandButtons con el caption de "Canjear" uno para cada ítem. Crear un formulario con el nombre de frmCanjes y despues los command e Image con el nombre Stándard de Visual Basic.

    Comenzamos

    Cliente:
    Buscamos:

    Case "LLU"

    Arriba ponemos:

    Case "CAN"
    frmCanjes.Show, frmMain


    Agregás el formulario, y cada commandbutton le ponés:

    SendData("/CANJE")

    Eso iría en uno de los commandbuttons, despues tenés que hacer distintos cases en el servidor para cada command button (como por ejemplo CANJE, CANJE1, CANJE2 Etc.)

    Servidor:

    Abajo de:

    Case "/ONLINE"

    Agrega:


    Spoiler:
    Case "/CANJEAR"
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "CAN")

    Case "/CANJE"
    Dim Objeto As Obj
    Objeto.Amount = 1
    Objeto.ObjIndex = NUMERODELOBJETOACANJEAR
    If Not TieneObjetos(COPADEORO, CANTIDAD, UserIndex) Then
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Para canjear el ítem debes tener al menos X copas de oro" & FONTTYPE_INFO)
    Else
    Call MeterItemEnInventario(Objeto, UserIndex)
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has canjeado X copas de oro por un objeto de torneo!" & FONTTYPE_INFO)

    Ahora lo que tenés que hacer es crear distintos case para todos los bojetos, por ejemplo, si el de arriba fue para la armadura despues creás otro así:

    Spoiler:
    Case "/CANJE2"
    Objeto.Amount = 1
    Objeto.ObjIndex = NUMERODELOBJETOACANJEAR
    If Not TieneObjetos(COPADEORO, CANTIDAD, UserIndex) Then
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Para canjear el ítem debes tener al menos X copas de oro" & FONTTYPE_INFO)
    Else
    Call MeterItemEnInventario(Objeto, UserIndex)
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has canjeado X copas de oro por un objeto de torneo!" & FONTTYPE_INFO)

    Y así para cada objeto.

    IMPORTANTE: El Objeto As Obj va una sola vez, en el primer Case.
    En todos los cases tenemos que cambiar el Objeto.Amount por la cantidad de objetos que quieras que le de al usuario al canjear, el Objeto.ObjIndex, que es el número del objeto en OBJ.dat, y el TieneObjetos por las copas de oro y la cantidad requerida.
    avatar
    Elaine

    TEMPLARIO


    TEMPLARIO

    PJ :
    Nombre : Elaine
    Monedas de Oro172
    Mana :
    0 / 9000 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 38
    Edad : 27
    Llegada : 23/08/2010
    Femenino

    Re: Sistema de canjeo 0.11.5

    Mensaje por Elaine el Lun Ago 23, 2010 10:43 pm

    Gracias!!!, lo agrego directo a el indice, una pregunta podrias Adherir el indice al principio de la seccion programación ¿?
    avatar
    SuaveChiTow.-

    TEMPLARIO ESTRELLA


    TEMPLARIO ESTRELLA

    PJ :
    Nombre : SuaveChitOw.-
    Monedas de Oro-2261
    Mana :
    900 / 900900 / 900

    Vida :
    100 / 100100 / 100

    Premios :
    Mensajes : 132
    Edad : 27
    Llegada : 25/11/2008
    Masculino

    Re: Sistema de canjeo 0.11.5

    Mensaje por SuaveChiTow.- el Lun Ago 23, 2010 10:45 pm

    Si, dale ai lo pongo!

    Contenido patrocinado

    Re: Sistema de canjeo 0.11.5

    Mensaje por Contenido patrocinado


      Fecha y hora actual: Mar Ago 14, 2018 10:18 am