Scriptname __LALLThrowTomatoScript extends activemagiceffect  

Actor Property Braith Auto
__LALLSexGuildScript Property sexGuildQuest Auto
Potion Property Tomato Auto
Actor Property PlayerRef Auto

Event OnEffectStart(actor akTarget, actor akCaster)
PlayerRef.RemoveItem(Tomato,1,true)
if akTarget == Braith
sexGuildQuest.RaiseBraithArousal(1)
endif
EndEvent