If recolte = True Then
pause(500)
Dim uid As Integer
Dim elementid As Integer
Dim cell As UInteger
Dim equart As Integer = 600
For i = 0 To ressources.Count - 1
Dim path = New Pathfinding
path.FindPath(listcanmove, ID_Cell, ressources(i).Cellid)
If path.movepath.Count < equart Then
elementid = ressources(i).elementid
uid = ressources(i).Uid
cell = ressources(i).Cellid
End If
Next
movemap(cell)
pause(movewait)
Dim param1 As New Dofus.DofusWriter
param1.WriteInt32(elementid)
param1.WriteInt32(uid)
Dofus.DofusWriter.Send(5001, _socket_Jeu)
End If