Second Draft

Second Draft preview image

1 collaborator

Default-person Mel Bph (Author)

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 5.3.1 • Viewed 95 times • Downloaded 13 times • Run 0 times
Download the 'Second Draft' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

breed [predators predator]
breed [shells shell]
predators-own [energy]
shells-own [health]

to setup
  clear-all
  setup-patches
  setup-turtles
  create-predators number [ set color orange set shape "fish" fd random 10]
  create-shells number [ set color white fd random 10]
  reset-ticks
end 

to setup-patches
  ask patches [ set pcolor blue ]
end 

to go
  if ticks >= 1000000 [ stop ]
  move-predators
  move-shells
  reproduce
  check-death
  ask predators [
    set energy energy - 1
    catch-shells
    reproduce
  ]
  ask shells [
    set health health - 1
    eat-grass
    reproduce
  ]
  tick
end 

to reproduce
  ask turtles [
    if energy > 10 [
      set energy energy - 5
      hatch 1 [ set energy 50 ]
    ]
  ]
end 

to check-death
  ask turtles [
    if energy <= 0 [ die ]
  ]
end 

to move-predators
  ask turtles [
    right random 360
    forward 1
    rt random 20
    lt random 20
    set energy energy - 1
  ]
  catch-shells
end 

to move-shells
   ask shells [
    right random 160
    forward 1
    rt random 20
    lt random 20
    set energy energy - 1
  ]
  ifelse pcolor = blue
  [ eat-grass ]
  [ get-zapped ]
end 

to setup-turtles
  create-turtles number[ setxy random-xcor random-ycor ]
  set-default-shape predators "fish"
  set-default-shape shells "dot"
  ask turtles [ setxy random-xcor random-ycor ]
end 

to eat-grass
  ask shells [
    if pcolor = blue [
      set pcolor green
      set energy energy + 10
    ]
  ]
   ask shells [
     if pcolor = green [
       get-zapped
     ]
  ifelse show-energy?
    [ set label energy ]
    [ set label "" ]
  ]
end 

to catch-shells
  let prey one-of shells-here
  if prey != nobody
    [ ask prey [ die ]
       set energy energy + 1000 ]
end 

to get-zapped
  set health health - 10
end 

There is only one version of this model, created about 8 years ago by Mel Bph.

Attached files

File Type Description Last updated
Second Draft.png preview Preview for 'Second Draft' about 8 years ago, by Mel Bph Download

This model does not have any ancestors.

This model does not have any descendants.