[Aporte] Tirar Item [Plugin Drag & Drop]

Case "TI" 'Tirar item

Case "TR" 'Tirar item por mouse
If UserList(UserIndex).flags.Navegando = 1 Or _
UserList(UserIndex).flags.Muerto = 1 Or _
(UserList(UserIndex).flags.Privilegios = PlayerType.Consejero And Not UserList(UserIndex).flags.EsRolesMaster) Then Exit Sub
'[Consejeros]

rData = Right$(rData, Len(rData) - 2)
Arg1 = ReadField(1, rData, 44)
Arg2 = ReadField(2, rData, 44)
Arg3 = ReadField(3, rData, 44)
Arg4 = ReadField(4, rData, 44)
If val(Arg1) = FLAGORO Then

Call TirarOro(val(Arg2), UserIndex)

Call SendUserStatsBox(UserIndex)
Exit Sub
Else
If val(Arg1) <= MAX_INVENTORY_SLOTS And val(Arg1) > 0 Then
If UserList(UserIndex).Invent.Object(val(Arg1)).ObjIndex = 0 Then
Exit Sub
End If
Call DropObj(UserIndex, val(Arg1), val(Arg2), UserList(UserIndex).Pos.Map, val(Arg3), val(Arg4))
Else
Exit Sub
End If
End If
Exit Sub

Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim TempItem As Long

If Button = vbMiddleButton Then
PUEDO = True
MouseItem = 0
End If

If TempItem <= MAX_INVENTORY_SLOTS Then
InventoryWindow.ToolTipText = UserInventory(TempItem).Name
End If

If PUEDO = True Then
MouseX = x
MouseY = y
MouseOK = True
ButtonIN = True
End If

Private Sub renderer_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseX = x
MouseY = y

If ButtonIN = True Then
MouseRendOK = True
MouseOK = False
End If

Private Sub renderer_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Private Sub renderer_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
clicX = x
clicY = y
If Button = vbMiddleButton Then
MouseRendOK = False
TirarItemMouse
ButtonIN = False
PUEDO = False
MouseOK = False
MouseItem = 0
End If
PUEDO = False
ButtonIN = False
MouseRendOK = False
MouseOK = False
MouseItem = 0
End Sub

Public Sub TirarItemMouse()
Dim tx As Byte
Dim ty As Byte
OfMouse = True
Call ConvertCPtoTP(frmMain.MouseX, frmMain.MouseY, tx, ty)
If (Inventario.SelectedItem > 0 And Inventario.SelectedItem < MAX_INVENTORY_SLOTS + 1) Or (Inventario.SelectedItem = FLAGORO) Then
If Inventario.Amount(Inventario.SelectedItem) = 1 Then
Call SendData("TR" & Inventario.SelectedItem & "," & 1 & "," & tx & "," & ty)
Else
If Inventario.Amount(Inventario.SelectedItem) > 1 Then
frmCantidad.Show , frmMain
End If
End If
End If
End Sub

ScreenX = ScreenX + 1
Next x
ScreenY = ScreenY + 1
Next y

If MouseRendOK Then
Draw_GrhIndex MouseItem, frmMain.MouseX, frmMain.MouseY
End If

Option Explicit

Private Sub Command1_Click()
Dim tX As Byte
Dim tY As Byte
Call ConvertCPtoTP(frmMain.MouseX, frmMain.MouseY, tX, tY)
frmCantidad.Visible = False
If OfMouse Then
SendData "TR" & Inventario.SelectedItem & "," & frmCantidad.Text1.Text & "," & tX & "," & tY
frmCantidad.Text1.Text = "0"
Else
SendData "TI" & Inventario.SelectedItem & "," & frmCantidad.Text1.Text
frmCantidad.Text1.Text = "0"
End If
End Sub


Private Sub Command2_Click()
Dim tX As Byte
Dim tY As Byte
Call ConvertCPtoTP(frmMain.MouseX, frmMain.MouseY, tX, tY)
frmCantidad.Visible = False
If Inventario.SelectedItem <> FLAGORO Then
If OfMouse Then
SendData "TR" & Inventario.SelectedItem & "," & Inventario.Amount(Inventario.SelectedItem) & "," & tX & "," & tY
Else
SendData "TI" & Inventario.SelectedItem & "," & Inventario.Amount(Inventario.SelectedItem)
End If
Else
If OfMouse Then
If UserGLD > 100000 Then
SendData "TR" & Inventario.SelectedItem & "," & 100000 & "," & tX & "," & tY
Else
SendData "TR" & Inventario.SelectedItem & "," & UserGLD & "," & tX & "," & tY
End If
Else
If UserGLD > 100000 Then
SendData "TI" & Inventario.SelectedItem & "," & 100000
Else
SendData "TI" & Inventario.SelectedItem & "," & UserGLD
End If
End If
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 <> Then
If (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End If
End Sub

FatuOs escribió:

Si no me equivoco tenes que mostrar un video o foto en donde lo pueda ver funcionando el staff y dejar la fuente

mATIAS.- escribió:Es verdad pone un video