COWbrowse

You are looking at a doorbell floating in midair

This doorbell is a recreation of the sample object from the Scripting Introduction tutorial in the library: click: [read scripting introduction]

The doorbell responds to click: [push doorbell] , click: [use doorbell] (keep trying if you get no response), and when someone enters the room.

Created by jdm, last updated 04 Nov 2013

Code

if target of push then someonepushed;
if target of use then someoneused;
if reacting to arrives then greetthem;

##greetthem:
$actn = (blinks,stops what it was doing,quickly stops laughing,jumps);
print "[$actor] $actn because [$init_obj] arrives";

##someonepushed:
$sound = (rings,dings,bings,doings,goes ka-thump);
$vol = (softly,loudly,slowly,quickly);
print "[$actor] $sound $vol";

##someoneused:
runsub someonepushed or makeamove or donothing;

##donothing:
print "[$actor] does not seem to respond";

##makeamove:
$dir = (up,down,left,right,backwards,forwards);
$actn = (dodges,slides,wriggles,bounces,looks,winks,gestures);
$look = (blinks,looks,winks,glares,ignores);
print "[$actor] $look at [$init_obj] then $actn $dir";
runsub someonepushed/3;