Tamagotchi emulator: Difference between revisions

Content added Content deleted

Inline

@@ Line 13: / Line 13: @@
 But, above of all, have fun!
+=={{header|Common Lisp}}==
 DRAFT
@@ Line 21: / Line 21: @@
 <pre>while alive do
-case event of
+  case event of
-  feed : need (feed -3)
+    feed : need (feed -3)
-  wash : need (wash -9)
+    wash : need (wash -9)
-  play : need (play -5)
+    play : need (play -5)
-  cure : sick = no
+    cure : sick = no
-when new turn do
+  when new turn do
-  condition
+    condition
-    age > 77 : rip
+      age > 77 : rip
-    sick w/ pr = 0.33 : rip
+      sick w/ pr = 0.33 : rip
-    feed + wash + play > 24 w/ pr = 0.5 : sick = yes
+      feed + wash + play > 24 w/ pr = 0.5 : sick = yes
-  need (feed +9)
+    need (feed +9)
-  need (wash +5)
+    need (wash +5)
-  need (play +3)
+    need (play +3)
 need : action, delta -> action + delta + random (2)</pre>