breed [monsters monster]
breed [fish a-fish]
to setup
clear-all
set-default-shape monsters "monster"
set-default-shape fish "fish"
ask patches with [pxcor = 0][
ifelse random 2 = 0
[sprout-monsters 1]
[sprout-fish 1]
]
ask turtles[
set heading 90
]
reset-ticks
end
to move-monsters
ask monsters[fd 1]
tick
end
to move-fish
ask fish[fd 1]
tick
end
注意:在运行代码前需要在“海龟形状编辑器”中从库导入怪兽形状的海龟