Marties

% floyd @ somewhere: about to: examine(table)
Time passes.
[8: player1] ==> memory
memory(player1)
[ todo([]),
  [time_passes],
  model([ related(exit(north),garden,'<unexplored>',2),
          related(in,screendoor,garden,2),
          related(in,mushroom,garden,2),
          related(in,rock,garden,2),
          related(in,player1,garden,2),
          related(exit(south),kitchen,garden,2),
          related(exit(west),kitchen,'<unexplored>',1),
          related(exit(east),kitchen,'<unexplored>',1),
          related(exit(north),kitchen,'<unexplored>',1),
          related(in,table,kitchen,1)
        ]),
  timestamp(8),
  did(wait),
  [time_passes],
  timestamp(7),
  did(wait),
  [time_passes],
  timestamp(6),
  did(wait),
  [time_passes],
  timestamp(5),
  did(wait),
  [time_passes],
  timestamp(4),
  did(wait),
  [failure(go(*,south)),'You can\'t go that way'],
  timestamp(3),
  did(go(*,south)),
  [ moved(player1,kitchen,in,garden),
    [cap(subj(player1)),person(go,goes),south]
  ],
  [ see(you_are(in,garden),
        exits_are([north]),
        here_are([player1,rock,mushroom,screendoor]))
  ],
  timestamp(2),
  did(go(*,south)),
  [ see(you_are(in,kitchen),
        exits_are([north,south,east,west]),
        here_are([player1,table,screendoor]))
  ],
  timestamp(1),
  timestamp(0),
  goals([]),
  agent(player1),
  inherit(console)
]

% floyd: see_props(table,[relatable(on),relatable(under)])

% floyd @ somewhere: about to: examine(screendoor)
[9: player1] ==>

% floyd: see_props(screendoor,[can_be(move,f),door_to(garden),state(open,f)])
Time passes.
[10: player1] ==> memory floyd
[ did(go(*,west)),
  todo([]),
  goals([]),
  [ see_props(screendoor,
              [can_be(move,f),door_to(garden),state(open,f)])
  ],
  [see_children(screendoor,'<unrelatable>',[])],
  model([ props(screendoor,
                [can_be(move,f),door_to(garden),state(open,f)],
                9),
          related(on,box,table,8),
          related(on,lamp,table,8),
          props(table,[relatable(on),relatable(under)],8),
          related(exit(west),kitchen,'<unexplored>',7),
          related(exit(east),kitchen,'<unexplored>',7),
          related(exit(south),kitchen,'<unexplored>',7),
          related(exit(north),kitchen,'<unexplored>',7),
          related(in,screendoor,kitchen,7),
          related(in,table,kitchen,7),
          related(in,floyd,kitchen,7),
          related(exit(south),pantry,kitchen,7),
          related(exit(down),pantry,basement,6),
          related(in,shelf,pantry,6),
          related(exit(up),basement,pantry,6),
          props(shovel,[],5),
          related(in,shovel,basement,4),
          props(shelf,[relatable(on),can_be(move,f)],3),
          related(held_by,wrench,floyd,2),
          props(floyd,
                [ name('Floyd the robot'),
                  inherit(floyd_ish),
                  inherit(instance),
                  inherit(character),
                  inherit(autonomous),
                  emits(light),
                  volume(50),
                  mass(200),
                  nouns(robot),
                  adjs(metallic),
                  desc('Your classic robot: metallic with glowing red eyes, enthusiastic but not very clever.'),
                  can_be(switch,t),
                  state(powered,t),
                  effect(switch(on),setprop($self,state(powered,t))),
                  effect(switch(off),setprop($self,state(powered,f))),
                  relatable(held_by),
                  relatable(worn_by),
                  volume(50),
                  mass(50),
                  can(eat)
                ],
                2)
        ]),
  timestamp(9),
  did(examine(screendoor)),
  [see_props(table,[relatable(on),relatable(under)])],
  [see_children(table,on,[lamp,box])],
  timestamp(8),
  did(examine(table)),
  [ moved(floyd,pantry,in,kitchen),
    [cap(subj(floyd)),person(go,goes),south]
  ],
  [ see(you_are(in,kitchen),
        exits_are([north,south,east,west]),
        here_are([floyd,table,screendoor]))
  ],
  timestamp(7),
  did(go(*,south)),
  [ moved(floyd,basement,in,pantry),
    [cap(subj(floyd)),person(go,goes),up]
  ],
  [ see(you_are(in,pantry),
        exits_are([south,down]),
        here_are([floyd,shelf]))
  ],
  timestamp(6),
  did(go(*,up)),
  [see_props(shovel,[])],
  [see_children(shovel,'<unrelatable>',[])],
  timestamp(5),
  did(examine(shovel)),
  [ moved(floyd,pantry,in,basement),
    [cap(subj(floyd)),person(go,goes),down]
  ],
  [see(you_are(in,basement),exits_are([up]),here_are([floyd,shovel]))],
  timestamp(4),
  did(go(*,down)),
  [see_props(shelf,[relatable(on),can_be(move,f)])],
  [see_children(shelf,on,[])],
  timestamp(3),
  did(examine(shelf)),
  [ see_props(floyd,
              [ name('Floyd the robot'),
                inherit(floyd_ish),
                inherit(instance),
                inherit(character),
                inherit(autonomous),
                emits(light),
                volume(50),
                mass(200),
                nouns(robot),
                adjs(metallic),
                desc('Your classic robot: metallic with glowing red eyes, enthusiastic but not very clever.'),
                can_be(switch,t),
                state(powered,t),
                effect(switch(on),setprop($self,state(powered,t))),
                effect(switch(off),setprop($self,state(powered,f))),
                relatable(held_by),
                relatable(worn_by),
                volume(50),
                mass(50),
                can(eat)
              ])
  ],
  [see_children(floyd,held_by,[wrench])],
  timestamp(2),
  did(examine(floyd)),
  [ see(you_are(in,pantry),
        exits_are([south,down]),
        here_are([floyd,shelf]))
  ],
  timestamp(1),
  timestamp(0),
  agent(floyd),
  inherit(autonomous)
]

% floyd @ somewhere: about to: examine(videocamera)
[11: player1] ==>

% floyd: see_props(videocamera,[inherit(recorder),can_be(switch,t),effect(switch(on),setprop($self,on)),effect(switch(off),delprop($self,on)                                 ),fragile(broken_videocam)])
Time passes.