Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Consejosssssss

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Consejosssssss   Lun Ago 11, 2008 8:30 pm

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
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Consejosssssss
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: FenixAO-
Cambiar a: