Macro de Inscription Perfect

[Rathma]

Bueno, aqui os dejo una macro de inscription que hice hace algún tiempo. Podeis escoger el hechizo que quereis hacer a través de un menú.

NOTA: En la linea 1741 debeis poner vuestro nombre.
NOTA2: La dejo en 2 partes, que no puedo poner mas de 30k caracteres en un solo post

initevents
set %confp 1
set %var 1
set %pergas MMF
set %plumas PBG
set %nightsade WZF
set %garlic KZF
set %mandrake MZF
set %bloodmos JUF
set %spider RZF
set %black KUF
set %sulfurus SZF
set %ginseng JZF
set %idperga ZXL_QXL_NXL_WXL_CYL_PXL_AYL_BYL_HYL_YXL_VXL_XXL_KY L_JYL_IYL_EYL_FYL_TTL_STL_RTL_UTL_DYL_OTL_GYL_ZTL_ BUL_WTL_PTL_CUL_NTL_QTL_AUL_XTL_KUL_EUL_JUL_VTL_HU L_YTL_IUL_RUL_GUL_QUL_DUL_FUL_PUL_MUL_SUL_LUL_OUL_ NUL_YUL_XUL_ZUL_UUL_AVL_TUL_IVL_CVL_HVL_FVL_GVL_WU L_VUL

configurar:
if %confp = 1
{
Event sysmessage Primero has de abrir el cofre/bolsa donde se encuentran los regs, pergaminos y plumas.
event sysmessage Y presiona la tecla ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
event sysmessage Pon el cursor sobre tu mochila en tu hoja de personaje.
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
event sysmessage Pon el cursor sobre la mochila donde kieras guardar los pergaminos hechos.
event sysmessage Y presiona la tecla ESC
set %conf 3
set %confp 4
goto TESC
}

TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}

if %conf = 2
{
set %mochilax #CURSORX
set %mochilay #CURSORY
goto configurar
}

if %conf = 3
{
set %bolsax #CURSORX
set %bolsay #CURSORY
goto comienzo
}
}
goto TESC

comienzo:
gosub Inscription0
goto Loop:

Loop:
if #menubutton = M1
{
set #menubutton n/a
set %inscrix1 0
set %inscriy1 0
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 58
set %inscriy4 65
gosub Z1
}
if #menubutton = M2
{
set #menubutton n/a
set %inscrix1 0
set %inscriy1 0
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 107
set %inscriy4 65
gosub Z2
}
if #menubutton = M3
{
set #menubutton n/a
set %inscrix1 0
set %inscriy1 0
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 150
set %inscriy4 65
gosub Z3
}
if #menubutton = M4
{
set #menubutton n/a
set %inscrix1 0
set %inscriy1 0
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 196
set %inscriy4 65
gosub Z4
}
if #menubutton = M5
{
set #menubutton n/a
set %inscrix1 0
set %inscriy1 0
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 240
set %inscriy4 65
gosub Z5
}
if #menubutton = M6
{
set #menubutton n/a
set %inscrix1 269
set %inscriy1 68
set %inscrix2 0
set %inscriy2 0
set %inscrix3 0
set %inscriy3 0
set %inscrix4 240
set %inscriy4 65
gosub Z6
}
if #menubutton = M7
{
set #menubutton n/a
set %inscrix1 269
set %inscriy1 68
set %inscrix2 269
set %inscriy2 68
set %inscrix3 0
set %inscriy3 0
set %inscrix4 240
set %inscriy4 65
gosub Z7
}
if #menubutton = M8
{
set #menubutton n/a
set %inscrix1 269
set %inscriy1 68
set %inscrix2 269
set %inscriy2 68
set %inscrix3 269
set %inscriy3 68
set %inscrix4 232
set %inscriy4 65
gosub Z8
}

; HECHIZOS DE PRIMER CIRCULO

if #menubutton = A1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = A2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %ginseng
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = A3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %ginseng
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = A4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %ginseng
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = A5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %balck
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = A6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = A7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = A8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}

; HECHIZOS DE SEGUNDO CIRCULO

