Extra Task

breed [taifs anjum]
globals [trapped? ]

to setup
  ca
  ;Reg number is 01-241171-029
  ; name Taif Ali
  create-taifs 29 [
  setxy random-xcor random-ycor
    set color green
    set size 15
  ]
 ask patches [
 set pcolor white
 ]
  reset-ticks
 setup-name
  go
end 

to setup-name
  ;code to Write T
  ask patches with [pxcor >= -138 and pxcor < -132 and pycor >= 15 and pycor < 90 ][set pcolor red]
  ask patches with [pxcor > -182 and pxcor < -90 and pycor >= 85 and pycor < 90 ][set pcolor red]

  ;code to Write A

  ask patches with [pxcor >= -110 and pxcor < -105 and pycor > 14 and pycor < 75 ][set pcolor red]
  ask patches with [pxcor >= -75 and pxcor < -70 and pycor > 14 and pycor < 75 ][set pcolor red]
  ask patches with [pxcor > -110 and pxcor < -75 and pycor >= 35 and pycor < 40 ][set pcolor red]
  ask patches with [pxcor > -110 and pxcor < -75 and pycor >= 69 and pycor < 75 ][set pcolor red]

  ;code to Write I
 ; ask patches with [pxcor > -60 and pxcor < -35 and pycor >= 69 and pycor < 75 ][set pcolor red]
  ask patches with [pxcor >= -50 and pxcor < -45 and pycor > 14 and pycor < 75 ][set pcolor red]
  ask patches with [pxcor > -53 and pxcor < -45 and pycor >= 85 and pycor < 95][set pcolor red]


  ;code to Write F

  ask patches with [pxcor >= -30 and pxcor < -25 and pycor >= 15 and pycor < 90 ][set pcolor red]
  ask patches with [pxcor > -30 and pxcor < -2 and pycor >= 85 and pycor < 90 ][set pcolor red]
  ask patches with [pxcor > -30 and pxcor < -2 and pycor >= 50 and pycor < 55 ][set pcolor red]
end 

to go
  ask patches [
    if pcolor = black
  [set pcolor white ]
  ]
  ask taifs [
    rt random 20
    lt random 20
    fd 2

   ask patches in-cone 10 29
    [
      if pcolor = white
    [ set pcolor black]
    ]
]
  ask taifs [

 let targ one-of patches with[pcolor = red]
 if targ != nobody [set heading towards targ fd 2]
  ]

tick
  ask taifs [ask patches in-cone 10 29  [
    if pcolor = red
    [set trapped? true ]


    ]
  ]


  ask taifs with [pcolor = white]
  [set trapped? false ]
end