---droga_z_przeszkodami.nlogo

NETLOGO

breeds [drogowiec robot]


to setup
  clear-all
  ask patches [set pcolor green]

end ;-----------------------------------------------------



to buduj_droge
  create-drogowiec 1
  ask drogowiec
    [
     setxy  0 0
     set color black
     pen-down
     repeat 40 
       [
        forward 5
        left (30 - random 70)
       ]
      die 
    ]  
end ;-----------------------------------------------------



to dodaj_przeszkode
  create-drogowiec 1
  ask drogowiec
    [
     setxy  random screen-size-x random screen-size-y 
     set color red
     pen-down
     left random 360
     forward 15
     left 90
     forward 0.5
     left 90
     forward 15
     left 90
     forward 0.5
     die 
    ]  


end ;-----------------------------------------------------
@#$#@#$#@
GRAPHICS-WINDOW
321
10
725
414
50
50
4.0
1
10
0
0

CC-WINDOW
318
428
633
548
Command Center

BUTTON
22
21
103
54
NIL
setup
NIL
1
T
OBSERVER

BUTTON
21
69
133
102
NIL
buduj_droge
NIL
1
T
OBSERVER

BUTTON
23
131
170
164
NIL
dodaj_przeszkode
NIL
1
T
OBSERVER

@#$#@#$#@
add model documentation here
@#$#@#$#@
default
true
0
Polygon -7566196 true true 150 5 40 250 150 205 260 250

arrow
true
0
Polygon -7566196 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150

turtle
true
0
Polygon -7566196 true true 138 75 162 75 165 105 225 105 225 142 195 135 195 187 225 195 225 225 195 217 195 202 105 202 105 217 75 225 75 195 105 187 105 135 75 142 75 105 135 105

person
false
0
Circle -7566196 true true 155 20 63
Rectangle -7566196 true true 158 79 217 164
Polygon -7566196 true true 158 81 110 129 131 143 158 109 165 110
Polygon -7566196 true true 216 83 267 123 248 143 215 107
Polygon -7566196 true true 167 163 145 234 183 234 183 163
Polygon -7566196 true true 195 163 195 233 227 233 206 159

circle
false
0
Circle -7566196 true true 35 35 230

ant
true
0
Polygon -7566196 true true 136 61 129 46 144 30 119 45 124 60 114 82 97 37 132 10 93 36 111 84 127 105 172 105 189 84 208 35 171 11 202 35 204 37 186 82 177 60 180 44 159 32 170 44 165 60
Polygon -7566196 true true 150 95 135 103 139 117 125 149 137 180 135 196 150 204 166 195 161 180 174 150 158 116 164 102
Polygon -7566196 true true 149 186 128 197 114 232 134 270 149 282 166 270 185 232 171 195 149 186 149 186
Polygon -7566196 true true 225 66 230 107 159 122 161 127 234 111 236 106
Polygon -7566196 true true 78 58 99 116 139 123 137 128 95 119
Polygon -7566196 true true 48 103 90 147 129 147 130 151 86 151
Polygon -7566196 true true 65 224 92 171 134 160 135 164 95 175
Polygon -7566196 true true 235 222 210 170 163 162 161 166 208 174
Polygon -7566196 true true 249 107 211 147 168 147 168 150 213 150
Polygon -7566196 true true 270 14
Polygon -7566196 true true 276 21

@#$#@#$#@
NetLogo 1.1 (Rev D)
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@