if #menubutton = B1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = B2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %nightsade
set %regsi 2
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = B3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %ginseng
set %regsi 2
set %regs . %regsi %garlic
goto fabrica
}
if #menubutton = B4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %nightsade
set %regsi 2
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = B5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = B6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = B7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %ginseng
goto fabrica
}
if #menubutton = B8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %mandrake
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}

; HECHIZOS DE TERCER CIRCULO

if #menubutton = C1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = C2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = C3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %sulfurus
set %regsi 2
set %regs . %regsi %garlic
set %regsi 3
set %regs . %regsi %bloodmos
goto fabrica
}
if #menubutton = C4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = C5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = C6
{
set #menubutton n/a
event sysmessage El Hechizo teleport no puede ser inscrito en un pergamino.
halt
}
if #menubutton = C7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = C8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %garlic
goto fabrica
}

; HECHIZOS DE CUARTO CIRCULO

if #menubutton = D1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %ginseng
goto fabrica
}
if #menubutton = D2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %ginseng
set %regsi 2
set %regs . %regsi %garlic
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = D3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = D4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %spider
set %regsi 3
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = D5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %ginseng
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = D6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %sulfurus
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %black
goto fabrica
}
if #menubutton = D7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = D8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}

; HECHIZOS DE QUINTO CIRCULO

if #menubutton = E1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = E2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %garlic
set %regsi 3
set %regs . %regsi %spider
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = E3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = E4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %spider
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = E5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %nightsade
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = E6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %garlic
goto fabrica
}
if #menubutton = E7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %nightsade
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = E8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}

; HECHIZOS DE SEXTO CIRCULO

if #menubutton = F1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = F2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = F3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = F4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = F5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}
if #menubutton = F6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %sulfurus
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %garlic
set %regsi 4
set %regs . %regsi %nightsade
goto fabrica
}
if #menubutton = F7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %ginseng
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = F8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %sulfurus
set %regsi 2
set %regs . %regsi %bloodmos
goto fabrica
}

; HECHIZOS DE SEPTIMO CIRCULO

if #menubutton = G1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %bloodmos
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = G2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %spider
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = G3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = G4
{
set #menubutton n/a
event sysmessage El Hechizo gate travel no puede ser inscrito en un pergamino.
halt
}
if #menubutton = G5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = G6
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %black
set %regsi 2
set %regs . %regsi %garlic
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = G7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %sulfurus
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %spider
set %regsi 4
set %regs . %regsi %bloodmos
goto fabrica
}
if #menubutton = G8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}

; HECHIZOS DE OCTAVO CIRCULO

if #menubutton = H1
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 58
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %ginseng
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = H2
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 100
set %inscriy8 65
set %regsi 1
set %regs . %regsi %nightsade
set %regsi 2
set %regs . %regsi %black
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %bloodmos
goto fabrica
}
if #menubutton = H3
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 150
set %inscriy8 65
set %regsi 1
set %regs . %regsi %garlic
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %ginseng
goto fabrica
}
if #menubutton = H4
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 200
set %inscriy8 65
set %regsi 1
set %regs . %regsi %mandrake
set %regsi 2
set %regs . %regsi %spider
set %regsi 3
set %regs . %regsi %bloodmos
goto fabrica
}
if #menubutton = H5
{
set #menubutton n/a
set %inscrix5 0
set %inscriy5 0
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %sulfurus
set %regsi 3
set %regs . %regsi %mandrake
set %regsi 4
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = H6
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 0
set %inscriy6 0
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %spider
goto fabrica
}
if #menubutton = H7
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 0
set %inscriy7 0
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %bloodmos
set %regsi 2
set %regs . %regsi %mandrake
set %regsi 3
set %regs . %regsi %spider
set %regsi 4
set %regs . %regsi %sulfurus
goto fabrica
}
if #menubutton = H8
{
set #menubutton n/a
set %inscrix5 269
set %inscriy5 68
set %inscrix6 269
set %inscriy6 68
set %inscrix7 269
set %inscriy7 68
set %inscrix8 232
set %inscriy8 65
set %regsi 1
set %regs . %regsi %spider
set %regsi 2
set %regs . %regsi %bloodmos
set %regsi 3
set %regs . %regsi %mandrake
goto fabrica
}
goto Loop:

