Chat Global ^^

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
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 :p LAG al mango xD igual lindo codigo, pero.... es jodido XD
 

Shura

Dragón Ancestral Lvl 2
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
 
A

Anonymous

Invitado
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 xD

Pasalo a codigo y lito.

Atte. Mr Man
 
A

Anonymous

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

Att. Mr Man
 

Shura

Dragón Ancestral Lvl 2
la verdad q ni da xD pero si lo queres postear postealo, aunq asi para mi esta bien ^^
 
A

Anonymous

Invitado
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
 

^[GS]^

GS-Zone Admin
Administrador
el problema de esto es que hago facilemente un macro que tire servidores por el lag del chat global :p
 
A

Anonymous

Invitado
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
 

darkbad

Newbie Lvl 3
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 :p y encima tenia win 98!! :lol:
 
Estado
Cerrado para nuevas respuestas.
Arriba