No estás conectado. Conéctate o registrate

Sistema de Concilio Neutro FENIX AO

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Sistema de Concilio Neutro FENIX AO el Lun Mayo 04, 2009 3:18 pm

Guiido


SUPER MODERADOR
TODO EN EL SERVIDOR:

Buscamos:

Código:
Public Const FONTTYPE_CONSEJOCAOS = "~255~60~0~1~0"

Abajo ponemos

Código:
Public Const FONTTYPE_CONCILIONEGRO = "~192~192~192~1~0"

Buscamos:
Código:
EsConseReal As Integer

Y abajo ponemos

Código:
EsConcilioNegro As Integer

Buscamos:

Código:
ElseIf UserList(UserIndex).Faccion.Bando = Real And UserList(UserIndex).flags.EsConseReal = 0 Then

Lo remplazamos hasta el end if por esto:

Código:
If UserList(UserIndex).flags.Privilegios Then 'matute
    bCr = 1
ElseIf UserList(UserIndex).Faccion.Bando = Real And UserList(UserIndex).flags.EsConseReal = 0 Then
    bCr = 2
ElseIf UserList(UserIndex).Faccion.Bando = Caos And UserList(UserIndex).flags.EsConseCaos = 0 Then
    bCr = 3
ElseIf EsNewbie(UserIndex) Then
    bCr = 4
ElseIf UserList(UserIndex).flags.EsConseCaos And UserList(UserIndex).Faccion.Bando = Caos Then
    bCr = 6
ElseIf UserList(UserIndex).flags.EsConseReal And UserList(UserIndex).Faccion.Bando = Real Then
    bCr = 7
ElseIf UserList(UserIndex).flags.EsConcilioNegro And UserList(UserIndex).Faccion.Bando = Neutral Then
    bCr = 8
Else
    bCr = 5
End If

Buscamos:

Código:
Public Const ToConse = 22

y abajo ponemos

Código:
Public Const ToConci = 23

Buscamos:

Código:
Case ToConse

Y arriva ponemos

Código:
Case ToConci
        For LoopC = 1 To LastUser
            If UserList(LoopC).ConnID > -1 And (UserList(LoopC).flags.EsConcilioNegro Or UserList(LoopC).flags.EsConcilioNegro) Then Call WsApiEnviar(LoopC, sndData)
        Next
        Exit Sub

Buscamos:

Código:
If UCase$(Left$(rdata, 12)) = "/ACEPTCONSE " Then

Y arriva ponemos:

Código:
If UCase$(Left$(rdata, 12)) = "/ACEPTCONCI " Then
If UserList(UserIndex).flags.Privilegios > 1 Then
        rdata = Right$(rdata, Len(rdata) - 12)
        tIndex = NameIndex(rdata)
        If tIndex <= 0 Then
            Call SendData(ToIndex, UserIndex, 0, "||Usuario offline" & FONTTYPE_INFO)
        Else
            Call SendData(ToAll, 0, 0, "||" & rdata & " fue aceptado en el oscuro concilio negro." & FONTTYPE_CONCILIONEGRO)
            UserList(tIndex).flags.EsConcilioNegro = 1
            Call WarpUserChar(tIndex, UserList(tIndex).POS.Map, UserList(tIndex).POS.X, UserList(tIndex).POS.Y, False)
        End If
    End If
    Exit Sub
End If

Busamos:

Código:
If UCase$(Left$(rdata, 12)) = "/ACEPTCONCI " Then

Abajo ponemos:

Código:
If UCase$(Left$(rdata, 12)) = "/ECHARCONCI " Then
    If UserList(UserIndex).flags.Privilegios > 1 Then
   
        rdata = Right$(rdata, Len(rdata) - 12)
        TIndex = NameIndex(rdata)
        If TIndex <= 0 Then
            Call SendData(ToIndex, UserIndex, 0, "||Usuario offline" & FONTTYPE_INFO)
        Else
            If UserList(TIndex).flags.EsConcilioNegro = 1 Then
                Call SendData(ToAll, 0, 0, "||" & rdata & " fue echado del Concilio Neutro." & FONTTYPE_CONCILIONEGRO)
                UserList(TIndex).flags.EsConcilioNegro = 0
                Call WarpUserChar(TIndex, UserList(TIndex).POS.Map, UserList(TIndex).POS.X, UserList(TIndex).POS.Y, False)
                Exit Sub
            End If
         
            If UserList(TIndex).flags.EsConcilioNegro = 0 Then
                Call SendData(ToIndex, UserIndex, 0, "||" & rdata & " no es del concilio Neutro." & FONTTYPE_FENIX)
            End If
        End If

Buscamos:

Código:
If UCase$(rdata) = "/HOGAR" Then

Y arriva ponemos

Código:
UCase$(Left$(rdata, 10)) = "/NMSG " Then
  rdata = Right$(rdata, Len(rdata) - 10)
                If UserList(UserIndex).flags.EsConcilioNegro Or UserList(UserIndex).flags.Privilegios = 3 Or UserList(UserIndex).flags.Privilegios = 2 Then
                    Call SendData(ToCaos, 0, 0, "||[" & UserList(UserIndex).Name & "]-Concilio Neutro> " & rdata & FONTTYPE_CONCILIONEGRO)
                  Call SendData(ToAdmins, 0, 0, "||[" & UserList(UserIndex).Name & "]-Concilio Neutrol> " & rdata & FONTTYPE_CONCILIONEGRO)
                End If
        Exit Sub
        End If

Buscamos:

Código:
str = str & ",EsConseReal=" & mUser.flags.EsConseReal


Abajo ponemos

Código:
str = str & ",EsConcilioNegro=" & mUser.flags.EsConcilioNegro

Buscamos:

Código:
flags.EsConseReal = RS!EsConseReal

Abajo ponemos:

Código:
.flags.EsConcilioNegro = RS!EsConcilioNegro

CLIENTE:

Buscamos:

Código:
ReDim Ciudades(1 To NUMCIUDADES) As String

Arriva agregamos:

Código:
RG(8, 1) = 50 'Concilio Negro
RG(8, 2) = 50
RG(8, 3) = 50

Recuerden crear la DB dentro de Localhost o resubir fenix.sql


Gente, este codigo está en gs zone modifique un par de cosas de el cod de KenJin
y de el de Petin, por que sino se bugeaba cada tanto.

Espero que les guste

Ver perfil de usuario

2 Re: Sistema de Concilio Neutro FENIX AO el Miér Mayo 13, 2009 2:01 pm

ArreK


USUARIO REGISTRADO
Buen Aporte ^^
Pone fuente ¬¬

Ver perfil de usuario

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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