[Rathma]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;; MENU ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;


sub Inscription0
menu Clear
menu Window Title Circulos
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button M1 32 72 75 25 Circulo 1
menu Button M2 160 72 75 25 Circulo 2
menu Button M3 32 124 75 25 Circulo 3
menu Button M4 160 124 75 25 Circulo 4
menu Button M5 32 172 75 25 Circulo 5
menu Button M6 160 172 75 25 Circulo 6
menu Button M7 32 220 75 25 Circulo 7
menu Button M8 160 220 75 25 Circulo 8
menu Show 421 270
return

sub Z1
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button A1 32 72 75 25 Torpeza
menu Button A2 160 72 75 25 Crear Comida
menu Button A3 32 124 75 25 Debilidad Mental
menu Button A4 160 124 75 25 Curar
menu Button A5 32 172 75 25 Flecha Magica
menu Button A6 160 172 75 25 Vision Nocturna
menu Button A7 32 220 75 25 Armadura Reactiva
menu Button A8 160 220 75 25 Debilidad
menu Show 421 270
return

sub Z2
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button B1 32 72 75 25 Agilidad
menu Button B2 160 72 75 25 Astucia
menu Button B3 32 124 75 25 Cura
menu Button B4 160 124 75 25 Causar heridas
menu Button B5 32 172 75 25 Poner trampa magica
menu Button B6 160 172 75 25 Quitar Trampa Magica
menu Button B7 32 220 75 25 Poteccion
menu Button B8 160 220 75 25 Fuerza
menu Show 421 270
return

sub Z3
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button C1 32 72 75 25 Bendecir
menu Button C2 160 72 75 25 Bola de Fuego
menu Button C3 32 124 75 25 Bloquear Magicamente
menu Button C4 160 124 75 25 Veneno
menu Button C5 32 172 75 25 Telequinesis
menu Button C6 160 172 75 25 Teleport
menu Button C7 32 220 75 25 Abrir Cerradura Magica
menu Button C8 160 220 75 25 Muro de Piedra
menu Show 421 270
return

sub Z4
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button D1 32 72 75 25 Cura en grupo
menu Button D2 160 72 75 25 Proteccion En Grupo
menu Button D3 32 124 75 25 Maldicion
menu Button D4 160 124 75 25 Muro de Fuego
menu Button D5 32 172 75 25 Curar Heridas Graves
menu Button D6 160 172 75 25 Rayo
menu Button D7 32 220 75 25 Drenar Mana
menu Button D8 160 220 75 25 Recall
menu Show 421 270
return

sub Z5
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button E1 32 72 75 25 Blade Spirits
menu Button E2 160 72 75 25 Dispel Field
menu Button E3 32 124 75 25 Incognito
menu Button E4 160 124 75 25 Magic Reflection
menu Button E5 32 172 75 25 Mind Blast
menu Button E6 160 172 75 25 Paralyze
menu Button E7 32 220 75 25 Poison Field
menu Button E8 160 220 75 25 Summ. Creature
menu Show 421 270
return

sub Z6
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button F1 32 72 75 25 Dispel
menu Button F2 160 72 75 25 Energy Bolt
menu Button F3 32 124 75 25 Explosion
menu Button F4 160 124 75 25 Invisibility
menu Button F5 32 172 75 25 Mark
menu Button F6 160 172 75 25 Mass Curse
menu Button F7 32 220 75 25 Paralyze Field
menu Button F8 160 220 75 25 Reveal
menu Show 421 270
return

sub Z7
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button G1 32 72 75 25 Chain Lightning
menu Button G2 160 72 75 25 Energy Field
menu Button G3 32 124 75 25 Flame Strike
menu Button G4 160 124 75 25 Gate Travel
menu Button G5 32 172 75 25 Mana Vampire
menu Button G6 160 172 75 25 Mass Dispel
menu Button G7 32 220 75 25 Meteor Swarm
menu Button G8 160 220 75 25 Polymorph
menu Show 421 270
return

