bindings.kbl
· 162 B · Text
Ham
Playground
Remember :X as 3 ; and Remember :Y as 4 ;
Bind [ :X :Y ] in [
Square @X ; Square @Y ;
then Sqrt ; Add ; Show ; and Print
] ; finally Run the quotation ;
| 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 ; |
| 7 |
hello-world.kbl
· 680 B · Text
Ham
Playground
Actors [ :Helloer :Goodbyer :Worlder :Changer ] ;
Every :Tick :Helloer does [ Say "Hello, " ] ;
Every :Tick :Goodbyer does [ Say "Goodbye, " ] ;
Every :Tick :Worlder does [ Say "World!" ] ;
Every :Tick :Changer does [
Peek :CurrentScene ; Is :HelloWorld ; Then [
Become :GoodbyeWorld ; Done ;
] ;
Peek :CurrentScene ; Is :GoodbyeWorld ; Then [
Become :HelloWorld ; Done ;
] ;
] ;
Scenes [ :HelloWorld :GoodbyeWorld ] ;
When :HelloWorld :Started do [
Create Helloer ;
Create Worlder ;
Create Changer ;
] ;
When :GoodbyeWorld :Started do [
Create Goodbyer ;
Create Worlder ;
Create Changer ;
]
Enter HelloWorld ;
| 1 | Actors [ :Helloer :Goodbyer :Worlder :Changer ] ; |
| 2 | |
| 3 | Every :Tick :Helloer does [ Say "Hello, " ] ; |
| 4 | Every :Tick :Goodbyer does [ Say "Goodbye, " ] ; |
| 5 | Every :Tick :Worlder does [ Say "World!" ] ; |
| 6 | Every :Tick :Changer does [ |
| 7 | Peek :CurrentScene ; Is :HelloWorld ; Then [ |
| 8 | Become :GoodbyeWorld ; Done ; |
| 9 | ] ; |
| 10 | |
| 11 | Peek :CurrentScene ; Is :GoodbyeWorld ; Then [ |
| 12 | Become :HelloWorld ; Done ; |
| 13 | ] ; |
| 14 | ] ; |
| 15 | |
| 16 | Scenes [ :HelloWorld :GoodbyeWorld ] ; |
| 17 | |
| 18 | When :HelloWorld :Started do [ |
| 19 | Create Helloer ; |
| 20 | Create Worlder ; |
| 21 | Create Changer ; |
| 22 | ] ; |
| 23 | |
| 24 | When :GoodbyeWorld :Started do [ |
| 25 | Create Goodbyer ; |
| 26 | Create Worlder ; |
| 27 | Create Changer ; |
| 28 | ] |
| 29 | |
| 30 | Enter HelloWorld ; |
| 31 |