GS-Zone

Developing the Future...
http://www.gs-zone.org/

Comando /SOPORTE TEXTO - Funcional y con log

Sitio web: http://www.gs-zone.org/comando_soporte_texto_funcional_y_con_log_t3yK.html

NotaPublicado: 21 Mar 2008 18:37
por StroShen
bueno... acá le dejo el comando /SOPORTE TEXTO para fenixao(9.9z)
este comando lo ise recién YO y anda a la perfección ^^ mientras lo hagan bien -.-"

Cliente:

Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(Left$(Datos, 3)) = "/GM" Then
  2.     frmMSG.Show
  3.     Exit Sub
  4. End If

y lo ELIMINAMOS.

buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case UCase$(Left$(sdData, 9))

y debajo antes de:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Case "/APOSTAR "

ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Case "/SOPORTE "
  2.         Rdata = Right$(sdData, Len(sdData) - 9)
  3.         ReplaceData = "#+ " & Rdata


Servidor:

buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Case "#5"
  2.         rdata = Right$(rdata, Len(rdata) - 3)

arriba de eso ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Case "#+"
  2.         rdata = Right$(rdata, Len(rdata) - 3)
  3.         Name = ReadField(1, rdata, 32)
  4.         If UserList(UserIndex).flags.Privilegios > 1 Then
  5.             Call SendData(ToIndex, UserIndex, 0, "||Tu eres GM!" & FONTTYPE_INFO)
  6.                 Exit Sub
  7.         Else
  8.                 Call SendData(ToAdmins, 0, 0, "||" & UserList(UserIndex).Name & ": " & rdata & FONTTYPE_VENENO)
  9.                 Call SendData(ToIndex, UserIndex, 0, "||Tu mensaje a sido enviado a los Administradores!" & FONTTYPE_INFO)
  10.                 Call Soporte(UserList(UserIndex).Name & " Envió: " & rdata)
  11.                 Exit Sub
  12.         End If
  13.        


Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub LogGM(Nombre As String, Texto As String, Consejero As Boolean)
  2. On Error GoTo errhandler
  3.  
  4. Dim nfile As Integer
  5. nfile = FreeFile
  6.  
  7.  
  8.  
  9. If Consejero Then
  10.     Open App.Path & "\logs\consejeros\" & Nombre & ".log" For Append Shared As #nfile
  11. Else
  12.     Open App.Path & "\logs\" & Nombre & ".log" For Append Shared As #nfile
  13. End If
  14. Print #nfile, Date & " " & Time & " " & Texto
  15. Close #nfile
  16.  
  17. Exit Sub
  18.  
  19. errhandler:
  20.  
  21. End Sub


y arriva ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Soporte(Texto As String)
  2. On Error GoTo errhandler
  3.  
  4. Dim nfile As Integer
  5. nfile = FreeFile
  6.  
  7.  
  8.     Open App.Path & "\logs\SOPORTE.log" For Append Shared As #nfile
  9.     Print #nfile, Date & " " & Time & " " & Texto
  10.     Close #nfile
  11.  
  12. Exit Sub
  13.  
  14. errhandler:
  15.  
  16. End Sub


y listo ^^ este anda a la perfección, además!:
un GM pone: /SOPORTE TEXTO y le dice que es GM! :P
un user pone: /SOPORTE TEXTO y le dice que el msg ha sido entregado
los msg que mandan los users, son guardado en: SOPORTE.LOG
dice la fecha y hora, quien y que dijo ;)
además de por supuesto mandárselo a todos los ADMIN ^^

espero que les sirva, pues es mi primer código :idea:
suerte!
NotaPublicado: 21 Mar 2008 18:50
por Nelapsi
Muy bueno el aporte.. Encima te digo una cosa. Hoy a la tarde me mate hacerlo y lo termine me quedo re bien :) y ahora me vengo al foro y veo que lo posteas.

5 palabras: ME QUIERO CORTAR LOS HUEVOS. :P

Agregame a tu Mail. el_bajito_06@hotmail.com Y por hai nos inclinamos a la parte de Seguridad de los Mod FenixAO. ¿Te parece? Bueno.. Te espero.

Bueno.. Espero que sigas asi. Asi podemos seguir creciendo la comunidad de GS.

Un gusto.

Blade.
NotaPublicado: 21 Mar 2008 22:43
por -ViNN-
Aportón, funciona exelente, muchas gracias ^^
NotaPublicado: 26 Mar 2008 21:28
por LmB
Ener, sos un gran programador y sabes mucho.
Excelente codigo.
Pero con ese codigo, lo que me pasa es que cuando mando con un gm../soporte "texto".
Me aparece en consola..."Tú eres GM".
Lo mando con un user, y no me aparece nada en consola.
Ademas estária bueno que pongas el /show sos(para los gms).
Saludos.-
NotaPublicado: 26 Mar 2008 22:18
por ViNN
Anda de 10 capo, ami me funka de 10. Osea probaaste cn doble cliente? Con el gm y el usser. Enercroft Groso (Y)
NotaPublicado: 27 Mar 2008 08:29
por StroShen
muchas gracias ^^
KrAMeR:
que sucede que no te andan ninguno de mis codes???? :?
estas re seguro que utilisas fenix????
y fijate bien si lo pones adecuadamente, porque si a los otros les anda, te tendria que andar tambien ;)
suerte!
Todos los horarios son UTC - 3 horas
Página 1 de 1
GS-Zone © 2005-2012
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/