Stuff

sub fillTiles
	set %ftEnd %gridsize / 2
	if %ftEnd > %maxTileDist
		set %ftEnd %maxTileDist
	for %ftCTile 1 %ftEnd
	{
		set %ftScanLen %ftCTile * 2 - 1
		set %ftSides 4
		if %ftCTile = %ftEnd && %gridsize % 2 = 0
			set %ftSides 2
		for %ftSide 1 %ftSides
		{
			if %ftSide in 14
				set %ftOperator -
			if %ftSide in 23
				set %ftOperator +
			if %ftSide in 13
			{
				set %ftDirection x
				set %ftStartY %ftCTile
				if %ftSide = 1
					set %ftStartY %ftStartY * -1
			}
			if %ftSide in 24
			{
				set %ftDirection y
				set %ftStartX %ftCTile
				if %ftSide = 2
					set %ftStartX %ftStartX * -1
			}
			set %ftStart . %ftDirection ( %ftCTile - 1 ) * ( %ftOperator , 1 ) * -1
			set %ftCurrX %ftStartX
			set %ftCurrY %ftStartY
			for %ftScanI 0 %ftScanLen
			{
				if %cpos <> #charposx , _ , #charposy
					return
				onHotKey f11
				{
					return
				}
				set %ftCurr . %ftDirection %ftStart . %ftDirection %ftOperator %ftScanI
				set %ftDrawX ( ( ( ( %gridsize / 2 ) + 1 ) * %gridincrement ) - ( %gridincrement / 2 ) ) + ( %ftCurrX * %gridincrement )
				set %ftDrawY ( ( ( ( %gridsize / 2 ) + 1 ) * %gridincrement ) - ( %gridincrement / 2 ) ) + ( %ftCurrY * %gridincrement )
				set %ftTileX #charposx + %ftCurrX
				set %ftTileY #charposy + %ftCurrY
				tile get %ftTileX %ftTileY 1 #curskind
				gosub colorcheck
				menu image floodfill map %ftDrawX %ftDrawY %color
			}
		}
	}
return