if target of push then Roar_s;

##Roar_s:
Print "[$actor] is very ugly and ROARING!!!";
----------------------------------------------------------------------------------
if target of examines then hello_s;

##hello_s:
Print "[$actor] says: Hello my name is Regan.";
----------------------------------------------------------------------------------
if target of pose then ugly_s;

##ugly_s:
Print "[$actor] is very ugly and ROARING!!!";
$newpose = "roaring";
store $actor's pose = "$newpose";
----------------------------------------------------------------------------------