SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.


Unirse al foro, es rápido y fácil

SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.
SpikeL Comunidad
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



Sistema de recomendacion

3 participantes

SpikeL Comunidad :: Argentum Online :: Programación :: Ao 11.5 / Twist

Ir abajo

Sistema de recomendacion Empty Sistema de recomendacion

Mensaje por santi55 Lun Ene 24, 2011 12:29 pm

Cuando los usuarios escriben /Reco NOMBRE les sube un valor la variable de reco. Al tener X recos, se le dan beneficios al personaje.

Buscar:
Código:
Case "/meditar"

Arriba poner:
Código:
Case "/CUANTORECO "
     
            Dim Recos As Integer
            rData = UCase$(Right$(rData, Len(rData) - 10))
            tStr = Replace$(ReadField(1, rData, 32), "+", " ") 'Nick
           
            Recos = val(GetVar(CharPath & tStr & ".chr", "Estadisticas", "Reco"))
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tienes " & Recos & " recomendaciones." & FONTTYPE_INFO)
 
            Exit Sub
 Case "/RECO "
            Dim CantReco As Integer
            rData = UCase$(Right$(rData, Len(rData) - 6))
            tStr = Replace$(ReadField(1, rData, 32), "+", " ")
                tIndex = NameIndex(tStr)
                    Arg1 = ReadField(2, rData, 32)
                  'Tomamos las variables
            CantReco = val(GetVar(CharPath & tStr & ".chr", "Estadisticas", "Reco"))
            CantReco = val(CantReco) + 1
            Call WriteVar(CharPath & tStr & ".chr", "Estadisticas", "Reco", val(CantReco))
 
            Call WriteVar(CharPath & tStr & ".chr", "Estadisticas", "Est" & CantReco, Arg1)
 
        'Verificamos si el user esta online
            If tIndex <= 0 Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El Personaje no está conectado." & FONTTYPE_ADVERTENCIAS)
                Exit Sub
            Else
                Call SendData(SendTarget.ToIndex, tIndex, 0, "||Has sido recomendado por " & UserList(UserIndex).name & ". Hasta ahora tienes " & CantReco & "recomendaciones." & FONTTYPE_INFO)
            End If
          'Damos beneficios
            If val(CantReco) >= 25 Then
    UserList(UserIndex).Stats.MaxHP = UserList(UserIndex).Stats.MaxHP + 25
            ElseIf val(CantReco) >= 50 Then
    UserList(UserIndex).Stats.MaxMAN = UserList(UserIndex).Stats.MaxMAN + 25
          ElseIf val(CantReco) >= 100 Then
    UserList(UserIndex).Stats.MaxSta = UserList(UserIndex).Stats.MaxSta + 100
    ElseIf val(CantReco) >= 250 Then
    UserList(UserIndex).Stats.MaxHIT = UserList(UserIndex).Stats.MaxHIT + (UserList(UserIndex).Stats.MaxHIT / 2)
    End If
Exit Sub


santi55
santi55
Nivel 12
Nivel 12

Medallas
Sistema de recomendacion Prensa1
Advertencias Advertencias : 1
Mensajes Mensajes : 156
Puntos Puntos : 51297
Reputación Reputación : 1
Fecha de inscripción Fecha de inscripción : 19/12/2010
País País : Argentina


Volver arriba Ir abajo

Sistema de recomendacion Empty Re: Sistema de recomendacion

Mensaje por Francohhh Lun Ene 24, 2011 12:40 pm

Pero, me creo 50 personajes y mando todo recomendar y me hago full en 2 segundos Neutral
Francohhh
Francohhh
Administrador
Administrador

Administrador
Medallas
Sistema de recomendacion Prensa1Sistema de recomendacion Fundador1Sistema de recomendacion Participativo1Sistema de recomendacion Donar1
Sistema de recomendacion Staff1x Sistema de recomendacion Moderador1 Sistema de recomendacion Ao1 Sistema de recomendacion Desarrollo
Sistema de recomendacion Radio10 Sistema de recomendacion Radio110 Sistema de recomendacion Colabo10 Sistema de recomendacion Progra10
Sistema de recomendacion Cs110Sistema de recomendacion Postea10 Sistema de recomendacion Senor_10 Sistema de recomendacion Dueno_10
Sistema de recomendacion Futbol10
Mensajes Mensajes : 880
Puntos Puntos : 55006
Reputación Reputación : 41
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 23/03/2010
Edad Edad : 28
Localización Localización : Mar del Plata

http://www.spikel.org

Volver arriba Ir abajo

Sistema de recomendacion Empty Re: Sistema de recomendacion

Mensaje por Federikaso Jue Abr 07, 2011 11:26 pm

pero tendria qe tener 2ble cliente :S
Federikaso
Federikaso
Nivel 1
Nivel 1

Medallas
Sistema de recomendacion Prensa1
Mensajes Mensajes : 15
Puntos Puntos : 49840
Reputación Reputación : 1
Fecha de inscripción Fecha de inscripción : 03/04/2011
País País : Argentina


Volver arriba Ir abajo

Sistema de recomendacion Empty Re: Sistema de recomendacion

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

SpikeL Comunidad :: Argentum Online :: Programación :: Ao 11.5 / Twist

 
Permisos de este foro:
No puedes responder a temas en este foro.