Advertisement
logicmoo

Untitled

Jun 14th, 2018
357
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 3.34 KB | None | 0 0
  1. Hello session main!
  2. % found(mpred_rem_support2(mudHealth(iExplorer5, 90),  (tAgent(iExplorer5), pt(tAgent(iExplorer5), rhs([predInstMax(iExplorer5, mudHealth, 500), predInstMax(iExplorer5, mudEnergy, 200), mudHealth(iExplorer5, 90), mudFacing(iExplorer5, vNorth), mudAgentTurnnum(iExplorer5, 0), mudScore(iExplorer5, 1)]))))).
  3. % found(mpred_rem_support2(mudHealth(iExplorer5, 90),  (\+ ~mudHealth(iExplorer5, 90), nt(~mudHealth(iExplorer5, 90), call_u_no_bc(~mudHealth(iExplorer5, 90)), rhs([mudHealth(iExplorer5, 90)]))))).
  4.  
  5. Welcome to the MUD iExplorer5!
  6.  
  7. The stream <stream>(0x7479e0)!
  8.  
  9. % substs=[vHere=iArea1020, isSelf=xyzFn(iArea1020, 1, 3, 1), isSelfAgent=iExplorer5].
  10. this is blinking red!
  11.  [] [] [] [] [] [] []
  12.  [] -- -- -- -- -- []
  13.     -- -- -- -- -- []
  14.     xp -- -- -- -- []
  15.     -- -- -- -- -- []
  16.  [] -- -- -- -- -- []
  17.  [] [] [] [] [] [] []
  18. text= nameStringsList(iArea1020,[s("Enterprise","Security")]).
  19. s(Enterprise,Security)
  20. s(You,'re,standing,in,the,dimly,lit,Enterprise,Security)
  21. 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)
  22. s(Three,long,tables,surrounded,by,chairs,stretch,across,the,room)
  23. path(vWest)= iArea1019.
  24. pathName(vWest)= s("A","corridor","is","West").
  25. text= localityOfObject(iExplorer5,iArea1020).
  26. selfAgent= iExplorer5.
  27. text= mudAtLoc(iExplorer5,xyzFn(iArea1020,1,3,1)).
  28. text= mudFacing(iExplorer5,vNorth).
  29. text= mudStance(iExplorer5,vStand).
  30. text= mudMoveDist(iExplorer5,1).
  31. mudLastCmdSuccess= vTrue.
  32. % substs=[vHere=iArea1020, isSelf=xyzFn(iArea1020, 1, 3, 1), isSelfAgent=iExplorer5].
  33. ftText= mudContains(iExplorer5,[]).
  34. ftText= mudPossess(iExplorer5,[iBoots741,iCommBadge742,iRedUniform743,iFood_rez1]).
  35. ftText= mudStowing(iExplorer5,[iFood_rez1]).
  36. ftText= mudWielding(iExplorer5,[]).
  37. ftText= wearsClothing(iExplorer5,[iBoots741,iCommBadge742,iRedUniform743]).
  38. % found(mpred_rem_support2(mudNeedsLook(iExplorer5, vTrue),  ((mudAtLoc(iExplorer5, xyzFn(iArea1020, 2, 2, 1)), pt(mudAtLoc(iExplorer5, xyzFn(iArea1020, 2, 2, 1)), rhs([{ain(mudNeedsLook(iExplorer5, vTrue))}]))), (inRegion(iExplorer5, iArea1020), pt(inRegion(iExplorer5, _46372),  (\+tPathway(iExplorer5), \+lookup_u(mudAtLoc(iExplorer5, xyzFn(_46372, _46404, _46406, _46408)))*->in_grid_rnd(_46372, _46420)*->rhs([mudAtLoc(iExplorer5, _46420)])))), (spatialInRegion(iExplorer5), pt(spatialInRegion(iExplorer5), pt(inRegion(iExplorer5, iArea1020),  (\+tPathway(iExplorer5), \+lookup_u(mudAtLoc(iExplorer5, xyzFn(iArea1020, _46492, _46494, _46496)))*->in_grid_rnd(iArea1020, xyzFn(iArea1020, 2, 2, 1))*->rhs([mudAtLoc(iExplorer5, xyzFn(iArea1020, 2, 2, 1))]))))), (inRegion(iExplorer5, iArea1020), pt(inRegion(iExplorer5, iArea1020), rhs([{ain((spatialInRegion(iExplorer5), tRegion(iArea1020)))}]))), (localityOfObject(iExplorer5, iArea1020), pt(localityOfObject(iExplorer5, iArea1020),  (tRegion(iArea1020)*->rhs([inRegion(iExplorer5, iArea1020)])))), mfl(baseKB, '/home/prologmud_server/src_game_startrek/startrek.all.pfc.pl', 346)))).
  39. iExplorer5 [iExplorer5,wants,to]>prolog prolog
  40. % parse_agent_text_command(iExplorer5, "prolog", ["prolog"], _29990, _29992).
  41. % succeed_parse_agent_text_command_0(iExplorer5,"prolog",["prolog"],iExplorer5,actProlog("prolog"))
  42. actNotice(you,begin(you,actProlog("prolog"))).
  43. % Break level 1
  44. baseKB: [1]  ?-
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement