Consejosssssss

Buscan en la base de datos

Citación :

`DenunciasInsulto` int(11) default NULL,

Y abajo ponen:

Citación :

`EsConseCaos` int(11) default NULL,
`EsConseReal` int(11) default NULL,

empezamos en el cliente.. buscamos:

Citación :

RG(5, 1) = 190
RG(5, 2) = 190
RG(5, 3) = 190

Y abajo agregamos:

Citación :

RG(6, 1) = 210 'Consilio de Arghal.
RG(6, 2) = 50
RG(6, 3) = 0

RG(7, 1) = 0 'Consejo de Banderbill.
RG(7, 2) = 215
RG(7, 3) = 215

Buscamos:

Citación :

Public RG(1 To 5, 1 To 3)

Y la reemplazamos por:

Citación :

Public RG(1 To 7, 1 To 3) As Byte

ahora seguimos con el server
buscamos:

Citación :

Public Const FONTTYPE_TALK = "~255~255~255~0~0"

Y abajo agregamos:

Citación :

Public Const FONTTYPE_CONSEJO = "~98~204~255~1~0"
Public Const FONTTYPE_CONSEJOCAOS = "~255~60~0~1~0"

debajo del Type UserFlags:

Citación :

EsConseCaos As Integer
EsConseReal As Integer

Buscamos:

Citación :

klan$ = UserList(UserIndex).GuildInfo.GuildName

reemplazamos desde el IF hasta el END IF con lo siguiente:

Citación :

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
Else
bCr = 5
End If

buscamos:

Citación :

Public Const ToMoreAdmins = 21

Y abajo ponemos:

Citación :

Public Const ToConse = 22

Buscamos:

Citación :

Case ToAdmins

Y arriba ponemos:

Citación :

Case ToConse 'matute
For LoopC = 1 To LastUser
If UserList(LoopC).ConnID > -1 And (UserList(LoopC).flags.EsConseCaos Or UserList(LoopC).flags.EsConseReal) Then Call WsApiEnviar(LoopC, sndData)
Next
Exit Sub

buscamos:

Citación :

"/HOGAR"

y arriba ponemos:

Citación :

If UCase$(Left$(rdata, 12)) = "/ACEPTCONSE " Then
If UserList(UserIndex).Flags.EsConseReal/Caos > 0 Or 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 honorable Consejo de Banderbill." & FONTTYPE_CONSEJO)
'Call SendData(ToAll, 0, 0, "||" & rdata & " fue aceptado en el Concilio de Arghal." & FONTTYPE_CONSEJOCAOS)
UserList(tIndex).flags.EsConseReal = 1
'UserList(tIndex).flags.EsConseCaos= 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

Lo que esta en negrita es lo que tienen que cambiar si lo quieren hacer de /aceptconsecaos
Buscamos:

Código:

str = str & ",DenunciasInsulto=" & mUser.flags.DenunciasInsultos

Y abajo ponemos:

Código:

str = str & ",EsConseCaos=" & mUser.flags.EsConseCaos
str = str & ",EsConseReal=" & mUser.flags.EsConseReal

Buscan:

Código:

.flags.DenunciasInsultos = RS!DenunciasInsulto

y agregan abajo..

Código:

.flags.EsConseCaos = RS!EsConseCaos
.flags.EsConseReal = RS!EsConseReal