From 1ad50ce4e6ed74c8eeb89a1f2780e6ed58a72b2b Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Wed, 25 Feb 2009 01:21:50 +0000
Subject: (svn r15578) -Change: unexternalise squirrel.

---
 src/3rdparty/squirrel/samples/flow.nut | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/3rdparty/squirrel/samples/flow.nut

(limited to 'src/3rdparty/squirrel/samples/flow.nut')

diff --git a/src/3rdparty/squirrel/samples/flow.nut b/src/3rdparty/squirrel/samples/flow.nut
new file mode 100644
index 000000000..1cd7cfcf4
--- /dev/null
+++ b/src/3rdparty/squirrel/samples/flow.nut
@@ -0,0 +1,33 @@
+function min(x,y)
+	return x<y?x:y;
+
+function max(x,y)
+	return x>y?x:y;
+
+if(min(100,200)>max(50,20))
+	print("I'm useless statement just to show up the if/else\n");
+else
+	print("squirrel!!\n");
+
+print("\n")
+
+function typy(obj)
+{
+	switch(typeof obj)
+	{
+		case "integer":
+		case "float":
+			return "is a number";
+		case "table":
+		case "array":
+			return "is a container";
+		default:
+			return "is other stuff"
+	}
+}
+
+local a=1,b={},c=function(a,b){return a+b;}
+
+print("a "+typy(a)+"\n");
+print("b "+typy(b)+"\n");
+print("c "+typy(c)+"\n");
-- 
cgit v1.2.3-54-g00ecf