* cigarette
* cigarette
if ( is(%astr%,{smoke}), {echo(%actor%,{You smoke a cigarette.});
oecho(here,{%aname% smokes a cigarette.});
destroy;
return(1);
} );