tug-of-war

breed [ skins skin ]
breed [ shirts shirt ]

to setup
  clear-all
  create-skins skins-team [
    set shape "left-tugger"
    set color red
    set size skins-strength
    setxy  ( random  ( min-pxcor + 2 ) - 2 ) 0
  ]
  create-shirts shirts-team [
    set shape "right-tugger"
    set color blue
    set size shirts-strength
    setxy ( random ( max-pxcor - 2 ) + 2 ) 0
  ]
  draw-rope
  reset-ticks
end 

to draw-rope
  ask skins [ create-link-to one-of shirts ]
  ask shirts [ create-link-to one-of skins ]
  ask links [ set color white ]
end 

to go
end