/gm consulta

Estado
Cerrado para nuevas respuestas.

Ladder

Noicoder FANS!
Colaborador
Bueno, el titulo lo dice todo, crear un sistema de gm mas eficas. para que no te llamen para decirte me das oro por ejemplo.
Caracteristicas.
Cuando el user pone /gm le abre un formulario que ahi tenga que poner el texto, osea la consulta.
y el gm lo vea desde el show sos, clickea sobre un personaje del show sos y que se vea la pregunta.

foto:

panel.bmp


fijense que pueden hacer :D tengo una base del code..pero no anda bien, pero es una base..aca la posteo.. anda mal igual, (se mesclan las consultas, y notiene lo del formulario, para el user, grax

Servidor:


Modulo de Clase cCOLA

Buscan

Public Sub Push

Remplazar todo el Sub por:

Public Sub Push(ByVal Info As String, ByVal Nombre As String, ByVal Consulta As String)
On Error Resume Next
'Mete elemento en la cola
Call Cola.Add(UCase$(Nombre) & "@" & Consulta)
End Sub


Buscar:

Select Case UCase$(Left$(rdata, 4))
Case "/GM "


y lo reemplazar por


Select Case UCase$(Left$(rdata, 4))
Case "/GM "

rdata = Right$(rdata, Len(rdata) - 4)
If rdata = "" Or rdata = " " Then
Call SendData(ToIndex, UserIndex, 0, "||Debes escribir el motivo de la consulta!!!" & FONTTYPE_INFO)
Exit Sub
End If
If Not Ayuda.Existe(UserList(UserIndex).Name) Then
Call SendData(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, rdata)

Else
Call Ayuda.Quitar(UserList(UserIndex).Name)
Call Ayuda.Push(rdata, UserList(UserIndex).Name, rdata)
Call SendData(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 Select

Select Case UCase$(Left$(rdata, 3))
Case "/GM"
Call SendData(ToIndex, UserIndex, 0, "|| Modo de uso: /GM DESCRIPCION DE LA CONSULTA." & FONTTYPE_INFO)
Exit Sub

End Select


Buscar
If UCase$(Left$(rdata, 7)) = "SOSDONE" Then

y reemplazar todo el if por

If UCase$(Left$(rdata, 7)) = "SOSDONE" Then
rdata = Right$(rdata, Len(rdata) - 7)
Dim nombre As String
Dim destino As String
nombre = ReadField(1, rdata, Asc("@"))
destino = ReadField(2, rdata, Asc("@"))
Call Ayuda.Quitar(nombre & "@" & destino)
Exit Sub
End If


----------------------------------------------------------------------------
[ de este modo hara que los users tengan que poner /gm consulta]

CLIENTE



busca
Private Sub mnuBorrar_Click()

y reemplaza todo el sub por esto


Private Sub mnuBorrar_Click()
If List1.ListIndex >>>> Mensaje :: RSOS
Rdata = Right$(Rdata, Len(Rdata) - 4)
Dim Nombre As String
Dim Descripcion As String
Nombre = ReadField(1, Rdata, Asc("@"))
Descripcion = ReadField(2, Rdata, Asc("@"))
frmMSG.List1.AddItem Nombre
frmMSG.List2.AddItem Descripcion
Exit Sub



despues crear en el frmmsg
un listbox y un textbox
al listbox ponerle como propiedad visible =false

buscar


ind = Val(ReadField(2, List1.List(List1.ListIndex), Asc("-")))

y abajo agregar

Text1.Text = List2.List(List1.ListIndex)



creado por tales.

grax
 

Ladder

Noicoder FANS!
Colaborador
ok! muchas gracias, pero, te comento que no quier hacer un sistema de preguntas y respuestas, osea...


Me manda la pregunta, si veo que es una boludeces..como puede ser para pedir oro, la borro, y que le informe al usuario, que no fue respondida, que lea el reglamento.

si la pregunta es correcta, voy al user, y le respondo. se entiende ? grax
 

Ladder

Noicoder FANS!
Colaborador
a

jeje si ahora ahi que empezar a desarrollar el code, asi que voy a ver que puedo hacer.. y por favor su ayuda :D

grax
 
Estado
Cerrado para nuevas respuestas.
Arriba