1/* * <module> 2% Uses affordances in which agents belief that some outcome will happen 3% We also in this file purposelty create disparities 4% Example: Buy this new car and you will suddenly become sexy! 5% Result: less money in pocket now but have vehical - but not sexier! 6% 7% Logicmoo Project PrologMUD: A MUD server written in Prolog 8% Maintainer: Douglas Miles 9% Dec 13, 2035 10% 11*/ 12 13:- op(1200,yfx,'==>'). 14 15 16 17% If you want to do Something to Obj and you are in the same place.. Go ahead and do it! 18% That means: remove its on the todo list and enqueue the action) 19% We might change the later to enqueing it and then only remove from bucket list once it is completed (or action is started) 20 21((agentTODO(Agent,actDo(Something,Obj)), 22 localityOfObject(Obj,LOC), 23 localityOfObject(Agent,LOC)) ==> 24 (~