version 2.01
platform ollo
o // param_text:Title : 2nd Clapping seal
o // param_text:First Distribution : 2009/10/01
o // param_text:Last Modify : 2009/10/01
o // param_text:[Operating]
o // param_text:Robot will move according to the sensor value. 
o main
o begin
o // param_text:It will play melody when it starts. 
o load param_dest:cm:55 param_src:buzzertime_num:255
o load param_dest:cm:54 param_src:melody_num:3
o wait param_src:cm:55 lop:> param_src:buzzertime_num:0 rop:then
- 
o // param_text:It will spread out its arms wide. 
o load param_dest:aux_motor:1 param_src:dir_num:1824
o load param_dest:aux_motor:2 param_src:dir_num:1824
o load param_dest:cm:33 param_src:timer_num:2
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:then
o load param_dest:aux_motor:1 param_src:dir_num:0
o load param_dest:aux_motor:2 param_src:dir_num:0
- 
o // param_text:The sound detection count will be initialized. 
o load param_dest:cm:33 param_src:timer_num:12
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:then
o load param_dest:cm:56 param_src:dec_num:0
- 
o while(1)
o begin
o if param_src:cm:56 lop:> param_src:dec_num:0 rop:then
o begin
o load param_dest:var:LoopCount param_src:cm:56
o for param_var:n param_src:dec_num:1 param_src:var:LoopCount
o begin
o // param_text:It will play melodies whenever one claps. 
o load param_dest:cm:55 param_src:buzzertime_num:255
o load param_dest:cm:54 param_src:melody_num:13
- 
o // param_text:It will clap. 
o load param_dest:aux_motor:1 param_src:dir_num:800
o load param_dest:aux_motor:2 param_src:dir_num:800
o load param_dest:cm:33 param_src:timer_num:2
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:then
o load param_dest:aux_motor:1 param_src:dir_num:1824
o load param_dest:aux_motor:2 param_src:dir_num:1824
o load param_dest:cm:33 param_src:timer_num:2
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:then
o load param_dest:aux_motor:1 param_src:dir_num:0
o load param_dest:aux_motor:2 param_src:dir_num:0
- 
o // param_text:It will wait until the melody ends. 
o load param_dest:cm:33 param_src:timer_num:2
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:|| param_src:cm:55 lop:> param_src:buzzertime_num:0 rop:then
o end
- 
o // param_text:The sound detection count will be initialized. 
o load param_dest:cm:33 param_src:timer_num:12
o wait param_src:cm:33 lop:> param_src:timer_num:0 rop:then
o load param_dest:cm:56 param_src:dec_num:0
o end
o end
o end
 ú