examples: Add orb of seeing

programming_examples.md

@@ -1,4 +1,4 @@
-George, who can be awakened
+George, who can be awakened.
 
 ```
 @create $thing named "George"
@@ -25,3 +25,19 @@ else
 endif
 .
 ```
+
+The Orb of Seeing, which demonstrates how to get information about the players
+that interact with objects.
+
+```
+@create $thing named "Orb of Seeing"
+@verb mystery:description tnt
+
+@program mystery:description
+return {
+    "The "+this.name+" sees many things!",
+    "Viewer name: "+player.name,
+    "Item owner: "+this.owner.name
+};
+.
+```