#!../bin/jacl

string fred "frederic"
string mary "frederic"

{+intro
set player = myself
execute +look_around
ifstring fred = mary
   write "match"
else
   write "no match"
endif
write "for " fred " and " mary ".^"
}

grammar give *present *held >give_to_rev

{+give_to_rev
write "You give " noun2{the} " to the " noun1{the} ".^"
}

location cave

{look
print:
   You are in a small cave
   with a smooth stone floor.^
.
}

object man
 
object glue
mass 5

object diamond : large diamond
   short		a "large diamond"
   long			"There is a large diamond on the ground.^"
   mass			5
   parent		chest

{take_override
if @ = 1
   print:
      You lift the diamond out of the chest and
      marvel at its beauty.^
   .
   points 10
else
   return false
endif
}

object chest : wooden chest
   short		a "wooden chest"
   long			"There is a wooden chest nearby.^"
   has			CONTAINER LOCKABLE LOCKED CLOSABLE CLOSED
   capacity		20
   mass			10

{unlock_with_key_override
ensure chest hasnt LOCKED
write "The key fits neatly into the lock and turns. Click!^"
}

object key : brass key
  short		a "brass key"
  long		"There is a brass key here.^"
  mass		1

object myself
   capacity		40

#include "verbs.library"