Function drawpixel(img:TImage, x:Byte, y:Byte, r:Byte, g:Byte, b:Byte, a:Byte = 255)
   pixmap = LockImage(img)
   WritePixel pixmap, x, y, a*$1000000 + r*$10000 + g*$100 + b
   pixmap = Null
   UnlockImage(img)
   GCCollect()
End Function

   Method roots()
      If time.timer(3, 100) = 1
         For Local seed:TFlora = EachIn seedL
            If Not seed.cells = 0
               For Local cell:TFlora = EachIn seed.cells
                  Local wmax:Byte
                  Local ex:Byte = False
                  
                  For Local nx:Int =-1 To 1
                     For Local ny:Int = -1 To 1
                        If nx = 0 And ny = 0
                           Exit
                        End If
                        
                        If map.wlvl[seed.x+nx, seed.y+ny] > wmax
                           wmax = map.wlvl[seed.x+nx, seed.y+ny]
                        End If   
                     Next
                  Next
                  
                  For Local nx:Int =-1 To 1
                     For Local ny:Int = -1 To 1
                        If nx = 0 And ny = 0
                           Exit
                        End If
                        
                        If map.wlvl[seed.x+nx, seed.y+ny] = wmax
                           Local ncell:TFlora = New TFlora
                           ncell.x = cell.x+nx
                           ncell.y = cell.y+ny
                           cell.typ = 1
                           ListAddLast seed.cells, ncell
                           drawpixel(flora.plants, ncell.x, ncell.y, 200, 180, 170)
                           ex = True
                        End If
                        If ex = True  Exit
                     Next
                     If ex = True  Exit
                  Next
               Next
            End If
         Next
      End If
   End Method