# Do not remove the headers from this file! see /USAGE for more info.

is=living,actor
proper_name=Leo the Archwizard
in_room_desc=Leo the Archwizard
long=Leo the Archwizard:
id=leo,archwizard

greet:
  $who = call who "query_name"
  !say Welcome, $who.
end

nocastle:
  !say I no longer give out castles.

trigger[*hello*]:
  lcall "greet"

trigger[*hi*]:
  lcall "greet"

trigger[*Hi*]:
  lcall "greet"

trigger[*give*castle*]:
  lcall "nocastle"

trigger[*want*castle*]:
  lcall "nocastle"

periodic[5 to 100]:
  !smile
---
mixed receive_object(object ob)
{
  if((!ob) || (!ob->id("orc slayer")))
    return ::receive_object(ob);
  respond("Leo says: Well done. You have fullfilled this quest.\n");
  call_out("destruct", 0, ob);
  return 1;
}