clay

Artifact f796ffbc46765a63ba3bcce29e0a4e066493c702ea8a022395eea2002e8900aa:

• File example/gilgamesh/class/prop.tcl — part of check-in [a60cc6589b] at 2018-10-09 10:16:39 on branch trunk — Refactored the clay-stage system to include mutexes and other thread safety features. Added a demonstration browser game called "gilgamesh". (user: hypnotoad size: 565)

clay::define ::stage::prop {

}

clay::define ::stage::item {

  INTERACT TAKE {
    set description [my state get description]
    dict set reply code ok
    dict set reply object [my uuid]
    if {[my state location]}
    if {$description ne {}} {
      dict set reply content $description
      return $reply
    }
    set name [my state get name]
    if {$name ne {}} {
      dict set reply content $name
      return $reply
    }
    dict set reply content [my uuid]
    return $reply
  }

}

clay::define ::stage::item.treasure {
  superclass ::stage::item
}