GS-Zone
Facebook Twitter

Hacer un solo comando para /Globalon & off Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

1

Nota » 10 Ene 2012 19:43

Es un código boludo pero un paquete menos lo podemos utilizar para cualquier otro sistema ^^ Como este : sistema_de_masturbacion_complejo_tiCj.html&hilit=sistema+de+masturbacion+ao

El código chequea si está online el global lo pone offline y si está offline lo pone online. Creo que está bueno esto :D

Cuando hacen este sistema : global_0_12_x_t8Z1.html

Solamente crean el " GlobalMsg " El "globalOn & GlobalOff " no los ponen :D

Y acá creamos el nuevo:

SERVIDOR:

Abajo de:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Ping                    '/PING


Agregar:

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


Abajo de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case ClientPacketID.Help                    '/AYUDA
  2.             Call HandleHelp(UserIndex)


Agregar:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. case clientpacketid.globaloption
  2.      call handleglobaloption(userindex)


Al final del módulo protocol agregar:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub HandleGlobalOption(ByVal UserIndex As Integer)
  2.  
  3. With UserList(UserIndex)
  4.  
  5. Call .incomingData.ReadByte
  6.  
  7. if .flags.Privilegios < semidios then exit sub
  8.  
  9.          If hayglobal = true
  10.   Call senddata(sendtarget.toall,0,preparemessageconsolemsg("El chat ha sido desactivado. " ,fonttypenames.fonttype_centinela))
  11. hayglobal = false
  12.         else
  13.         hayglobal = true
  14. Call senddata(sendtarget.toall,0,preparemessageconsolemsg("El chat ha sido activado. Denle las gracias al GM " & .name & " por activarlo :$  " ,fonttypenames.fonttype_centinela))
  15.         end if
  16. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  17. End With
  18. End Sub


CLIENTE

Abajo de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Ping                    '/PING


Agregar:

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


al final del protocolo.bas

agregar.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. public sub writeglobaloption
  2. call outgoingdata.writebyte(clientpacketid.globaloption)
  3. end with
  4.  
  5.  


UP DE:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/CENTINELA"


Agregar

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. CASE "/GLOBALITATION"
  2. CALL WRITEGLOBALOPTION



Es necesario agregar estas declaraciones para que el código funcione correctamente y sin demora:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Shak as byte



Tuviera que funcionar O.o

Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2034
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados