Ревізії hello-world.kbl

2 files changed, 13 insertions, 17 deletions

bindings.kbl(файл створено)

		@@ -0,0 +1,6 @@
1	+	Remember :X as 3 ; and Remember :Y as 4 ;
2	+
3	+	Bind [ :X :Y ] in [
4	+	Square @X ; Square @Y ;
5	+	then Sqrt ; Add ; Show ; and Print
6	+	] ; finally Run the quotation ;

hello-world.kbl

			@@ -1,26 +1,16 @@
1		-	Actors [ :Helloer :Goodbyer :Changer ] ;
2		-
3		-	Define SayRepeatedly [
4		-	Remember :Message ;
5		-	Bind [ :Message ] in [ Say @Message ; Again ; ] ;
6		-	]
7		-
8		-	Every :Tick :Helloer does SayRepeatedly "Hello, " ;
9		-	Every :Tick :Goodbyer does SayRepeatedly "Goodbye, " ;
10		-	Every :Tick :Worlder does SayRepeatedly "World!" ;
	1	+	Actors [ :Helloer :Goodbyer :Worlder :Changer ] ;
11	2
	3	+	Every :Tick :Helloer does [ Say "Hello, " ] ;
	4	+	Every :Tick :Goodbyer does [ Say "Goodbye, " ] ;
	5	+	Every :Tick :Worlder does [ Say "World!" ] ;
12	6		Every :Tick :Changer does [
13		-	Peek :CurrentScene ; Is HelloWorld ; Then [
	7	+	Peek :CurrentScene ; Is :HelloWorld ; Then [
14	8		Become :GoodbyeWorld ; Done ;
15	9		] ;
16	10
17		-	Peek :CurrentScene ; Is @goodbye-world ; Then [
18		-	Become :HelloWorld ;
19		-	Remember Current Helloer ;
20		-	Done ;
	11	+	Peek :CurrentScene ; Is :GoodbyeWorld ; Then [
	12	+	Become :HelloWorld ; Done ;
21	13		] ;
22		-
23		-	Again
24	14		] ;
25	15
26	16		Scenes [ :HelloWorld :GoodbyeWorld ] ;

1 file changed, 40 insertions

hello-world.kbl(файл створено)

		@@ -0,0 +1,40 @@
1	+	Actors [ :Helloer :Goodbyer :Changer ] ;
2	+
3	+	Define SayRepeatedly [
4	+	Remember :Message ;
5	+	Bind [ :Message ] in [ Say @Message ; Again ; ] ;
6	+	]
7	+
8	+	Every :Tick :Helloer does SayRepeatedly "Hello, " ;
9	+	Every :Tick :Goodbyer does SayRepeatedly "Goodbye, " ;
10	+	Every :Tick :Worlder does SayRepeatedly "World!" ;
11	+
12	+	Every :Tick :Changer does [
13	+	Peek :CurrentScene ; Is HelloWorld ; Then [
14	+	Become :GoodbyeWorld ; Done ;
15	+	] ;
16	+
17	+	Peek :CurrentScene ; Is @goodbye-world ; Then [
18	+	Become :HelloWorld ;
19	+	Remember Current Helloer ;
20	+	Done ;
21	+	] ;
22	+
23	+	Again
24	+	] ;
25	+
26	+	Scenes [ :HelloWorld :GoodbyeWorld ] ;
27	+
28	+	When :HelloWorld :Started do [
29	+	Create Helloer ;
30	+	Create Worlder ;
31	+	Create Changer ;
32	+	] ;
33	+
34	+	When :GoodbyeWorld :Started do [
35	+	Create Goodbyer ;
36	+	Create Worlder ;
37	+	Create Changer ;
38	+	]
39	+
40	+	Enter HelloWorld ;

Новіше Пізніше