chiark / gitweb /
Merge branches 'mdw/kwargs-fixes' and 'mdw/c11-fixes'
[sod] / test / chimaera.sod
index 644bb7400f127e818dc6eba6f8cdee321005bdaf..0723ae1e508e49aa273c18772f1a0f229000ac5f 100644 (file)
@@ -31,16 +31,21 @@ class Goat : Animal {
 }
 
 class Serpent : Animal {
+  int limit = 2;
+
   void hiss() { puts("Sssss!"); }
   void bite() { puts("Nom!"); }
   void nml.tickle() {
-    if (SERPENT__CONV_NML(me)->nml.tickles <= 2) Serpent_hiss(me);
-    else Serpent_bite(me);
+    if (SERPENT__CONV_NML(me)->nml.tickles <= me->serpent.limit)
+      Serpent_hiss(me);
+    else
+      Serpent_bite(me);
   }
 }
 
 [nick = sir, link = Animal]
 class Chimaera : Lion, Goat, Serpent {
+  serpent.limit = 1;
 }
 
 code c : user {