Código:
;==================================
; Macro: Inscripción
; Autor: JoSePh
; EasyUO 1.5, V.202
; Servidor: Última Alianza
; Cliente: 7.0.8.2
;==================================
;===========CONFIGURAR=============
set %debilidad 1
set %reactiva 1
set %proteccion 1
set %envenenar 1
set %trampa 1
set %relampago 1
set %criatura 1
set %mana 1
set %energia 1
set %reflection 1
set %polimorfismo 1
set %llamarada 1
set %demonio 1
set %agua 1
set %recall 1
set %explosion 1
set %meteoros 1
set %teleport 1
set %bolsa_pergaminos_blanco_plumas WTQNTND
set %estanteria_regs TPYZUND
set %bolsa_pergaminos_hechos LAPASND
set %cantidad_pergaminos 100
set %cantidad_plumas 5
====================================
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE
+_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD_GQE_HND
set %regs KZF_WZF_JZF_JUF_RZF_SZF_MZF_KUF
set %plumas PBG
set %pergaminos MMF
set %pergaminos_hechos WXL_GUL_UUL_NUL_FVL_CVL_IUL_BUL
+_EUL_UTL_KYL_STL_JYL_NXL_WTL_FUL_ZUL
display Comienza la Macro!!!
initevents
inicio:
gosub plumas
if %debilidad = 1
gosub debilidad
gosub plumas
if %reactiva = 1
gosub reactiva
gosub plumas
if %proteccion = 1
gosub proteccion
gosub plumas
if %envenenar = 1
gosub envenenar
gosub plumas
if %trampa = 1
gosub trampa
gosub plumas
if %relampago = 1
gosub relampago
gosub plumas
if %criatura = 1
gosub criatura
gosub plumas
if %mana = 1
gosub mana
gosub plumas
if %energia = 1
gosub energia
gosub plumas
if %reflection = 1
gosub reflection
gosub plumas
if %polimorfismo = 1
gosub polimorfismo
gosub plumas
if %llamarada = 1
gosub llamarada
gosub plumas
if %demonio = 1
gosub demonio
gosub plumas
if %agua = 1
gosub agua
gosub plumas
if %recall = 1
gosub recall
gosub plumas
if %explosion = 1
gosub explosion
gosub plumas
if %meteoros = 1
gosub meteoros
gosub plumas
if %teleport = 1
gosub teleport
gosub plumas
goto inicio
sub plumas ;<==============================>
plumas:
finditem %plumas C_ , #BACKPACKID
if #FINDCNT < %cantidad_plumas
{
finditem %plumas C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID
exevent dropc #BACKPACKID
wait 20
goto plumas
}
gosub comer
return
sub regs ;<==============================>
regs:
wait 10
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 10
click 335 274
wait 20
finditem %regs C_ , #BACKPACKID
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 22
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDSTACK > 0
goto regs
key esc
wait 10
finditem %pergaminos_hechos C_ , #BACKPACKID
exevent drag #FINDID #FINDSTACK
exevent dropc %bolsa_pergaminos_hechos
wait 20
return
sub meditar ;<==============================>
mana:
event macro 13 46
wait 3s
if #mana = #maxmana
return
goto mana
sub comer ;<=========================>
finditem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
return
sub debilidad ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
wait 10
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;garlic y nightshade
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 81
wait 20
click 25 130
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
debilidad:
if #MANA < 4
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 130
wait 20
click 270 250
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto debilidad
sub reactiva ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;garlic, sulfurous y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 81
wait 20
click 25 145
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
reactiva:
if #MANA < 4
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 130
wait 20
click 270 230
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto reactiva
sub proteccion ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;garlic, ginseng y sulfurous
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 81
wait 20
click 25 98
wait 20
click 25 145
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
proteccion:
if #MANA < 6
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 150
wait 20
click 270 230
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto proteccion
sub envenenar ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;nightshade
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 130
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 1
goto ciclo
click 208 108 r
envenenar:
if #MANA < 9
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 170
wait 20
click 270 170
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto envenenar
sub trampa ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss y sufurous
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 145
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
trampa:
if #MANA < 6
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 150
wait 20
click 270 210
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto trampa
sub relampago ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;mandrake y sufurous
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 113
wait 20
click 25 145
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
relampago:
if #MANA < 11
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 190
wait 20
click 270 210
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto relampago
sub criatura ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 113
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
criatura:
if #MANA < 14
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 210
wait 20
click 270 250
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto criatura
sub mana ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;black-pearl, mandrake y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 50
wait 20
click 25 113
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
mana:
if #MANA < 11
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 190
wait 20
click 270 230
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto mana
sub energia ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;black-pearl y nightshade
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 50
wait 20
click 25 130
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
energia:
if #MANA < 20
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 230
wait 20
click 270 130
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto energia
sub reflection ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;garlic, mandrake y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 81
wait 20
click 25 113
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
reflection:
if #MANA < 14
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 210
wait 20
click 270 170
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto reflection
sub polimorfismo ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 113
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
polimorfismo:
if #MANA < 40
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 250
wait 20
click 270 250
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto polimorfismo
sub llamarada ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;sulfurous y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 146
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
llamarada:
if #MANA < 40
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 250
wait 20
click 270 150
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto llamarada
sub demonio ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake, sulfurous y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 113
wait 20
click 25 146
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 4
goto ciclo
click 208 108 r
demonio:
if #MANA < 50
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 270
wait 20
click 270 190
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto demonio
sub agua ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 113
wait 20
click 25 162
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
agua:
if #MANA < 50
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 270
wait 20
click 270 250
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto agua
sub recall ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;balck-pearl, bloodmoss y mandrake
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 51
wait 20
click 25 65
wait 20
click 25 115
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 3
goto ciclo
click 208 108 r
recall:
if #MANA < 11
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 190
wait 20
click 270 250
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto recall
sub explosion ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss y mandrake
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 115
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
explosion:
if #MANA < 20
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 230
wait 20
click 270 150
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto explosion
sub meteoros ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake, sulfurous y spiders
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 115
wait 20
click 25 145
wait 20
click 25 160
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 4
goto ciclo
click 208 108 r
meteoros:
if #MANA < 40
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 250
wait 20
click 270 230
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto meteoros
sub teleport ;<==============================>
wait 10
finditem %pergaminos C_ , %bolsa_pergaminos_blanco_plumas
exevent drag #FINDID %cantidad_pergaminos
exevent dropc #BACKPACKID
wait 20
ciclo:
finditem %regs C_ , #BACKPACKID
if #FINDCNT > 0
gosub regs
wait 10
;bloodmoss, mandrake
finditem %estanteria_regs
set #LOBJECTID #FINDID
event macro 17
wait 20
click 25 65
wait 20
click 25 115
wait 20
finditem %regs C_ , #BACKPACKID
if #FINDCNT <> 2
goto ciclo
click 208 108 r
meteoros:
if #MANA < 11
gosub meditar
wait 10
finditem %pergaminos C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click 70 170
wait 20
click 270 210
wait 4s
finditem %pergaminos C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub regs
return
}
goto meteoros
Un saludo.