capitalex ha revisionato questo gist 1 day ago. Vai alla revisione
2 files changed, 13 insertions, 17 deletions
bindings.kbl(file creato)
| @@ -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 ] ; | |
capitalex ha revisionato questo gist 1 day ago. Vai alla revisione
1 file changed, 40 insertions
hello-world.kbl(file creato)
| @@ -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 ; | |