global [ready3 start3]

to dance3
setready3 14 ;same as DJ
setstart3 15 ;same as DJ
loop [respond next-ir]
end

to respond :number
if (:number > 0) [
if (:number = ready3) [go-forth]	 
if (:number = start3) [macarena wait 10 go-back]
]
end

to go-forth 
ab, thisway onfor 20
end


to go-back
ab, thatway onfor 20
end

to macarena
repeat 2 [
repeat 3 [
repeat 3 [
arm onfor 2  
wait 1 
arm rd onfor 2
]
wait 1 wheel onfor 1 wait 1 rd onfor 1 wait 5
]

wheel onfor 7 wait 2
wheel rd onfor 1 rd onfor 1 wait 1
arm rd onfor 2
wait 8 
]
end



to arm
a, 
end

to wheel 
b,
end