public void ExecuteLisp(SimObjectUsage botObjectAction, Object lisp)
{
if (lisp == null)
{
return;
}
if (lisp is SimTypeUsage)
{
SimTypeUsage u = (SimTypeUsage)lisp;
if (u.LispScript != null)
{
ExecuteLisp(botObjectAction, u.LispScript);
}
foreach (SimObjectType ot in botObjectAction.Target.Affordances.ObjectType.SuperType)
{
}
return;
}
BotClient Client = GetBotClient();
{
Client.Intern("TheBot", this);
Client.Intern("TheTarget", botObjectAction.Target);
Client.Intern("TheAction", botObjectAction);
Client.evalLispCode(lisp);
}
}
public void SetClient(BotClient newClient)
{
lock (newClient)
{
Client0 = newClient;
Client0.Intern("TheBot", this);
if (!IsControllable)
{
Error("SetClient not conttrolalble");
}
}
}
} // method: Eof
/// <summary>
///
/// </summary>
/// <param name="varname"></param>
/// <param name="textForm"></param>
public override void Intern(string varname, object value)
{
BotClient.Intern(varname, value);
} // method: Intern
