1 files changed, 40 insertions, 0 deletions
diff --git a/resources.tcl b/resources.tcl
new file mode 100644
index 0000000..de0a730
--- /dev/null
+++ b/resources.tcl
@@ -0,0 +1,40 @@
+oo::class create food {
+  method title {} {
+    my variable name
+    return $name
+  }
+
+  method value {} {
+    my variable satiation
+    return $satiation
+  }
+  
+  method eat {} {
+    my variable consumption
+    puts $consumption
+  }
+}
+
+oo::class create water {
+  superclass food
+
+  constructor {} {
+    my variable satiation consumption name
+    set satiation 5
+    set name water
+    set consumption "You enjoy some fresh water."
+    puts "You gather some clean water from the nearby river."
+  }
+}
+
+oo::class create apples {
+  superclass food
+
+  constructor {} {
+    my variable satiation consumption name
+    set satiation [expr int(rand() * 5) + 8]
+    set name apples
+    set consumption "You enjoy a crisp, red apple."
+    puts "You gather some ripe apples from the forest."
+  }
+}