Скрипт на поизонинг

[imp]

Помогите со скриптом на поизонинг + если при неудачной попытке чар травиться хилиться сразу.

[Shahe]

sub Poisoning()
VAR Poison='0x0F0A', Mech='0x40F3A1F5'
While NOT UO.Dead()
If UO.Hits < UO.Str Then
UO.bandageself()
wait (500)
endif

UO.useskill ('Poisoning')
UO.WaitTargetObject(Mech)
wait (50)
CheckLag()
UO.WaitTargetType(Poison)
UO.DeleteJournal()
Repeat
Wait(100)
Until UO.InJournal("You apply") OR UO.InJournal("You fail")

Wend



end sub


sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub