;==================================
; Script Name: Aspiradora
; Author: Tarain
; Purpose: Lotea del suelo.
;========================================
; 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_NJL_ QJL_JKH_HKH_UKH_KKH_SKH_QKH_DLH_VKH_ELH_CSH_BSH_OS H_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)
;========================================
initevents
set #sysmsgcol 050
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_SJG_IJG_UJG_
set %autoloot #false
set %teclaloot esc
start:
OnHotKey %teclaloot esc
{
goto autoloot
}
else
goto start
comienzo:
if %autoloot #true
{
finditem %items G_2
if #findcnt > 0
{
finditem #backpackid
set %bagx #findx + 140
set %bagy #findy + 220
gosub drag
}
if #findcnt < -1
{
event sysmessage Acabado
}
}
if %autoloot #false
{
goto start
}
goto start
sub drag
drag:
if #findcnt > 0
{
finditem %items G_2
Event Drag #FindID
msg $
click %bagx %bagy p
goto drag
}
if #findcnt = 0
{
goto comienzo
}
return
autoloot:
if %autoloot #true
{
set %autoloot #false
event sysmessage AutoLoot Suelo Desactivado.
wait 5
goto comienzo
}
else
set %autoloot #true
event sysmessage AutoLoot Suelo Activado.
wait 5
goto comienzo
;==================================
; 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 5
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
; Script Name: Entrenar Taming
; Author: KaRMeLoT con la colaboración especial de Falbala
; Version: 1.7
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 130
; Shard: Ultima Alianza
; Release: 22/08/08
; Purpose: Taming
;==================================
; Configuracion
; Marcate 16 runas en lugares "poco frecuentados" para no tener problemas. Dale doble click a tu libro
; de runas y mira en la columna de la derecha el valor de la variable #LOBJECTID y la copias en donde
; el asterisco.
; No te olvides de comer y de reponer animales de vez en cuando porque a veces desaparecen. NO MACREES
; CON MAS DE 3 ANIMALES. Con ratas al principio, despues si tu economia te lo permite perros.
; IMPORTANTE: No estar en el sitio de la primera runa cuando se le da a RUN.
set %libroderunas EFLBIOD ; * Copia aqui la ID de tu libro de runas.
chooseskill anim real
set %skillini #SKILL
set #SYSMSGCOL 68
event sysmessage Macro Ofrecida por el clan Aeternus Animas
set #SYSMSGCOL 89
event sysmessage #CHARNAME Bienvenido a la Macro de Domar de KaRMeLoT visita el vendor GiTaNa de Vesper y el vendor GiTaNo de Trinsic.
set #SYSMSGCOL 38
event sysmessage No debes darle a RUN estando en la posicion de la Runa 1.
inicio:
set %runa 1
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
set %runa %runa + 1
if %runa > 16
{
goto inicio
}
gosub Recall %runa %libroderunas
set %domados 0
gosub Domar
gosub Domar
gosub Domar
gosub Domar
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
goto inicio
sub librecall
{
if %posruna < 9
{
set %runex 130
if %posruna = 1
{
set %y 0
}
else
{
set %runea %posruna - 1
set %y 15 * %runea
}
set %runey 70 + %y
}
if %posruna > 8
{
set %runex 290
if %posruna = 9
{
set %y 0
}
else
{
set %runea %posruna - 9
set %y 15 * %runea
}
set %runey 70 + %y
}
return
}
sub Recall
{
set %posruna %1
gosub librecall
recaleo:
set %posicionx #CHARPOSX
set %posiciony #CHARPOSY
finditem %2 _C , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 20
click %runex %runey f
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
msg all release $
event macro 13 46
wait 1s
event macro 13 46
wait 2s
if #mana < 30
{
key f3
wait 30s
}
if %posicionx = #CHARPOSX && %posiciony = #CHARPOSY
{
goto recaleo
}
else
{
return
}
}
sub Domar
{
set %domado 0
set %domadenuevo 0
set %contador 0
set %yomismo 0
intento:
event macro 26 0
wait 10
if #CHARID = #LTARGETID
{
set %yomismo %yomismo + 1
if %yomismo > 1
{
return
}
goto intento
}
if #LTARGETID = %bixo1 || #LTARGETID = %bixo2 || #LTARGETID = %bixo3
{
return
}
redomar:
event macro 13 35
target
event macro 25 0
event macro 22 0
wait 1s
scanjournal
if no_puede_ser in #journal || tu_eres_tu in #journal || estas_demasiado in #journal || ya_esta_domado in #journal || no_puedes in #journal || todavia_no in #journal
{
set %contador %contador + 1
if %contador > 2
{
return
}
goto intento
}
if el in #journal
{
return
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto intento
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 10
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
wait 9
gosub findomar
if %domadenuevo = 1
{
set %domadenuevo 0
goto redomar
}
if %domado = 1
{
set %domado 0
goto fin
}
fin:
msg all release $
wait 5
msg all release $
wait 5
msg all release $
return
}
sub findomar
{
scanjournal
if no_consigues in #journal
{
set %domadenuevo 1
return
}
if te_acepta_como in #journal || Te_acepta_como in #journal no_puedes_ver in #journal your_skill in #journal
{
set %domados %domados + 1
set %domado 1
if %domados = 1
{
set %bixo1 #LTARGETID
}
if %domados = 2
{
set %bixo2 #LTARGETID
}
if %domados = 3
{
set %bixo3 #LTARGETID
}
if %domados > 3 && %bixo1 <> %bixo2 && %bixo2 <> %bixo3
{
wait 40s
}
return
}
return
}
;==================================
; script Name: Escudo
; Author: Shamino
; Version: 1.0
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 142
; Shard: Ultima Alianza
; Purpose: Equiparse el escudo automaticamente si no esta equipado.
escudo:
sub escudo
set %escudos CIK_BIK_AIK_OIK_NIK_FIK_GIK_LIK_CQF_PMH_MIK_ZHK
finditem %escudos C_ , #charid
if #FINDKIND = -1
{
finditem %escudos c_ , #BACKPACKID
set #lobjectid #findid
event macro 17 0
}
else
gosub escudo
goto escudo
;==================================
; Script Name: Quitarse Maldicion
; Author: Shamino
; Version: 1.5
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 147
; Shard: Ultima Alianza
; Purpose: Quitarte Maldicion de la Edad automaticamente tirandote Fuerza (Uus Mani)
;==================================
event sysmessage Quitarse Maldicion de la Edad Activada!
Maldi:
if Has_sido_maldecido in #sysmsg
{
UusMani:
wait 3
event macro 15 15
target
event macro 23 0
}
goto Maldi
if El_echizo_falla in #sysmsg
{
UusMani:
wait 3
event macro 15 15
target
event macro 23 0
}
;==================================
; script Name: Recall de Runa
; Author: Shamino
; Version: 1.0
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 142
; Shard: Ultima Alianza
; Purpose: Recalea de Runa con la combinacion de tecla que quieras.
;==================================
Set %runa QWL_SWL_RWL_PWL
; Cambiad la Q por la letra que querais y ctrl se puede cambiar por alt.
onhotkey f11
{
finditem %runa c_ , #BACKPACKID
event macro 15 31
set #lTargetID #findid
set #lTargetKind 1
wait 5
event Macro 22 0
}