turtles-own
[point]
to setup-trap
stamp-at 30 40 red
stamp-at -30 40 blue
stamp-at -40 40 green
stamp-at 40 -40 violet
end
to play-trap
setpoint random 4
case point [
0 [seth (towards-nowrap 10
40)
fd .5 * (distance-nowrap 10
40) stamp white]
1 [seth (towards-nowrap -10
40)
fd .5 * (distance-nowrap -10
40) stamp white]
2 [seth (towards-nowrap -40
-40)
fd .5 * (distance-nowrap -40
-40) stamp white]
3 [seth (towards-nowrap 40
40)
fd .5 * (distance-nowrap 40
40) stamp white]]
end
to setup-eq
stamp-at 30 20 red
stamp-at -30 20 blue
stamp-at 0 -36 green
end
to play-eq
setpoint random 3
case point [
0 [seth (towards-nowrap 30
20)
fd .5 * (distance-nowrap 30
20) stamp white]
1 [seth (towards-nowrap -30
20)
fd .5 * (distance-nowrap -30
20) stamp white]
2 [seth (towards-nowrap 0 -36)
fd .5 * (distance-nowrap 0
-36) stamp white]]
end
to setup-right
stamp-at 30 45 red
stamp-at -20 45 blue
stamp-at -20 -45 green
end
to play-right
setpoint random 3
case point [
0 [seth (towards-nowrap 30
45)
fd .5 * (distance-nowrap 30
45) stamp white]
1 [seth (towards-nowrap -20
45)
fd .5 * (distance-nowrap -20
45) stamp white]
2 [seth (towards-nowrap -20
-45)
fd .5 * (distance-nowrap -20
-45) stamp white]]
end
|