Chat Global ^^

no tenes idea como te alabarian los GMs con este comando XD estan pidiendo que exista alguna opcion para borrar el /gmsg y vos sugeris que la gente hable por la consola como ir al baño XD ajajaj LAG al mango igual lindo codigo, pero.... es jodido XD

=P

lo que habria q hacer despues es un comando para hacer q el user reciva o no mensajes de forma gloval de todos los users ^^
un /DND (DO NOT DISTURB) =P
y un /IGNORE para mejorar el global

Declaras un nuevo flag. nochat, despues creas un nuevo senddata = al toall pero poniendole que si tiene nochat= 1 no lo mande, despues pones otro condicional en el /global para que si tiene nochat = 1 no lo deje mandar el mensaje. y en ves de mandarlo toall pones toallbutnochat

Pasalo a codigo y lito.

Atte. Mr Man

dejacelo a gs mas facil esperar q hacer

¬¬ jeje, es facil es solo declarar y mandarle un condicional, si me aguardan un rato lo posteo.

Att. Mr Man

la verdad q ni da pero si lo queres postear postealo, aunq asi para mi esta bien ^^

si ta bien pero alguien que tiene coneccion lenta y no quiere que se le lague con todo los mensajews :S

Att.e Mr Man

=P no lo habia pensado por ese lada

si hay mucho lag pueden hacer un comando que desactive directamente el global y lo activen cuando quieran

el problema de esto es que hago facilemente un macro que tire servidores por el lag del chat global

donde ai que poner ese codigo ?¿?¿

TCP_HandleData1

yo podria poner en mede de /global poner ,

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

no me funciona

propongo

en el ready.ini "EJ"

global= 1 '1=si 0=no

Haz clic para expandir...

Listo

funcion muy bien mis user e alegraron mucho

sory por el off topic

coneccion lenta:
yo jugue aoblizzard y soportaba 35 users y se laggeaba
yo tengo coneccion pseedy 256kb con GSS server y soporto hasta 45 users con 0 lagg despes 50 se laggeaba pero 45 users con los 168 maps!
no lo entiendo para mi que se ponen a descargar algo hacen y encima tenia win 98!! :lol: