moth/packages/tanks/examples/hard/foobar/program

16 lines
489 B
Plaintext

65 85 set-speed!
6 random 2 <= { 85 65 set-speed! } if
0 set-turret!
2 sensor? { 80 10 set-speed! get-turret 30 + set-turret! } if
3 sensor? { 10 80 set-speed! get-turret 30 - set-turret! } if
4 sensor? { 90 90 set-speed! } if
5 sensor? { 90 10 set-speed! get-turret 30 + set-turret! } if
6 sensor? { 10 90 set-speed! get-turret 30 - set-turret! } if
0 sensor? fire-ready? & { 90 90 set-speed! 0 set-turret! fire! } if
1 sensor? { -100 -100 set-speed! } if
fire-ready? set-led!