Added 'life' demo

Author: graham-trott

resources/ecs/main.ecs

@@ -30,6 +30,7 @@
 	module AboutModule
 	module PhilosophyModule
 	module ContactModule
+	module LifeModule
 	module CurrentModule
 	variable Script
 	variable ButtonStyle
@@ -58,6 +59,7 @@
 			set style `display` of Body to `block`
 			send `resume` to CurrentModule
 		end
+		else if Message is `life` go to ShowLife
 	end
 
 BuildPage:
@@ -109,6 +111,8 @@ BuildPage:
 	run Script with ShowdownModule as PhilosophyModule
 	rest get Script from `/resources/ecs/contact.ecs`
 	run Script with ShowdownModule as ContactModule
+	rest get Script from `/resources/ecs/life.ecs`
+	run Script with ShowdownModule as LifeModule
 
 	alias CurrentModule to HomeModule
 	send to HomeModule
@@ -249,11 +253,17 @@ RunCodex:
 	run Script
     stop
 
+ShowLife:
+    gosub to DeselectAllButtons
+    send `pause` to CurrentModule
+    alias CurrentModule to LifeModule
+    send to LifeModule
+    stop
 
 DeselectAllButtons:
 	set style `background` of HomeButton to ``
     set style `background` of IntroButton to ``
     set style `background` of ExamplesButton to ``
     set style `background` of AboutButton to ``
     set style `background` of PhilosophyButton to ``
-    return
+    return