[Aportes indexados] Global por Tales

MrMan · 2006-08-07T15:28:35-0300

Bueno aca tienen otro global, no se si los que estan posteados andan o no, pero aca tienen otro mas para elegir Minimo nivel para que se pueda utilizar: 10

Tiene para silenciar a un usuario, etc.

Buscar:

Código:

 
If UCase$(Left$(rdata, 11)) = "/SILENCIAR " Then

y arriba poner:

Código:

' Tales Global
If UCase$(Left$(rdata, 10)) = "/NOGLOBAL " Then
    rdata = Right$(rdata, Len(rdata) - 10)
    Dim UserGlobal As String
    Dim MinutosGlobal As Integer
    UserGlobal = ReadField(1, rdata, Asc("@"))
    MinutosGlobal = ReadField(2, rdata, Asc("@"))
    If UserGlobal = "" Then Exit Sub
    
    tIndex = NameIndex(UserGlobal)
    If tIndex <= 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO)
        Exit Sub
    End If
UserList(tIndex).flags.GPuede = 1
UserList(tIndex).flags.GMinutos = val(MinutosGlobal)
UserList(tIndex).flags.GMinutosP = val(MinutosGlobal)
UserList(tIndex).flags.GSegundos = 0
    Call SendData(ToIndex, tIndex, 0, "|| Has sido silenciado. Durante: " & MinutosGlobal & " minutos, no podras utilizar el global." & FONTTYPE_INFO)
    Call SendData(ToIndex, tIndex, 0, "|| Has silenciado al usuario." & FONTTYPE_INFO)
    Exit Sub
End If
' Tales Global

Buscar:

Código:

 
    If UCase$(Left$(rdata, 6)) = "/GMSG " And UserList(UserIndex).flags.Privilegios > 0 Then

y arriba poner:

Código:

' Tales Global
    Select Case UCase$(Left$(rdata, 9))
        Case "/CONSOLA "
            rdata = Right$(rdata, Len(rdata) - 9)
            ' Si no es nivel 10 que no lo pueda usar
            If UserList(UserIndex).Stats.ELV < 10 Then
            Call SendData(ToIndex, UserIndex, 0, "|| Debes ser nivel 10 o superior para usar el global!!!." & FONTTYPE_INFO)
            Exit Sub
            End If
            ' Si no tiene el global activado le avisa
            If UserList(UserIndex).flags.GGlobal = 0 Then
            Call SendData(ToIndex, UserIndex, 0, "|| No tienes el global activado!!!, para activarlo escribe /GLOBAL" & FONTTYPE_INFO)
            Exit Sub
            End If
            ' Si los administradores le prohibieron el habla le avisa
            If UserList(UserIndex).flags.GPuede = 1 Then
            Call SendData(ToIndex, UserIndex, 0, "|| Por tu mal comportamiento, no podras volver a hablar en: " & UserList(UserIndex).flags.GMinutos & " minutos." & FONTTYPE_WARNING)
            Exit Sub
            End If
            For i = 1 To LastUser
            ' Se lo enviamos solamente a los que tienen el global activado.
            If UserList(UserIndex).flags.GGlobal = 0 Then Exit Sub
            Call SendData(ToIndex, i, 0, "|| " & UserList(UserIndex).Name & " dice: " & rdata & FONTTYPE_GLOBAL)
            
            Next i
            Exit Sub
    End Select
    ' Tales Global
    
    Select Case UCase$(Left$(rdata, 7))
        Case "/GLOBAL"
        If UserList(USERINDEx).flags.GGlobal = 0 Then
        Call SendData(ToIndex, UserIndex, 0, "|| Global Activado." & FONTTYPE_INFO)
        UserList(USERINDEx).flags.GGlobal = 1
        Else
        Call SendData(ToIndex, UserIndex, 0, "|| Global desactivado." & FONTTYPE_INFO)
        UserList(USERINDEx).flags.GGlobal = 0
        End If
        Exit Sub
    End Select

Buscar:

Código:

 
Public Const FONTTYPE_GUILD = "~255~255~255~1~0"

y debajo poner:

Código:

 
' Tales Global
Public Const FONTTYPE_GLOBAL = "~255~154~38~1~0"
'Tales Global

buscar:

Código:

 
Type UserFlags

y debajo poner:

Código:

 
' Tales Global
    GGlobal As Byte
    GPuede As Byte
    GMinutos As Integer
    GMinutosP As Integer
    GSegundos As Integer
    ' Tales Global

En el Sub PasarSegundo debajo de:

Código:

 
For i = 1 To LastUser

Poner:

Código:

 ' Tales Global
        If UserList(i).flags.GPuede = 1 Then
            UserList(i).flags.GSegundos = UserList(i).flags.GSegundos + 1
            If UserList(i).flags.GSegundos >= 60 Then
                UserList(i).flags.GMinutos = UserList(i).flags.GMinutos + 1
                If UserList(i).flags.GMinutos >= UserList(i).flags.GMinutosP Then
                UserList(i).flags.GMinutos = 0
                UserList(i).flags.GSegundos = 0
                UserList(i).flags.GPuede = 0
                UserList(i).flags.GMinutosP = 0
                Call SendData(ToIndex, i, 0, "|| Ya puedes usar el global nuevamente." & FONTTYPE_INFO)
                End If
            End If
        End If
        ' Tales Global

