Muertos eligen si leen lo que escriben los vivos.

» 04 Feb 2012 01:51

bueno aca les dejo esto que encontre en un bloq de notas jajaja.

todo en el cliente.

agregamos en algun modulo

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

public Function Char_Lee(ByVal sendCharIndex As Integer) As Boolean
 
' \ Author : maTih.-
' \ Note   : Chekeo si el usuario quiere leer lo que escribe el charindex.
 
    With charlist(sendCharIndex)
    'Si ya de por si quiere leer todo..
    If sendCharIndex <> UserCharIndex Then
        If Not read_chat Then
            'Nos guiamos por el cuerpo y la cabeza :P
            If .iBody <> 8 And .iHead <> 500 Then
                Char_Lee = False
                Exit Function
            End If
        End If
    End If
    
    Char_Lee = True
    End With
 
End Function

en el modulo declaraciones ponemos

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

Public Read_Chat as boolean

buscamos el sub createdialog y en el esto

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

    slot = BinarySearch(charindex)

arriba agregamos

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

    If UserEstado = 1 Then
        If Char_Lee(charindex) = False Then Exit Sub
    End If

buscan el frmMain y en el , el sub Form_KeyUp .

en ese sub buscan

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

            Select Case KeyCode

abajo ponen

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

                Case vbKeyK
                    read_Chat = Not read_Chat
                    If read_Chat Then
                        ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
                    Else
                        ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
                    End If

con eso estaría todo

.

Plus : si quieren que al morir automáticamente se clave en que no quieren leer, buscan

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

    'Is the user alive??
    If UserMinHP = 0 Then
        UserEstado = 1
        If frmMain.TrainingMacro Then Call frmMain.DesactivarMacroHechizos
        If frmMain.macrotrabajo Then Call frmMain.DesactivarMacroTrabajo
    Else
        UserEstado = 0
    End If

lo remplazan x

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

    'Is the user alive??
    If UserMinHP = 0 Then
        UserEstado = 1
        Read_Chat = False
        If frmMain.TrainingMacro Then Call frmMain.DesactivarMacroHechizos
        If frmMain.macrotrabajo Then Call frmMain.DesactivarMacroTrabajo
    Else
        UserEstado = 0
    End If

(repitan este paso en los 2 subs : HandleUpdateHP y HandleUpdateUserStats)

» 04 Feb 2012 01:54

No está mal , aunque de un sistema de prolijo de bots que matan a los usuarios pasas a esto jajaja , me extraña de vos , igual espero el sistem cuentas :$

saludos matih y buen aporte!

» 04 Feb 2012 02:11

Simple, funcional, pero creo que es al pedo de onda jaja pero a alguien le va a servir.

» 04 Feb 2012 03:13

Buen aporte che!

PD: una cosita manqueaste nomas

Case vbKeyK
read_Chat = Not read_Chat
If read_Chat Then
ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
Else
ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
End If

jaja, pusiste 2 veces AHORA LEES LO QUE ESCRIBEN...

» 04 Feb 2012 05:54

Milagrosa escribió:Buen aporte che!

PD: una cosita manqueaste nomas

Case vbKeyK
read_Chat = Not read_Chat
If read_Chat Then
ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
Else
ShowConsoleMsg "Ahora Lees lo que escriben los vivos.", 255, 0, 0, True, False
End If

jaja, pusiste 2 veces AHORA LEES LO QUE ESCRIBEN...

x copiar i pegar pasa eso

DDDDDDD

Muertos eligen si leen lo que escriben los vivos.

¿Quién está conectado?