Seguro de Items

¿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