[imported_Promoe]

Code:

sub lesserpoison()
var c
while NOT UO.Dead()
UO.DeleteJournal()
c = 0
UO.Exec("usetype 0x0E9B")
wait(100)
UO.LClick(324,453)  # Coordinates of "Make Last" button
repeat
wait(50)
c = c + 1
until UO.InJournal('You put the') OR (c>80)
wait(50)
wend
endsub

So, you need is to make one lesser poison yourself, so it would be last potion you made, because the script clicks on "MakeLast".
You also need to set coordinates of your Make Last button, the ones I've set there are default, so technically if you will log in and won't move the gump it should work. If it won't, then post and I'll explain how you can get coordinates.