; dance1

global [ready1 start1 here go]

; load dance1
to dance1
setready1 10 ;same as DJ
setstart1 11 ;same as DJ
sethere 60
setgo 50
loop [
respond next-ir]
end

to respond :number
if (:number > 0) [
if (:number = ready1) [go-forth]	 ; change to ready1 
if (:number = start1) [wait 2 strauss wait 10 go-back] ; change to start1
]
end

to go-forth 
ab, thisway
ab, onfor 30 wait 1
 b, rd	; Right
;a, rd ; Left
ab, onfor 13
 ab, thisway ; Right
;ab, thatway ; Left
end


to go-back
ab, thisway
a, rd ; Right
; b, rd ; Left
ab, onfor 11
ab, thatway onfor 30
ab, thisway ; Right
;ab, thatway ; Left
end

;synch-barrier
;won't proceed until HB send "go" infrare

to cr-synch
send here
waituntil [ir = go]
end


to strauss
repeat 6 [
repeat 4 [ab, onfor 2 wait 1]
onfor 6 wait 1
repeat 2 [a, rd ab, onfor 3 ab, rd onfor 3 wait 3 a, rd]
ab, rd
] 
repeat 4 [onfor 2 wait 1] 
repeat 2 [
onfor 8 wait 1
repeat 2 [rd onfor 2 wait 1]
rd
]
repeat 2 [onfor 5 wait 2 ab, rd onfor 1 wait 2]
onfor 3 wait 1
repeat 2 [rd onfor 1]
end