2° Plus al sistema de habla global

» 01 Ago 2011 14:33

Miren, nose si se habrán dado cuenta pero si vos pones /GLOBALON y lo seguis poniendo sigue activandose, y lo mismo pasa con el /GLOBALOFF. (Esto sucede en el Global de RyF)

Bueno buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub HandleGlobalOn(ByVal UserIndex As Integer)
 
With UserList(UserIndex)
 
Call .incomingData.ReadByte
 
If .flags.Privilegios And (PlayerType.User) Then Exit Sub
 
HayGlobal = True
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El chat Global ha sido activado. (/GLOBAL)", FontTypeNames.FONTTYPE_VENENO))
End With
End Sub
 
Public Sub HandleGlobalOff(ByVal UserIndex As Integer)
 
With UserList(UserIndex)
 
Call .incomingData.ReadByte
 
If .flags.Privilegios And (PlayerType.User) Then Exit Sub
 
HayGlobal = False
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El chat Global ha sido desactivado.", FontTypeNames.FONTTYPE_VENENO))
End With
End Sub

y lo reemplazamos por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub HandleGlobalOn(ByVal UserIndex As Integer)
 
With UserList(UserIndex)
 
Call .incomingData.ReadByte
 
If .flags.Privilegios And (PlayerType.User) Then Exit Sub
 
if hayglobal = true then
call writeconsolemsg (userindex, "¡El modo de habla global ya se encontraba activado!", fonttype_info) 
exit sub
end if
 
HayGlobal = True
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El chat Global ha sido activado. (/GLOBAL)", FontTypeNames.FONTTYPE_VENENO))
End With
End Sub
 
Public Sub HandleGlobalOff(ByVal UserIndex As Integer)
 
With UserList(UserIndex)
 
Call .incomingData.ReadByte
 
If .flags.Privilegios And (PlayerType.User) Then Exit Sub
 
if hayglobal = false then
call writeconsolemsg (userindex, "¡El modo de habla global ya se encontraba desactivado!", fonttype_info) 
exit sub
end if
 
HayGlobal = False
Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("El chat Global ha sido desactivado.", FontTypeNames.FONTTYPE_VENENO))
End With
End Sub