En el sub LoadUserInit debajo de :

Código:

 
UserList(UserIndex).flags.Desnudo = val(GetVar(UserFile, "FLAGS", "Desnudo"))

poner:

Código:

' Tales Global
UserList(UserIndex).flags.GGlobal = val(GetVar(UserFile, "GLOBAL", "Activado"))
UserList(UserIndex).flags.GPuede = val(GetVar(UserFile, "GLOBAL", "PuedeUsar"))
UserList(UserIndex).flags.GMinutos = val(GetVar(UserFile, "GLOBAL", "MinutosPasados"))
UserList(UserIndex).flags.GMinutosP = val(GetVar(UserFile, "GLOBAL", "MinutosFaltantes"))
' Tales Global

y por ultimo en el Sub SaveUser debajo de:

Código:

 
Call WriteVar(UserFile, "GUILD", "GuildPts", str(UserList(UserIndex).GuildInfo.GuildPoints))

Poner:

Código:

 
' Tales Global
Call WriteVar(UserFile, "GLOBAL", "Activado", UserList(UserIndex).flags.GGlobal)
Call WriteVar(UserFile, "GLOBAL", "PuedeUsar", UserList(UserIndex).flags.GPuede)
Call WriteVar(UserFile, "GLOBAL", "MinutosPasados", UserList(UserIndex).flags.GMinutos)
Call WriteVar(UserFile, "GLOBAL", "MinutosFaltantes", UserList(UserIndex).flags.GMinutosP)
' Tales Global

Bueno, eso es todo. Si tienen alguna duda o encuentran algun problema con el codigo posteenla.

Atte. Tales

Boogie · 2006-08-08T09:02:45-0300

Los muertos puede hablar por el global?

De ser así..

Como se hace para que lso muertos no peudan..

Gracias (anticipadamente)

:mrgreen:

^^ ^^ ^^ ^^

Anonymous · 2006-08-08T09:25:29-0300

Boogie dijo:
Los muertos puede hablar por el global?

De ser así..

Como se hace para que lso muertos no peudan..

Gracias (anticipadamente)

^^ ^^ ^^ ^^

Tenes que poner debajo del case "/CONSOLA" esto:

Código:

If Userlist(UserIndex).Muerto= 1 Then Exit Sub

Atte. Tales

Boogie · 2006-08-08T09:28:10-0300

HAy una parte que está mal y no se que poner

LE falta cerrar acá:

UserList(UserIndex).flags.GMinutos = val(GetVar(UserFile, "GLOBAL", "MinutosPasados"))
UserList(UserIndex).flags.GMinutosP = val(GetVar(UserFile, "GLOBAL",

La ultima linea no ta terminada...

Despues de "GLOBAL", que pongo?

:roll:

Anonymous · 2006-08-08T16:28:57-0300

Boogie dijo:
HAy una parte que está mal y no se que poner

LE falta cerrar acá:

UserList(UserIndex).flags.GMinutos = val(GetVar(UserFile, "GLOBAL", "MinutosPasados"))
UserList(UserIndex).flags.GMinutosP = val(GetVar(UserFile, "GLOBAL",

La ultima linea no ta terminada...

Despues de "GLOBAL", que pongo?

:roll:

Esa parte si esta ¬¬.

Atte. Tales

Anonymous · 2006-08-08T19:41:31-0300

COMO HAGO QUE PARA QUE DESDE OPCIONSE EL USER DESEA TENERLO ACTIVADO O TENERLO DESABILITADO AL GLOBAL

facundo · 2006-08-08T20:07:50-0300

Agregas un boton y pones esto

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">call</span> senddata<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"/global"</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Boogie · 2006-08-09T10:38:09-0300

Buenos días!!!

Como hago para en vez de poner /consola (mensaje) sea así:

* (mensaje)

¿?

Muchas gracias a este foro tan lidno.

:arrow:

Anonymous · 2006-08-09T12:17:40-0300

En el codigo que copiaste reemplaza:

Código:

 
Select Case UCase$(Left$(rdata, 9)) 
        Case "/CONSOLA "

Por

Código:

 
Select Case UCase$(Left$(rdata, 2))
         Case "* "

Atte. Tales

Anonymous · Jul 25, 2007

Para que version de AO es esto?

Khalem · Jul 25, 2007

Nigri, leete el reglamento, sste tema es del 2006...
Es para 11.2, lo sacas por inercia leyendo lso senddata.

Saludos

Ladder · Jul 25, 2007

nooo

decir q no es usuario, sino alta advertencia

Anonymous · Jul 25, 2007

Cierro el tema para que no lo sigan reviviendo, o discutiendo si es invitado o no es invitado, etc.

La duda ya la respondío Doke. Suerte.

[Aportes indexados] Global por Tales

MrMan

Sr. Product Manager @ Rockwell Automation

Boogie

Newbie Lvl 1

Anonymous

Invitado

Boogie

Newbie Lvl 1

Anonymous

Invitado

Anonymous

Invitado

facundo

Oráculo Lvl 3

Boogie

Newbie Lvl 1

Anonymous

Invitado

Anonymous

Invitado

Khalem

Mica

Ladder

Noicoder FANS!

Anonymous

Invitado