Código:
;==================================
; Script: Escriba
; Autor: Aloisia
; Version Easyuo: 1.5, 148
; Version: 1.0
; Cliente: 2.0.3
; Fecha del script: 01 Febrero 2010
; Finalidad: Hace un tipo de pergamino de entre 8 a elegir.
;==================================
;Para la siguiente macro necesitas:
;1.- Una bolsa con plumas (herramienta indispensable).
;2.- Una bolsa con pergaminos en blanco y regentes.
;3.- Una bolsa donde guardar los pergaminos hechos.
;4.- Comida (peras o manzanas, si quieres otro tipo añadelo en set %comida)
;A tener en cuenta: La macro puede dar problemas si se ejecuta con el Razor cargado.
;A tener en cuenta: No tengas ningún regente encima diferente al del pergamino que vas a hacer.
set %pergablanco MMF ;pergamino en blanco
set %herramienta PBG ;Plumas
set %confp 0
set %comida YSD_QQD ;Peras, Manzanas
initevents
chooseskill insc real
set %skillini #skill
configurar:
if %confp = 0
{
Event sysmessage 1.- Debilitar
event sysmessage 2.- Veneno
event sysmessage 3.- Rayo
event sysmessage 4.- Recall
event sysmessage 5.- Explosion
event sysmessage 6.- Descarga de energia
event sysmessage 7.- Flames
event sysmessage 8.- Portal Magico
set %confp 1
goto ELECCION
}
if %confp = 1
{
Event sysmessage Abre el contenedor donde tienes los materiales.
event sysmessage Y presiona la tecla ESC.
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
event sysmessage Abre el contenedor donde se encuentran las herramientas.
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event sysmessage Pon el cursor donde quieres dejar los pergatas.
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
event sysmessage Pon el cursor sobre tu mochila.
event sysmessage Y presiona la tecla ESC
set %conf 4
goto TESC
}
ELECCION:
onHotKey 1
{
msg .- Haremos pergaminos de debilitar.
msg $
set %pergata WXL
set %rega KZF ;Garlic
set %regb WZF ;Nightshade
set %conf 1
set %menu 1
set %x 60
set %y 70
GoTo configurar:
}
onHotKey 2
{
msg .- Haremos pergaminos de veneno.
msg $
set %pergata STL
set %rega WZF ;Nightshade
set %conf 1
set %menu 2
set %x 60
set %y 70
GoTo configurar:
}
onHotKey 3
{
msg .- Haremos pergaminos de rayo.
msg $
set %pergata CUL
set %rega KUF ;Black Pearl
set %regb MZF ;Mandrake
set %regc SZF ;Sulfurus
set %conf 1
set %menu 3
set %x 100
set %y 70
GoTo configurar:
}
onHotKey 4
{
msg .- Haremos pergaminos de recall.
msg $
set %pergata WTL
set %rega KUF ;Black Pearl
set %regb MZF ;Mandrake
set %regc JUF ;BloodMoss
set %conf 1
set %menu 4
set %x 150
set %y 70
GoTo configurar:
}
onHotKey 5
{
msg .- Haremos pergaminos de explosion. ; Ahora Blood Moss Y mandrake, antes BP, MD, SF
msg $
set %pergata FUL
set %rega JUF ;BloodMoss
set %regb MZF ;Mandrake
set %conf 1
set %menu 5
set %x 150
set %y 70
GoTo configurar:
}
onHotKey 6
{
msg .- Haremos pergaminos de Descarga.
msg $
set %pergata GUL
set %rega KUF ;Black Pearl
set %regb WZF ;Nightshade
set %conf 1
set %menu 6
set %x 100
set %y 70
GoTo configurar:
}
onHotKey 7
{
msg .- Haremos pergaminos de flame.
msg $
set %pergata NUL
set %rega RZF ;Spider
set %regb SZF ;Sulfurus
set %conf 1
set %menu 7
set %x 100
set %y 70
GoTo configurar:
}
onHotKey 8
{
msg .- Haremos pergaminos de Portal Magico.
msg $
set %pergata YUL
set %rega KUF ;Black Pearl
set %regb MZF ;Mandrake
set %regc SZF ;Sulfurus
set %conf 1
set %menu 8
set %x 195
set %y 70
GoTo configurar:
}
GoTo ELECCION:
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
goto configurar
}
if %conf = 2
{
set %bolsa #LOBJECTID
goto configurar
}
if %conf = 3
{
set %destinox #CURSORX
set %destinoy #CURSORY
goto configurar
}
if %conf = 4
{
set %mochilax #CURSORX
set %mochilay #CURSORY
GoTo principio:
}
}
goto TESC
principio:
findItem %herramienta C_ , #BACKPACKID
if #findcnt < 1
{
GoSub cogerherramienta
}
findItem %herramienta C_ , #BACKPACKID
wait 10
set #LOBJECTID #FINDID
wait 10
event macro 17
wait 20
GoTo inicio:
inicio:
set %skillinc #SKILL - %skillini
setuotitle Escriba: #SKILL ( %skillinc )
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
findItem %herramienta C_ , #BACKPACKID
if #findcnt < 2
{
GoSub cogerherramienta
}
if #mana < #maxmana
{
GoTo meditar:
}
findItem %pergata C_ , #BACKPACKID
if #findcnt > 3 || #findstack > 40
{
GoSub dejarpergata
}
findItem %rega C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
GoSub cogerrega
}
if %menu <> 2
{
findItem %regb C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
GoSub cogerregb
}
if %menu <> 1 && %menu <> 6 && %menu <> 7 && %menu <> 5
{
findItem %regc C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
GoSub cogerregc
}
}
}
findItem %pergablanco C_ , #BACKPACKID
if #findcnt < 1 || #findstack < 5
{
GoSub cogerperga
}
findItem %pergablanco C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click %x %y d
wait 20
if %menu <> 2
{
click 60 70 d
}
wait 2s
GoTo inicio:
Sub cogerherramienta
finditem %herramienta c_ , %bolsa
if #findcnt < 1
{
msg Faltan herramientas
wait 10
msg $
halt
}
event drag #FINDID
wait 10
click %mochilax %mochilay p
wait 20
return
Sub cogerrega
findItem %rega C_ , %cofre
if #findcnt < 1
{
msg Falta Regente A
wait 10
msg $
halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
msg $
}
else
{
msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return
Sub cogerregb
findItem %regb C_ , %cofre
if #findcnt < 1
{
msg Falta Regente B
wait 10
msg $
halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
msg $
}
else
{
msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return
Sub cogerregc
findItem %regc C_ , %cofre
if #findcnt < 1
{
msg Falta Regente B
wait 10
msg $
halt
}
event drag #FINDID
wait 10
if #findstack < 150
{
msg $
}
else
{
msg 150 $
}
wait 20
click %mochilax %mochilay p
wait 20
return
meditar:
event macro 13 46
wait 1s
if #mana < #maxmana
{
GoTo meditar:
}
wait 1s
GoTo inicio:
Sub cogerperga
if #weight > #maxweight - 120
{
GoSub dejarpergata
}
if #weight > #maxweight - 120
{
msg Demasiado peso
wait 10
msg $
halt
}
findItem %pergablanco C_ , %cofre
if #findcnt < 1
{
msg Faltan Pergaminos
wait 10
msg $
halt
}
event drag #FINDID
wait 10
if #findstack < 100
{
msg $
}
else
{
msg 100 $
}
wait 20
click %mochilax %mochilay p
wait 20
return
Sub dejarpergata
findItem %pergata C_ , #BACKPACKID
if #findcnt < 1
{
return
}
event drag #FINDID
wait 10
msg $
wait 20
click %destinox %destinoy p
wait 20
GoSub dejarpergata
return
No la he probado del todo, pero en teoría está solucionado el tema de cambio de regs y las posiciones de los pergaminos.