Tirar oro (no transferir)

Estado
Cerrado para nuevas respuestas.

Khardus

Newbie Lvl 6
hola quisiera saber si alguien me puede ayudar en esto, resulta que al tirar items al piso se puede
pero si quiero tirar (oro al piso) no se puede unicamente (transferir de pj a pj)

nose si se entiende muy bien pero la onda es que quiero sacar el sistema de transferir el oro y poder tirar el oro al piso

saludos...
 

Khardus

Newbie Lvl 6
no, la 11.5 dx7 virgen no la tiene,

yo uso revival que tiene eso. intente sacarla pero no pude avanzar

ayuda porfavor..

saludos
 

Midraks

Creador de AOWeb
Ex-Staff
Khardus dijo:
no, la 11.5 dx7 virgen no la tiene,

yo uso revival que tiene eso. intente sacarla pero no pude avanzar

ayuda porfavor..

saludos
Te podes bajar el 11.5 virgen que ya lo tiene así y agregarselo.
 

Chorlo

Aprendiz Lvl 3
Yo en la imagen " boton " para tirar el oro tengo el codigo haci:

Código:
Private Sub Image3_Click(index As Integer)
    Select Case index
        Case 0
            Inventario.SelectGold
            If UserGLD > 0 Then
                frmCantidad.Show , frmMain
            End If
    End Select
End Sub
y te dejo el frm.Cantidad " que es el cuadradito donde pones la cantidad qe qeres tirar:

C++:
Option Explicit
 
Private Sub Command1_Click()
frmCantidad.Visible = False
SendData "TI" & Inventario.SelectedItem & "," & frmCantidad.Text1.Text
frmCantidad.Text1.Text = "0"
End Sub
 
 
Private Sub Command2_Click()
 
 
frmCantidad.Visible = False
If Inventario.SelectedItem <> FLAGORO Then
    SendData "TI" & Inventario.SelectedItem & "," & Inventario.Amount(Inventario.SelectedItem)
Else
    SendData "TI" & Inventario.SelectedItem & "," & UserGLD
End If
 
frmCantidad.Text1.Text = "0"
 
End Sub
 
Private Sub Form_Deactivate()
'Unload Me
End Sub
 
Private Sub text1_Change()
On Error GoTo ErrHandler
    If Val(Text1.Text) < 0 Then
        Text1.Text = MAX_INVENTORY_OBJS
    End If
    
    If Val(Text1.Text) > MAX_INVENTORY_OBJS Then
        If Inventario.SelectedItem <> FLAGORO Or Val(Text1.Text) > UserGLD Then
            Text1.Text = "1"
        End If
    End If
    
    Exit Sub
    
ErrHandler:
    'If we got here the user may have pasted (Shift + Insert) a REALLY large number, causing an overflow, so we set amount back to 1
    Text1.Text = "1"
End Sub
 
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 8) Then
    If (KeyAscii < 48 Or KeyAscii > 57) Then
        KeyAscii = 0
    End If
End If
End Sub
 

Khardus

Newbie Lvl 6
Ya lo arreglé me baje la DX7 Y extrai todos los sub tirar oro , y sub tirartodo,
modifique los cases

al prinicipio tirava errores pero lo pude solucionar


SOLUCIONADO!
 
Estado
Cerrado para nuevas respuestas.
Arriba