Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 /GM diferente

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: /GM diferente   Miér Jul 02, 2008 6:11 am

Servidor
buscan
Citación :

Public Sub Push
Remplazar todo el Sub por lo siguiente:
Citación :

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:
Citación :

Select Case UCase$(Left$(rdata, 4))
Case "/GM "
reemplazarlo por:
Citación :

Select Case UCase$(Left$(rdata, 4))
Case "/GM "
rdata = Right$(rdata, Len(rdata) - 3)
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
************************************************** ***************************
Cliente
buscan
Citación :

Private Sub mnuBorrar_Click()
y reemplaza el sub completo por:
Citación :

Private Sub mnuBorrar_Click()
If List1.ListIndex < 0 Then Exit Sub
SendData ("SOSDONE" & List1.List(List1.ListIndex) & "@" & List2.List(List1.ListIndex))
mensaje = MsgBox("Se realizo la consulta?", vbYesNo)
If mensaje = vbYes Then
Call SendData("NOCONSU" & List1.List(List1.ListIndex))
End If
List2.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex
End Sub
buscar
Citación :

Case "RSOS"
Y Reemplazar por
Citación :

Case "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
Citación :

ind = Val(ReadField(2, List1.List(List1.ListIndex), Asc("-")))
y abajo agregar
Citación :

Text1.Text = List2.List(List1.ListIndex)
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
/GM diferente
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Monstruos de diferente color
» Ayuda para jugar Pal
» Tiger Han Tao(juego de Namco-Bandai) para XBLA
» Importante posible bug Lotus Renault
» Duda doble daño y first strike. CORRECCION IMPORTANTE

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.2-
Cambiar a: