Cambiar el habla de los GMs dx8

» 29 Ene 2012 04:38

Bueno tengo un problema en mi sv dx8 de midraks que no me envia el paquete para que el gm hable en verde mi Case ";" es el siguiente: (esta todo bien parece..)

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

Case ";" 'Hablar
            rData = Right$(rData, Len(rData) - 1)
            If InStr(rData, "°") Then
                Exit Sub
            End If
       
            '[Consejeros]
            If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then
                Call LogGM(UserList(UserIndex).name, "Dijo: " & rData, True)
            End If
           
            ind = UserList(UserIndex).Char.CharIndex
           
            'piedra libre para todos los compas!
            If UserList(UserIndex).flags.Oculto > 0 Then
                UserList(UserIndex).flags.Oculto = 0
                If UserList(UserIndex).flags.Invisible = 0 Then
                    Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
                    Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has vuelto a ser visible!" & FONTTYPE_INFO)
                End If
            End If
           
            If UserList(UserIndex).flags.Muerto = 1 Then
                Call SendData(SendTarget.ToDeadArea, UserIndex, UserList(UserIndex).Pos.Map, "||12632256°" & rData & "°" & str(ind))
                Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & UserList(UserIndex).name & "> " & rData & FONTTYPE_TALK)
            Else
                If UserList(UserIndex).flags.Privilegios > 0 Then
                    Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbGreen & "°" & rData & "°" & str(ind))
                    Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & UserList(UserIndex).name & "> " & rData & FONTTYPE_GM)
                Else
               
                    Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & str(ind))
                    Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & UserList(UserIndex).name & "> " & rData & FONTTYPE_TALK)
                End If
            End If
            Exit Sub

Si a alguien le paso y lo soluciono o alguien me da una mano lo agradezco. Gracias

» 29 Ene 2012 13:31

haber busca la declaracion

FONTTYPE_GM as

y postealo aca

» 29 Ene 2012 15:07

Public Const FONTTYPE_GM As String = "~0~185~0~1~0"

ese no creo que sea el tema por que ponga el color que ponga no le cambia el habla :s igual lo de fonttype_gm es para que quede en consola lo del habla no cambia por que no lee el vbgreen

» 29 Ene 2012 15:15

"~255~255~255~1~0"

fijate asi

o si no pone esto

'Game Masters
If UserList(UserIndex).flags.Privilegios > 0 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbGreen & "°" & rData & "°" & str(ind))
End If

» 29 Ene 2012 15:38

Tampoco..

Cambiar el habla de los GMs dx8

¿Quién está conectado?