Varias Macros.

[Hate]

1. Escriba

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)

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)

;==================================
; 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

;************************************************************************************************* ******************************************************************
;************************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

[Hate]

5. Cartografia

;Bloquear un mapa en blanco en el suelo de casa
;Clicar dos veces  en el mapa y darle al PLAY

set %Cofre JIFRPPD  ;el cofre del que coge los lotes de mapas
Set %MochilaPaperdollX 1247  ;Posicion de la mochila en tu journal
Set %MochilaPaperdollY 714  ; Si no tienes ahi la mochiliya del paperdoll cambia este valor
Set %Cofrex 409   ;Posicion del cofre donde tienes guardados los papiros
Set %Cofrey 326   ;Posicion del cofre donde tienes guardados los papiros


empezar:
findItem XVH C_ , #BACKPACKID
 if #FINDSTACK = 0
  {
  gosub coger_lotes
  }
sub coger_lotes
  {
   finditem MMF c_ , %cofre
   wait 5
   exevent drag #findid 1
   wait 10
   exevent dropc #backpackid
   wait 1s
   finditem MMF c_ , #BACKPACKID
   set #LOBJECTID #FINDID
   event macro 17
   wait 20
   return
   }
event macro 13 12
wait 15
click 149 63 d
wait 4s
wait 5
scanjournal
wait 10
if No_tienes_mas_mapas_para_tus_estudios in #journal || No_tienes_material_sobre_el_que_dibujar in #journal
    {
     gosub hacer_tickets
    }
sub hacer_tickets
    {
    finditem BKF
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    click 75 165
    wait 10
    click 315 335
    wait 10
    findItem XVH C_ , #BACKPACKID
    set #LTARGETID #FINDID
    wait 10
    event macro 22
    wait 10
    }
goto empezar:

[ElCrackDeLa]

thanks feo !

[Hate]

de res.

[Aqiu]

tengo una pregunta, pues la macro de cartografo coge mapas o como funciona? porque tengo todo lo que pide puesto y le doy a play despues de abrir el mapa en blanco del suelo, pero luego se me queda en que no hay material para dibujar y ya esta

[PuRitOs]

Fiera tu.

[Charls Mouller]

la macros de escriba no me va, en cuanto termina de hacer el scrol medita y yo le puse que meditara a los 20 de mana y ai se keda.

[Kobrichs]

ami la de poison me dice k no tengo kegs en la moxila :S

[zorro]

ostia un Hate rulando macros que bueno loko XD

merci

[Hate]

ami la de poison me dice k no tengo kegs en la moxila :S

Porque tienes que bloquearlos en el suelo.

la macros de escriba no me va, en cuanto termina de hacer el scrol medita y yo le puse que meditara a los 20 de mana y ai se keda.
Hace 4 Días 13:59

Tienes que poner la bolsa y tu pj en esta disposición:

tengo una pregunta, pues la macro de cartografo coge mapas o como funciona? porque tengo todo lo que pide puesto y le doy a play despues de abrir el mapa en blanco del suelo, pero luego se me queda en que no hay material para dibujar y ya esta

Debes tener lotes de mapas en blanco dentro del cofre, estar cerca del sistema de recompensas, y hacer tu una vez todo el proceso antes de darle al play. Olvidate de eso de bloquear mapas en el suelo que eso esta mal.

[Charls Mouller]

perdona pero tu macro sigue sin funcionarme, estoy en la misma pocision k tu.
Doy play comprueba los regnts, hace el perga, medita y se keda ai, y yo kiero k haga los pergas sin detenerse hasta que el mana llegue a 10.

[Kisarath]

ami tambien me interesaria la de escriba que haga los pergas meditando cuando llegue a 10 o asi. Como me aconsejais subirlo desde 30? Es que tengo todos los pjs ocupados y no puedo hacerme uno nuevo con 50 de escriba. Hacer pergas de recall? o pergas de q? muchas gracias y espero vuestra ayuda.

pd:si no podeis ayudarme gracias de todos modos por la macro

[Rina Exwild]

kisarath as pergas de des mani, k alomejor tienen mas salida para alguien k kiera subir resis.

[Shamino]

kisarath as pergas de des mani, k alomejor tienen mas salida para alguien k kiera subir resis.

Ni se te ocurra hacerlos de des mani, haz pergaminos de recall a saco.

[Kisarath]

vale muchas gracias, hare pergas de recall a saco pero primero necesitaria una pequeña ayuda con la macro...jejejejeje. muchas gracias

[DarKCoM]

la macro de alkimia os coje regs? cuando se keda sin?