;Loop: Poisoning, Curing & Hunger
;Author: Sivert
;Last update: 2011-11-23
;Shard: Neverlands Phoenix

Set #TargCurs 1
Event sysmessage Select your weapon now.
Repeat
Until #TargCurs = 0
Set %Weapon #lTargetID
Wait 10


Loop:
Finditem AVF C_
If #findKind <> 0
{
Event SysMessage Need More Poison
Halt
}
Set #ltargetid #findid
Event Macro 13 30
Target 2s
Event Macro 22
Set #ltargetid %weapon
Target 2s
Event Macro 22
}
Wait 3s
If C in #charStatus ; If poisoned then cast cure,
{
Event Macro 15 9
Target 2s
Event Macro 23
}
Wait 5s
Msg .hunger$
Wait 10
Scanjournal
If still_space_in_your_stomach in #journal
{
Finditem EDF_QQD_FWI_UWI_TWI_KPE_MQE_UQE_CWE_KPE_ZPE_AXI_YWI_WLI_ACG_QRD_NRD_FUD_WBG_JQE C_ , #backpackid
Wait 10
Set #lobjectid #findid
Wait 10
Event macro 17
Deletejournal
}
goto Loop