Macro de lotear

[rider96]

Alguien me podria pasar una macro para lotear en pvp para easyUO. Me gustaria poder lotear el equipo, armas, regs, pergas, escudo, ropa magica, joyas etc...
Si nadie la tiene alguien me podria decir como se ase.
Gracias

[Jimmy Jazz]

;==================================
; Script Name: AutoLoot
; Author: Tarain
; Version: 5.2
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 79
; Shard: Ultima Alianza
; Release: 02/04/08
; Purpose: AutoLoot
;==================================
; Ropa Magica: DCI_IWI_AWL_FWL_OVI_
; Armas: KPH_SOH_OMH_UMJ_ATF_JTF_EPH_ZRF_LSF_NSF_MPH_RMH_BS F_ZMJ_ANJ_KSF_YTH_WRH_QOD_SRH_PPF_SOD_YRH_MTF_VOH_ ZPF_CUH_YSF_VOH_ZPF_CUH_YSF_QMH_GFF_WTH_AUH_TOH_JS F_MMH_
; Escudos: CIK_ZHK_MIK_NIK_OIK_FIK_
; Bastones: QMH_GFF_ZPF_
; Armaduras: NJL_QJL_JKH_HKH_UKH_KKH_SKH_QKH_DLH_VKH_ELH_CSH_BS H_OSH_TSH_NSH_JSH_MSH_USH_ISH_KSH_HSH_LSH_WSH_
; Otros objetos: QWL_SWL_RWL_PWL (Runas) POF (Gold)
; WUF (Potis) IUD (Cajitas Trampa) CKF (Bolsas)
; LGG (Polvora Trans.) ZIM (Golems) TVH (Cheques)
; LNK_RWF (Virotes - Flechas) SJG_IJG_UJG_ (Joyas)
; ZLF (Vendas) XVH (Mapas) HVF (Tickets Torneo)
; FUL_NUL_GUL (Pergas Flame, Explo, Descarga) LZF_IUF (Alas,Ojos)
; HVF (Tickets Torneo) RZF_SZF_WZF_JUF_JZF_KZF_MZF_KUF (Regs)
;========================================
set #sysmsgcol 096
set %items DCI_IWI_AWL_FWL_OVI_KPH_SOH_OMH_UMJ_ATF_JTF_EPH_ZR F_LSF_NSF_MPH_RMH_BSF_ZMJ_ANJ_KSF_YTH_WRH_QOD_SRH_ PPF_SOD_YRH_MTF_VOH_ZPF_CUH_YSF_VOH_ZPF_CUH_YSF_QM H_GFF_WTH_AUH_TOH_JSF_MMH_CIK_ZHK_MIK_NIK_OIK_FIK_ QMH_GFF_ZPF_NJL_QJL_JKH_HKH_UKH_KKH_SKH_QKH_DLH_VK H_ELH_CSH_BSH_OSH_TSH_NSH_JSH_MSH_USH_ISH_KSH_HSH_ LSH_WSH_NJL_QJL_JKH_HKH_UKH_KKH_SKH_QKH_DLH_VKH_EL H_CSH_BSH_OSH_TSH_NSH_JSH_MSH_USH_ISH_KSH_HSH_LSH_ WSH_QWL_SWL_RWL_PWL_POF_WUF_LGG_ZIM_TVH_SJG_IJG_UJ G_HVF_FUL_NUL_GUL_LZF_IUF
set %autoloot #true
set %teclaloot HOME

start:
OnHotKey %teclaloot
goto autoloot

if %autoloot #true
{
mirando:
if #conttype <> YFM
{
goto start
}
else
set %corpse #contid
finditem #backpackid
set %bagx #findx + 140
set %bagy #findy + 220
if ( #findkind <> -1 && %corpse <> N/A && %corpse <> %backpack ) && %autoloot
gosub drag %items all %bagx %bagy C_ , %corpse
}
else
goto start

sub drag
drag:
if #contname = drag_gump
goto waitfordraggumpx
if #contname = stack_gump
goto waitforstackgumpx
finditem %1 %5
if #findkind = -1
return
Event Drag #FindID
waitforstackgumpx:
set %dragtimeout #scnt + 5
waitforstackgump:
if #scnt >= %dragtimeout
goto drag
if #contname = drag_gump || #findstack < 2
goto waitfordraggumpx
if #contname <> stack_gump && #findstack > 1
goto waitforstackgump
if %2 = all
msg $
else
msg %2 $
goto waitfordraggumpx:
set %dragtimeout #scnt + 5
waitfordraggump:
if #scnt >= %dragtimeout
goto start
if #contname <> drag_gump
goto start
click %3 %4 p
wait 10
if %2 = all
goto drag
else
return

autoloot:
if %autoloot #true
{
set %autoloot #false
event sysmessage AutoLoot Abriendo Desactivado.
wait 5
goto start
}
else
set %autoloot #true
event sysmessage AutoLoot Abriendo Activado.
wait 5
goto start