趣味としての人工生命づくり第４回〜ハチの幼虫集め〜

to setup　;;setupが実行されたとき
 clear-all　;;すべて消す
 crt 100　;;タートルを１００匹つくる
end ;;おわり

to go　;;goが実行されたとき
ask turtles ;;タートルたちに対して[ ]内の命令を送る
 [
   rt random 360 ;;リターンタートルの略　デタラメに角度を変える
   fd 1　;;一歩進む
 ]
end

breed [bees bee]　;;ハチとして種族beeと複数形のbeesを定義する。
breed [eggs egg]　;;幼虫として種族eggと複数形のeggsを定義する。
breed [eggs-up egg-up]　;;持ち上げられた幼虫として種族eggs-upと複数形のegg-upを定義する。

bees-own　;;bees(ハチ）の変数としてmotteru?を定義する。
[
motteru?
]

to setup
clear-all
create-bees 10　;;[]の初期状態でハチを2０匹つくる
[
  set shape "bug"　;;形を虫に
  set xcor random-xcor　;;x座標をデタラメに
  set ycor random-ycor　;;y座標をデタラメに
  set motteru? false ;;motteru?を偽に
]
  create-eggs 100　;;[]の初期状態で幼虫を300匹つくる
[
  set shape "dot" ;;形を点に
  set color yellow ;;色を黄色に
  set xcor random-xcor　;;x座標をデタラメに
  set ycor random-ycor　;;y座標をデタラメに

]
end

to go
ask bees
[
  rt random 360
  fd 1
  if any? eggs-here and not motteru? 　;;自分の場所に幼虫があって自分が幼虫を持っていない時
  [
    create-links-with eggs-here　[ tie ]　;;幼虫と自分をリンクで結びつけて一緒に動かす
    ask eggs-here ;;自分の場所にいる幼虫に対して
    [
    set breed eggs-up　;;持ち上げられた幼虫に種族を変える
    set shape "dot"　;;形を点にする
    set color red　;;色を赤にする
    ]
    set motteru? true　;;motteru?を真にする
    rt random 360　
    fd 1
  ]
  if any? eggs-on neighbors and motteru? ;;ハチの隣に幼虫があって幼虫を持っている時
  [
    set motteru? false　;;motteru?を偽に
    ask my-links　;;幼虫とのリンクに対して
    [
      ask end2　;;繋がっている幼虫に対して
      [
      set breed eggs　;;種族をeggsにする
      set shape "dot"　;;形を点にする
      set color yellow　;;色を黄色にする
      ]
      die　;;幼虫とのリンクを消す
    ]
    rt random 360
    fd 20
  ]
]

end