@create Drink Parent=10
@lock Drink Parent=*Yohshee
&DRINKS Drink Parent=10
&SIP Drink Parent=$sip:@remit loc(%#)=[name(%#)] sips %p [name(me)].;&drinks me=sub(v(drinks),1);@switch v(drinks)=0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me}
&DRINK Drink Parent=$drink:@remit loc(%#)=[name(%#)] drinks some of %p [name(me)].;&drinks me=sub(v(drinks),2);@switch v(drinks)=0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me}
&GULP Drink Parent=$gulp:@remit loc(%#)=[name(%#)] gulps down a fair quantity of %p [name(me)].;&drinks me=sub(v(drinks),5);@switch v(drinks)=0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me},<0,{@remit loc(%#)=[name(%#)] finishes off the [name(me)]!; @tel me=#10; @destroy me}
&SLAM Drink Parent=$slam:@remit loc(%#)=[name(%#)] tilts %p head back and slams down the rest of [name(me)].;@tel me=#10; @destroy me
@set Drink Parent=PARENT_OK
@set Drink Parent=SAFE