1. Escriba
Código:
Set %ManaMin 20 ; El minimo de mana para empezar a meditar
Set %Cofre PBDBVPD ; El cofre del que coje los regs y papiros ( Abrirlo antes )
Set %Comida QQD ; De que te alimentas
Set %CuantosRegsReponer 40 ; Cuantos papiros y regs quieres reponer
Set %MochilaPaperdollX 818 ;Psicion de la mochila en tu journal
Set %MochilaPaperdollY 232 ; Si no tienes ahi la mochiliya del paperdoll cambia este valor
Set %Cofrex 629 ;Posicion del cofre donde tienes guardados los papiros
Set %Cofrey 548 ;Posicion del cofre donde tienes guardados los papiros
inicio:
findItem WZF C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub comprobar_material
}
else
{
findItem KZF C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub comprobar_material
}
findItem MMF C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub comprobar_material
}
}
finditem MMF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 2s
click 111 71 d
wait 2s
click 63 67 d
wait 6s
if #mana <= %ManaMin
{
goto meditar
}
goto empezar
meditar:
wait 15
set %cmsg #jIndex
event macro 13 46
wait 55
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanjournal %i
if pierdes_la in #journal
{
goto meditar
}
if Estas_pre in #journal
{
event macro 6
wait 10
goto meditar
}
}
esperamana:
if #MANA >= #MAXMANA
{
finditem %Comida C_ , #backpackid
if #findcnt >= 1
{
set #lobjectid #findid
event macro 17
wait 30
}
wait 15
goto empezar
}
goto esperamana
sub comprobar_material
{
finditem WXL C_ , #BackPackId
if #findcnt > 0
{
gosub guarda
}
finditem STL C_ , #BackPackId
if #findcnt > 0
{
gosub guarda
}
finditem KZF C_ , #BackPackID
if #findCnt < 1
{
event sysmessage No hay ingredientes, Garlic REPONGO
finditem KZF C_ , %Cofre
event drag #findid
wait 10
msg %CuantosRegsReponer $
click %MochilaPaperdollX %MochilaPaperdollY p
}
finditem WZF C_ , #BackPackId
if #findSTACK < 1
{
event sysmessage No hay ingredientes, Nightshade REPONGO
finditem WZF C_ , %Cofre
event drag #findid
wait 10
msg %CuantosRegsReponer $
click %MochilaPaperdollX %MochilaPaperdollY p
}
finditem MMF C_ , #BackPackId
if #findSTACK < 1
{
event sysmessage No hay papiros, papiros blancos REPONGO
finditem MMF C_ , %Cofre
event drag #findid
wait 10
msg %CuantosRegsReponer $
click %MochilaPaperdollX %MochilaPaperdollY p
}
return
}
sub guarda
{
finditem WXL C_ , #BackPackId
if #findcnt > 0
{
event sysmessage Guardando lote de papiros blancos
finditem WXL C_ , #BACKPACKID
if #findstack >= 1
event drag #findid
wait 10
msg $
click %Cofrex %Cofrey p
gosub guarda
}
finditem STL C_ , #BackPackId
if #findcnt > 0
{
event sysmessage Guardando lote de papiros blancos
finditem STL C_ , #BACKPACKID
if #findstack >= 1
event drag #findid
wait 10
msg $
click %Cofrex %Cofrey p
gosub guarda
}
gosub comprobar_material
}
2. Alquimia (Hace Veneno Menor)
Código:
initevents
set %confp 1
set %contador 0
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los materiales, manten el cursor sobre el.
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
Event sysmessage Pon el cursor donde quieras dejar los regs en tu mochila y presiona ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
Event sysmessage Barril 1
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
Event sysmessage Barril 2
set %conf 4
set %confp 5
goto TESC
}
if %confp = 5
{
Event sysmessage Barril 3
set %conf 5
set %confp 6
goto TESC
}
if %confp = 6
{
Event sysmessage Barril 4
set %conf 6
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
goto configurar
}
if %conf = 3
{
set %barr1x #CURSORX
set %barr1y #CURSORY
goto configurar
}
if %conf = 4
{
set %barr2x #CURSORX
set %barr2y #CURSORY
goto configurar
}
if %conf = 5
{
set %barr3x #CURSORX
set %barr3y #CURSORY
set %barrx %barr1x
set %barry %barr1y
set %contb 1
goto configurar
}
if %conf = 6
{
set %barr4x #CURSORX
set %barr4y #CURSORY
set %contb 1
goto empezar
}
}
goto TESC
empezar:
findItem wzF C_ , #BACKPACKID
set #LOBJECTID #FINDID
if #FINDSTACK < 5
{
findItem wzF C_ , %cofre
event drag #FINDID
wait 20
msg 53 $
click %dejarx %dejary p
wait 10
goto empezar
}
if #FINDSTACK > 4
{
event macro 17
wait 10
click 59 67 d
wait 8s
goto mekeg
}
mekeg:
finditem YSD C
wait 5
set #LOBJECTID #FINDID
event Macro 17 0 0
key ESC
findItem wzF C_ , #BACKPACKID
set #LOBJECTID #FINDID
if #FINDSTACK => 1
{
finditem WUF C_ , #BACKPACKID
click %barrx %barry d
wait 10
set #LTARGETID #FINDID
event macro 22 0
wait 6
Event sysmessage %contador
set %contador %contador + 1
if %contador => 950
{
if %contb = 1
{
set %barrx %barr2x
set %barry %barr2y
set %contador 0
set %contb %contb + 1
Event sysmessage conti1
goto empezar
}
if %contb = 2
{
set %barrx %barr3x
set %barry %barr3y
set %contador 0
set %contb %contb + 1
Event sysmessage conti2
goto empezar
}
if %contb = 3
{
set %barrx %barr4x
set %barry %barr4y
set %contador 0
set %contb %contb + 1
Event sysmessage conti2
goto empezar
}
if %contb = 4
{
Event sysmessage sacabo
halt
}
}
goto empezar
}
3. Ponerse el escudo automaticamente (para magos)
Código:
;==================================
; Script Name: Escudo Mago
; Author: Pardillo
; Version: 1.0
; Accion: Para ponerse el escudo automaticamente.
;==================================
initevents
set %Escudo CIK_LIK_AIK_QMH_CQF_PMH_MIK
Comenzar:
finditem %Escudo c_ , #BACKPACKID
{
set #LOBJECTID #FINDID
event macro 17
}
goto Comenzar
4. Envenenar
Código:
;************************************************************************************************* ******************************************************************
;************************MACRO POISONING BY RUBEN*******************************************************************
;************************************************************************************************* ******************************************************************
;-/--/--/--/--/--/--/--/--/--/--/--/--/-INSTRUCCIONES-/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/-
;Debes tener en la mochila frascos vacios (con 150 bastará), los kegs de veneno(los q creas convenientes, cuidado con el peso)
; y las armas a envenenar (estos son los tipos TSF_CNF_GMH_HNF_SRH_OMH_BPH_WRH) añade mas si kieres en la variable %PTarget
-/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/--/-
INITEVENTS
set %confp 1
;******** Tipos de ARMAS*******
SET %PTarget TSF_CNF_GMH_HNF_SRH_OMH_BPH_WRH_MTF
;Quieres esconderte? (1 = si / 0 = no)
SET %Hide 0
SET %Hits 60
; Quieres volver a envenenar armas?
; A mas de 90 de skill vovler a envenar noda muy buenos resultados.
; (1 = si / 0 = no)
SET %RePoison = 1
; ### No editar apartir de aki
SET %Gain 0
EVENT SYSMESSAGE Iniciando Macro...
CHOOSESKILL POIS REAL
CheckBlades
FINDITEM %PTarget C_ , #BACKPACKID
IGNOREITEM #FINDID
IF #FINDKIND = -1
{
EVENT SYSMESSAGE No se ecnotraron armas
EVENT SYSMESSAGE Pon armas en tu moxila
EVENT SYSMESSAGE Gracias Wink
HALT
}
IF #FINDKIND = 1
{
GOTO CheckBlades
}
IGNOREITEM RESET
FindKeg:
FINDITEM QMJ C_ , #BACKPACKID
IGNOREITEM #FINDID
SET %Kegid #FINDID
IF #FINDKIND = -1
{
EVENT SYSMESSAGE No se encontraron Kegs
EVENT SYSMESSAGE Pon kegs en tu moxila
EVENT SYSMESSAGE Gracias Wink
HALT
}
IF #FINDKIND = 1
{
GOTO FindKeg
}
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los frascos vacios, manten el cursor sobre el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los frascos y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras llevar los frascos en tu mochila y presiona ESC
event sysmessage Pon el cursor donde desees dejar los frascos en tu mochila
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
set %tot 0
set %vez 0
set %fin 0
set %totlot 0
goto Begin
}
}
goto TESC
Begin:
SET %Skill #SKILL
SET %Hidden 0
;NO VA ESTE TROZO :S
findItem WUF C_ , #BACKPACKID
if #FINDCNT = 1
{
findItem WUF C_ , %cofre
if #FINDSTACK <> 0
event drag #FINDID
wait 10
msg 5
msg $
click %dejarx %dejary p
wait 10
}
Hide:
IF %Hide = 1
{
IF H NOTIN #CHARSTATUS
{
EVENT MACRO 13 21
WAIT 2s 20
SET %Hidden 1
GOTO Hide
}
IF %Hidden <> 0
{
WAIT 6s 20
}
}
SET #LOBJECTID %Kegid
TARGET
EVENT MACRO 17
WAIT 10
SCANJOURNAL 1
IF is_empty IN #JOURNAL
{
GOTO FindKeg
}
FindBottle:
FINDITEM WUF C_ , #BACKPACKID
IF #FINDKIND = 1
{
IGNOREITEM #FINDID
GOTO FindBottle
}
FillBottle:
SET #LTARGETID #FINDID
SET #LTARGETKIND 1
EVENT MACRO 22
WAIT 30 20
PoisonIt:
EVENT MACRO 13 30
TARGET
TargetBlade2:
findItem %PTarget C_ , #BACKPACKID
set #LTARGETID #FINDID
event macro 22
wait 1s
eligepocion:
findItem WUF C_ , #BACKPACKID
set #LTARGETID #FINDID
set #ltargetkind 1
event macro 22
wait 2s 35
GOTO Begin
Todas las macros funcionan correctamente. Si alguien tiene problemas con alguna macro que no me pregunte porque yo no tengo ni idea de EASY, pero quiero insistir en que todas las macros han sido usadas por mi y no dan ningun tipo de problema. Suerte