toma
BY FEDEX ( YO)
lo unico que no anda creo que es..
buscamos en el modulo declaraciones
Type tHechizo
y arriba ponemos
Código:
public cactivado as byte
dsp buscamos en el mismo modulo
Envenenado As Byte
y abajo agrgamos
Código:
silenciadox as byte
buscamos /resucitar
y arriba ponemos
Código:
Case "/GLOBAL"
If Not UserList(UserIndex).flags.Privilegios > 0 Then
Exit Sub
End If
If cactivado = 1 Then
Call SendData(ToIndex, UserIndex, 0, "|| Ha sido desactivado el global" & FONTTYPE_INFO)
cactivado = 0
Exit Sub
Else
cactivado = 1
Call SendData(ToAll, 0, 0, "|| El global ha sido activado. pongan /consola texto para ablar" & FONTTYPE_INFO)
Exit Sub
End If
exit sub
buscamos /cmsg y arriba ponemos
Código:
If UCase$(Left$(rdata, 9)) = "/CONSOLA " Then
rdata = Right$(rdata, Len(rdata) - 9)
' tIndex = NameIndex(rdata)
if cactivado = 0 then
call senddata(toindex, userindex, 0, "|| El global está desactivado" & fonttype_info)
exit sub
end if
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estas muerto" & FONTTYPE_INFO)
Exit Sub
End If
if cactivado = 0 then
Call SendData(ToIndex, UserIndex, 0, "||Esta desactivado" & FONTTYPE_INFO)
end if
If UserList(UserIndex).flags.silenciadox = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estas silenciado" & FONTTYPE_INFO)
Exit Sub
End If
Call SendData(ToAll, 0, 0, "||" & UserList(UserIndex).Name & " > " & rdata & FONTTYPE_VENENO)
Exit Sub
End If
segido de esto ponemos
Código:
If UCase$(Left$(rdata, 11)) = "/SILENCIAR " Then
rdata = Right$(rdata, Len(rdata) - 11)
tIndex = NameIndex(rdata)
If UserList(UserIndex).flags.Privilegios < 1 Then
Exit Sub
End If
If Not UserList(tIndex).flags.silenciadox = 1 Then
UserList(tIndex).flags.silenciadox = 1
Call SendData(tIndex, 0, 0, "||Has sido silenciado por " & UserList(UserIndex).Name & FONTTYPE_INFO)
Else
UserList(tIndex).flags.silenciadox = 0
Call SendData(tIndex, 0, 0, "|| Ya no estas silenciado" & FONTTYPE_INFO)
End If
End If
creo q asi esta bien
espero q te sirva
fede
fijense
/GLOBAL .. lo activamos
/SILENCIAR NICK .. lo imaginamos XD
/CONSOLA TEXTO HABLAMOS
a cualqiera q se sarpe los autorizo a silenciarlos XD