Macro envenenar

[Angello]

hola esta es la macro q tengo pero no va no reconoce las pociones de veneno menor y falla aver si puede arreglarla gracias



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

;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 XBK 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
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:
FINDOBJECTTYPE 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 05

eligepocion:
findItem WUF C_ , #BACKPACKID
set #LTARGETID #FINDID
set #ltargetkind 1
event macro 22



Un saludo.
__________________

[Mightywolf]

Yo la subí con esta macro:

LinesPerCycle 40
set %BoteType WUF
set %Color 368
set %KegType YBK
set %PX 678
set %PY 483
set #LTARGETKIND 1
display ok Seleciona el Baul de los items.
event macro 13 48
waitForTargetIdentifi2:
if #TARGCURS <> 1
{
goto waitForTargetIdentifi2
}
set #LTARGETID A
WaitForselectTarget:
if #TARGCURS = 1
{
goto WaitForselectTarget
}
if #LTARGETID = A || #LTARGETID = YC
{
display ok Target invalido.
stop
}
set %Baul #LTARGETID

waitForOpenBaul:
set #LOBJECTID %Baul
if #TARGCURS = 1
{
set #TARGCURS 0
}
event macro 17
if #CONTID <> %Baul
{
Goto waitForOpenBaul
}
contpos 584 0
display ok Seleciona el arma a envenenar.
event macro 13 48
waitForTargetIdentifi:
if #TARGCURS <> 1
{
goto waitForTargetIdentifi
}
set #LTARGETID A
WaitForselectTarget2:
if #TARGCURS = 1
{
goto WaitForselectTarget2
}
if #LTARGETID = A || #LTARGETID = YC
{
display ok Target invalido.
stop
}
set %Arma #LTARGETID
WaitForOpenPaperdoll:
event macro 8 1
if #CONTNAME <> paperdoll_gump
{
goto WaitForOpenPaperdoll
}
contpos 528 265
RepFindForColorErr:
finditem %BoteType C_ , #BACKPACKID
if #FINDCOL <> 0
{
ignoreitem #FINDID
goto RepFindForColorErr
}
if #FINDID = -1 || #FINDSTACK < 199
{
set %B 200 - #FINDSTACK
RepFindForCol:
finditem %BoteType C_ , %Baul
if #FINDCOL <> 0
{
ignoreitem #FINDID
goto RepFindForCol
}
if #FINDKIND = -1
{
Display ok No hay frascos en la "despensa" o.O
stop
}
RepEventDrag:
set %TM #SYSTIME
event drag #FINDID
WaitForOPenDrag:
if #CONTNAME <> stack_gump
{
if ( #SYSTIME - %TM ) > 3000
{
Goto RepEventDrag
}
Goto WaitForOPenDrag
}
msg %b $
WaitForOk:
if #LLIFTEDKIND <> 1
{
Goto WaitForOk
}
RepClickDown:
set %TM #SYSTIME
click %PX %PY f
WaitForDropClick:
if #LLIFTEDKIND = 1
{
if ( #SYSTIME - %TM ) > 3000
{
Goto RepClickDown
}
Goto WaitForDropClick
}
set %LID #FINDID
WaitForFind:
finditem %LID
if #FINDID <> %LID
{
Goto WaitForFind
}
}
KegPoti:
finditem %KegType G_5
if #FINDKIND = -1
{
Display ok No quedan kegs.
stop
}
if #FINDCOL <> %Color
{
ignoreitem #FINDID
goto KegPoti
}

set #LOBJECTID #FINDID
RepKegClick
Set %TM #SYSTIME
if #TARGCURS = 1
{
set #TARGCURS 0
}
event macro 17
WaitKegForTarget:
if #TARGCURS <> 1
{
if ( #SYSTIME - %TM ) > 3000
{
Goto RepKegClick
}
Goto WaitKegForTarget
}
ignoreitem reset
RepFindForColorErr2:
finditem %BoteType C_ , #BACKPACKID
if #FINDCOL <> 0
{
ignoreitem #FINDID
goto RepFindForColorErr2
}
if #FINDSTACK < 20
{
ignoreitem reset
goto RepFindForColorErr
}
set #LTARGETID #FINDID
event macro 22
wait 1s
ignoreitem reset
RepFindForColorErr3:
finditem %BoteType C_ , #BACKPACKID
if #FINDKIND = -1
{
goto KegPoti
}
if #FINDCOL <> %Color
{
ignoreitem #FINDID
goto RepFindForColorErr3
}
RepPoisong:
set %TM #SYSTIME
if #TARGCURS = 1
{
set #TARGCURS 0
}
event macro 13 30
wait 5
WaitForTargetPoisong:
if #TARGCURS <> 1
{
if ( #SYSTIME - %TM ) > 3000
{
goto RepPoisong
}
Goto WaitForTargetPoisong
}
set %TM #SYSTIME
set #LTARGETID %Arma
event macro 22
wait 10
WaitForTargetPoisong2:
if #TARGCURS <> 1
{
if ( #SYSTIME - %TM ) > 3000
{
goto RepPoisong
}
Goto WaitForTargetPoisong2
}
set #LTARGETID #FINDID
event macro 22
wait 145
Goto KegPoti


Es tan facil como rodearte de kegs que tengan el mismo ID (o lo cambias aqui "set %BoteType WUF") y meter los frascos vacios en una cajita bloqueada al suelo.

Espero que te sirva.
Un saludo.

[Angello]

funciona muy bien muchas gracias