sub Z8
menu Clear
menu Window Title Hechizos1
menu Window Color BtnFace
menu Window Size 271 303
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -24 -24 305 429 3 7 1 Black 7 Blue
menu Shape EUOShape2 4 4 265 297 3 7 1 Black 7 InactiveCaption
menu Font Name Nueva Std Cond
menu Font Size 14
menu Font Style b
menu Font Color Red
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 76 16 Menu Inscription
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Text EUOLabel2 152 276 Macro by Rathma v1.0
menu Button H1 32 72 75 25 E arthquake
menu Button H2 160 72 75 25 Energy Vortex
menu Button H3 32 124 75 25 Resurrection
menu Button H4 160 124 75 25 Air Elemental
menu Button H5 32 172 75 25 Summon Daemon
menu Button H6 160 172 75 25 Earth Elemental
menu Button H7 32 220 75 25 Fire Elemental
menu Button H8 160 220 75 25 Water Elemental
menu Show 421 270
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;; SCRIPT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;

fabrica:
goto cogercosas
finditem %pergas C_ , #BACKPACKID
wait 5
set %perga #FINDSTACK
if %perga < 0
{
goto perga
}
finditem %plumas C_ , #BACKPACKID
wait 5
set %pluma #FINDSTACK
if %pluma < 0
{
goto pluma
}

main:

finditem %idperga C_ , #BACKPACKID
wait 6
set %idpergas #FINDTYPE
if %idpergas = X
{
goto seguir
}
else
{
goto guardacosas
}

seguir:
finditem %pergas C_ , #BACKPACKID
wait 5
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click %inscrix1 %inscriy1 f
wait 10
click %inscrix2 %inscriy2 f
wait 10
click %inscrix3 %inscriy3 f
wait 10
click %inscrix4 %inscriy4 d
wait 10
click %inscrix5 %inscriy5 f
wait 10
click %inscrix6 %inscriy6 f
wait 10
click %inscrix7 %inscriy7 f
wait 10
click %inscrix8 %inscriy8 d
wait 3s
if #MANA < #MAXMANA
{
goto meditar
}
goto fabrica

meditar:
event macro 13 46
wait 10
goto revisa

revisa:
scanjournal
if Rathma:_Pierdes_la
{
Event macro 13 46
goto meditar
}
if You_are_at_peace. in #journal
{
wait 1s
goto fabrica
}
goto meditar


cogercosas:
for %regsi 1 5
{
finditem %regs . %regsi C_ , #BACKPACKID
wait 6
set %reg #FINDID
if %regs . %regsi = N/A
{
goto perga
}
set %reg #FINDSTACK
if %reg < 1
{
finditem %regs . %regsi C_ , %cofre
wait 6
set %reg #FINDSTACK
wait 6
set %reg #FINDID
event drag #FINDID
wait 1s
msg 5 $
wait 1s
click %mochilax %mochilay p
wait 1s
}
}
perga:
finditem %pergas C_ , #BACKPACKID
wait 6
set %perga #FINDSTACK
if %perga < 1
{
finditem MMF C_ , %cofre
wait 6
set %pergas #FINDID
wait 6
event drag #FINDID
wait 1s
msg 1 $
wait 1s
click %mochilax %mochilay p
wait 1s
finditem %pergas C_ , #BACKPACKID
wait 5
set #LOBJECTID #FINDID
event macro 17 0
}
pluma:
finditem %plumas C_ , #BACKPACKID
wait 6
set %pluma #FINDSTACK
if %pluma < 1
{
finditem %plumas C_ , %cofre
wait 6
set %plumas #FINDID
wait 6
event drag #FINDID
wait 1s
click %mochilax %mochilay p
wait 1s
finditem %plumas C_ , #BACKPACKID
wait 5
set #LOBJECTID #FINDID
event macro 17 0
}
goto main

guardacosas:
finditem %idperga C_ , #BACKPACKID
wait 6
set %idperga #FINDID
wait 6
event drag #FINDID
wait 1s
msg $
wait 1s
click %bolsax %bolsay p
wait 1s
goto main

Bueno, ya me contareis haber que tal

[interapothek]

Muy buena la macro, es necesario suprimirle algunas líneas en la ejecución de pergaminos (locations) pero es perfecta y muy sencilla. Un 10.

[Breton]

Como busco la linea 1741? Una a una o hay que pueda buscar un nombre para encontrarlo.