Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Seguro de Items

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


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

MensajeTema: Seguro de Items   Lun Ago 25, 2008 1:55 am

¿Como funciona? Facil
Citación :

*Si el seguro esta Activado nos dira por consola Debes desactivar el Seguro de Items.
*El seguro se activa y desactiva con la letra Y
Todo el Codigo es trabajado en el Cliente:
Buscamos:
Citación :

Private Sub TirarItem()
y Reemplazamos todo el Sub por este:
Citación :

'[Standelf]
Private Sub TirarItem()
If ISItem = True Then
Call AddtoRichTextBox(frmMain.RecTxt, "Debes desactivar el seguro de items para poder tirar un Item.", 250, 150, 0, False, False, False)
Exit Sub
Else
If (Inventario.SelectedItem > 0 And Inventario.SelectedItem < MAX_INVENTORY_SLOTS + 1) Or (Inventario.SelectedItem = FLAGORO) Then
If Inventario.Amount(Inventario.SelectedItem) = 1 Then
SendData "TI" & Inventario.SelectedItem & "," & 1
Else
If Inventario.Amount(Inventario.SelectedItem) > 1 Then
frmCantidad.Show , frmMain
End If
End If
End If
End If
End Sub
'[/Standelf]
Luego buscamos:
Citación :

Case vbKeyT:
Call TirarItem
Y agregamos Abajo:
Citación :

'[Standelf]
Case vbKeyY:
If ISItem = True Then
ISItem = False
AddtoRichTextBox frmMain.RecTxt, "Seguro de Items Desactivado.",250, 150, 0, False, False, False
Else
ISItem = True
AddtoRichTextBox frmMain.RecTxt, "Seguro de Items Activado.", 250, 150, 0, False, False, False
End If
'[/Standelf]
Buscamos:
Citación :

Public IScombate As Boolean
Y Agregamos abajo:
Citación :

Public ISItem As Boolean
Buscamos:
Citación :

Case "LOGGED"
y Agregamos Abajo:
Citación :

ISItem = True
Para los que lo quieren tener en el Screen:
Al final del modulo de clase cdialogos del cliente agregan:
Citación :

Public Sub DrawItemSeg()
BackBufferSurface.SetFontTransparency True
BackBufferSurface.SetForeColor vbYellow
BackBufferSurface.SetFont frmMain.font
If ISItem = True Then
BackBufferSurface.DrawText 260, 260, "Seguro de Items Activado", False
ElseIf ISItem = False Then BackBufferSurface.DrawText 260, 260, "Seguro de Items Desactivado", False
End If
End Sub
despues buscan
Citación :

Call DialogosClanes.Draw(Dialogos)
y aarriva agregan:
Citación :

Call Dialogos.DrawItemSeg

Fijense que el 260, 260 son la posicion en el screen
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Seguro de Items
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» No sé si os habeis fijado... (seguro que sí xD)
» Reloj Depurador+Pasaje seguro
» Vuestro Seguro Servidor sale en youtube!!!
» no estoy seguro si le gusto a esta chica
» ¿Que seguro elegir?

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: