Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2019
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.00 KB | None | 0 0
  1. turtles-own [energy]
  2.  
  3. to setup
  4. clear-all
  5. setup-patches
  6. setup-turtles
  7. reset-ticks
  8. end
  9.  
  10. to setup-patches
  11. ask patches [ set pcolor green ]
  12. end
  13.  
  14. to setup-turtles
  15. create-turtles number [ setxy random-xcor random-ycor ]
  16. end
  17.  
  18. to go
  19. if ticks >= 500 [ stop ]
  20. move-turtles
  21. eat-grass
  22. check-death
  23. reproduce
  24. regrow-grass
  25. tick
  26. end
  27.  
  28. to reproduce
  29. ask turtles [
  30. if energy > birth-energy [
  31. set energy energy - birth-energy
  32. hatch 1 [ set energy birth-energy ]
  33. ]
  34. ]
  35. end
  36.  
  37. to check-death
  38. ask turtles [
  39. if energy <= 0 [ die ]
  40. ]
  41. end
  42.  
  43. to regrow-grass
  44. ask patches [
  45. if random 100 < 3 [ set pcolor green ]
  46. ]
  47. end
  48.  
  49. to eat-grass
  50. ask turtles [
  51. if pcolor = green [
  52. set pcolor black
  53. set energy (energy + energy-from-grass)
  54. ]
  55. ifelse show-energy?
  56. [ set label energy ]
  57. [ set label "" ]
  58. ]
  59. end
  60.  
  61. to move-turtles
  62. ask turtles [
  63. right random 360
  64. forward 1
  65. set energy energy - 1
  66. ]
  67. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement