No estás conectado. Conéctate o registrate

[Aporte] /GM con formulario.(ALKON 0.11.5 )

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 [APORTE] Hablar y que quede en consola (11.5) el Mar Abr 28, 2009 8:59 pm

Guiido


SUPER MODERADOR
En el Case ";"

Buscan:
Código:
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbWhite & "°" & rData & "°" & CStr(ind))

y debajo agregan


Código:
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & userlist(userindex).name & "> " & rdata & FONTTYPE_INFO)

Testeado, Suerte:)



Última edición por HeLLeW el Mar Abr 28, 2009 10:52 pm, editado 1 vez (Razón : Utilize comando [Codigo])

Ver perfil de usuario

HeLLeW


ADMINISTRADOR
Lindo aporte, Segui asi!
Esperamos mas aportes tuyos!

Mas adelante ago un indice de programacion, recolectando cada codigo que ustedes APORTEN!


_________________

Ver perfil de usuario http://briansoft.lifeme.net

3 [Aporte] /GM con formulario.(ALKON 0.11.5 ) el Miér Abr 29, 2009 1:51 pm

ArreK


USUARIO REGISTRADO
Bueno aca les dejo un /Gm con formulario , codigo simple pero efectivo

En el Servidor :
Buscan :



Código:
 Select Case UCase$(Left$(rData, 3))
        Case "/GM"


Y Reemplazan Todo ese Case x :


Código:
  Select Case UCase$(Left$(rData, 3))
        Case "/GM"
      Call SendData(SendTarget.ToIndex, UserIndex, 0, "ELGM")
    End Select


Ahora Arriba del /Gm , una vez que lo reemplazaron Agrengan (ARRIBA E )




'Comando que Envia La Consulta Atravez del formulario.
Código:
 If UCase$(Left$(rData, 6)) = "/GMXD " And UserList(UserIndex).flags.Privilegios > PlayerType.User Then
        rData = Right$(rData, Len(rData) - 6)
        If rData <> "" Then
            Call SendData(SendTarget.ToAdmins, 0, 0, "||" & "Soporte> Usuario :" & UserList(UserIndex).name & " - Tema de la Consulta :" & rData & "~255~255~0~0~0")
        End If
                    If Not Ayuda.Existe(UserList(UserIndex).name) Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||El mensaje ha sido entregado, ahora solo debes esperar que se desocupe algun GM." & FONTTYPE_INFO)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
            Else
                Call Ayuda.Quitar(UserList(UserIndex).name)
                Call Ayuda.Push(rData, UserList(UserIndex).name)
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya habias mandado un mensaje, tu mensaje ha sido movido al final de la cola de mensajes." & FONTTYPE_INFO)
            End If
        Exit Sub
    End If


Bueno con eso terminariamos la parte del servidor , ahora pasamos al cliente.

Cliente :
En el cliente van a agregar este formulario
http://www.4shared.com/file/102344613/2ce8fa0a/FRMGM.html

Una vez que agregaron ese FORMULARIO al codigo del cliente hacen lo siguiente
Buscan :


Código:
      Case "EHYS"              ' Actualiza Hambre y Sed :: EHYS
Rdata = Right$(Rdata, Len(Rdata) - 4)
UserMaxAGU = Val(ReadField(1, Rdata, 44))
UserMinAGU = Val(ReadField(2, Rdata, 44))
UserMaxHAM = Val(ReadField(3, Rdata, 44))
UserMinHAM = Val(ReadField(4, Rdata, 44))
frmMain.AGUAsp.Width = (((UserMinAGU / 100) / (UserMaxAGU / 100)) * 94)
frmMain.COMIDAsp.Width = (((UserMinHAM / 100) / (UserMaxHAM / 100)) * 94)
Exit Sub


y debajo coloquen :


Código:
Case "ELGM"            ' >>>>> Sube el Formulario /GM
frmGM.Show , frmMain
Exit Sub



Como funciona ? Muy sencillo :
El Usuario Tipea /GM , Salta el formulario , selecciona la opcion , Supongamos : Consulta Regular ,y Escribe el mensaje , al enviar el mensaje , le aparece en consola al Administrador : Soporte › Usuario : Class - Tema de Consulta : Consulta Regular : y el mensaje .

Espero que les sirva .´

FUENTE: by GS-Z

Ver perfil de usuario

4 Re: [Aporte] /GM con formulario.(ALKON 0.11.5 ) el Miér Abr 29, 2009 2:11 pm

HeLLeW


ADMINISTRADOR
Lindo aporte, aun que varios sacados de GS!
Intenta crear tu propio codigo y publicalo!


_________________

Ver perfil de usuario http://briansoft.lifeme.net

5 Re: [Aporte] /GM con formulario.(ALKON 0.11.5 ) el Miér Abr 29, 2009 2:14 pm

ArreK


USUARIO REGISTRADO
jeje gracias pero no soy programador Sad igualmente le voy a pedir un par de codes a un amigo, ahora posteo 3 mapas Smile .

Ver perfil de usuario

6 Re: [Aporte] /GM con formulario.(ALKON 0.11.5 ) el Miér Abr 29, 2009 3:20 pm

Crixis


MODERADOR GLOBAL
Excelente Aporte De (10+)

Suerte y segui asi que vas en buen camino Smile


Atte: Crixis(Cristian)


_________________
Ver perfil de usuario

7 Re: [Aporte] /GM con formulario.(ALKON 0.11.5 ) el Miér Abr 29, 2009 3:24 pm

ArreK


USUARIO REGISTRADO
GRACIAS TOTALES A USTEDES!!!

Son unos maestros!!

Ver perfil de usuario

franeg95


USUARIO REGISTRADO
Muy bueno aunque tenes que poner que tenga un maximo porquesino se va al cara** y se empiesa a laagear

Ver perfil de usuario

9 ArreK el Vie Mayo 01, 2009 4:45 pm

ArreK


USUARIO REGISTRADO
Cambiale el maximo y muy lindo aporte.

Ahora edito yo con el maximo ¬¬

Ver perfil de usuario

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.