DarkMage dijo:Este global fue hecho por Tales y yo le cambie dos cositas, casi nada.
Tiene para silenciar, un requerimiento de level (10), etc
Buscar:
Código de Visual Basic: If UCase$(Left$(rdata, 11)) = "/SILENCIAR " Then
y arriba poner:
Código de Visual Basic: ' Tales Global
If UCase$(Left$(rdata, 10)) = "/NOGLOBAL " Then
rdata = Right$(rdata, Len(rdata) - 10)
Dim UserGlobal As String
Dim MinutosGlobal As Integer
UserGlobal = ReadField(1, rdata, Asc("@"))
MinutosGlobal = ReadField(2, rdata, Asc("@"))
If UserGlobal = "" Then Exit Sub
tIndex = NameIndex(UserGlobal)
If tIndex 0 Then
y arriba poner:
Código de Visual Basic: ' Tales Global
Select Case UCase$(Left$(rdata, 9))
Case "* "
If Userlist(UserIndex).Flags.Muerto= 1 Then Exit Sub
rdata = Right$(rdata, Len(rdata) - 9)
' Si no es nivel 10 que no lo pueda usar
If UserList(UserIndex).Stats.ELV = 60 Then
UserList(i).flags.GMinutos = UserList(i).flags.GMinutos + 1
If UserList(i).flags.GMinutos >= UserList(i).flags.GMinutosP Then
UserList(i).flags.GMinutos = 0
UserList(i).flags.GSegundos = 0
UserList(i).flags.GPuede = 0
UserList(i).flags.GMinutosP = 0
Call SendData(ToIndex, i, 0, "|| Ya puedes usar el Global nuevamente." & FONTTYPE_INFO)
End If
End If
End If
' Tales Global
En el sub LoadUserInit debajo de :
Código de Visual Basic: UserList(UserIndex).flags.Desnudo = val(GetVar(UserFile, "FLAGS", "Desnudo"))
poner:
Código de Visual Basic: ' Tales Global
UserList(UserIndex).flags.GGlobal = val(GetVar(UserFile, "GLOBAL", "Activado"))
UserList(UserIndex).flags.GPuede = val(GetVar(UserFile, "GLOBAL", "PuedeUsar"))
UserList(UserIndex).flags.GMinutos = val(GetVar(UserFile, "GLOBAL", "MinutosPasados"))
UserList(UserIndex).flags.GMinutosP = val(GetVar(UserFile, "GLOBAL", "MinutosFaltantes"))
' Tales Global
y por ultimo en el Sub SaveUser debajo de:
Código de Visual Basic: Call WriteVar(UserFile, "GUILD", "GuildPts", str(UserList(UserIndex).GuildInfo.GuildPoints))
Poner:
Código:
Código de Visual Basic: ' Tales Global
Call WriteVar(UserFile, "GLOBAL", "Activado", UserList(UserIndex).flags.GGlobal)
Call WriteVar(UserFile, "GLOBAL", "PuedeUsar", UserList(UserIndex).flags.GPuede)
Call WriteVar(UserFile, "GLOBAL", "MinutosPasados", UserList(UserIndex).flags.GMinutos)
Call WriteVar(UserFile, "GLOBAL", "MinutosFaltantes", UserList(UserIndex).flags.GMinutosP)
' Tales Global
Y ahi estaria.. bueno con /NOGLOBAL lo silencias y para hablar por global tenes que poner un "*" (asterisco) adelante del texto..
Yo puse para que no se pueda usar si estas muerto y que sea con "*" en vez de /consola
DarkMage
Tengo una duda por ejemplo
Yo abro el codigo del servidor y ay mucho programas en cual busco por ejemplo esto:
Código de Visual Basic: If UCase$(Left$(rdata, 11)) = "/SILENCIAR " Then
y las demas cosas del codigo mencionado anteriormente.