Advertisement
logicmoo

Untitled

Jun 14th, 2018
368
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 1.81 KB | None | 0 0
  1. baseKB: [1]  ?- current_agent(Agent),agent_call_command_now(Agent,actLook).
  2. Agent = iExplorer5 ;
  3. actNotice(you,begin(you,actLook)).
  4. % substs=[vHere=iArea1020, isSelf=xyzFn(iArea1020, 1, 3, 1), isSelfAgent=iExplorer5].
  5.  
  6.  [] [] [] [] [] [] []
  7.  [] -- -- -- -- -- []
  8.     -- -- -- -- -- []
  9.     xp -- -- -- -- []
  10.     -- -- -- -- -- []
  11.  [] -- -- -- -- -- []
  12.  [] [] [] [] [] [] []
  13. text= nameStringsList(iArea1020,[s("Enterprise","Security")]).
  14. s(Enterprise,Security)
  15. s(You,'re,standing,in,the,dimly,lit,Enterprise,Security)
  16. s(Weapons,lockers,cover,all,of,the,walls,,,except,along,the,northern,wall,,,where,a,large,glass,window,protects,dozens,of,different,phasors,,,blaster,rifles,,,and,other,high,tech,weapons)
  17. s(Three,long,tables,surrounded,by,chairs,stretch,across,the,room)
  18. path(vWest)= iArea1019.
  19. pathName(vWest)= s("A","corridor","is","West").
  20. text= localityOfObject(iExplorer5,iArea1020).
  21. selfAgent= iExplorer5.
  22. text= mudAtLoc(iExplorer5,xyzFn(iArea1020,1,3,1)).
  23. text= mudFacing(iExplorer5,vNorth).
  24. text= mudStance(iExplorer5,vStand).
  25. text= mudMoveDist(iExplorer5,1).
  26. mudLastCmdSuccess= vTrue.
  27. % substs=[vHere=iArea1020, isSelf=xyzFn(iArea1020, 1, 3, 1), isSelfAgent=iExplorer5].
  28. ftText= mudContains(iExplorer5,[]).
  29. ftText= mudPossess(iExplorer5,[iBoots741,iCommBadge742,iRedUniform743,iFood_rez1]).
  30. ftText= mudStowing(iExplorer5,[iFood_rez1]).
  31. ftText= mudWielding(iExplorer5,[]).
  32. ftText= wearsClothing(iExplorer5,[iBoots741,iCommBadge742,iRedUniform743]).
  33. % found(mpred_rem_support2(mudLastCommand(iExplorer5, actProlog("prolog", "'", ".")),  (mudLastCommand(iExplorer5, actProlog("prolog")), pt(mudLastCommand(iExplorer5, actProlog("prolog")), rhs([\+mudLastCommand(iExplorer5, actProlog("prolog")), mudLastCommand(iExplorer5, actProlog("prolog", "'", "."))]))))).
  34. actNotice(you,done(you,actLook)).
  35. Agent = iExplorer5.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement