Flower (#2254)

(an instance of Generic Speaking Wandering Automaton made by Eclipse)

     Everything about this 20-something chick says "60's", from the marijuana-patchouli-incense smell she emits to the button on her rainbow patchwork cardigan that reads, "War is not healthy for children and other living things".
     Flower wears little jewelry other than a nose ring, daisy-blossom earrings, and a silver toe-ring, and never wears makeup. Her mostly shaven head is tattooed with an ivy and rose motif, and she is constantly blowing her long blond bangs out of her eyes. Green eyes sparkle above a freckle-spattered nose and small, pink lips.
     She is comfortably dressed in oversized, ratty overalls, a moth-eaten, faded cardigan, and well-worn birkenstocks which usually lie empty on the floor while her bare feet rest on the desk.
     Flower always looks happy, if somewhat spacey, and tends to leave the mouthpiece of her sneak-a-toke peeking out of the front chest pocket of her overalls. An eye-catching mushroom is embroidered on the knee of her overalls in bright oranges, pinks, blues and purples.

Flower has some things to say:
      Hey dude, if you gotta question, ask it. Don't just stand there and gibber, man.

Go to location of this object, Tattoo Den (waiting room).



VERB SOURCE CODE:

return_msg tattoo_msg removal_msg: 
msg = this.(verb);
return msg;
.

ask: 
(player.location != this.location) ? player:tell("You can't ask ", this.name, " anything 
from here.") | ((!this.talkative) ? $you:say_action("%N % to talk to %t, but 
%t % her head, %, and % %n away.") | ((iobjstr == "tattoo") 
? {$you:say_action("%N % %t about getting a tattoo."), this.location:announce_all(this.name, 
" ", this:return_msg(), ". \"", this:tattoo_msg(), "\""), $you:say_action("%T % 
%n to the northern door, without looking up from her magazine.")} | ((iobjstr == 
"removal") ? {$you:say_action("%N % %t about getting a tattoo removed."), this.location:announce_all(this.name, 
" ", this:return_msg(), ". \"", this:removal_msg(), "\""), $you:say_action("%T % 
%n to the southern door, without looking up from her magazine."), this.location:announce(this.name, 
" snickers, and mutters, \"Sucker.\"")} | {player:tell(this.name, " looks at you 
blankly.  Perhaps you should ask her about something, like a tattoo, or a removal."), 
this.location:announce(player.name, " asks ", this.name, " for something, but ", 
this.name, " just looks at ", player.name, " blankly.")})));
.

examine_verbs: 
if (caller == this)
    ((verbs = pass(@args)) && (i = $string_utils:find_prefix("  ask", verbs))) && 
(verbs[i] = strsub(verbs[i], " for ", " about "));
    return verbs;
endif
return E_PERM;
.


PROPERTY DATA:
      tattoo_msg
      removal_msg
      return_msg