Aclaro que lo hice en un MOD RhovanionAO.
Declaran:
- Public Puede_agarrar As Boolean
En clsTileEngine:
- Sub Agarrar_Item_Click()
- Dim XMouse As Long, YMouse As Long
- Call Input_Mouse_Tile_Get(frmMain.MouseX, frmMain.MouseY, XMouse, YMouse)
- If map_current.map_grid(char_list(user_char_index).map_x, char_list(user_char_index).map_y).grh(5).grh_index <> 0 Then
- If XMouse = char_list(user_char_index).map_x And YMouse = char_list(user_char_index).map_y Then
- Puede_agarrar = True
- 'Draw_Textured_Text frmMain.MouseX + 10, frmMain.MouseY + 10, "Agarrar", D3DColorARGB(255, 255, 255, 255)
- End If
- Else
- Puede_agarrar = False
- End If
- End Sub
En el sub Game_Render antes de DXEngine_EndRender ponen esto:
- '*******************************
- 'Revisa si puede agarrar item
- Engine.Agarrar_Item_Click
- '*******************************
En el Sub General_Screen_Left_Click agregan:
- If Puede_agarrar Then Call WritePickUp
Y listo, espero que les guste.




223![Aprendiz [4] Aprendiz [4]](./images/ranks/Rango9.gif)
![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)


![Aprendiz [1] Aprendiz [1]](./images/ranks/Rango6.gif)


![Dragon Ancestral [1] Dragon Ancestral [1]](./images/ranks/Rango30.gif)

![Destructor de Mentes [3] Destructor de Mentes [3]](./images/ranks/Rango15.gif)


![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)



![Destructor de Mentes [6] Destructor de Mentes [6]](./images/ranks/Rango18.gif)

